VB与数据库的连接步骤以相关语句

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

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

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

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.Open"SERVER" , "USERID" , "PASSWORD"

DBConnect.Open

GlobalPS As New ADODB.Recordset
IfRS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
RS.OpenSQLStr, DBconnect, adOpenKeyset

4．执行
SQL 语句
DBconn.Execute SQLStr
PDF 文件使用"pdfFactory Pro" 试用版本创建
www.fineprint.cn

5．关闭数据库
DBconnect.Close
VB 使用
ADO数据库可以分为有源数据库和无源数据库，即是否使用了
DSN 数
据源，如下例：
1、在连接数据库前首先要在
VB 菜单中“工程”-“引用”从中选择
microsoft activeX
Data objects 2.6 library 和
2、接下来定义
ADO的连接对象，如下所示：
Setconn = New ADODB.Connection
Set rs = New ADODB.Recordset

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

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.BOFThen
m = MsgBox("请重新登录",vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else

EndIf
rs.Close

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接
的方法，代码如下所示：

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 ToVal(rs.RecordCount) -1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext

Nextt

PDF文件使用"pdfFactoryPro" 试用版本创建www.fineprint.cn

rs.Close

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

13

回答时间：
2010-3-1309:59 |我来评论

向
TA求助

擅长领域：漳州市程序设计电影

参加的活动：暂时没有参加的活动

相关内容

.

2010-3-15 VB6 连
SQL2000数据库，连接字符串，奇怪问题
.

sql2000数据库的详细步骤
.

2008-11-3MyEclipse6.0.1 连接
sql2000数据库
sp4安装了
3个文件导了
但是还是...2

Delphi8.0中如何连接
SQL2000数据库
.

2010-2-5 C++6.0 中程序如何连接
SQL2000 数据库
更多关于
vb 连接
sql数据库的问题>>
查看同主题问题：
sql2000 数据库连接
sql2000
等待您来回答

.

0回答
10谁有灵图
9或者灵图

.

0回答
CASIOEF-312D-1A 日期和星期调不准怎么办.

2回答
10我有台富士施乐
PE220的一体机一按复印就显示功能无法使用打印机器...

.
0 回答

langyi_8660179@qq.com
.

1回答
15CBOX有些台连接不上
.

0回答为何三星
pc套件安装后不能与手机连接？手机型号

1回答佳能一体机
mp498
.

0回答重庆售
CASIO卡西欧品牌手表有哪个系列是比较有档次的，给个正品有打折...

更多等待您来回答的问题>>

PDF 文件使用 "pdfFactoryPro" 试用版本创建
www.fineprint.cn

其他回答共
4条

SQLSERVER 2000 数据库代码比较简单，无非数据库连接语句不同，其他和
Access数据库没有大的区别。

如果“程序要移动到其他机子上”，移动到的机子上必须同样安装
SQL SERVER
2000 数据库，而且服务器名称、数据库名称必须和原服务器名称、
数据库名称

下面是
SQL数据库连接代码，请参考：
Publicconn As New ADODB.Connection

conn.ConnectionString= "driver={SQLServer};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"
conn.Open

3300100|四级
|2010-3-8 12:30

数据库的连接可通过
ADO控件实现，须在工程部件中

选择
MicrsoftADO Data Control6.0(OLEDB),然后在窗体

中添加
ADO 控件．

利用 ADO 连接数据库有两种方法，具体如下：

1）通过
ADODC 属性页实现连接
在
ADODC属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对
话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；

最后测试连
接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下
例：

ID=sa;Initial
Catalog=Science_File;DataSource=Data_Server

其中
通过下列语句，即可连接到指定的数据库：

dimodbcstr as String, adocon As New ADODB.Connection

Info=False;User
ID=sa;InitialCatalog=Science_File;Data Source=Data_Server"

2)直接使用连接语句实现
PDF文件使用"pdfFactoryPro" 试用版本创建www.fineprint.cn

连接数据库的语句如下：

Dim ado as ADODC
ado.ConnectionString ="Provider=SQLOLEDB.1;Password=" & User_Pwd&
";Persist Security Info=True;User ID=" &User_Name & ";Initial Catalog="&
Data_Name &";Data Source=" & server_name

其中 User-Pwd 是用户密码；User_Name是用户名；Data_Name是数据库名；
server_name是服务器名。

0回答者：
xiaoqinhuiyuan-二级
2008-5-419:46

我个人喜欢用第一种。比较直观，不过第二种也较为简单。

回答者：秦萧
|五级
|2010-3-8 12:37

1.Access 数据库的
DSN-less连接方法:
setadocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft AccessDriver(*.mdb)};DBQ="&_
Server.MapPath("数据库所在路径")

adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Data Source=" & Server.MapPath("数据库所在路径")

3.SQLserver 连接方法：
setadocon=server.createobject("adodb.recordset")adocon.Open"Driver={SQL
Server};Server=(Local);UID=***;PWD=***;"&_

4.SQLserver OLE DB 连接方法:
setadocon=Server.Createobject("adodb.connection")adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"&_"user ID=***;Password=***;"&_
"initalCatalog=数据库名"

5.Oracle 连接方法:
PDF文件使用 "pdfFactory Pro"试用版本创建
www.fineprint.cn

setadocon=Server.Createobject("adodb.connection")adocon.open"Driver={microsoft odbc for
oracle};server=oraclesever.world;uid=admin;pwd=pass;"

6.Oracle OLE DB 连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;data
source=dbname;user
id=admin;password=pass;"

adocon.open"Driver={microsoft dbase
driver(*.dbf)};driverid=277;dbq=------------;"

8.mySQL连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Driver={mysql};database=yourdatabase;uid=username;pwd=yo

9.VisualFoxpro 连接方法:
setadocon=Server.Createobject("adodb.connection")adocon.open"Driver={microsoft Visual Foxpro
driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

10.MStext 连接方法:
setadocon=Server.Createobject("adodb.connection")

*.csv)};dbq=-----;"&_
"extensions=asc,csv,tab,txt;PersistSecurityInfo=false;"

adocon.open"Provider=microsof.jet.oledb.4.0;data
source=your_path;"&_
"ExtendedProperties'text;FMT=Delimited'"
回答者：zhequ-助理二级
1-5 10:12

<%
set conn=server.create.createobject("adodb.connection")

conn.open"DSN=esinc;UID=admin;PWD=;"

PDF文件使用"pdfFactoryPro" 试用版本创建

www.fineprint.cn

%>

上面是用本地服务器

<%
set conn=server.create.createobject("adodb.connection")conn.open "driver=driver do microsoft access
(*.mdb);UID=admin;PWD=;DBQ="&server.mappath("esinc.mdb")%>

esinc 是 mdb 的文件名自己改