本文提供了一个使用VBA进行数据库操作的示例代码。通过建立连接并打开记录集，展示了如何从“人事档案信息表”中读取数据，并将其设置为MSHFlexGrid1的数据源。
Private Sub Command1_Click()
Dim cn As Connection
Dim rs As Recordset
Dim str As String
Set cn = New ADODB.Connection
str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=RSDAGLXT;Data Source=."
cn.Open str
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "人事档案信息表", cn
Set MSHFlexGrid1.DataSource = rs
End Sub
Dim cn As Connection
Dim rs As Recordset
Dim str As String
Set cn = New ADODB.Connection
str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=RSDAGLXT;Data Source=."
cn.Open str
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "人事档案信息表", cn
Set MSHFlexGrid1.DataSource = rs
End Sub
扫一扫
5419
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
