象这样:Dim CN As New ADODB.Connection Dim Rs As New ADODB.Recordset Private Sub Form_Load() CN.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _ "DriverID=277;" & _ "Dbq=C:\ST1000\DATA;"
Rs.CursorLocation = adUseClientCN.Execute "update sk200212.dbf set sksj='08:27' where zgbh='028032' "Rs.Open "Select * From sk200212.dbf", CN, , , adCmdTextSet DataGrid1.DataSource = RsEnd Sub
可以的。 你首先要在VB菜单中: “工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.1 Library”示例:Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cnstr As String cnstr = oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _ "DriverID=277;" & _ "Dbq=" & app.path & "\data" cn.Open cnstr rs.CursorLocation = adUseClient rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic text1.text=trim(rs.Fields(0)) text2.text=trim(rs.fields(1)) ....... text6.text=trim(rs.fields(5)) End Sub以上示例程序的作用是将XXX.dbf表中的各列的第一条记录的各列数据分别显示在不同的textbox控件中。几点说明:app.path是取得应用程序的当明目录,假设你的就用程序目录为:c:\myprg下,数据文件在c:\myprg\data目录下。那么app.path & "\data" 就代表了c:\myprg\data 即 app.path是取的相对路径,你也可以使用绝对路径c:\myprg\data. 在你的程序中要将我写的示例程序中相应的地方进行修,如表名,数据源路径等。
象这样:Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
CN.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=277;" & _
"Dbq=C:\ST1000\DATA;"
Rs.CursorLocation = adUseClientCN.Execute "update sk200212.dbf set sksj='08:27' where zgbh='028032' "Rs.Open "Select * From sk200212.dbf", CN, , , adCmdTextSet DataGrid1.DataSource = RsEnd Sub
你首先要在VB菜单中:
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.1 Library”示例:Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr = oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=277;" & _
"Dbq=" & app.path & "\data"
cn.Open cnstr
rs.CursorLocation = adUseClient
rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
text1.text=trim(rs.Fields(0))
text2.text=trim(rs.fields(1))
.......
text6.text=trim(rs.fields(5))
End Sub以上示例程序的作用是将XXX.dbf表中的各列的第一条记录的各列数据分别显示在不同的textbox控件中。几点说明:app.path是取得应用程序的当明目录,假设你的就用程序目录为:c:\myprg下,数据文件在c:\myprg\data目录下。那么app.path & "\data" 就代表了c:\myprg\data
即 app.path是取的相对路径,你也可以使用绝对路径c:\myprg\data.
在你的程序中要将我写的示例程序中相应的地方进行修,如表名,数据源路径等。