ADOQuery2.SQL.Add('select XGaddress,cardid from '); ADOQuery2.SQL.Add('xginfomation xg join post p on xg.XGpostid=p.pid'); sql分成了2句,引號怎么加呢?我這樣寫程序報錯 哦??
var a,b,c:String; begin a:=''; b:=''; c:=''; a:='select XGaddress,cardid from '; b:='xginfomation xg join post p on xg.XGpostid=p.pid'; c:=a+b; adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(c); adoquery2.ExecSQL; adoquery2.Open; dbgrid1.DataSource := TDataSource.Create(nil); DBGrid1.DataSource.DataSet := adoquery2; end; 你那SQL语句好乱
var
strsql :String;
begin
strsql:='';
strsql := '连接数据库语句 ';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(strsql);
adoquery1.ExecSQL;
adoquery1.Open;
dbgrid1.DataSource := TDataSource.Create(nil);
DBGrid1.DataSource.DataSet := adoquery1;
end;
ADOQuery2.SQL.Add('xginfomation xg join post p on xg.XGpostid=p.pid'); sql分成了2句,引號怎么加呢?我這樣寫程序報錯 哦??
a,b,c:String;
begin
a:='';
b:='';
c:='';
a:='select XGaddress,cardid from ';
b:='xginfomation xg join post p on xg.XGpostid=p.pid';
c:=a+b;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add(c);
adoquery2.ExecSQL;
adoquery2.Open;
dbgrid1.DataSource := TDataSource.Create(nil);
DBGrid1.DataSource.DataSet := adoquery2;
end;
你那SQL语句好乱
adoquery2.Open;
胡搞......
上述任选一句(如果sql中含有select用第2句,select * into...除外;如果
含有update,delete等用第1句)
dbgrid1.DataSource := TDataSource.Create(nil); 是动态创建。一旦离开
该代码所处的过程,作为局部变量将被释放掉,怎么可能会显示;
你应该在窗体上添加一个tdatasource控件,将其dataset属性设置为用到的数据集
将dbgrid的datasource设置为tdatasource控件
然后将数据集打开,即可;建议你还是多看一些关于数据库编程的基础书吧
2.與否,close;sql.clear;sql.add(sql語句);execsql;open;
3.作成數據集datamoudle,引用table都可,方法很多.
2.與否,close;sql.clear;sql.add(sql語句);execsql;open;
3.作成數據集datamoudle,引用table都可,方法很多.
2.與否,close;sql.clear;sql.add(sql語句);execsql;open;
3.作成數據集datamoudle,引用table都可,方法很多.
2.與否,close;sql.clear;sql.add(sql語句);execsql;open;
3.作成數據集datamoudle,引用table都可,方法很多.