Linking Access 2007 to VB 2008 express
[Solved/Closed]
Related:
- Linking Access 2007 to VB 2008 express
- Unable to access tp link router page ✓ - Forum - Network
- Fb id access link - Forum - Facebook
- How to Connect VB 6.0 to MS Access 2003 - How-To - Programming
- VB - Connecting to an Access DB - How-To - Access
- Dell mediadirect express cannot access your hard drive appears ✓ - Forum - Hard Drive/SSD
3 replies
Dan S.
Not sure if this is what you're looking for, but this is the code I recently used in VB2008 to write a record to an Access 2007 .accdb file without binding elements to a form. It works well and will even save the record if the file is already open.
_____________________
Public Sub UpdateRecord()
'Location of the database (This one is saved in the bin/debug folder)
Dim dbPath As String = "File name here"
'Connection string, you must use this provider for Access 2007
Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & dbPath & "; Persist Security Info = False;"
'The following Using statement forms a connection to the database; all variables within the Using block have local scope
Using connection As New OleDb.OleDbConnection(connStr)
Dim cmd As New OleDb.OleDbCommand
Dim trans As OleDb.OleDbTransaction '
connection.Open() 'Open connection to database
cmd.Connection = connection
trans = connection.BeginTransaction(IsolationLevel.ReadCommitted)
cmd.Transaction = trans
cmd.CommandText = "SQL Statement Here"
cmd.ExecuteNonQuery() 'Execute command
trans.Commit() 'Save record
'Exit Using block, automatically closing connection to database
End Using
End Sub
_____________________
Public Sub UpdateRecord()
'Location of the database (This one is saved in the bin/debug folder)
Dim dbPath As String = "File name here"
'Connection string, you must use this provider for Access 2007
Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & dbPath & "; Persist Security Info = False;"
'The following Using statement forms a connection to the database; all variables within the Using block have local scope
Using connection As New OleDb.OleDbConnection(connStr)
Dim cmd As New OleDb.OleDbCommand
Dim trans As OleDb.OleDbTransaction '
connection.Open() 'Open connection to database
cmd.Connection = connection
trans = connection.BeginTransaction(IsolationLevel.ReadCommitted)
cmd.Transaction = trans
cmd.CommandText = "SQL Statement Here"
cmd.ExecuteNonQuery() 'Execute command
trans.Commit() 'Save record
'Exit Using block, automatically closing connection to database
End Using
End Sub
