N
nzfboy
Unregistered / Unconfirmed
GUEST, unregistred user!
1.我为什么用adodataset.recordset.movenext无法使记录下移一位。
2.//以下三条为什么不可以在程序中给定。
//adodst.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=H:/project/DxTreelist/db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False'
//adodst.CommandType :=cmdtext;
//adodst.CommandText :='select * from SysSet';
原码:
放三个控件 adoDataset,botton1,memo1
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
strTemp:string;
begin
adodst.Open ;
showmessage(inttostr(adodst.RecordCount ));
for i:=0 to adodst.RecordCount -1 do
begin
strTemp := adodst.Recordset.Fields[1].Name ;
memo1.lines.add( strTemp );
//记录并没有向后移动
adodst.Recordset.MoveNext ;
end;
end;
2.//以下三条为什么不可以在程序中给定。
//adodst.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=H:/project/DxTreelist/db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False'
//adodst.CommandType :=cmdtext;
//adodst.CommandText :='select * from SysSet';
原码:
放三个控件 adoDataset,botton1,memo1
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
strTemp:string;
begin
adodst.Open ;
showmessage(inttostr(adodst.RecordCount ));
for i:=0 to adodst.RecordCount -1 do
begin
strTemp := adodst.Recordset.Fields[1].Name ;
memo1.lines.add( strTemp );
//记录并没有向后移动
adodst.Recordset.MoveNext ;
end;
end;