用ADO连接DBF文件,为什么不能进行删除操作?
部分代码如下:
cnDBF.Open "Provider=MSDASQL.1;Persist Security Info=false;Data & _
Source=dBASE Files;Mode=ReadWrite;Initial Catalog=\\client4\share"
rstDBF.Open "SELECT DATE_B, START_T_B, DUR_B, FU_B, " & _
"CALLING_B, AREA_B, " & _
" CALLED_B, TOLL, SERV_B, TOTAL, RECEIV_T_B, RECEIV_D_B " & _
" FROM TELE ", cnDBF, , , adCmdText
While Not rstDBF.EOF
sSql = "insert a(a1,a2) values(" & vbCrLf _
& "'" & rstDBF!called_b & "','" & rstDBF!TOTAL & "')"
cnSQLServer.Execute sSql
List1.AddItem Trim(rstDBF!called_b)
'删除现有的数据
rstDBF.Delete adAffectCurrent
rstDBF.MoveNext
Wend
运行至Delete部分发生如下错误:
runtime error:-2147467259
[Microsoft][ODBC dBase 驱动程序] 无法从指定的数据表中删除。
哪位大侠知道原因?多谢。急。分不多,请多包涵。