TAdvStringGrid

[Alterauge]

Hallo,

Habe ein TAdvStringgrid mit 8 Spalten in einer Zeile.
Möchte gerne über einen Button (Zeile selektiert) die 8 Spalte in einer Access Datenbank speichern!

TADO Connection
TADO Data Set


Was muß ich dem Button sagen?
var ???????????

begin
???????????????????
end;

Würde ich über eine Lösung freuen :-)
Gruß Andre:-D

[DeddyH]

ADO ist nicht meine Welt, aber ich denke, ein ADOCommand mit einem parametrisierten SQL sollte zum Erfolg führen.

Code:

INSERT INTO Tabelle(Feld1, Feld2, Feld3)
VALUES(:feld1, :feld2, :feld3)

Den Parametern feld1 bis feld3 (oder in Deinem Fall halt 8) weist Du die Werte der Spalten zu und führst dann mittels Execute das ADOCommand aus.

[milo]

Hallo,

Delphi-Quellcode:

Function AchteSpalte:String;
begin
  Result := '';
  With ADVStringGrid1 do
    If Length(Cells[8,Row]) > 0 then
      Result := Cells[8,Row];        
end;

Wie Du das in Dein Ado rein bekommst entzieht sich meiner Kenntnis.

Gruß :D Milo

[jaevencooler]

Moin, Moin,

also willst Du nur die achte Spalte speichern ?
oder willst du alle 8 Spalten speichern, und dann wie in der Tabelle ?
pro Spalte ein Datenbankfeld oder pro Spalte eine Zeile in der Datenbank.... 8-)


Gruß
Michael

[Alterauge]

Hallo,

möchte nur die 8 Spalte speichern!

Gruß Andre

[DeddyH]

Alle Werte der 8. Spalte? Gibt es irgendwelche Kriterien, welche Daten zu welchen gehören?

[Alterauge]

Hallo,

alle werte der achten spalte [inhalt]
oder was meinst du?

gruß andre

[DeddyH]

Das meinte ich. Ich habe kein AdvStringGrid, aber ungefähr so sollte es gehen:

Delphi-Quellcode:

for i := ADVStringGrid1.FixedRows to ADVStringGrid1.RowCount - 1 do
  begin
    s := ADVStringGrid1.Cells[7, i];
    ADOCommand.Parameters.ParamByName('param').Value := s;
    ADOCommand.Execute;
  end;

[milo]

Nimm einfach meine Funktion und weise den Wert der 8ten selektierten Spalte einem Datenbankfeld zu.

Delphi-Quellcode:

  ADOCommand.Parameters.ParamByName('param').Value := AchteSpalte;
  ADOCommand.Execute;

Gruß :D Milo

[DeddyH]

Und dann hat er genau einen Wert, oder verstehe ich Deine Funktion falsch?