数据库中click什么意思
1个回答
2016-07-01
展开全部
下面是一个VB连接数据库的例子,你可以参考一下,用的是Access数据库'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一笔记录 '点工程->援引 选中 Microsoft Activex Data Objects 2.1 Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的现实数据库名及路径 Dim UserName As String Dim Password As String s = Text1.Text If s = "1" Or s = "2" Then UserName = InputBox("请输入用户名") Password = InputBox("请输入用户暗码") sql = "Select * From [UserInfo] where User='" & UserName & "'" 'UserInfo请换成你的现实数据表名 Rs.Open sql, Conn, 1, 3 If Rs.EOF Then MsgBox "没有找到此用户" Else If Rs("Password") = Password Then If s = "1" Then MsgBox "123" ElseIf s = "2" Then MsgBox "456" End If Else MsgBox "暗码错误" End If End If End If End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询