高手们,新年快乐!兄弟我有一个问题,已经半个多月没有找到答案了，希望指教!!!

[tangzhengze]

Private Sub TestConnectDbf()
‘连接打开dabase III数据库
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim w as string
Dim c as string
w = Mid$(dbname, 1, Len(dbname) - Len(Text2.Text))
iConc = "Provider=MSDASQL.1;Extended Properties= " & "DSN=dBASE Files;DBQ= " & w
db.Mode = adModeReadWrite
db.Open iConc
rs.Open Text2.Text, db
‘取得记录
Set Adodc1.Recordset = rs
C=rc()
‘进行添加记录
Adodc1.recordset.addnew
End sub
"为什么不让添加,提示说:"没有提供此项操作")
为什么我能看到记录的显示,但不能对其进行添加和删除,同时不能向前移动一个记录,也不能移动到最后,但是向后移动一个记录和移动到第一个记录可以呢?
请各位高手帮忙，小弟再此

[tzhz5277]

朋友门帮帮我好吗?

[1ssp]

rs.cursortype不对,默认是forwardonly 只读,向前.
改成static 或keyset都行

This's easy

[xzp1030]

Option Explicit

Private Sub TestConnectDbf()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
'‘连接打开dabase III数据库
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim w As String
Dim c As String
w = Mid$(dbname, 1, Len(dbname) - Len(Text2.Text))
iConc = "Provider=MSDASQL.1;Extended Properties= " & "DSN=dBASE Files;DBQ= " & w
db.Mode = adModeReadWrite
db.Open iConc
rs.Open Text2.Text, db, adOpenDynamic, adLockOptimistic
'‘取得记录
Set Adodc1.Recordset = rs
c = rc()
'‘进行添加记录
Adodc1.Recordset.AddNew
End Sub