Value in MS SQL Datenbank schreiben

[arcon]

Hallo,

ich würde gerne folgende Sache machen.

Ich habe mir eine ADO-Connection aufgebaut. Dazu gehört eine TADODataSet-, TADODataSource- und eine TADOCommand-Komponente.

In dieser TADOCommand-Komponente habe ich unter dem Befehl Command.Text folgenden SQL Befehl eingefügt:

SQL-Code:

Insert into test(test,tewst2,Ctest3)
               Values(
                 ''11'',
                 ''10.10.2010 00:00:00'',
                 ''A_My_Continent'',
                )

Meine Tabelle lautet test und die 3 Spalten lauten Ebenfalls test, tewst2 und test 3.
die 3 Werte möchte ich erstmal so, wie oben einfügen und NICHT über Parameterübergaben, um erstmal die Funktionsweise zu verstehen.

in Delphi hab ich mir einen Button erzeugt. wenn ich auf diesen klicke, soll er mir den oben genannten SQL befehl ausführen.

dazu habe ich folgenden code in delphi eingefügt:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
Adocommand1:TADOcommand;
begin

     Adocommand1.Execute;

end;

nun zu meinem problem... so wie ich es eben beschrieben habe, macht das programm díe ausführung nicht.

woran könnte das liegen ?

wäre für tipps dankbar.

gruß arcon

[mkinzler]

Du musst ggf die Transaktion noch commiten

[arcon]

okay .. ich habe folgenden code in den SQL-Teil eingefügt

SQL-Code:

Use test;
go
begin transaction;
go
Insert into test(test,tewst2,test3)
               Values(
                 ''11'',
                 ''10.10.2010 00:00:00'',
                 ''A_My_Continent'',
                )
commit transaction;
Go

bin auf ausführen gegangen und dann bringt er mir folgende fehlermeldung :

Im Projekt Stand_100609.exe ist eine Exception der Klasse EAccessViolation mit der Meldung "Zugriffsv erletzung bei Adresse 0059C3De in Modul "Stand_100609.exe, Lesen von Adresse 000000000 aufgetreten.
Ich habe ausserdem mal versucht, den Delphi-Quellcode auszukommentieren, um zu schauen, ob der fehler dann immer noch vorhanden ist .. und siehe da, er ist es nicht mehr .. also muss es an dem delphi-quellcode liegen ..

was heißt diese fehlermeldung ?
kann mir jemand da weiterhelfen ?

ist die commit aktion so richtig ? @ mkinzler

danke für deine Hilfe

[Christian Seehase]

Moin arcon,

ich denke, ich habe den Fehler gefunden:

Hier

Code:

''A_My_Continent'',

muss das Komma am Ende weg, danach kommt nämlich die Klammer von VALUES

[arcon]

Hallo,

ich habe gerade mal deinen Hinweis abgeändert, muss aber jedoch feststellen, dass dies nicht der Fehler ist bzw. ein fehler ist, aber nicht der , der die fehlermeldung verursacht.

[DeddyH]

"Lesen von Adresse 000000000" deutet darauf hin, dass Du auf ein Objekt zugreifen willst, das Du gar nicht angelegt/instanziert hast.

[arcon]

Ich habe das Problem gelöst.

Folgenden Quellcode müsst Ihr in Delphi einfügen

Code:

procedure InsertThingsIntoDatabase;
var
  adoConn: TADOConnection;
  adoCmd: TADOCommand;
  begin
  try
    try
      adoConn := TADOConnection.Create(nil);
      adoConn.ConnectionString := 'Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=//EureDatenbank//';

      adoConn.Open;

      adoCmd := TADOCommand.Create(nil);
      adoCmd.Connection := adoConn;
      adoCmd.CommandText := 'INSERT INTO //EurerTabellenname// (feld1, feld2) VALUES (:feld1, :feld2);';

      adoCmd.Prepared := true;

      adoCmd.Parameters[0].Value := 'Test';
      adoCmd.Parameters[1].Value := 'Test';
      
      

    except
            end;
  finally
    adoConn.Close;
    adoCmd.Free;
    adoConn.Free;
    end;
end;

Danke für die Unterstützung.