Problème de requête en VB dans une base MySQL [Au secours ^^' ]

Question

Bijour, 

je suis en train de monter un e-commerce, chaque semaine je re&#231;ois une base de donn&#233;es texte de mon fournisseur avec tous les produits et les fournisseurs. Afin de remplir la base de donn&#233;es du e-commerce, je d&#233;coupe le fichier texte concernant les produits en plusieurs fichiers textes que je souhaite ensuite charger avec des LOAD DATA INFILE.

Si j'ex&#233;cute les requ&#234;tes &#224; partir de PHP MyAdmin &#231;a marche mais pas &#224; partir de VB. Pour pouvoir utiliser VB, j'ai t&#233;l&#233;charg&#233; MyODBC 3.51. Les fabricants &#233;tant dans ma base de donn&#233;es en cl&#233; &#233;trang&#232;re par rapport aux produits, je dois les charger d'abord. J'ai cr&#233;&#233; un fichier manufacturers &#224; charger. Mais avant m&#234;me de le charger, je dois faire un DELETE sur la table car c'est plus simple que de faire un UPDATE.

Quand je veux effectu&#233; le DELETE, je n'ai pas de msgbox d'erreur mais l'instruction ne s'ex&#233;cute.
Voiil&#224; mon code : 


Sub conmysql()



Try



'MyODBC 3.51 connection string



Dim MyConString 
As 
String = "DRIVER={MySQL ODBC 3.51 Driver};" & _


"SERVER=localhost;" & _


"DATABASE=oscommerce;" & _


"UID=root;" & _


"OPTION=3;"



'Connection



Dim MyConnection 
As 
New OdbcConnection(MyConString)


MyConnection.Open()


Console.WriteLine("Connection State::" & MyConnection.State.ToString)



'delete


Console.WriteLine("deleting table")



Dim MyCommand 
As 
New OdbcCommand


MyCommand.Connection = MyConnection


MsgBox("Connexion &#233;tablie")


MyCommand.CommandText = "DELETE TABLE if exists manufacturers"


MyCommand.ExecuteNonQuery()


MsgBox("Table effac&#233;e")



'Load Manufacturers


Console.WriteLine("Loading data infile manufacturers")


MyCommand.CommandText = "LOAD DATA LOCAL INFILE 'C:/Web/EasyPHP_1-8\tmp\php71.tmp' INTO TABLE MANUFACTURERS FIELDS TERMINATED BY ',' ENCLOSED BY ' LINES TERMINATED BY '
'(manufacturers_name)"


MyCommand.ExecuteNonQuery()



'Catch ODBC Exception



Catch MyOdbcException 
As OdbcException



Dim i 
As 
Integer


Console.WriteLine(MyOdbcException.ToString)



'Catch program exception



Catch MyException 
As Exception


Console.WriteLine(MyException.ToString)



End 
Try



End 
Sub

Et voil&#224; le message que j'ai dans ma console &#224; la fin de l'ex&#233;cution :


System.Data.Odbc.OdbcException: ERROR [23000] You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'TABLE if exists manufacturers' at line 1


at System.Data.Odbc.OdbcConnection.HandleError(HandleRef hrHandle, SQL_HANDLE hType, RETCODE retcode)


at System.Data.Odbc.OdbcCommand.ExecuteReaderObject(CommandBehavior behavior, String method)


at System.Data.Odbc.OdbcCommand.ExecuteNonQuery()


Visiblement, l'erreur se situe &#224; la ligne :
MyCommand.CommandText = "DELETE TABLE if exists manufacturers"
c'est pourquoi j'ai mis une msgbox juste apr&#232;s le MyCommand.ExecuteNonQuery()

J'aimerai avoir une r&#233;ponse s'il-vous-pla&#238;t je suis en train de m'arracher les cheveux 

merci

cs_Jack · Answer

Salut
Je n'ai pas tout lu ni test&#233;, mais pourquoi ne pas faire une simple requ&#232;te : Delete From manufacturers
et si tu veux aussi virer la structure de table : Drop Table manufacturers

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Problème de requête en VB dans une base MySQL [Au secours ^^' ]

1 réponse

Discussions similaires