Elvan a kocka


procedure Tkocsi_felvetel.SQL_beilleszt(Sender: TObject);
begin
 beszur_sql.SQL.Clear;
 beszur_sql.SQL.Add('INSERT INTO autok(id,marka,tipus,urtartalom,loero,evjarat,tulajszam,
szin,rendszam) ');
 beszur_sql.SQL.Add('VALUES(444, "'+felvetel_marka.text+'", "'+felvetel_tipus.text+'", '+felvetel_urtartalom.text+', '+felvetel_loero.text+', '+felvetel_evjarat.text+', '+felvetel_tulajszam.text+', "'+felvetel_szin.text+'", "'+felvetel_rendszam.text+'") ');
 beszur_sql.ExecSQL;
 beszur_sql.Close;
 Close;
end;

Yes. Igen. Megcsináltam. Az első Delphivel intézett SQL kérés, mert megérdemlem.

« »

mefiblog logó

Írja és rendezi Mefi, avagy Nádai Gábor © 2005-2024

A blogot büszkén pörgeti a WordPress motorja, Anders Norén sablonjának átbuherált változatával.