'************************ '***假设要连接的数据库名称为myDSN,用户名sa '************************asp中: dim conn,rs,strConn,strSql set conn = server.createobject("ADODB.Connection") set rs = server.createobject("ADODB.Recordset") strConn = "DSN=myDSN; UID=sa; PWD=" conn.ConnectionString = strConn conn.open strSql = "select * from table" set rs = conn.execute(strSql)VB中: Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dbname;Data Source=servername" Adodc1.RecordSource = "SELECT * from table" Adodc1.Refresh
adoQuery1.ConnectionString := ' Provider=SQLOLEDB.1; Password=mypassword; Persist Security Info=True; User ID=sa; Initial Catalog=MyDB; Data Source=MyServer; Use Procedure for Prepare=1; Auto Translate=True; Packet Size=4096; Use Encryption for Data=False; Tag with column collation when possible=False '
'***假设要连接的数据库名称为myDSN,用户名sa
'************************asp中:
dim conn,rs,strConn,strSql
set conn = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
strConn = "DSN=myDSN; UID=sa; PWD="
conn.ConnectionString = strConn
conn.open
strSql = "select * from table"
set rs = conn.execute(strSql)VB中:
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dbname;Data Source=servername"
Adodc1.RecordSource = "SELECT * from table"
Adodc1.Refresh
Provider=SQLOLEDB.1;
Password=mypassword;
Persist Security Info=True;
User ID=sa;
Initial Catalog=MyDB;
Data Source=MyServer;
Use Procedure for Prepare=1;
Auto Translate=True;
Packet Size=4096;
Use Encryption for Data=False;
Tag with column collation when possible=False
'