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

Love The Way You Lie 2024-03-17 16:56 50阅读 0赞

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" 试用版本创建

www.fineprint.cn

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" 试用版本创建

www.fineprint.cn

rs.Close

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的

方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸

中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

回答时间：

2010-3-13 09:59 |我来评论

向

TA求助

回答者：

hezi55 |二级采纳率：22%

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

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

相关内容

2010-3-15 VB6连

SQL2000数据库，连接字符串，奇怪问题

2010-3-13 vb6.0连接

sql2000数据库的详细步骤

2008-11-3 MyEclipse6.0.1连接

sql2000数据库

sp4安装了

3个文件导了

但是还是... 2

2006-6-7在

Delphi8.0中如何连接

SQL2000数据库

2010-2-5 C++6.0中程序如何连接

SQL2000数据库

更多关于

vb连接

sql数据库的问题>>

查看同主题问题：

sql2000数据库连接

sql2000

等待您来回答

0回答

10谁有灵图

9或者灵图

10破解版的主程序呢，DVD导航一体机用的

800\*480的...

0回答

CASIO EF-312D-1A日期和星期调不准怎么办

2回答

10我有台富士施乐

PE220的一体机一按复印就显示功能无法使用

打印机器...

0回答

20农夫电影最新网址？？？发到

langyi\_8660179@qq.com

1回答

15CBOX有些台连接不上

0回答为何三星

pc套件安装后不能与手机连接？手机型号

g6618

1回答佳能一体机

mp498

0回答重庆售

CASIO卡西欧品牌手表有哪个系列是比较有档次的，给个正品

有打折...

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

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

www.fineprint.cn

其他回答共

4条

SQL SERVER 2000数据库代码比较简单，无非数据库连接语句不同，其他和

Access数据库没有大的区别。

如果“程序要移动到其他机子上”，移动到的机子上必须同样安装

SQL SERVER

2000数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称

相同，如果有数据库密码，必须保持一致。

下面是

SQL数据库连接代码，请参考：

Public conn As New ADODB.Connection

conn.ConnectionString = "driver=\{SQL Server\};server=服务器名

称;uid=sa;pwd=密码;database=数据库名称"

conn.Open

回答者：

3300100 |四级

| 2010-3-8 12:30

数据库的连接可通过

ADO控件实现，须在工程部件中

选择

Micrsoft ADO Data Control6.0(OLEDB),然后在窗体

中添加

ADO控件．

利用

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

1）通过

ADODC属性页实现连接

在

ADODC属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对

话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连

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

例：

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial

Catalog=Science\_File;Data Source=Data\_Server

其中

sa是用户名；Science\_File是数据库名；Data\_Server是数据库名。

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

dim odbcstr as String, adocon As New ADODB.Connection

odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User

ID=sa;Initial Catalog=Science\_File;Data Source=Data\_Server"

adocon.Open odbcstr'连接到数据库

2)直接使用连接语句实现

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

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-4 19:46

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

回答者：秦萧

|五级

| 2010-3-8 12:37

1.Access数据库的

DSN-less连接方法:

set adocon=Server.Createobject("adodb.connection")

adoconn.Open"Driver=\{Microsoft Access Driver(\*.mdb)\};DBQ="&\_

Server.MapPath("数据库所在路径")

2.Access OLE DB连接方法：

set adocon=Server.Createobject("adodb.connection")

adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&\_

"Data Source=" & Server.MapPath("数据库所在路径")

3.SQL server连接方法：

set adocon=server.createobject("adodb.recordset")

adocon.Open"Driver=\{SQL Server\};Server=(Local);UID=\*\*\*;PWD=\*\*\*;"&\_

"database=数据库名;"

4.SQL server OLE DB连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"&\_

"user ID=\*\*\*;Password=\*\*\*;"&\_

"inital Catalog=数据库名"

5.Oracle连接方法:

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

www.fineprint.cn

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver=\{microsoft odbc for

oracle\};server=oraclesever.world;uid=admin;pwd=pass;"

6.Oracle OLE DB连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user

id=admin;password=pass;"

7.dBase连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver=\{microsoft dbase

driver(\*.dbf)\};driverid=277;dbq=------------;"

8.mySQL连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver=\{mysql\};database=yourdatabase;uid=username;pwd=yo

urpassword;option=16386;"

9.Visual Foxpro连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver=\{microsoft Visual Foxpro

driver\};sourcetype=DBC;sourceDB=\*.dbc;Exclusive=No;"

10.MS text连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Driver=\{microsoft text driver(\*.txt; \*.csv)\};dbq=-----;"&\_

"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

11.MS text OLE DB连接方法:

set adocon=Server.Createobject("adodb.connection")

adocon.open"Provider=microsof.jet.oledb.4.0;data source=your\_path;"&\_

"Extended Properties'text;FMT=Delimited'"

回答者：zhequ-助理二级

1-5 10:12

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

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

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

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的文件名自己改

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

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关数据库操作疑问：Java连接MySQL数据库和执行SQL语句的步骤？

相关 vb与EXCEL的连接

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

相关 JDBC_连接数据库步骤

相关 vbs访问oracle数据库,wincc 与oracle 数据库连接，读写

相关【VB与数据库】总结

相关 JDBC连接数据库的步骤

相关 jdbc连接数据库的步骤

相关 JDBC连接数据库步骤

相关 Java连接MYSQL 数据库的连接步骤