<%
vbConnStr = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=False;User ID=Address;Initial Catalog=Address;Data Source=CHINA;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=Samuel;Use Encryption for Data=False;Tag with column collation when possible=False"
Set vConnection = Server.CreateObject("ADODB.Connection")
Set vRecordSet = Server.CreateObject("ADODB.RecordSet")
Set vCommand = Server.CreateObject("ADODB.Command")
vConnection.Open vbConnStr
vCommand.ActiveConnection = vConnection
%>
vbConnStr = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=False;User ID=Address;Initial Catalog=Address;Data Source=CHINA;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=Samuel;Use Encryption for Data=False;Tag with column collation when possible=False"
Set vConnection = Server.CreateObject("ADODB.Connection")
Set vRecordSet = Server.CreateObject("ADODB.RecordSet")
Set vCommand = Server.CreateObject("ADODB.Command")
vConnection.Open vbConnStr
vCommand.ActiveConnection = vConnection
%>
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="你自己的查询条件"
rs.open sql,conn,1,3
connstr="driver={sql server};server=servername;password=;user=;database="
conn.open connstr
你要是多处要打开同一个数据库,给一个通用的给你
set conn=server.createobject("adodb.connection")
strname=request.servervariables("LOCAL_ADDR")
Application("yourconnectname")="provider=SQLOLEDB.1;Data Source=" & strname &"; user ID=;password=;Initial Catalog=yourdatabasename"
以后你只要用:conn.open Application("yourconnectname")就可以了,但首先
还是要定义conn.
记录集的打开有好几种,有connection,command,recodsetrecordset的写法:
set rs=server.createobject("adodb.recordset")
sql="你要写的sql语句"
rs.open sql,conn,2,2 //这里的打开方式有几种,你自己翻翻资料吧command的写法:
set comm=server.createobject("adodb.command")
set rs=server.createobject("adodb.recordset")
with comm
.ActiveConnection=conn
.commandText="你要写的sql语句"
end with
set rs=comm.execute()connection的写法:
set rs=server.createobject("adodb.recordset")
sql="你要写的sql语句"
set rs=conn.execute(sql)