Hi
this function will open a connection in mdb access.. all you have to do is to supply the parameters required for this function.
Public Function SearchDB(ByVal FileName As String, ByVal strSqlStatement As String) As DataSet
Dim CN As New System.Data.OleDb.OleDbConnection
Dim ObjDA As New System.Data.OleDb.OleDbDataAdapter
Dim contDs As New DataSet
Dim SelectCmd As New System.Data.OleDb.OleDbCommand
Try
CN.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""" & FileName.Trim & """;Mode=Share Deny None;Jet OLED" & _
"B:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Je" & _
"t OLEDB:SFP=False;persist security info=False;Extended Properties=;Jet OLEDB:Com" & _
"pact Without Replica Repair=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Cre" & _
"ate System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=A" & _
"dmin;Jet OLEDB:Global Bulk Transactions=1"
'pass an sql statement here to query
'example: select * from table1 where field1='ruel'
SelectCmd.CommandText = strSqlStatement.Trim
SelectCmd.Connection = CN
ObjDA.SelectCommand = SelectCmd
ObjDA.Fill(contDs)
Return contDs
Catch ex As Exception
contDs.Clear()
Return contDs
End Try
End Function
Best Regards,
Ruel
how i search a record in vb.net using ms access data base