2022年VB连接到SQL数据库 .pdf

《2022年VB连接到SQL数据库 .pdf》由会员分享，可在线阅读，更多相关《2022年VB连接到SQL数据库 .pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB 连接 SQL 数据库的方法VB 使用 ADO 数据库可以分为有源数据库和无源数据库，即是否使用了DSN 数据源，如下例：1、在连接数据库前首先要在VB 菜单中 “ 工程” -“ 引用 ” 从中选择microsoft activeX Data objects 2.6 library组件，这是在连接数据前所必做的工作。2、接下来定义ADO 的连接对象，如下所示：Set conn = New ADODB.Connection Set rs = New ADODB.Recordset 第一种方法采用的是无源的数据库连接方法conn.ConnectionString = Driver=sql se

2、rver;server=JSZX3-11;uid=sa;pwd=密码;database= 数据库名 conn.ConnectionTimeout = 30 conn.Open 这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = DSN=login;uid=sa;pwd=; conn.ConnectionTimeout = 30 conn.Open 名师资料总结 - - -精品资料欢迎下载

3、 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 3 页 - - - - - - - - - 如果要互联网显示就得借助第三方软件，因为vb 毕竟是 cs 架构的我以前写的部分代码你看看可以参考form2 相当于你的 frmmain Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim loginflag As Boolean Private Sub Command1_Click() Set conn = New ADODB.Connection Se

4、t rs = New ADODB.Recordset 建立无源数据库连接conn.ConnectionString = driver=sql server;server=12-3FDA18CE0DDC;uid=sa;pwd=sa;Database=test conn.ConnectionTimeout = 50 conn.Open Dim str As String 连接连接对象Set rs.ActiveConnection = conn 设置游标类型rs.CursorType = adOpenDynamic If Trim(Text1.Text = ) Then MsgBox 用户名不能为空

5、，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Else 设置查询字符串str = select * from tt where name = & Trim(Text1.Text) & rs.Open str If rs.EOF = True Then MsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Else 登录成功，连接主窗口名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - -

6、名师精心整理 - - - - - - - 第 2 页，共 3 页 - - - - - - - - - If (Trim(Text2.Text) = Trim(rs.Fields(password) Then loginflag = True Me.Hide Form2.Show MsgBox 登陆成功 Else MsgBox 密码不正确，请重输入密码!, , 警告 Text2.SetFocus SendKeys Home+End End If End If End If End Sub Private Sub Command2_Click() Me.Hide loginflag = False End End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 3 页 - - - - - - - - -