摘要:
Dim rs,sqset conn=createobject("adodb.connection")set rs=createobject("adodb.recordset")conn.open="Driver={Microsoft ODBC for Oracle};Server=SID_HOST.DOMAIN.COM;Uid=mssqa;Pwd=password;"sql="select * from CLIENT_TABLE"rs.open sql,conn,3,3do while not rs.eofvalu 阅读全文