?了善用RecordSet物件，RecordSet物件?有?多有用的?性和方法，?我?再??：

Filter?性：於ReecordSet?定搜???的?件，只?示合乎?件的?料。
Clone方法：??一份RecordSet。
CacheSize?性：?定或得知RecordSet?存（cache）於???的的????。
Filter?性

?由SELECT等指令?查?存放到RecordSet的??，仍然可以於RecordSet中再?定搜???的?件，方法?使用Filter?性。

Filter?性，於ReecordSet?定搜?的???件，只?示合乎?件的?料。

?我?看一?於ASP程式??中使用Filter?性的例子。

譬如ASP程式?rs19.asp如下，Filter?定?rs2.Filter = "出版='松?'"，表示只要搜? [出版] ?位? [松?] 的??：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs2 = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT * From 著作"

rs2.Open SqlStr,conn1,1,1

rs2.Filter = "出版='松?'"

%>

<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>

<TR>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">?名</FONT></TD>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">出版</FONT></TD>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">?片</FONT></TD>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">?介</FONT></TD>

<% Do while not rs2.EOF %>

<TR>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("?名") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("出版") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("?片") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("?介") %></TD>

</TR>

<% rs2.MoveNext %>

<% Loop %>

</TABLE>

<% rs2.Close %>

以上的 ASP程式?rs19.asp，於用?端使用??器，???行的?果，?示??後的?果，只?示合乎?件的?料。

CacheSize?性

CacheSize?性，?定或得知RecordSet?存（cache）於???的的????，??值?1。

譬如您若?CacheSize?定?10?，ADO首先?前10?的???存（cache）放到本??????器（local memory buffer）?中，一旦您移?到最末的第10????，ADO?存（cache）第二?10???。

若要更新?存（cache）的??，可使用Resync方法。

?我?看一?於ASP程式??中使用CacheSize的例子。

譬如ASP程式?rs18.asp如下，??例子??品?料表的?料由第一?逐一移?到最末?，??循?做了100次，?算?共花了多少??，比?有和?有?定CacheSize的?行效能差?：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs2 = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT * From ?品"

rs2.Open SqlStr,conn1,1,1

t1 = Timer

For i = 1 to 100

rs2.MoveFirst

Do while not rs2.EOF

A = rs2(0)

rs2.MoveNext

Loop

Next

t2 = Timer

Response.Write "<BR>??CacheSize: " & CINT(t2 - t1)

rs2.MoveFirst

rs2.CacheSize = 10

t2 = Timer

For i = 1 to 100

rs2.MoveFirst

Do while not rs2.EOF

A = rs2(0)

rs2.MoveNext

Loop

Next

t2 = Timer

Response.Write "<BR>有?CacheSize: " & CINT(t2 - t1)

%>

<% rs2.Close %>

由本例，未?定CacheSize，花了6秒??就完成。?CacheSize?定?10?，反而花了9秒??才完成。可?CacheSize?小心使用，否??影??行的效能。

Clone方法

Clone方法，??一份RecordSet。

有?候想?理一下RecordSet，譬如使用如上的Filter?性，於ReecordSet?定搜?的???件，RecordSet就被?更，此?若又想保留原RecordSet?，就可以使用Clone方法，先??一份RecordSet，再?理??的那一份。

?我?看一?於ASP程式??中使用Clone的例子。

譬如ASP程式?rs12.asp如下，使用Set rs1 = rs.Clone?rs 的RecordSet??一份到rs1的RecordSet?中：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT * FROM 著作"

rs.Open SqlStr,conn1,1,1

Set rs1 = rs.Clone

%>

<Center>

<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>

<TR>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">?名</FONT></TD>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">出版</FONT></TD>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">?片</FONT></TD>

<TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">?介</FONT></TD>

</TR>

<%

Do While Not rs1.EOF

%>

<TR>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs1("?名")%></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs1("出版")%></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs1("?片")%></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs1("?介")%></TD>

</TR>

<% rs1.MoveNext

Loop

rs1.Close %>

</TABLE>

以上的 ASP程式?rs12.asp，於用?端使用??器，???行的?果，?示????的那一份rs1的RecordSet。

DSN data source

?我?想得知DSN data source的?????，可以直接????示出?。

?我?看一?於ASP程式??中得知DSN data source????的例子。

譬如ASP程式?rs11.asp如下：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Response.Write(conn1)

%>

以上的 ASP程式?rs11.asp，於用?端使用??器，???行的?果，使用Response.Write(conn1)，即可?示DSN data source的????。

OpenSchema

OpenSchema方法，可得知SQL Server某一??料?的?料表??。

?我?看一?於ASP程式??中使用OpenSchema的例子，?先安?本?所附「?站???用精?」光碟片，以便自?於SQL Server建立comPak?料?。

譬如ASP程式?rs30.asp如下：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "driver={SQL Server};server=(Local);uid=sa;pwd=;database=comPak"

set rs = conn1.OpenSchema(20) 'adSchemaTables

Do while not rs.EOF

Response.Write "<BR>" & rs("TABLE_NAME") & ": " & rs("TABLE_TYPE")

rs.MoveNext

Loop

%>

以上的 ASP程式?rs30.asp，於用?端使用??器，???行的?果，由set rs = conn1.OpenSchema(20) 取得SQL Server 的comPak?料?的?料表??，其中rs("TABLE_NAME")取得?料表名?，rs("TABLE_TYPE")取得?料表?型。

	输入您的搜索字词 提交搜索表单
	军旅同心论坛 军旅同心博客 军旅同心网