在Delphi中接收來自SQL表的數據

Question

我有一個表單需要從MYSQL數據庫中獲取和顯示數據。
我寫的SQL代碼工作正常，因爲我試圖在MYSQL中執行它。

我也使用了一種類似格式的代碼來在我的表單中，在另一種表單中獲取並顯示SQL數據。該代碼在另一種形式下完美工作。
但是，我的這個表單的代碼似乎並沒有從SQL表中接收/顯示數據。

下面是爲表格的OnShow事件編寫的代碼片段。

procedure TfrmEditBooking.FormShow(Sender: TObject); 
var 
    CustName: string; 
begin 
    if SelectedID > 0 then 
    begin 
    with frmBookingData.ADOQuery1 do 
    begin 
     Open;  
     SQL.Clear; 
     SQL.Add('SELECT Name, Surname ' + 
       'FROM customers_main ' + 
       'WHERE customers_main.idcustomers_main ' + 
       'IN ' + 
       '(SELECT bookings_main.customers_main_idcustomers_main ' + 
       'FROM bookings_main ' + 
       'WHERE bookings_main.idbookings_main = ' + IntToStr(SelectedID) + ')'); 
     ExecSQL; 
     CustName := FieldByName('Surname').AsString + ' ' + FieldByName('Name').AsString; 
     Label1.Caption := CustName; 
     Close; 
    end; 
    end; 
end; 

Answer 1

一個用途「execsql」當一個人不希望接收光標對數據集（換句話說，使用「execsql」與「更新」，「插入」和「刪除」語句，但不是以'選擇'）。

您應該用'open'替換'execsql'命令...並在'sql.clear'之前刪除'open'。

當您應該使用連接時，不要使用子查詢。

我認爲，你的代碼應該看起來像這樣

procedure TfrmEditBooking.FormShow(Sender: TObject); 
begin 
if SelectedID > 0 then 
    with frmBookingData.ADOQuery1 do 
    begin 
    SQL.Clear; 
    SQL.Add ('SELECT Name, Surname '); 
    sql.add ('FROM customers_main inner join bookings_main'); 
    sql.add ('on customers_main.idcustomers_main = ');  
    sql.add ('bookings_main.customers_main_idcustomers_main'); 
    sql.add ('where bookings_main.idbookings_main = :p1'); 
    sql.params[0].asinteger:= SelectedID; 
    open; 
    Label1.Caption := fieldbyname ('name').asstring + ' ' + 
         fieldbyname ('surname').asstring; 
    Close; 
    end; 
end; 

Answer 2

爲了得到這個運行，您應將其更改爲

procedure TfrmEditBooking.FormShow(Sender: TObject); 
var 
    CustName: string; 
begin 
    if SelectedID > 0 then 
    begin 
     with frmBookingData.ADOQuery1 do 
     begin 
      Close; // close first 
      SQL.Clear; 
      SQL.Add(
      'SELECT Name, Surname '+ 
      'FROM customers_main '+ 
      'WHERE customers_main.idcustomers_main '+ 
      'IN '+ 
      '(SELECT bookings_main.customers_main_idcustomers_main '+ 
      'FROM bookings_main '+ 
      'WHERE bookings_main.idbookings_main = '+IntToStr(SelectedID)+')'); 
      Open; // open the query 
      if not Eof then 
      CustName := FieldByName('Surname').AsString+' '+FieldByName('Name').AsString 
      else 
      CustName := 'not found'; 
      Close; // close when finished 
     end; 
     Label1.Caption := CustName; 
    end; 
end; 

但你應該得到一些（負）的副作用，如果frmBookingData.ADOQuery1已經在使用不同的東西