Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
hi: [code] Module Module1 Public objconcetion As New OleDb.OleDbConnection Public objcommand As New OleDb.OleDbCommand Public Function open_database() As OleDb.OleDbConnection Try Dim route As String Dim cnn As New OleDb.OleDbConnection route = Application.StartupPath & "\" & "video.accdb" If cnn.State = 1 Then cnn.Close() cnn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source =" & route & …
|