Einzelnen Beitrag anzeigen

DeadMatt

Registriert seit: 11. Jan 2007
32 Beiträge
 
#1

Insert der Interbase Datenbank will nicht

  Alt 15. Jan 2007, 08:55
Datenbank: Interbase • Version: 7.5 • Zugriff über: ADO
Ich hatte schonmal etwas wegen der DB gefragt wo das Update nicht funktioniert hatte doch diesesmal haenge ich beim Insert.... das muesste doch genauso funktionieren oder? hier meine Funktion:
Delphi-Quellcode:
function thisInsert(VORNAME, NACHNAME: string):boolean;
var
  s_sql, Constr, ConOptions: string;
  cmd: BdpCommand;
  trsa: BdpTransaction;
  DBCon: BdpConnection;
begin
  //Einstellungen der Datenbank sowie auch bei ConOptions
  ConStr := 'Provider=Interbase;' +
      'assembly=Borland.Data.Interbase, Version=2.5.0.0,' +
      'Culture=neutral, PublicKeyToken=91d62ebb5b0d1b1b;'  +
      'vendorclient=gds32.dll;pooling=True;' +
      'grow on demand=True;database=localhost:C:\InterbaseDB\TERMINE.IB;' +
      'username=sysdba;max pool size=100;password=masterkey';

  ConOptions := 'LoginPrompt=False;SQLDialect=3;RoleName=None;' +
       'CommitRetain=true;ServerCharSet=NONE;RollbackRetain=False;' +
       'TxnIsolation=ReadCommitted;WaitOnLocks=true';

  //Einstellungen in die Verbindung implementieren
  DBCon:= BdpConnection.Create(ConStr);
  DBCon.ConnectionOptions:= ConOptions;

  s_sql := 'INSERT INTO MITARBEITER (VORNAME, NACHNAME) VALUES ( '''+VORNAME+''', '''+NACHNAME+''')';
  cmd := BdpCommand.Create(s_sql, DBCon);
  
  try
    DBCon.Open;
          trsa := DBCon.BeginTransaction;
          cmd.Transaction:=trsa;
          cmd.ExecuteNonQuery;
          trsa.Commit;
    DBCon.Close;
    result := true;
  except
    result := false;
  end;

end;
woran koennte das liegen?
  Mit Zitat antworten Zitat