VB通过ADO连接SQL数据的两种方法
来源:互联网 发布:商务酒店网络推广方案 编辑:程序博客网 时间:2024/05/22 10:25
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
- VB通过ADO连接SQL数据的两种方法
- 通过OLE DB连接SQL数据库的两种方法
- ADO连接SQL SERVER的两种方式
- C++ 连接Mysql的两种方法--ADO/Mysql api
- VB 6.0 与 SQL Server 的两种连接
- C++连接mysql数据库的两种方法(ADO连接和mysql api连接)
- C++连接mysql数据库的两种方法(ADO连接和mysql api连接)
- LabVIEW通过ADO连接SQL Server 方法一
- LabVIEW通过ADO连接SQL Server 方法二
- ADO连接SqlServer的两种方式
- vb使用ADO连接SQL Server
- 通过PHP连接MySQL的两种方法简介
- vc通过ADO连接sql server 2000的核心代码
- VB连接SQL数据库的方法
- VB连接SQL数据库的方法
- VB连接SQL数据库的方法
- day6:通过表单传递数据的两种方法
- MFC通过ADO连接SQL SERVER数据库
- PNG格式
- 一段去除字符前后全角半角tab的java代码
- 使页面button元素可用或不可用方法
- 关于知识点整理的一点想法
- 排班查询
- VB通过ADO连接SQL数据的两种方法
- 学习工具
- 在VB程序中用ADO对象动态创建数据库和表
- spring + struts
- 网络安全书籍
- DATEADD和DATEDIFF
- 常见图像文件格式详解
- vb.net读取文本文件函数
- IE与Firefox下对CSS解析的区别及解决方案