Visual Basic代码编写及示例
Private Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command4_Click() Dim bh As String bh = InputBox("请输入要查找的信息：", "提示") Adodc1.RecordSource = "select * from通讯录 where '姓名='" & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "查无此人！", , "提示" Adodc1.RecordSource = "select * from通讯录" Adodc1.Refresh End If End Sub
文件大小：112.5KB
评论区