VB与数据库的连接步骤以相关语句
- 格式：doc
- 大小：52.00 KB
- 文档页数：23
下载文档原格式
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vb6.0连接
sql2000数据库的具体步骤
1．定义连接对象
Global DBconnect As New ADODB.Connection2．执行连
接语句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Closel连接
ODBC DBconnect.ConnectionString = "dsn
1．定义连接对象
Global DBconnect As New ADODB.Connection
2．执行连接语句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then
DBconnect.Close
l连接
ODBC
DBconnect.ConnectionString=
"dsn=DataAliasName;uid=UserID;pwd=Passwd;"
l直接连接
Access为
Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为
3.51
DBconnect.ConnectionString = "FilePathFileName.mdb"
l连接
Oracle
DBconnect.Provider = "MSADORA"
DBconnect.ConnectionString = "user/mypass@servicename
l连接
SQL Server
DBconnect.Provider = "SQLOLEDB.1"
DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"
或者可以使用
DBconnect.Open "SERVER" , "USERID" , "PASSWORD" DBConnect.Open
3．取查询结果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
RS.Open SQLStr, DBconnect, adOpenKeyset
4．执行
SQL语句
DBconn.Execute SQLStr
PDF 文件使用 "pdfFactory Pro" 试用版本创建
5．关闭数据库
DBconnect.Close
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.AddItemi
Nextt
PDF 文件使用 "pdfFactory Pro" 试用版本创建