Lazarus将sql结果发送到dbedit

Question

我需要在Lazarus中获取select语句的结果并将此结果赋给edit.text。

CODE：

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;