Lazarus得到sql结果到dbedit

Question

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

CODE ：

a

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;