Lazarus get sql result to dbedit

Question

Мне нужно получить результат выражения select в Lazarus и присвоить этот результат edit.text.

КОД:

procedure TForm1.Button1Click(Sender: TObject); 

var 
    Q: TSQLQuery; 
    d: string; 
begin 
    //Q := TSQLQuery.Create(nil); 

    with OracleConnection1 do 
    begin 
    Connected := true; 
    SQLTransaction1.Active:= True; 

    DataSource1.Enabled:=true; 
    DataSource1.DataSet := Q; 
    end; 
    if OracleConnection1.Connected then 

    Q.SQL.Text := 'SELECT description FROM part where part= "00000" '; 
    Q.Active:=true; 
    Q.ExecSQL; 
    d := datasource1.DataSet; 
    //DBText1.ExecuteAction(); 
    dbedit1.Text:= q.DataSource.DataSet.Fields.; 

    Edit1.Text:= Q.SQL.Text; 
    showmessage('CONNECTED'); 
    sql.Active:=true; 
end;  

Answer 1

У вас есть довольно много ошибок в коде. Вероятно, вы, вероятно, найдете учебник по Delphi (который очень похож на Lazarus и FreePascal).

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Qry: TSQLQuery; 
begin 
    Qry := TSQLQuery.Create(nil); 
    with OracleConnection1 do 
    begin 
    Connected := true; 
    SQLTransaction1.Active:= True; 
    DataSource1.Enabled:=true; 
    DataSource1.DataSet := Q; 
    end; 
    if OracleConnection1.Connected then 
    begin 
    showmessage('CONNECTED'); 
    Qry.SQL.Text := 'SELECT description FROM part where part= "00000" '; 
    Qry.Open; 

    Edit1.Text:= Qry.FieldByName('description').AsString; 
end;