有开发经验的高手，对dbf格式的数据库可以用SQL语句进行update吗？

Question

用ADO连数据库，无论用cnn执行SQL的update进行记录的更改，还是用command执行update都不成功。而且没有错误信息，到底是什么地方的问题啊？（相关代码我也在其他的帖子里贴了）

Answer 1

对于dbf格式的数据库可以用SQL语句进行update.我经常这样用。

Answer 2

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 = Rs
End Sub

Answer 3

Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Answer 4

Dim xx As New ADODB.Connection
xx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Borland\Shared\Data\;Extended Properties=dbase 5.0;Persist Security Info=False"
xx.Execute "update T set F = 'sadsad' where 1 = 0"

Answer 5

你首先要在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 = "Driver={Microsoft Visual FoxPro Driver};" & _
           "SourceType=DBF;" & _
           "SourceDB=;" & app.path & "\data" & _
           "Exclusive=No"
  cn.CursorLocation = adUseClient
  cn.Open cnstr
  xx.Execute "UPDATE XXX表 SET 字段名 = 新值 WHERE 字段名=条件"
  rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
  set datagrid1.datasource=rs
  datagrid1.refresh
End Sub