VB6 red write DB using Microsoft DAO 3.6 Object Library

' -----------------------------read db

Private Sub Form_Load()

'MsgBox App.Path & "\wgscd.mdb"

Dim tblCountry As Recordset

Dim dbSys As Database

Dim s As String

Set dbSys = OpenDatabase(App.Path + "\wgscd.mdb", False)

Set tblCountry = dbSys.OpenRecordset("Students")' OR Use like : dbSys.OpenRecordset("select * from Students")

With tblCountry

.MoveFirst

Do While Not .EOF

s = s & !sid & ";" & !Name & " score:" & .Fields("score") 'note:"!sid" is present as .Fields("sid")

.MoveNext

Loop

End With
MsgBox s

End Sub

'--------------write db-----------------------------

Private Sub Command1_Click()

'MsgBox App.Path & "\wgscd.mdb"

Dim tblCountry As Recordset

Dim dbSys As Database

Dim s As String

Set dbSys = OpenDatabase(App.Path + "\wgscd.mdb", False)

Set tblCountry = dbSys.OpenRecordset("Students")

With tblCountry

.AddNew

!sid = 5 + rnd(500)

!Name = "bb" & Now

.Fields("score") = rnd(100)

.Update

.MoveFirst

End With

 MsgBox tblCountry.RecordCount

End Sub

---

bind data with TDBGrid (Library TrueDBGrid80 C:\WINDOWS\system32\tdbg8.oca ComponentOne True DBGrid Pro 8.0)

step:

1.Drag a Data control to the form with named "Data1"

2.Drag a TDBGrid control to the form with named "TDBGrid1"

2.Set control "TDBGrid1"'s property "DataSource" with value "Data1"

3.hen code :

Dim sysDb As Database

Private Sub Command1_Click()

Dim rsData As Recordset

Dim sPath As String

Dim rs As Recordset

sPath = App.Path + "/testDB.mdb"

Set sysDb = OpenDatabase(sPath, 3)

Set rsData = sysDb.OpenRecordset("select * from students")

Set rs = rsData.Clone

Set Data1.Recordset = rs 'must use set

TDBGrid1.Columns("id").BackColor = vbRed

'Me.TDBGrid1.ReBind

End Sub

refer link:

Database.OpenRecordset Method (DAO) link:https://msdn.microsoft.com/en-us/library/office/ff820966.aspx