|
抽了点时间写了个例子,希望能对你有帮助~
'创建连接数据库对象
Set conn = createobject("ADODB.Connection")
'连接Oracle数据库,注意选择好对应的Provider,其值还可为MSDAORA.1等等;填入连接数据库的用户名和密码以及数据源地址
conn.Open"Provider=OraOLEDB.Oracle.1;Password=mercury;Persist Security Info=True;User ID=admin;Data Source=newtours.mercuryinteractive.com"
'其中"Provider=OraOLEDB.Oracle.1;Password=mercury;Persist Security Info=True;User ID=admin;Data Source=newtours.mercuryinteractive.com"语句
'可以通过创建一个.udl文件,双击后设置正确的连接信息,测试连接成功后就可用记事本再打开该文件得到
'创建数据库记录集对象(也就是查询结果)
Set res = createobject("ADODB.Recordset")
'打开以指定查询语句查询所得的记录集
res.Open"select * from user where username=kevin",conn,2,2
'从查询结果的指定字段取出值
iDate = res("Date")
iValue = res("Value")
iAddress = res("Address")
iTelNo = res("TelNo")
res.close '关闭记录集
Set res=nothing '释放对象
conn.close '关闭连接
Set conn=nothing '释放对象
[ 本帖最后由 hsjzfling 于 2007-10-15 16:15 编辑 ] |
|