2024年3月19日发(作者：)

vb6.0连接sql2000数据库的具体步骤

悬赏分：

200|

解决时间：

2010-3-1310:01|

提问者：能者天下

初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要

做前台界面，用

vb

做，无从下手，望高手指点了，谢谢！有详细视频教程的网

站或现成的视频也可以。

最佳答案

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

有偿征集原创文章，为您创收投递文章减小字体增大字体

1．定义连接对象tion2．执行连

接语句=adStateOpenAndNotIsEmpty(adStateOpen)

连接tionString="dsn

1．定义连接对象

tion

2．执行连接语句

=adStateOpenAndNotIsEmpty(adStateOpen)Then

连接ODBC

tionString=

"dsn=DataAliasName;uid=UserID;pwd=Passwd;"

λ直接连接Access为

er=".4.0"//Access97为3.51

tionString=""

λ

连接Oracle

er="MSADORA"

tionString="user/mypass@servicename

λ连接SQLServer

er="SQLOLEDB.1"

tionString="DATABASE=;SERVER=;UID=;PWD=;"

或者可以使用"SERVER","USERID","PASSWORD"

3

．取查询结果集

set

set

=adStateOpenAndNotIsEmpty(adStateOpen)

LStr,DBconnect,adOpenKeyset

4．执行SQL语句

eSQLStr

λ

PDF 文件使用 "pdfFactory Pro" 试用版本创建

5．关闭数据库

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数

据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveX

Dataobjects2.6library

和

microsoftactiveXDataobjectsrecordset2.6

两个组

件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Setconn=tion

Setrs=set

第一种方法采用的是无源的数据库连接方法

tionString="Driver={sql

server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

tionTimeout=30

"select用户名,密码fromloginwhere用户名='"&Trim()

&"'And密码='"&Trim()&"'",conn,adOpenStatic,

adLockReadOnly,adCmdText

=n

m=MsgBox("请重新登录",vbExclamation)

=""

us

Else

EndIf

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接

的方法，代码如下所示：

Setconn=tion

Setrs=set

tionString="DSN=login;uid=sa;pwd=;"

tionTimeout=30

"select

用户名

fromlogin",conn,adOpenStatic,adLockReadOnly,

adCmdText

DimiAsString

Fort=0ToVal(Count)-1

i=Trim(("

用户名

").Value)

xt

mi

Nextt

PDF 文件使用 "pdfFactory Pro" 试用版本创建