How To Retrieve From A SQL Statement Into A DataSource In VB.NET 2003

Source: http://72.14.203.104/search?q=cache:Jp9APYdBmMEJ:www.programmersheaven.com/2/FAQ-ADONET-Fill-Dataset+dataset+fill+VB.NET&hl=en&gl=us&ct=clnk&cd=5

Imports System
Imports Microsoft.VisualBasic.Strings
Imports Microsoft.VisualBasic.FileSystem
Imports System.IO
Imports System.Data
Imports System.Security
Imports System.Data.Odbc
Imports System.Security.Principal
Imports System.Security.Permissions
Imports System.Threading
Imports MbUnit.Framework
Imports MbUnit.Core.Framework
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Data.SqlClient


Public Class TestAddPatientToRegistry





Public Sub testClass()

Dim cn As OdbcConnection
Dim cmd As OdbcCommand
Dim result As String
cn = New OdbcConnection("DRIVER={Oracle in OraHome81};SERVER=dev1cdr;UID=ACPG;" & _
"PWD=ACPG;DBQ=dev1cdr;")
Dim mystring As String = "select unit_number as unit_number from ACPG_Reminder R"

cmd = New OdbcCommand(mystring, cn)
cn.Open()
Dim ds As New DataSet
Dim da As OdbcDataAdapter
Dim dt As DataTable
da = New OdbcDataAdapter(cmd)
da.Fill(ds, "R")
dt = ds.Tables("R")
result = dt.Rows(0).Item("unit_number")



Assert.AreEqual(1000005250.ToString(), result)
cn.Close()

cmd.Dispose()

End Sub



End Class