VB与数据库的连接步骤以相关语句.docx
- 文档编号:23186294
- 上传时间:2023-05-15
- 格式:DOCX
- 页数:14
- 大小:18.54KB
VB与数据库的连接步骤以相关语句.docx
《VB与数据库的连接步骤以相关语句.docx》由会员分享,可在线阅读,更多相关《VB与数据库的连接步骤以相关语句.docx(14页珍藏版)》请在冰豆网上搜索。
VB与数据库的连接步骤以相关语句
vb6.0连接
sql2000数据库的具体步骤
1.定义连接对象
GlobalDBconnectAsNewADODB.Connection2.执行连
接语句
IfDBconnect.State=adStateOpenAndNotIsEmpty(adStateOpen)
ThenDBconnect.Closel连接
ODBCDBconnect.ConnectionString="dsn
1.定义连接对象
GlobalDBconnectAsNewADODB.Connection
2.执行连接语句
IfDBconnect.State=adStateOpenAndNotIsEmpty(adStateOpen)Then
DBconnect.Close
l连接
ODBC
DBconnect.ConnectionString=
"dsn=DataAliasName;uid=UserID;pwd=Passwd;"
l直接连接
Access为
Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为
3.51
DBconnect.ConnectionString="FilePathFileName.mdb"
l连接
Oracle
DBconnect.Provider="MSADORA"
DBconnect.ConnectionString="user/mypass@servicename
l连接
SQLServer
DBconnect.Provider="SQLOLEDB.1"
DBconnect.ConnectionString="DATABASE=;SERVER=;UID=;PWD=;"
或者可以使用
DBconnect.Open"SERVER","USERID","PASSWORD"
DBConnect.Open
3.取查询结果集
GlobalRSAsNewADODB.Recordset
GlobalPSAsNewADODB.Recordset
IfRS.State=adStateOpenAndNotIsEmpty(adStateOpen)ThenRS.Close
RS.OpenSQLStr,DBconnect,adOpenKeyset
4.执行
SQL语句
DBconn.ExecuteSQLStr
PDF文件使用"pdfFactoryPro"试用版本创建
5.关闭数据库
DBconnect.Close
VB使用
ADO数据库可以分为有源数据库和无源数据库,即是否使用了
DSN数
据源,如下例:
1、在连接数据库前首先要在
VB菜单中“工程”-“引用”从中选择
microsoftactiveX
Dataobjects2.6library和
microsoftactiveXDataobjectsrecordset2.6两个组
件,这是在连接数据前所必做的工作。
2、接下来定义
ADO的连接对象,如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString="Driver={sql
server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名,密码
fromloginwhere用户名='"&Trim(Combo1.Text)
&"'And密码='"&Trim(Text1.Text)&"'",conn,adOpenStatic,
adLockReadOnly,adCmdText
Ifrs.EOF=TrueAndrs.BOFThen
m=MsgBox("请重新登录",vbExclamation)
Text1.Text=""
Text1.SetFocus
Else
Form1.Hide
EndIf
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接
的方法,代码如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.ConnectionString="DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名
fromlogin",conn,adOpenStatic,adLockReadOnly,
adCmdText
DimiAsString
Fort=0ToVal(rs.RecordCount)-1
i=Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItemi
Nextt
PDF文件使用"pdfFactoryPro"试用版本创建
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的
方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸
中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。
13
回答时间:
2010-3-1309:
59|我来评论
向
TA求助
回答者:
hezi55|二级采纳率:
22%
擅长领域:
漳州市程序设计电影
参加的活动:
暂时没有参加的活动
相关内容
.
2010-3-15VB6连
SQL2000数据库,连接字符串,奇怪问题
.
2010-3-13vb6.0连接
sql2000数据库的详细步骤
.
2008-11-3MyEclipse6.0.1连接
sql2000数据库
sp4安装了
3个文件导了
但是还是...2
.
2006-6-7在
Delphi8.0中如何连接
SQL2000数据库
.
2010-2-5C++6.0中程序如何连接
SQL2000数据库
更多关于
vb连接
sql数据库的问题>>
查看同主题问题:
sql2000数据库连接
sql2000
等待您来回答
.
0回答
10谁有灵图
9或者灵图
10破解版的主程序呢,DVD导航一体机用的
800*480的...
.
0回答
CASIOEF-312D-1A日期和星期调不准怎么办
.
2回答
10我有台富士施乐
PE220的一体机一按复印就显示功能无法使用
打印机器...
.
0回答
20农夫电影最新网址?
?
?
发到
langyi_8660179@
.
1回答
15CBOX有些台连接不上
.
0回答为何三星
pc套件安装后不能与手机连接?
手机型号
g6618
.
1回答佳能一体机
mp498
.
0回答重庆售
CASIO卡西欧品牌手表有哪个系列是比较有档次的,给个正品
有打折...
更多等待您来回答的问题>>
PDF文件使用"pdfFactoryPro"试用版本创建
其他回答共
4条
SQLSERVER2000数据库代码比较简单,无非数据库连接语句不同,其他和
Access数据库没有大的区别。
如果“程序要移动到其他机子上”,移动到的机子上必须同样安装
SQLSERVER
2000数据库,而且服务器名称、数据库名称必须和原服务器名称、数据库名称
相同,如果有数据库密码,必须保持一致。
下面是
SQL数据库连接代码,请参考:
PublicconnAsNewADODB.Connection
conn.ConnectionString="driver={SQLServer};server=服务器名
称;uid=sa;pwd=密码;database=数据库名称"
conn.Open
回答者:
3300100|四级
|2010-3-812:
30
数据库的连接可通过
ADO控件实现,须在工程部件中
选择
MicrsoftADODataControl6.0(OLEDB),然后在窗体
中添加
ADO控件.
利用
ADO连接数据库有两种方法,具体如下:
1)通过
ADODC属性页实现连接
在
ADODC属性页中选择生成按钮,进入数据链接属性对话框;然后选择该对
话框中的连接属性页,选择或输入服务器名称和数据库等重要信息;最后测试连
接,连接成功后,按确定按钮,返回到属性页对话框,可获得连接字符串,如下
例:
Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;Initial
Catalog=Science_File;DataSource=Data_Server
其中
sa是用户名;Science_File是数据库名;Data_Server是数据库名。
通过下列语句,即可连接到指定的数据库:
dimodbcstrasString,adoconAsNewADODB.Connection
odbcstr="Provider=SQLOLEDB.1;PersistSecurityInfo=False;User
ID=sa;InitialCatalog=Science_File;DataSource=Data_Server"
adocon.Openodbcstr'连接到数据库
2)直接使用连接语句实现
PDF文件使用"pdfFactoryPro"试用版本创建
连接数据库的语句如下:
DimadoasADODC
ado.ConnectionString="Provider=SQLOLEDB.1;Password="&User_Pwd&
";PersistSecurityInfo=True;UserID="&User_Name&";InitialCatalog="&
Data_Name&";DataSource="&server_name
其中
User-Pwd是用户密码;User_Name是用户名;Data_Name是数据库名;
server_name是服务器名。
0回答者:
xiaoqinhuiyuan-二级
2008-5-419:
46
我个人喜欢用第一种。
比较直观,不过第二种也较为简单。
回答者:
秦萧
|五级
|2010-3-812:
37
1.Access数据库的
DSN-less连接方法:
setadocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&_
Server.MapPath("数据库所在路径")
2.AccessOLEDB连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&Server.MapPath("数据库所在路径")
3.SQLserver连接方法:
setadocon=server.createobject("adodb.recordset")
adocon.Open"Driver={SQLServer};Server=(Local);UID=***;PWD=***;"&_
"database=数据库名;"
4.SQLserverOLEDB连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;DataSource=RITANT4;"&_
"userID=***;Password=***;"&_
"initalCatalog=数据库名"
5.Oracle连接方法:
PDF文件使用"pdfFactoryPro"试用版本创建
setadocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoftodbcfor
oracle};server=oraclesever.world;uid=admin;pwd=pass;"
6.OracleOLEDB连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Provider=OraOLEDB.Oracle;datasource=dbname;user
id=admin;password=pass;"
7.dBase连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoftdbase
driver(*.dbf)};driverid=277;dbq=------------;"
8.mySQL连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Driver={mysql};database=yourdatabase;uid=username;pwd=yo
urpassword;option=16386;"
9.VisualFoxpro连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsoftVisualFoxpro
driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"
10.MStext连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Driver={microsofttextdriver(*.txt;*.csv)};dbq=-----;"&_
"extensions=asc,csv,tab,txt;PersistSecurityInfo=false;"
11.MStextOLEDB连接方法:
setadocon=Server.Createobject("adodb.connection")
adocon.open"Provider=microsof.jet.oledb.4.0;datasource=your_path;"&_
"ExtendedProperties'text;FMT=Delimited'"
回答者:
zhequ-助理二级
1-510:
12
<%
setconn=server.create.createobject("adodb.connection")
conn.open"DSN=esinc;UID=admin;PWD=;"
PDF文件使用"pdfFactoryPro"试用版本创建
%>
上面是用本地服务器
<%
setconn=server.create.createobject("adodb.connection")
conn.open"driver=driverdomicrosoftaccess
(*.mdb);UID=admin;PWD=;DBQ="&server.mappath("esinc.mdb")
%>
这个是在其他地方也可以用
esinc是
mdb的文件名自己改
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 数据库 连接 步骤 相关 语句