Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Execute SQL File (https://www.delphipraxis.net/167383-execute-sql-file.html)

value is NULL 27. Mär 2012 13:06

Execute SQL File
 
Hi Leute

Hab ein Problem....
Ich will mit dieser Function

Delphi-Quellcode:
function sqlfile(filename : string) : string;
begin
  if not fileexists(filename) then toolsst.exceptionst('SQL File not found!');
  oTmpQry := TADOQuery.Create(nil);
try
  try
    oTmpQry.Connection := Conn;
    oTmpQry.CommandTimeout := 10000;
    oTmpQry.LoadFromFile(filename);
    oTmpQry.Active := True;
    result := 'OK';
  except
    on e : exception do begin
      result := e.Message;
    end;
  end;
Finally
  oTmpQry.free;
end;
end;
ein SQL File script abschießen, welches mir einen Table erstellt. Wenn ich das Script händisch ausführe (SQL Server Management Studio) funktioniert es.

Folgendes bekomme ich retour:

Code:
C:\>test.exe
[20120327] [13:55:44] [DEBUG] Checking if Table exist ...
[20120327] [13:55:44] [DEBUG] Database connect   [OK]
[20120327] [13:55:44] [DEBUG] Table not found! Try to create ...
Exception: CREATE TABLE SQL EXCEPTION: Das Recordset kann anhand der angegebene
Quelle nicht erstellt werden. Die Quellendatei oder der Strom mu▀ Recordsetdaten
 im XML- oder ADTG-Format enthalten

C:\>
Kann mir hier jemand helfen?

LG
Steffen

hhcm 27. Mär 2012 13:23

AW: Execute SQL File
 
Dann meinst du doch auch sicherlich

Delphi-Quellcode:
oTmpQry.SQL.LoadFromFile(filename);

Oder möchest du ein Recordset laden?

value is NULL 27. Mär 2012 13:33

AW: Execute SQL File
 
du hast recht... habe ich bereits probiert... aber dann bekomme ich folgendes zurück:

Code:
[20120327] [14:25:55] [DEBUG] Checking if Table exist ...
[20120327] [14:25:55] [DEBUG] Database connect   [OK]
[20120327] [14:25:55] [DEBUG] Table not found! Try to create ...
CREATE TABLE SQL EXCEPTION: CommandText gibt keine Ergebnismenge zur³
ck

C:\>
Irgendwer eine Idee?

LG

p80286 27. Mär 2012 13:39

AW: Execute SQL File
 
Zitat:

Zitat von value is NULL (Beitrag 1158869)
ein SQL File script abschießen, welches mir einen Table erstellt. Wenn ich das Script händisch ausführe (SQL Server Management Studio) funktioniert es.

Folgendes bekomme ich retour:

Code:
C:\>test.exe
[20120327] [13:55:44] [DEBUG] Checking if Table exist ...
[20120327] [13:55:44] [DEBUG] Database connect   [OK]
[20120327] [13:55:44] [DEBUG] Table not found! Try to create ...
Exception: CREATE TABLE SQL EXCEPTION: Das Recordset kann anhand der angegebene
Quelle nicht erstellt werden. Die Quellendatei oder der Strom mu▀ Recordsetdaten
 im XML- oder ADTG-Format enthalten

C:\>
Kann mir hier jemand helfen?

Tja, beim Abschießen hab ich so meine Probleme, alldieweil mein Waffenschrank gähnende Leere aufweist.

Wenn das Script funktioniert, dann kommen Fehlermeldungen zurück?
Das ist alles sehr obskur!

Gruß
K-H

Bernhard Geyer 27. Mär 2012 13:39

AW: Execute SQL File
 
Du hast keine Ergebnismenge. Du must das Script per Execute statt mit Active:=True ausführen!

value is NULL 27. Mär 2012 13:49

AW: Execute SQL File
 
cool, mit ExecSQL hats funktioniert. Danke!


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz