UFT *** 作SQLServer，MySQL，Oracle，DB2，Access数据库的方法

概述连接数据库代码： Set Conn = CreateObject("ADODB.Connection" ) str="DRIVER=SQL Server;SERVER=192.168.1.109;UID=wangshaoping;PWD=wsp;APP=Microsoft Office 2003;WSID=wangshaoping;DATABASE=test_data" Conn.open 连接数据库代码：

Set Conn = CreateObject("ADODB.Connection" )	str="DRIVER=sql Server;SERVER=192.168.1.109;UID=wangshaoPing;PWD=wsp;APP=Microsoft Office 2003;WSID=wangshaoPing;DATABASE=test_data" 	Conn.open str		Set Rs = CreateObject ("ADODB.Recordset" )'	Set comm= createobject("ADODB.Command")	sql ="select * from abnormity_data where name_yc = 'yejian（00003）'"	Rs.open sql,conn,1,3	i = rs.RecordCount''        comm.CommandText = sql'        comm.ActiveConnection = Conn'        Set Rs = comm.Execute'			msgBox rs.FIElds.Count  	arrTemp = Rs.GetRows()		for j=0 to i-1 	msgBox arrTemp(0,j)&arrTemp(1,j)&arrTemp(2,j)&arrTemp(3,j)	next	Rs.Close    Set Rs = nothing		Conn.Close	Set Conn = nothing

一、sql Server

(本地无需安装sql Server)

connectionstring(连接字符串):

1.本地没有创建数据源的方式

DRIVER=sql Server;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名

实例：

DRIVER=sql Server;SERVER=10.160.11.10;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJHLJUN;DATABASE=dcwork

2.本地已创建数据源的方式

DSN=数据源名称;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名

实例：

DSN=LocalServer;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJDCWORKTEST;DATABASE=dcwork

3.SQL语句实例(从数据库表HR_LANGUAGE_TYPE中，查询字段语言名称LANGUAGE_name，条件语言名称＝中文，按语言名称升序排序结果)

source(SQL语句):

SELECT HR_LANGUAGE_TYPE.LANGUAGE_name FROM dcwork.dbo.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE(HR_LANGUAGE_TYPE.LANGUAGE_name='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_name

二、DB2格式

(本地至少安装DB2 Run-Time ClIEnt lite)

connectionstring(连接字符串):

1.本地没有创建数据源的方式

DRIVER={IBM DB2 ODBC DRIVER};UID=用户名;PWD=密码;MODE=SHARE;DBAliAS=数据库名;

实例：

DRIVER={IBM DB2 ODBC DRIVER};UID=db2admin;PWD=db2admin;MODE=SHARE;DBAliAS=DCWORK;

2.本地已创建数据源的方式

DSN=数据源名称;UID=用户名;PWD=密码;MODE=SHARE;DBAliAS=DCWORK;

实例：

DSN=DWCORKDB2;UID=db2admin;PWD=db2admin;MODE=SHARE;DBAliAS=DCWORK;

3.SQL语句实例

source:SQL语句

SELECT HR_LANGUAGE_TYPE.LANGUAGE_name FROM DB2admin.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE(HR_LANGUAGE_TYPE.LANGUAGE_name='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_name

三、Oracle格式

(本地需要安装Oracle ODBC DRIVER)

connectionstring(连接字符串):

1.本地没有创建数据源的方式

DRIVER={Oracle in OraHome92};SERVER=数据库服务名;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;

实例：

DRIVER={Oracle in OraHome92};SERVER=DCWORK;UID=DCWORK;PWD=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;

2.本地已创建数据源的方式

DSN=数据源名称;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;

实例：

DSN=dcworkoracle;UID=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;

3.SQL语句实例

source:SQL语句

SELECT HR_LANGUAGE_TYPE.LANGUAGE_name FROM DCWORK.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE WHERE(HR_LANGUAGE_TYPE.LANGUAGE_name='中文') ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_name

四，MysqL

Set Conn=CreateObject("ADODB.Connection")

str="DRIVER={MysqL ODBC 3.51 Driver};SERVER=192.168.1.100;DATABASE=wp_blog;user ID=zzz;password=123456"

Conn.open str

Set Rs=CreateObject("ADODB.Recordset")

sql="select*from`wp_blog`.`blg_webcategory`limit 0,5000;" '（分页查询）

Rs.open sql,3

If(not Rs.eof)then

Rs.MoveFirst

MsgBox Rs(0)

MsgBox Rs(1)

MsgBox Rs(2)

MsgBox Rs(3)

end if

Rs.Close

Set Rs=nothing

Conn.Close

Set Conn=nothing

用vbs取MysqL中文出现乱码

sConnection = "DRIVER={MysqL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=code52_lib; UID=root;PASSWORD=123456; OPTION=3;Stmt=Set names 'GBK'"   

五，Access

Set Conn=CreateObject("ADODB.Connection")

str="ProvIDer=Microsoft.Jet.olEDB.4.0;Data Source=c:/db1.mdb"

Conn.open str

Set Rs=CreateObject("ADODB.Recordset")

56.*.xml

Environment.LoadFromfile"D:\新建文件夹\a.xml"

browser("百度一下，你就知道").Page("百度一下，你就知道").Webedit("wd").Set Environment("HuiYuanB")

总结

以上是内存溢出为你收集整理的UFT *** 作SQLServer，MySQL，Oracle，DB2，Access数据库的方法全部内容，希望文章能够帮你解决UFT *** 作SQLServer，MySQL，Oracle，DB2，Access数据库的方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。