我的项目现在有两个控间,一个adoconnection1,一个adoquery1,adoconnection1链接了一个
odbc数据源,adoquery1的connection设置为adoconnection1,然后就查询我链接数据库里面
的一个表table1,以下是代码
procedure TForm1.Button1Click(Sender: TObject);
var size:Integer;
var StrSql:string;
begin
size:=StrToInt(Edit1.Text);
StrSql:='select name from table1 where size='+size+'';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Add(StrSql);
Form1.ADOQuery1.Open;
end;end.这么做可以吗,然后我取到的数据集放在哪里啊,我要操作取到的数据
odbc数据源,adoquery1的connection设置为adoconnection1,然后就查询我链接数据库里面
的一个表table1,以下是代码
procedure TForm1.Button1Click(Sender: TObject);
var size:Integer;
var StrSql:string;
begin
size:=StrToInt(Edit1.Text);
StrSql:='select name from table1 where size='+size+'';
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Add(StrSql);
Form1.ADOQuery1.Open;
end;end.这么做可以吗,然后我取到的数据集放在哪里啊,我要操作取到的数据
var
size:Integer;
StrSql:string;
begin
size:=StrToInt(Edit1.Text);
StrSql:='select name from table1 where size='''+size+'''';
Form1.ADOQuery1.Close;
form1.adoquery1.sql.clear;
Form1.ADOQuery1.SQL.Add(StrSql);
Form1.ADOQuery1.Open;
end;end.
但你的数据要是可以修改的属性!
var size:String;
var StrSql:string;
begin
size:=Trim(Edit1.Text);
StrSql:='select name from table1 where size='+size;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Add(StrSql);
Form1.ADOQuery1.Open;
end;end.再加一个TDataSource控件,Dataset属性设为ADOQuery1。
数据集就是你的ADOQuery1,可通过ADOQuery1.FieldByName('name').AsString来访问。
var size:String;
var StrSql:string;
begin
size:=Trim(Edit1.Text);
StrSql:='select name from table1 where size='+size;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Add(StrSql);
Form1.ADOQuery1.Open;
end;end.再加一个TDataSource控件,Dataset属性设为ADOQuery1。
数据集就是你的ADOQuery1,可通过ADOQuery1.FieldByName('name').AsString来访问。
-------------------------
DataSource1.DataSet := ADOQuery1;
DBGrid1.DataSource := DataSource1;
下面怎么使用啊,把ADOQuery1.FieldByName('name').AsString赋值给一个变量
var
size:Integer;
StrSql:string;
begin
size:=StrToInt(Edit1.Text);
StrSql:='select name from table1 where size='''+size+'''';
Form1.ADOQuery1.Close;
form1.adoquery1.sql.clear;
Form1.ADOQuery1.SQL.Add(StrSql);
Form1.ADOQuery1.Open;
end;end.再加一个TDBGrid 和 TDataSource
DataSource1.dataset := adoquery1;
DBGrid1.dataSource := DataSource1;
说我这句话里面类型不匹配,为什么啊,大家帮忙看看