dim cn as adodb.connection set cn =new adodb.connection dim strCn as string strCN="Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;PWD=123;" cn.open strCN
首先要引用Microsoft ActiveX Data Objects2.5 Library 用ADO達接SQL數據庫: dim conn as new adodb.connection conn.open"driver={sql server};database=數據庫名;uid=sa;pwd=密碼;server=服務器名" 環境:VB6.0+SQL2000
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=[DatabaseName];Data Source=[ServerName]"
Conn.Open ConnStr
strCN="Driver={SQL Server};Server=服务器名;DataBase=数据库;UID=用户;PWD=口令;"
eg:SQL服务器名为 WEBSVR,数据库名为WebMis(在SQL Enterprise Manager中查看到),用户sa,口令123,则以上为:
dim cn as adodb.connection
set cn =new adodb.connection
dim strCn as string
strCN="Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;PWD=123;"
cn.open strCN
用ADO達接SQL數據庫:
dim conn as new adodb.connection
conn.open"driver={sql server};database=數據庫名;uid=sa;pwd=密碼;server=服務器名"
環境:VB6.0+SQL2000