不会是没有加 分号吧?procedure TForm1.Button1Click(Sender: TObject);
var
cn,rs:olevariant;
begin
cn:=createoleobject('adodb.connection');
rs:=createoleobject('adodb.recordset'); cn.open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\订单入口1.mdb;Persist Security Info=False');
cn.BeginTrans;
rs.open('select * from authors',cn); cn.CommitTrans;
caption:=rs.fields[0];
rs.close;
cn.close;
end;
var
cn,rs:olevariant;
begin
cn:=createoleobject('adodb.connection');
rs:=createoleobject('adodb.recordset'); cn.open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\订单入口1.mdb;Persist Security Info=False');
cn.BeginTrans;
rs.open('select * from authors',cn); cn.CommitTrans;
caption:=rs.fields[0];
rs.close;
cn.close;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货