28,390
社区成员
发帖
与我相关
我的任务
分享
dim oralistname,orauser,orapwd
oralistname="orclcong"
orausr="tantan"
orapwd="oracle"
conn.open "provider=OraOLEDB.Oracle.1;Data Source="&oralistname&";",orauser,orapwd
Dim Conn,myDSN
If Not IsObject(objConn) Then
Set Conn = Server.CreateObject("ADODB.Connection")
myDSN = "Provider=OraOLEDB.Oracle;Data Source=192.168.6.129;User ID=tantan;PASSWORD=oracle;Persist Security Info=True"
Conn.Open myDSN
End If
sql="select * from test"
set rs=conn.execute(sql)
if not rs.bof then
do while not rs.eof
response.write "<br>"&rs("数据库属性1名")&"---"&rs("数据库属性2名")
rs.movenext
loop
end if