Linking Access 2007 to VB 2008 express
Solved/Closed
Related:
- Linking Access 2007 to VB 2008 express
- Vb 2008 express edition free download - Download
- Unable to access tp link router page ✓ - Forum - Network
- Facebook access link - Forum - Facebook
- How to connect VB 6.0 with MS Access - Guide
- Vb.net projects with ms access database free download - Download
3 replies
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
