用vb做系统的一个登录界面，要求用户输入的用户信息与数据库中的信息

Question

用vb做系统的一个登录界面，要求用户输入的用户信息与数据库中的信息比较，符合则完成登录，该怎么做

Answer 1

创建一个窗体，然后方式三个输入控件，下面函数中的变量就是要输入，其中sDBName可以不需输入，默认为master：SQLServer服务器名用户名密码Public Function MSSQLServer(ByVal sDBName As String) As String MSSQLServer = "Driver={SQL Server};" & _ "Server=" & Trim(sServerName) & ";" & _ "Database=" & Trim(sDBName) & ";" & _ "Uid=" & Trim(sUserName) & ";" & _ "Pwd=" & Trim(sPassWord) & ";"End Function根据上面输入的值，构造谅解字符串点击按钮链接后执行：PrivateCnAsADODB.ConnectionCn.ConnectionString=MSSQLServer(sDatabase)如果输入正确就能链接数据库之后就可以进行其他数据库操作