发表于:2014/12/3 20:03:15
#0楼
sCon="Provider=MSDASQL;DSN=300tsc;UID=sa;PWD=;"
Setconn = CreateObject("ADODB.Connection")
conn.ConnectionString= sCon
conn.CursorLocation = 3
conn.Open
SetoRs = CreateObject("ADODB.Recordset")
Set oCom =CreateObject("ADODB.Command")
Set oCom.ActiveConnection =conn
oCom.CommandType= 1
Setconn = CreateObject("ADODB.Connection")
conn.ConnectionString= sCon
conn.CursorLocation = 3
conn.Open
SetoRs = CreateObject("ADODB.Recordset")
Set oCom =CreateObject("ADODB.Command")
Set oCom.ActiveConnection =conn
oCom.CommandType= 1
10分悬赏