浅谈VB60使用ADO对象连接数据库Word格式文档下载.docx
- 文档编号:14753692
- 上传时间:2022-10-24
- 格式:DOCX
- 页数:6
- 大小:18.79KB
浅谈VB60使用ADO对象连接数据库Word格式文档下载.docx
《浅谈VB60使用ADO对象连接数据库Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《浅谈VB60使用ADO对象连接数据库Word格式文档下载.docx(6页珍藏版)》请在冰豆网上搜索。
//Access97为3.51
DBconnect.ConnectionString="
FilePathFileName.mdb"
连接Oracle
DBconnect.Provider="
MSADORA"
user/mypass@servicename
连接SQLServer
SQLOLEDB.1"
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
5.关闭数据库
DBconnect.Close
VB使用ADO数据库能够分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveXDataobjects2.6library和microsoftactiveXDataobjectsrecordset2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
第一种方法采纳的是无源的数据库连接方法
conn.ConnectionString="
Driver={sqlserver};
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
这是第二种方法连接数据库的方法,这一种方法是采纳有源的方法与数据库连接的方法,代码如下所示:
DSN=login;
select用户名fromlogin"
DimiAsString
Fort=0ToVal(rs.RecordCount)-1
i=Trim(rs.Fields("
用户名"
).Value)
rs.MoveNext
Combo1.AddItemi
Nextt
连接数据库的方法专门多专门多,只要各位去勇敢的偿试一下,就能够感受数据库的方法并不是专门难,本人往常也专门想做这方法的工作,只是学识不深,未能完成胸中大志,现在对这些方法的多少有一些了解,专门为那些初学者以供学习之用。
SQLSERVER2000数据库代码比较简单,无非数据库连接语句不同,其他和Access数据库没有大的区不。
假如“程序要移动到其他机子上”,移动到的机子上必须同样安装SQLSERVER2000数据库,而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同,假如有数据库密码,必须保持一致。
下面是SQL数据库连接代码,请参考:
PublicconnAsNewADODB.Connection
conn.ConnectionString="
driver={SQLServer};
server=服务器名称;
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;
InitialCatalog=Science_File;
DataSource=Data_Server
其中sa是用户名;
Science_File是数据库名;
Data_Server是数据库名。
通过下列语句,即可连接到指定的数据库:
dimodbcstrasString,adoconAsNewADODB.Connection
odbcstr="
DataSource=Data_Server"
adocon.Openodbcstr'
连接到数据库
2)直接使用连接语句实现
连接数据库的语句如下:
DimadoasADODC
ado.ConnectionString="
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
我个人喜爱用第一种。
比较直观,只是第二种也较为简单。
秦萧-五级
37
1.Access数据库的DSN-less连接方法:
setadocon=Server.Createobject("
adodb.connection"
)
adoconn.Open"
Driver={MicrosoftAccessDriver(*.mdb)};
DBQ="
&
_
Server.MapPath("
数据库所在路径"
2.AccessOLEDB连接方法:
adocon.open"
Provider=Microsoft.Jet.OLEDB.4.0;
Server.MapPath("
3.SQLserver连接方法:
setadocon=server.createobject("
adodb.recordset"
adocon.Open"
Driver={SQLServer};
Server=(Local);
UID=***;
PWD=***;
database=数据库名;
4.SQLserverOLEDB连接方法:
provider=SQLOLEDB.1;
DataSource=RITANT4;
userID=***;
Password=***;
initalCatalog=数据库名"
5.Oracle连接方法:
Driver={microsoftodbcfororacle};
server=oraclesever.world;
uid=admin;
pwd=pass;
6.OracleOLEDB连接方法:
Provider=OraOLEDB.Oracle;
datasource=dbname;
userid=admin;
password=pass;
7.dBase连接方法:
Driver={microsoftdbasedriver(*.dbf)};
driverid=277;
dbq=-
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浅谈 VB60 使用 ADO 对象 连接 数据库