سمیکالن بصورت پیش فرض

[majid534]

سلام و وقت دوستان بخیر


sbatch1:variant;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Max (AAA) From BBB');
ADOQuery1.SQL.Add('Inner join GGG on CCC = DDD');
ADOQuery1.SQL.Add('Where EEE=16 and FFF='+Edit16.Text);
ADOQuery1.Open;
sbatch1 := ADOQuery1.Fields[0].AsVariant;
Label34.Caption := sbatch1;

مشکل اینجاست که ادیت باکس16 که بالا هست متن داخلش باید تو سمیکالن باشه تا کوئری درست اجرا بشه ....

راهکاری هست ؟

ممنون از دوستان

[یوسف زالی]

سلام. اسم اون سمی کالن نیست، کوتیشنه.
بگذاریدش داخل QuotedStr
می تونید خودتون دستی قبل و بعدش کوتیشن اضافه کنید

[fahimi]

از پارامتر استفاده شود مطمئن تر و اصولی تر است


ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Country (Name, Capital, Continent, Area, Population)');
ADOQuery1.SQL.Add('VALUES (:Name, :Capital, :Continent, :Area, :Population)');

ADOQuery1.Parameters.ParamByName('Name').Value := 'SomePlace';
ADOQuery1.Parameters.ParamByName('Capital').Value := 'Pitsville';
ADOQuery1.Parameters.ParamByName('Continent').Valu e := 'Floating';
ADOQuery1.Parameters.ParamByName('Area').Value := 1234;
ADOQuery1.Parameters.ParamByName('Population').Val ue := 56;
ADOQuery1.ExecSQL;
ADOQuery1.Close;

// Open it to read the data back
ADOQuery1.SQL.Text := 'SELECT * FROM Country WHERE Name = :Name';
ADOQuery1.Parameters.ParamByName('Name').Value := 'SomePlace';
ADOQuery1.Open;
ShowMessage(ADOQuery1.FieldByName('Name').AsString );
ADOQuery1.Close;