Linking Access 2007 to VB 2008 express
Solved/Closed
Related:
- Linking Access 2007 to VB 2008 express
- Save as pdf office 2007 - Download - Other
- Microsoft access free download - Download - Databases
- Ulead photo express - Download - Image editing
- Frontpage express indir - Download - Web design and development
- Microsoft office accounting express - Download - Billing and accounting
3 responses
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
