# 使用ADO 物件 使用ADDNEW 的问题

Posted by Tim Liu on September 16, 1999 at 13:23:36:

小弟使用ADO物件
出了问题就是使用ADO方式开启MDB资料库
但在新增时 ADDNEW 没有反应~~~
请问高手 这是什么问题

以下是我的程式

Option Explicit
Dim rs As New ADODB.Recordset '建立一个Recordset 类的物件变数
'而 Recordset 物件类型来自ADODB 物件类别模组
Dim conn As New ADODB.Connection
Dim ConnStr As String

Private Sub Command1_Click() ' 新增按钮
Adodc1.Recordset.AddNew
End Sub

Private Sub CMD_Click(Index As Integer)
Select Case Index
Case 1
rs.MoveFirst
Call DISP_DATA
Case 2
While Not rs.BOF
rs.MovePrevious
Call DISP_DATA
Wend
Case 3
While Not rs.EOF
rs.MoveNext
Call DISP_DATA
Wend
Case 4
rs.MoveLast
Call DISP_DATA
Case 5
' rs.AddNew
Case 6
rs.Update
Case 7
Case 8
End Select
End Sub

Private Sub Command2_Click()
conn.Close '关资料库
Set conn = Nothing '释放conn物件变数
Unload Me
End Sub

Private Sub Form_Load() '程式启始
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data source=F:\vb6prg\checkup\checkup.mdb"
conn.Open ConnStr

rs.CursorLocation = adUseClient
rs.Open "CUSTMAIN", conn, adOpenKeyset, adLockOptimistic

Call DISP_DATA '呼叫副程式
End Sub

Private Sub DISP_DATA()
txtSchid.Text = rs("U_SCHID")
txtSchname.Text = rs("U_SCHNAME")
End Sub

Follow Ups:

- Re: 使用ADO 物件 使用ADDNEW 的问题 BenneL 17:46:47 9/16/99 (0)