ORA-00900 sur LOAD DATA INFILE

Version imprimable

Bonjour à tous,

Je suis chargé d'adapter un code VBA Excel qui doit charger un fichier TXT dans un SGBD. Initialement dans MySQL. Dorénavant dans ORACLE 10g.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set mybase = New ADODB.Connection mybase.ConnectionString = "Provider=msdaora;Data Source=xxxx;User Id=xxx;Password=xxxxx;" mybase.Open Set mycommande = New ADODB.Command mycommande.ActiveConnection = mybase mycommande.CommandText = "CREATE TABLE TOTO (SIRET varchar(14) primary key)" mycommande.Execute mycommande.CommandText = "LOAD DATA LOCAL INFILE " & Chr(34) & Replace(Mon_fichier, "\", "/") & Chr(34) & "INTO TABLE TOTO" mycommande.Execute
J'imagine que ce code devait fonctionner sous MySQL. Supposition, car je n'en sais rien. Ce que je sais, en revanche, c'est que sous Oracle, il ne fonctionne pas.
Le LOAD DATA plante en :

Citation:

ORA-00900: invalid SQL statement

Rien trouvé de probant sur la toile...
:koi:

Merci à vous

24/04/2013, 14h51
al1_24

Sans aucun doute parce que la commande LOAD DATA INFILE n'appartient ni au langage SQL normalisé ni au dialecte Oracle.

Il ne te reste plus qu'à chercher ce qu'est sensée faire cette commande dans l'univers MySQL et cherche dans Oracle ce qui est comparable...
24/04/2013, 14h56
Harelde

Eh ben me v'la bien ! :calim2:

J'ai fini par trouver une solution.
Je vous la livre pour les suivants qui, comme moi, s'arracheraient les cheveux sur ce problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
SET mybase = New ADODB.Connection
 
mybase.ConnectionString = "Provider=msdaora;Data Source=xxxx;User Id=xxx;Password=xxxxx;"
mybase.Open
 
SET mycommande = New ADODB.Command
mycommande.ActiveConnection = mybase
 
mycommande.CommandText = "CREATE TABLE TOTO (SIRET varchar(14) primary key)"
mycommande.Execute
 
"Import du fichier TXT dans EXCEL"
Workbooks.OpenText Filename:=fichier, Origin _
:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
 
"On récupère l'adresse de la dernière ligne du tableau"
Range("A1").Select
der_row = ActiveCell.CurrentRegion.Row + ActiveCell.CurrentRegion.Rows.Count - 1
 
For i = 1 To der_row
        strImport = Mid(Worksheets(Application.ActiveSheet.Name).Cells(i, 1).Value, 1, 14)
 
        mycommande.CommandText = "BEGIN INSERT INTO TOTO VALUES('" & strImport & "'); COMMIT; END;"
        mycommande.Execute
Next i

Pas forcément très beau, mais ça a l'avantage de fonctionner.
Merci à ceux qui ont réfléchi à mon problème.
:ccool: