VB.Net Tutorial/Database ADO.net/OleDbConnection
Create OleDbConnection to Access database
<source lang="vbnet">Imports System.Data Module Test
Sub Main() Dim sConnectionString, sSQL As String "SQL Connection String sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\yourdatabase.mdb" sSQL = "SELECT Title FROM yourTable" Dim conn As New System.Data.OleDb.OleDbConnection(sConnectionString) Dim cmd As New System.Data.OleDb.OleDbCommand(sSQL, conn) Dim dr As System.Data.OleDb.OleDbDataReader conn.Open() dr = cmd.ExecuteReader() Do While dr.Read() System.Console.WriteLine(dr.Item("Title")) Loop dr.Close() conn.Close() End Sub
End Module</source>
Create OleDbConnection to Sql server
<source lang="vbnet">Imports System.Data Module Test
Sub Main() Dim sConnectionString, sSQL As String "SQL Connection String sConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=YourDataBase;Data Source=(local)" sSQL = "SELECT Title FROM yourTable" Dim conn As New System.Data.OleDb.OleDbConnection(sConnectionString) Dim cmd As New System.Data.OleDb.OleDbCommand(sSQL, conn) Dim dr As System.Data.OleDb.OleDbDataReader conn.Open() dr = cmd.ExecuteReader() Do While dr.Read() System.Console.WriteLine(dr.Item("Title")) Loop dr.Close() conn.Close() End Sub
End Module</source>
Using sql statement
<source lang="vbnet">Option Strict On Imports System.Data Imports System.Data.OleDb Public Module UsingStatement
Public Sub Main() Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NorthWind.mdb") Dim cmd As New OleDbCommand Dim dr As OleDbDataReader Using conn conn.Open cmd.rumandText = "Select * From Customers" cmd.rumandType = CommandType.Text cmd.Connection = conn dr = cmd.ExecuteReader() If dr.HasRows Then Do While dr.Read() " Get first and last name of customer Console.WriteLine(CStr(dr.Item(1)) & " " & CStr(dr.Item(2))) Loop Else Console.WriteLine("The table has no rows.") End If End Using End Sub
End Module</source>