OLEDB (Microsoft Access, Oracle, MYSQL etc. )

          इसका use SQL Server को छोडकर अन्य सभी प्रकार के database से data access करने के लिए किया जाता है। इसमें Microsoft access और oracle प्रमुख हैं। इसका प्रयोग SQL Server के साथ भी किया जा सकता है। इसके लिए System.Data.OleDb namespace को import किया जाता है और इसके बाद सभी objects olddb के साथ जैसे – OLEDBConnection, OLEDBCommand etc. का use किया जाता है । 

• 
  

  Connection: इसमें OLEDBConnection object का use किया जाता है। इसे design time मे Toolbox और runtime मे coding के द्वारा use किया जाता है। इसमें निम्न connection string का use किया जा सकता है। 

MS Access: 

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword; 

MYSQL: 

Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword; 

Ex: 

Dim con_str As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\Ashutosh\Documents\Students.accdb"

Dim con As New OleDbConnection (con_str)

Try

con.Open()

MsgBox("Connected Sucessfully")

con.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

• 
  

  Command: इसके लिए OLDDBCommand object का use किया जाता है जो की SQL statements को execute कर result display करता है। 

Dim con_str As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\Ashutosh\Documents\Students.accdb"

Dim con As New OleDbConnection(con_str)

im cmd As new OleDbCommand

cmd.CommandText = "Select * form Students"

cmd.Connection = con

Try

con.Open()

Dim dr As OleDbDataReader

dr = cmd.ExecuteReader

dr.Read()

MsgBox(dr.Item(0))

con.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

• 
  

  DataAdapter और DataSet: इसमें DataAdapter OLEDBDataadpter और dataset normal dataset का object होता है। 

Dim con_str As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\Ashutosh\Documents\Students.accdb"

Dim con As New OleDbConnection(con_str)

Dim ada As OleDbDataAdapter

Dim ds As New DataSet

Try

con.Open()

ada = New OleDbDataAdapter("Select * from Products", con)

ada.Fill(ds)

con.Close()

Dim i As Integer

For i = 0 To ds.Tables(0).Rows.Count - 1

MsgBox(ds.Tables(0).Rows(i).Item(1))

Next

Catch ex As Exception

MsgBox(ex.Message)

End Try