vb登录界面连接数据库？数据库怎么连接VB
大家好,今天小编来为大家解答以下的问题，关于vb登录界面连接数据库，数据库怎么连接VB这个很多人还不知道，现在让我们一起来看看吧！
如何用VB连接SQL数据库做登录
一、界面设计
各控件名称属性分别为：label1、text1、label2、text2、commandok、cmdcancel
登录成功后显示的窗体：
代码设计如下：
'首先添加一个模块，写上以下通用声明和Sub main()：
Public conn As ADODB.Connection'通用（声明）
Sub main()
Set conn= New ADODB.Connection'通用（main）
conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _
+"User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"'连接数据库代码
conn.Open
frmLogin.Show'首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
'在Frmlogin代码窗口，为cmdok控件写以下代码：
Private Sub cmdok_Click()
If text1.Text="" Then
MsgBox"用户名不能为空！", vbOKOnly+ vbInformation,"友情提示"
text1.SetFocus
Exit Sub'若用户名文本框内为空，则出现提示框
End If
If text2.Text="" Then
MsgBox"密码不能为空！", vbOKOnly+ vbInformation,"友情提示"
text2.SetFocus
Exit Sub'若输入密码文本框为空，也出现提示框
End If
Dim strSQl As String
strSQl="select* from User1 where username='"& Trim$(text1.Text)&"' and pwd='"& Trim$(text2.Text)&"'"
'书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str= New ADODB.Recordset
str.CursorLocation= adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If.State= adStateOpen Then.Close
.Open strSQl
If.EOF Then
Try_times= Try_times+ 1
If Try_times>= 3 Then
MsgBox"您已连续三次输入错误，系统将自动关闭", vbOKOnly+ vbCritical,"警告"
Unload Me'若用户连续输入3次错误密码，则系统关闭
Else
MsgBox"对不起，用户名不存在或密码错误！", vbOKOnly+ vbQuestion,"警告"
text1.SetFocus
text1.Text=""
text2.Text=""
End If
Else
Unload Me'若登录成功，则隐藏当前窗体
Form2.Show'然后显示Form窗体
End If
End With
End Sub
Private Sub cmdCancel_Click()
End'若单击Cmdcel按钮，则结束应用程序
End Sub
运行中存在的问题：
代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"
解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
然后就就可以正常运行了。
VB如何连接Access数据库
如下代码参考一下，不知能有帮助否。
Private Sub Command1_Click()
Dim Mycon As ADODB.Connection'定义一个连接对象，用这个对象来和数据库建立通讯联系。
Dim Myrt As ADODB.Recordset'定义一个记录集对象，将来从数据库取得一条一条的记录后，放入这个对象里面。
Dim Mystr As String'定义一个字符串变量，用来存放和数据库连接时一些必要的参数。
Set Mycon= New ADODB.Connection'建立一个新的连接对象。
Set Myrt= New ADODB.Recordset'建立一个新的记录集对象。
Myrt.CursorLocation= adUseClient'定义记录集的游标类型，你要是才接触这方面的内容的话，这里没没必要做深入研究，知道记录集有2种游标类型，一种是服务器端游标，一种是客户端游标，这里采用的是客户端游标，2种类型各有特点，就你这如果要连接一个用户密码表的话，设客户端游标就可以了。
Mystr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\db1.mdb"'设置用来和数据库进行连接的一些必要参数，Access数据库采用Microsoft.Jet.OLEDB.4.0驱动，如果是其它类型的数据库的话这句就不一样了，如果你要调试这段代码的话，把d:\db1.mdb这个改一下。
Mycon.Open Mystr'用定义好的连接对象以前面设置的参数打开数据库，后面对数据库的操作就操作这个连接对象就行了。
Myrt.Open"select* from表名", Mycon, 3, 1'记录集对象执行打开操作，从数据库中的一个表中取得记录，在这里Mycon就代表数据库了。"select* from表名"这句意思是从一个表中取得所有记录。你具体试验时把表名修改一下。
'在这里就从数据库的一个表中取得有用的数据了，你可以通过对Myrt记录集的操作取得自己需要的数据。比如如果是一个用户密码表的话，如果这个表有2个字段，一个用户名字段，一个密码字段。那么用Myrt("用户名")就能取得当前记录这个字段的数据。如果这个表有10条记录的话，可以用Myrt.movenext来移动记录集指针。
'如果你界面上放置一个DataGrid控件的话，用下面这句就能看到Myrt记录集对象从数据库中取得的内容了。
Set DataGrid1.DataSource= Myrt
End Sub
你问题补充里的代码没有连接数据库的代码，这个按钮是验证身份登录的代码，在这之前就应该和数据库连接了，因为连接数据库的代码必定会有数据库的路径、名称等信息。如：D:\db1.mdb。
VB如何连接网络数据库
什么数据库都可以，甚至Access数据库也是可以的。这里给你个思路吧。
【方法举例】你可以采用“vb+asp+数据库”的结构来设计，即vb代表客户端、asp作为连接客户与数据库之间的桥梁。asp和数据库放在服务器。然后你通过vb访问asp和向asp发送数据的形式来间接达到访问数据库的目的。
文章分享结束，vb登录界面连接数据库和数据库怎么连接VB的答案你都知道了吗？欢迎再次光临本站哦！