VB6.0中连接打开SQL数据库的关键性语句是什么？可以举例说明一下

VB6 访问SQL 数据库一般有 ADO,DAO,ODBC 几中方式，主要根据实际情况决定采用那种方式。

如：

1、在窗体中放置data 数据控件,采用 ODBC 方式访问 SQL 数据库，可以这样设置

ConStr="ODBCDriver={SQL Server}Server=服务器名称（本地电脑名）

Uid=saPwd=

DataBase=数据库名LoginTimeOut=0“

设置 Data1 连接属性

With Data1

.DatabaseName = ""

.Connect = ConStr

.RecordSource = ”Select * From 数据表“ '取得数据源的SQL语句

.Refresh

End With

这样就可以连接数据库了 。

2、在程序中利用 ADO 的方式

Dim myCon As New ADODB.Connection

Dim snRes As New ADODB.Recordset

Dim ConStr$

ConStr="Provider=SQLOLEDB.1Persist Security Info=TrueUser ID=saPassword=

Data Source =服务器名Initial Catalog=数据库名"

'建立数据连接

myCon.Open ConStr

‘建立数据集

snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly

这里打开数据记录集时，可以选择多种参数,可以参考一下帮助文件...

VB6.0使用ADO对象连接数据库：

1． 定义连接对象Global DBconnect As New ADODB.Connection2． 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 连接ODBC DBconnect.ConnectionString = "dsn

1． 定义连接对象

Global DBconnect As New ADODB.Connection

2． 执行连接语句

If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close

 连接ODBC

DBconnect.ConnectionString = "dsn=DataAliasNameuid=UserIDpwd=Passwd"

 直接连接Access为

Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为3.51

DBconnect.ConnectionString = "FilePathFileName.mdb"

 连接Oracle

DBconnect.Provider = "MSADORA"

DBconnect.ConnectionString = "user/mypass@servicename

 连接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

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-11uid=sapwd=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=loginuid=sapwd="

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

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

---