Hallo,
ich möchte die Daten aus meinem Stinggrid in eine Tabelle Namens Test einfügen. Wenn ich es wie unten beschrieben probiere dann schreibt er mir erstmal das ganze Alphabet in die Tabelle rein und danach den Namen Schmidt in die Spalte Name, Vorname, Ort, Strasse, Telefon. Danach schreibt er mir den Vornamen Timo in die Spalte Name, Vorname, Ort usw.
Aber ich möchte, dass er mir den Namen Schmidt nur in die Spalte Name einfügt und den Vornamen nur in die Spalte Vorname. Wie mache ich das?
Noch eine Frage. Weiß einer warum er mir erstmal das ganze Alphabet reinhaut. Er fängt an A unter Name, Vorname, Ort, Strasse, Telefon zu schreiben und dann geht es weiter mit B?
[/delphi]
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Tabelle_Test : TTabelle_Test;
i, j: Integer;
begin
with Stringgrid1 do
for I := 0 to ColCount - 1 do
for J:= 0 to RowCount - 1 do
begin
Unit2.DataModule2.tabelleFuellen(Tabelle_Test);
Tabelle_test.Name := StringGrid1.cells[j,i];
Tabelle_test.Vorname := StringGrid1.cells[j,i];
Tabelle_test.Ort := StringGrid1.cells[j,i];
Tabelle_test.Strasse := StringGrid1.cells[j,i];
Tabelle_test.Telefon := StringGrid1.cells[j,i];
end;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TDataModule2.tabelleFuellen ( Tabelle_Test: TTabelle_Test);
begin
ADOConnection_Interobs.BeginTrans;
try
ADOCommand1.CommandType := cmdtext;
ADOCommand1.CommandText := 'insert into test (name,vorname,ort,strasse,Telefon)values (:name,:vorname,:ort,:strasse,:Telefon)';
ADOCommand1.Parameters.ParamByName('name').Value := Tabelle_Test.Name;
ADOCommand1.Parameters.ParamByName('vorname').Value := Tabelle_Test.Vorname;
ADOCommand1.Parameters.ParamByName('ort').Value := Tabelle_Test.Ort;
ADOCommand1.Parameters.ParamByName('strasse').Value := Tabelle_Test.strasse;
ADOCommand1.Parameters.ParamByName('telefon').Value := Tabelle_Test.telefon;
ADOCommand1.Execute;
ADOConnection_Interobs.CommitTrans;
except
ADOConnection_Interobs.RollbackTrans;
end;
end; |
