2,498
社区成员
发帖
与我相关
我的任务
分享
{因为在VB中习惯了,我试试看在Delphi中能不能这样写,但是出错了,请教老鸟们是否这样做是不行的?}
procedure TForm1.Button2Click(Sender: TObject);
begin
cn := Createoleobject('ADODB.Connection');
cn.Activeconnection := cn;
SQL = 'Select * Form 表'
cn.open SQL, cn, 1, 1
//FillData;
end;
{[DCC Error] Unit1.pas(63): E2003 Undeclared identifier: 'SQL'}
{[DCC Error] Unit1.pas(64): E2066 Missing operator or semicolon}
{[DCC Error] Unit1.pas(64): E2029 'END' expected but ',' found}
{下面的语句能通过编译}
procedure TForm1.Button2Click(Sender: TObject);
begin
cn := Createoleobject('ADODB.Connection');
cn.Activeconnection := cn;
cn.open('Select * From 表', cn, adOpenStatic,
adlockOptimistic, adcmdText);
//FillData;
end;
少写个符号';'
procedure TForm1.Button2Click(Sender: TObject);
var
SQL: string;
begin
cn := Createoleobject('ADODB.Connection');
cn.Activeconnection := cn;
SQL = 'Select * Form 表';
cn.open(SQL, cn, 1, 1);
//FillData;
end;
你这么写试试!
procedure TForm1.Button2Click(Sender: TObject);
var
SQL: string;
begin
cn := Createoleobject('ADODB.Connection');
cn.Activeconnection := cn;
SQL = 'Select * Form 表'
cn.open(SQL, cn, 1, 1);
//FillData;
end;
你这么写试试!