ADO对象的基本数据库操作，添加记录表PHONEBOOK有三个文本字段组成。窗体设置三个Label,三个TexBox,两个命令按钮。源程序如下：Dim cnnDB As ADODB.ConnectionDim RS As ADODB.RecordsetPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() With RS .AddNew ‘运行时该语句报错 .Fields("Name") = txtName.Text .Fields("Phone") = txtName.Text .Fields("Memo") = txtName.Text .Update End With txtName.Text = "" txtPhone.Text = "" txtMemo.Text = "" cmdOK.Enabled = False End SubPrivate Sub Form_Load() Set cnnDB = New ADODB.Connection Set RS = New ADODB.Recordset RS.LockType = adLockBatchOptimistic cnnDB.Open "Provider = Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\EX-DAO\ b" RS.Open "PhoneBook", cnnDB, adOpenDynamic cmdOK.Enabled = False End SubPrivate Sub Form_Unload(Cancel As Integer) RS.Close cnnDB.Close Set RS = Nothing Set cnnDB = Nothing End SubPrivate Sub txtName_Change() If Trim(txtName.Text) <> "" And Trim(txtPhone.Text) <> "" Then cmdOK.Enabled = True Else cmdOK.Enabled = False End IfEnd SubPrivate Sub txtPhone_Change() If Trim(txtName.Text) <> "" And Trim(txtPhone.Text) <> "" Then cmdOK.Enabled = True Else cmdOK.Enabled = False End IfEnd Sub不能正常运行
