Menu
▾
▴
Re: [Firebird-odbc-devel] .move
|
From: Vladimir T. <pr...@hm...> - 2005-08-02 19:19:59
|
Hi Mark,
> It depends on the table. I haven't done exhaustive tests, but in this
> case, 316 records (ie rs.move 316)
>
> CREATE TABLE ZIPTOCITY (
> ID INTEGER,
> ZIP VARCHAR(6),
> AIRPORT VARCHAR(4),
> STATE VARCHAR(2),
> CITY VARCHAR(60));
>
I did not manage to repeat a mistake
What I do incorrectly?
I am use OdbcJdbc v2.0.0.122
For use:
write this text to file Test316.htm
use name DSN = TestLocal
=============================================
<hmtl>
<head><title>Test Move(316)(ADO)</title><head>
<h1>Test Move(316)(ADO)</h4>
<br>
<input type=button name="btnFirst" value="<<" >
<input type=button name="btnPrev" value="<" >
<input type=button name="btnNext" value=">" >
<input type=button name="btnLast" value=">>" >
<br>
<input type=button name="btnMove316" value=">316>" >
<br>
<!-- ADO recordset object -->
<object id=rs classid="clsid:00000281-0000-0010-8000-00AA006D2EA4"></object>
<script language="VBScript">
connect = "data source=TestLocal;user id=SYSDBA;password=masterkey;"
query = "select * from ziptocity"
adOpenKeyset = 1
rs.Open query, connect, adOpenKeyset
'rs.Open query, connect, adOpenForwardOnly
' adOpenKeyset
' adOpenForwardOnly
set flds = rs.Fields
namewid = 0
for i = 0 to flds.Count - 1
if len(flds(i).Name) > namewid then namewid = len(flds(i).Name)
next
for i = 0 to flds.Count - 1
document.write "<pre>"
s = flds(i).Name
s = s + space( namewid - len(s) + 2 )
s = s + "<input type=text name=fld_" + cstr(i) + ">"
document.write s
document.write "</pre>"
next
document.writeln "<script language=""vbscript"">"
document.writeln "sub FillForm"
for i = 0 to flds.Count - 1
s = "fld_" + cstr(i) + ".value = " + "rs.fields(" + cstr(i) + ").value"
document.writeln s
next
document.writeln "end sub"
document.writeln "FillForm"
document.writeln "<" + "/" + "script" + ">"
</script>
<script language="VBScript">
Sub btnNext_OnClick
if not rs.EOF then
rs.MoveNext
if rs.EOF then
rs.MoveLast
else
FillForm
end if
end if
End Sub
Sub btnPrev_OnClick
if not rs.BOF then
rs.MovePrevious
if rs.BOF then
rs.MoveFirst
else
FillForm
end if
end if
End Sub
Sub btnFirst_OnClick
rs.MoveFirst
FillForm
End Sub
Sub btnLast_OnClick
rs.MoveLast
FillForm
End Sub
Sub btnMove316_OnClick
rs.Move(316)
FillForm
End Sub
</script>
</body>
</html>
=============================================
--
Best regards,
Vladimir Tsvigun
|