ADO GetRows example
You can use ADO GetRows to output and ADO recordset to an array. This is often useful in n-tier applications when you are moving data between tiers--or if you want to persist your data in another way. http://adozone.cnw.com/default.htm
AI
Résumé par IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Code source
<HTML>
<HEAD>
<TITLE>Place Document Title Here</TITLE>
</HEAD>
<BODY BGColor=ffffff Text=000000>
<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("guestDSN")
sql = "SELECT * FROM authors"
Set RS = cn.Execute(sql)
ary = rs.GetRows(10)
rs.close
cn.close
%>
<P>
<TABLE BORDER=1>
<%
nRows = UBound( ary, 2 )
For row = 0 to nRows %>
<TR>
<% For col = 0 to UBound( ary, 1 ) %>
<TD><%= ary( col, row ) %> </TD>
<% Next %>
</TR>
<% Next %>
</TABLE>
</HTML>
procedure TForm1.Button1Click(Sender: TObject);
var S : String;
begin
GetDir(0, S);
Label1.Caption := 'The current drive and directory are: ' + S;
end;
Upload
Commentaires originaux (3)
Récupéré via Wayback Machine