Discussion :

[johnbical]

slt à vous je suis novice en VB et j'ai un problème avec mon code
j'ai un message d'erreur que je n'arrive pas
à résoudre aidez svp je vous montre mon code c'est quoi l'erreur?


Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.Odbc

Public Class FormA

'Déclaration de la connexion et de l'objet commande
Private MyConnection As OleDbConnection
Private MyCommand As OleDbCommand

'Paramètres de connexion à Access

Private StrConn As String
Private Sub FormA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\LadyAdja\Desktop\FFPDB.mdb"
MyConnection = New OleDbConnection
MyCommand = New OleDbCommand
MyConnection.ConnectionString = StrConn
MyCommand.Connection = MyConnection
MyCommand.CommandType = CommandType.Text
MyCommand.CommandText = "Select * from Beneficiaires"



MyConnection.Open()


Dim MyReader As OleDbDataReader = MyCommand.ExecuteReader

Dim List As New ListBox

Dim Myconnection1 As New MySql.Data.MySqlClient.MySqlConnection
Dim myconnectionstring As String
myconnectionstring = "server=localhost;uid=root;database=baseentreprise"
Myconnection1.ConnectionString = myconnectionstring
' OdbcConnection(MyConString)
Myconnection1.Open()
Dim MyCommand1 As New MySql.Data.MySqlClient.MySqlCommand
MyCommand1.Connection = Myconnection1


'Console.WriteLine("Connection State::" & MyConnection.State.ToString)


'Console.WriteLine("INSERT, Total rows affected:")


'Console.WriteLine("SELECT * From test")
'Dim MyDataReader As OdbcDataReader
'MyDataReader = MyCommand1.ExecuteReader

Do While MyReader.Read()
'List.Items.Add(MyReader.GetString(0))
MyCommand1.CommandText = "INSERT INTO entreprise (idEntreprise,forme,datecreation,nomEnt,idsoussecteur,cs,ninea,tel1,fax,adresse,bp,ville,pays,email,siteweb,nbemploye) values('" + MyReader.GetInt16(0) + "','" + MyReader.GetString(1) + "','" + MyReader.GetString(2) + "','" & MyReader.GetDateTime(3) & "','" + MyReader.GetInt16(4) + "','" + MyReader.GetDouble(5) + "','" + MyReader.GetString(6) + "','" + MyReader.GetInt16(7) + "','" + MyReader.GetInt16(8) + "','" + MyReader.GetString(9) + "','" + MyReader.GetInt16(10) + "','" + MyReader.GetString(11) + "'," + MyReader.GetString(12) + "','" + MyReader.GetString(13) + "','" + MyReader.GetString(14) + "','" + MyReader.GetInt16(15) + "')"

MyCommand1.ExecuteNonQuery()

Loop

Me.Controls.Add(List)


MyReader.Close()
MyConnection.Close()
Myconnection1.Close()

End Sub
End Class

et l'erreur est:

La conversion de la chaîne "INSERT INTO entreprise (idEntrep" en type 'Double' n'est pas valide.

merci d'avance de votre!!!

[Pol63]

le forum a une balise pour mettre du code vb, c'est plus lisible !

+ ca sert à additionner, pour concaténer, il faut utiliser &

sinon utiliser la concaténation pour faire une requête c'est pas forcément ce qu'il y a de mieux, il y a les dbparameters qui évitent les problèmes et améliorent la lisibilité du code
dans ton cas, si quelqu'un a un apostrophe dans son adresse par exemple, ta requête va planter sans les dbparameters

[harz62]

Ou alors pire, on peut faire des injections SQL.