• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• ADO Connection using app.path this connection was effective 100%

ADO Connection using app.path this connection was effective 100%

ADO Connection using app.path this connection was effective 100%

API Declarations


Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset



Rate ADO Connection using app.path this connection was effective 100%

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'2. save it to one folder
'3. open vb aplication
'4. create a declaration same as declaration obve
'5. create a connection
'6. before you run the program save first the whole project in the folder where you save the database.
'7. then run the application
'8. finish
'9. hope you like it


Private Sub Form_Load()
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.Open "provider=microsoft.jet.oledb.4.0;persist security info=false;data source=" & App.Path & "\db1.mdb"
MsgBox "database connected"
End Sub