VB.NET & System.Data.Odbc - DataAdapter()

Author: admin | Posted: 14-06-2010 | Category: VB.NET & System.Data.Odbc

VB.NET & System.Data.Odbc - DataAdapter() - How to learn Connector/NET ADO.NET component System.Data.Odbc namespace is the .NET Framework Data Provider for ODBC data source, Using the OdbcDataAdapter set of data commands and a database connection that are used to fill the DataSet and update the data source.

ShotDev Focus:
- VB.NET & System.Data.Odbc - DataAdapter()

Example

DataAdapter.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.Odbc"%>
<%@ Page Language="VB" %>
<script runat="server">
Dim objConn As System.Data.Odbc.OdbcConnection
Dim objCmd As System.Data.Odbc.OdbcCommand

Sub Page_Load(sender As Object, e As EventArgs)
Dim strConnString As String
strConnString = "DSN=mydatabase;UID=;PWD=;"
objConn = New System.Data.Odbc.OdbcConnection(strConnString)
objConn.Open()

BindData()
End Sub

Sub BindData()
'*** DataAdapter & DataTable ***'
'myRepeater.DataSource = CreateDataTable()
'myRepeater.DataBind()

'*** DataAdapter & DataSet ***'
myRepeater.DataSource = CreateDataSet.Tables(0).DefaultView
myRepeater.DataBind()

End Sub

'*** DataAdapter & DataTable ***'
Function CreateDataTable() As DataTable
Dim objConn As New System.Data.Odbc.OdbcConnection
Dim dtAdapter As System.Data.Odbc.OdbcDataAdapter
Dim dt As New DataTable

Dim strConnString As String
strConnString = "DSN=mydatabase;UID=;PWD=;"
objConn = New System.Data.Odbc.OdbcConnection(strConnString)
objConn.Open()

Dim strSQL As String
strSQL = "SELECT * FROM customer"

dtAdapter = New System.Data.Odbc.OdbcDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

dtAdapter = Nothing

Return dt '*** Return DataTable ***'

End Function

'*** DataAdapter & DataSet ***'
Function CreateDataSet() As DataSet
Dim objConn As New System.Data.Odbc.OdbcConnection
Dim objCmd As New System.Data.Odbc.OdbcCommand
Dim dtAdapter As New System.Data.Odbc.OdbcDataAdapter

Dim ds As New DataSet
Dim strConnString,strSQL As String

strConnString = "DSN=mydatabase;UID=;PWD=;"
strSQL = "SELECT * FROM customer"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd

dtAdapter.Fill(ds)
Return ds '*** Return DataSet ***'

dtAdapter = Nothing

End Function

Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub

</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Repeater id="myRepeater" runat="server">
<HeaderTemplate>
<table border="1">
<tr>
<th>CustomerID</th>
<th>Name</th>
<th>Email</th>
<th>CountryCode</th>
<th>Budget</th>
<th>Used</th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td align="center"><%#Container.DataItem("CustomerID") %></td>
<td><%#Container.DataItem("Name") %></td>
<td><%#Container.DataItem("Email") %></td>
<td align="center"><%#Container.DataItem("CountryCode") %></td>
<td align="right"><%#Container.DataItem("Budget") %></td>
<td align="right"><%#Container.DataItem("Used") %></td>
</tr>
</ItemTemplate>
</asp:Repeater>
</form>
</body>
</html>

Screenshot

.
.
.
Download this script.