VB与数据库的连接步骤以相关语句
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" 试用版本创建
https://www.wendangku.net/doc/ef15413335.html,
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" 试用版本创建
https://www.wendangku.net/doc/ef15413335.html,
rs.Close
连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的
方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸
中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。
13
回答时间：
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@https://www.wendangku.net/doc/ef15413335.html,
.
1回答
15CBOX有些台连接不上
.
0回答为何三星
pc套件安装后不能与手机连接？手机型号
g6618
.
1回答佳能一体机
mp498
.
0回答重庆售
CASIO卡西欧品牌手表有哪个系列是比较有档次的，给个正品有打折...
更多等待您来回答的问题>>
PDF 文件使用 "pdfFactory Pro" 试用版本创建
https://www.wendangku.net/doc/ef15413335.html,
其他回答共
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" 试用版本创建https://www.wendangku.net/doc/ef15413335.html,
连接数据库的语句如下：
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" 试用版本创建
https://www.wendangku.net/doc/ef15413335.html,
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=userna me;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")