Hallo Zusammen,
Delphi-Quellcode:
MyQuery1.SQL.Text := 'SELECT * FROM tabelle1 WHERE field1 = :wert1;';
MyQuery1.ParamByName('wert1').AsString := 'Hello World';
MyQuery1.Open;
Das kannte ich nicht... Aber ich finde es richtig cool, weil es den Umgang mit den
SQL-Anweisungen wirklich toll vereinfacht!
Habe es jetzt so umgesetzt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Cols: TCols;
Rows: TRows;
begin
MyQuery1.SQL.Clear;
MyQuery1.SQL.Add('select * from Benutzer where Vorname= :wert1');
MyQuery1.ParamByName('wert1').AsString := Edit1.Text;
connect(Form1.MyConnection1);
ExecQuery(Form1.MyQuery1, Cols, Rows);
FillGrid(StringGrid1, Cols, Rows);
Disconnect(Form1.MyConnection1);
showmessage('Stop');
MyQuery1.SQL.Clear;
MyQuery1.SQL.Add('update benutzer set Vorname= :wert2 where Vorname= :wert1');
MyQuery1.ParamByName('wert1').AsString := Edit1.Text;
MyQuery1.ParamByName('wert2').AsString := Edit2.Text;
MyQuery1.Execute;
MyQuery1.SQL.Clear;
MyQuery1.SQL.Add('select * from Benutzer');
connect(Form1.MyConnection1);
ExecQuery(Form1.MyQuery1, Cols, Rows);
FillGrid(StringGrid1, Cols, Rows);
Disconnect(Form1.MyConnection1);
Was mich jetzt noch interessiert ist, wie Ihr das mit den Connection-Daten macht. Ich habe sie jetzt in einer Textdatei mit der Endung *.set. Aber dann könnte ja jeder diese auslesen und manuell auf den
MySQL-Server gehen und das ist sicher nicht im Sinne des Erfinders.
Wie macht Ihr das? und was macht Ihr, wenn es z.B. mehrere mögliche Server gibt und Ihr dem zur Folge auch mehrere Verbindungsdaten habt?
Das zweite ist der Hinweis von Sir Rufo, dessen Sinn ich im ANsatz verstehen kann, aber ich gar keine Ahnung habe, wie ich das umsetzten soll.
Vielen Dank für die tollen Tips bis hierhin.
Ykcim