VB.Net Tutorial/Database ADO.net/OleDbConnection

Материал из VB Эксперт
Перейти к: навигация, поиск

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>