如何用recordist对象访问数据库
- 提问者网友：精神病院里
- 2021-05-09 14:34
- 五星知识达人网友：罪歌
- 2021-05-09 15:45
楼主您好、
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.1 Library”
类型：自由表
示例：
Private Sub cmddisp_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=" & app.path & "\data" & _
"Exclusive=No"
cn.Open cnstr
rs.CursorLocation = adUseClient
rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
以上示例程序的作用是将XXX.dbf表中的数据显示在datagrid1控件中。
类型：数据库
示例：
Private Sub cmddisp_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr ="Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBC;" & _
"SourceDB=" & app.path & "\data\yourdbname.dbc;" & _
"Exclusive=No"
cn.Open cnstr
rs.CursorLocation = adUseClient
rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
xxx表示某某表，在具体的程序中应换成你自己的。
还有app.path是代表相对路径。
比如你的VB程序（工程文件）的目录为d:\myprg下，那么app.path & "\data" 就表示数据库文件在d:\myprg\data目录下。
app.path的作用是取得当前工程文件的路径。
答案希望楼主满意、