Discussion :

[Harelde]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

ORA-00900: invalid SQL statement

Rien trouvé de probant sur la toile...


Merci à vous

[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...

[Harelde]

Eh ben me v'la bien !

[Harelde]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.