' -----------------------------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:WINDOWSsystem32 dbg8.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