vb6.0如何连接sql2000

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

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

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

一、添加Ado控件

1.[工程] -- [部件]，选择： Microsoft ADO Data Control 6.0 (SP6) (OLEDB)，[确定]，该控件图标出现在控件工具箱里。

2.将它添加到窗体上。

二、设置连接属性

1. 选择：ConnectionString 属性，单击那个有省略号的按钮，单击[生成]，出现“数据链接属性”对话窗口，在“提供程序”选项卡里选择“Microsoft OLE DB Provider for SQL Server”,[下一步]

2. 在“连接”选项卡里：

1.选择服务器（计算机）名称。

2.输入SQL的用户名，密码。

3.选择数据库

如果选择设置正确，单击[测试连接]，将提示成功，否则将提示连接失败。

单击[确定]，至此，生成了连接字符串，回到“属性页”对话窗口，单击[确定]，设置完成，连接字符串，出现在“ConnectionString 属性”里。

可以用代码连接：

Adodc1.ConnectionString = "这里用刚才生成的连接字符串复制过来"

Adodc1.RecordSource = "系统用户表"

Adodc1.Refresh

---