Vb.Net and MS-Access database Conection
Open connection to password protected Access database:
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; Jet OLEDB:Database Password=Your_Password"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; " +
"Data Source=G:\\Backup\\Kashif\\xyzDB.mdb";
qryStr = "select content,websiteID from content";
dbConn = new OleDbConnection(connStr);
Examples:
SQL: "server=tonydev;database=northwind;uid=tony;pwd=hrmmm"
"server=tonydev;database=northwind;trusted_connection=yes"
OLE: "Provider=Microsoft.Jet.OLEDB.4.0; Data source=C:\tony.mdb"
Public Function FetchData(ByVal FileName As String) As DataSet
'Define the connectors
Dim oConn As OleDbConnection
Dim oComm As OleDbCommand
Dim oData As OleDbDataAdapter
Dim resultSet As New DataSet
Dim oConnect, oQuery As String
'Define connection string
oConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";User ID=Admin;Password="
'Query String
oQuery = "SELECT * FROM accessTest"
'Instantiate the connectors
oConn = New OleDbConnection(oConnect)
oComm = New OleDbCommand(oQuery, oConn)
oData = New OleDbDataAdapter(oQuery, oConn)
Try
'Open connection
oConn.Open()
'Fill dataset
oData.Fill(resultSet, "accessTest")
'Close connection
oConn.Close()
Catch ex As OleDb.OleDbException
Catch ex As Exception
'Show error message and exit
MsgBox(ex.Message & vbCrLf & ex.StackTrace)
Finally
'Dispose the connector objects
If Not (oConn Is Nothing) Then oConn.Dispose()
oConn = Nothing
If Not (oComm Is Nothing) Then oComm.Dispose()
oComm = Nothing
If Not (oData Is Nothing) Then oData.Dispose()
oData = Nothing
End Try
'Return results
Return resultSet
End Function
OLE DB, OleDbConnection (.NET)
• Standard security:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=;"
• Workgroup (system database):
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;"
• With password:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"
cnHotel = New OleDbConnection
Try
With cnHotel
If .State = ConnectionState.Open Then .Close()
.ConnectionString = cnString
.Open()
End With
Catch ex As OleDbException
MsgBox(ex.ToString)
End Try