how to create database in Ms-Access & how to connect that database with
Visual Basic-6.0? Kindly let me know in detail.
Visual Basic-6.0? Kindly let me know in detail.
Option Explicit
'declare global variable
Public cnnDb As New ADODB.Connection
Public varInvNo As Long
Sub Main()
'change into the project directory
ChDrive Left(App.Path, 2)
ChDir Mid(App.Path, 3)
'open the database
cnnDb.Open "Provider = Microsoft.Jet.OLEDB.3.51;" _
& "Data source = Babylon.mdb"
MsgBox ("Connection is now open")
'load the main form
frmInvoicesView.Show 1
'close the database
cnnDb.Close
MsgBox ("Connection is now closed")
End Sub
Comment