Okay, i'm generally making a program which captures information about customers and payments.
To do so, i'm using vb6.
In order to store and retrieve this data i have made an access database.
Now i do not know how to connect that table created to my project.
But the major thing is that i do not want to use the ADO and stuff, i want to use a connection string.
So i wanted to ask, how do you do that. Are there a set of codes required for a connection string?
Do i have to make an interface with a label (firstname,lastname) and textboxes ....
And after we do that, how can we make sure it is saving in access.
Hope my question is clear enough now, i have tried my best.
'Put this in General Declaration area
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Then have this where you want to create the connection
Set db = New ADODB.Connection
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\Database.mdb"
'Change Database to your database name
Set rs = New ADODB.Recordset
rs.Open "Select DATABASETABLENAME from TABLEFIELD", db, adOpenStatic, adLockOptimistic
'DATABASETABLENAME is the table from your database
'TABLEFIELD is where you records be found
Or you can just do your connection by creating a module.
Public DBLink As New ADODB.Connection
Public RecSet As New ADODB.Recordset
Public Sub Con(Database As String)
DBLink.Provider = "Microsoft Jet 4.0 OLE DB Provider"
DBLink.ConnectionString = "Data Source=" & App.Path & "\" & Database
'Still the Database is the database name - rename it to your own
Then just call the connection on where you need it.
For Each ctrl As Control In Me.Controls("pnlMainPanel").Controls
If ctrl.GetType Is GetType(System.Windows.Forms.Panel) Then
For Each subCtrl As Control In ctrl.Controls
If subCtrl.GetType Is GetType(System.Windows.Forms.TextBox) Then
If subCtrl.GetType Is ...