用VB做一个电子通讯录 用的是access ADO控件 当我运行是"提示对象变量或with块变量未设置 " Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Recordset.Move
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveNext
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command1_Click()
Dim name
Dim number
number = Text1.Text
name = Text2.Text
If Option1.Value = True Then
Adodc1.RecordSource = "SELECT * FROM 通讯录 WHERE " & name & " = '" & Text2.Text & "' "
End If
If Option2.Value = True Then
Adodc1.RecordSource = "SELECT * FROM 通讯录 WHERE " & number & " = '" & Text1.Text & "' "
End If
Adodc1.Refresh
Txte1.Text = Adodc1.Recordset.Fields("学号")
Text2.Text = Adodc1.Recordset.Fields("姓名")
Text3.Text = Adodc1.Recordset.Fields("家庭地址")
Text4.Text = Adodc1.Recordset.Fields("电话")
Text5.Text = Adodc1.Recordset.Fields("QQ")
Text6.Text = Adodc1.Recordset.Fields("E-mail")
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Form_Load()
End Sub