Mehrere Werte in Datenbank Spalte einfügen per Button

[klaus9]

Hallo

wie kann ich per Button werte die untereinander in einem Memofeld stehen in eine tabelle einfügen

also memofeld befüllt mit z.B.

test1
test2
test3
test4

usw.

Datenbank soll wie folgt über einen Button befüllt werden:

Spalte Name
test1
test2
test3
test4
usw

Wie kann ich das machen ?

Gruß

[p80286]

ungefähr so:

Delphi-Quellcode:

query1.sql.text:='insert mytable set feld=:_myfeld';
for i:=0 to Memo1.Lines.Count-1 do begin
   query1.sql.parameterbyname('_myfeld').asstring:=memo1.lines[i];
   query1.execsql;
end;

läuft so wahrscheinlich nicht aber als Denkanstoß?

Gruß
K-H

[klaus9]

bin schon am rum probieren, aber klappt irgendwie nicht

[mikhal]

INSERT INTO mytable SET feld = :_myfeld Grüße
Mikhal

[Sir Rufo]

Ich glaube ihr habt vergessen ihm zu sagen, dass er einen Button auf die Form legen muss, dann darauf einen Doppelklick und dort im nun erscheinenden Codefenster diese Codezeilen einfügen muss.

Die Ausgangsfrage ist ja "... per Button"

Hoofentlich kommt nicht morgen, wie das per Checkbox, ComboBox, ListBox, SpeedButton oder Panel geht

[klaus9]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
 dbgrid1.DataSource.DataSet.Edit; //in den Editiermodus wechseln
dbgrid1.DataSource.DataSet.fields[1].AsString:=DBMemo1.Lines[2]; //Daten ändern
dbgrid1.DataSource.DataSet.Post;
end;

Mit diesem Code bekomme ich den text aus DBMemo1 übertragen aber halt nicht so
das er neue Zeilen einfügt

also wenn im memo

test1
test2
test3

steht zeigt er mir im Grid dann nur

Spalte und Zeile 1 wie folgt an

test1test2test3

statt untereinander

test1
test2
test3

also er soll mir neue zeilen einfügen aber das klappt nicht

[Sir Rufo]

Übersetze doch mal das Wort Edit ins Deutsche?
Übersetze doch mal das Wort Einfügen ins Englische?
Man kann es auch mal mit der Übersetzung von Anfügen versuchen

Manchmal hilft auch ein Blick in die Dokumentation TDataSet