1． 定义连接对象
global dbconnect as new adodb.connection
2． 执行连接语句
if dbconnect.state = adstateopen and not isempty(adstateopen) then dbconnect.close
l 连接odbc
dbconnect.connectionstring = "dsn=dataaliasname;uid=userid;pwd=passwd;"
l 直接连接access为
dbconnect.provider = "microsoft.jet.oledb.4.0" // access 97为3.51
dbconnect.connectionstring = "filepath\filename.mdb"
l 连接oracle
dbconnect.provider = "msadora"
dbconnect.connectionstring = "user/mypass@servicename
l 连接sql server
dbconnect.provider = "sqloledb.1"
dbconnect.connectionstring = "database= ;server= ;uid= ;pwd= ;"
或者可以使用 dbconnect.open "server" , "userid" , "password"
dbconnect.open
