vb et mysql, requête parametres

vb et mysql, requête parametres - SQL/NoSQL - Programmation

Marsh Posté le 14-07-2014 à 22:42:56    

bonsoir,
je développe une application VB dot NET 2012 ultimate sur Mysql, pour les requetes SELECT et DELETE tout ce passent bien, mais pour les requetes INSERT et UPDATE je suis obliger de faire de la requete parametres !
voici le code pour la requete INSERT

Code :
  1. '*************** insert client  *************
  2.         Dim northwindConnection As New MySqlConnection(SQL_CONNECTION_STRING)
  3.         Dim SqlConnection As MySqlConnection
  4.         SqlConnection = New MySqlConnection()
  5.         'SqlConnection.ConnectionString = (SQL_CONNECTION_STRING)
  6.         'SQLConnection.Open()
  7.         Dim sqlCommand As New MySqlCommand
  8.         Dim str_carSql As String
  9.         'Dim strsql As String
  10.         Dim myCommand As MySqlCommand
  11.         'Dim northwindConnection As New MySqlConnection(SQL_CONNECTION_STRING)
  12.         '  Try
  13.         Dim num As Integer
  14.         Dim code_cl As String
  15.         Dim raison_sociale As String
  16.         Dim code_postal As String
  17.         Dim ville As String
  18.         Dim immat_tva As String
  19.         Dim regime_tva As String
  20.         Dim date_creation As Date
  21.         Dim date_modif As Date
  22.         Dim tiers_mi_sommeil As String
  23.         Dim pays As String
  24.         Dim adresse1 As String
  25.         Dim adresse2 As String
  26.         Dim adresse3 As String
  27.         Dim text_lib_tiers1 As String
  28.         Dim text_lib_tiers2 As String
  29.         Dim text_lib_tiers3 As String
  30.         Dim tiers_bloque As String
  32.         num = Convert.ToInt32(Me.TextBox20.Text)
  33.         code_cl = Trim(Me.TextBox3.Text)
  34.         raison_sociale = Trim(Me.TextBox4.Text)
  35.         code_postal = Trim(Me.TextBox5.Text)
  36.         ville = Trim(Me.TextBox6.Text)
  37.         immat_tva = Trim(Me.TextBox7.Text)
  38.         regime_tva = Trim(Me.TextBox8.Text)
  39.         date_creation = Convert.ToDateTime(TextBox9.Text).ToString("yyyy-MM-dd" )
  40.         ' date_creation = Convert.ToDateTime(Me.TextBox9.Text)
  41.         date_modif = Convert.ToDateTime(TextBox10.Text).ToString("yyyy-MM-dd" )
  42.         ' date_modif = Convert.ToDateTime(Me.TextBox10.Text)
  43.         tiers_mi_sommeil = Trim(Me.TextBox11.Text)
  44.         pays = Trim(Me.TextBox12.Text)
  45.         adresse1 = Trim(Me.TextBox13.Text)
  46.         adresse2 = Trim(Me.TextBox14.Text)
  47.         adresse3 = Trim(Me.TextBox15.Text)
  48.         text_lib_tiers1 = Trim(Me.TextBox16.Text)
  49.         text_lib_tiers2 = Trim(Me.TextBox17.Text)
  50.         text_lib_tiers3 = Trim(Me.TextBox18.Text)
  51.         tiers_bloque = Convert.ToString(Trim(Me.TextBox19.Text))
  55.         str_carSql = "insert into tbl_client (code_cl, raison_sociale, code_postal, ville, immat_tva, regime_tva, date_creation, date_modif, tiers_mi_sommeil, pays, adresse1, adresse2, adresse3, text_lib_tiers1,text_lib_tiers2,text_lib_tiers3, tiers_bloque ) values (?p_code_cl,?p_raison_sociale,?p_code_postal,?p_ville,?p_immat_tva,?p_regime_tva,?p_date_creation,?p_date_modif,?p_tiers_mi_ensommeil,?p_pays,?p_adresse1,?p_adresse2,?p_adresse3,?p_text_libtiers1,?p_text_libtiers2,?p_text_libtiers3,?p_tiers_bloque )"
  57.         ' strsql = "update tlb_client set code_cl, raison_sociale, code_postal, ville, immat_tva, regime_tva, date_creation, date_modif, tiers_mi_sommeil, pays, adresse1, adresse2, adresse3, text_lib_tiers1,text_lib_tiers2,text_lib_tiers3, tiers_bloque ) values (?p_code_cl,?p_raison_sociale,?p_code_postale,?p_ville,?p_immat_tva,?p_regime_tva,?p_date_creation,?p_date_modif,?p_tiers_mi_ensommeil,?p_pays,?p_adresse1,?p_adresse2,?p_adresse3,?p_text_libtiers1,?p_text_libtiers2,?p_text_libtiers3,?p_tiers_bloque, where idtbl_client= 1"
  60.         myCommand = New MySqlCommand(str_carSql, northwindConnection)
  63.         myCommand.Connection = northwindConnection
  64.         myCommand.CommandText = str_carSql
  65.         myCommand.Connection.Open()
  68.         With myCommand.Parameters
  69.             .Add(New MySqlParameter("?p_code_cl", MySqlDbType.VarChar, 45))
  70.             .Add(New MySqlParameter("?p_raison_sociale", MySqlDbType.VarChar, 45))
  71.             .Add(New MySqlParameter("?p_code_postale", MySqlDbType.Int32, 12))
  72.             .Add(New MySqlParameter("?p_ville", MySqlDbType.VarChar, 45))
  73.             .Add(New MySqlParameter("?p_immat_tva", MySqlDbType.VarChar, 45))
  74.             .Add(New MySqlParameter("?p_regime_tva", MySqlDbType.VarChar, 45))
  75.             .Add(New MySqlParameter("?p_date_creation", MySqlDbType.Date, 45))
  76.             .Add(New MySqlParameter("?p_date_modif", MySqlDbType.Date, 45))
  77.             .Add(New MySqlParameter("?p_tiers_mi_sommeil", MySqlDbType.VarChar, 1))
  78.             .Add(New MySqlParameter("?p_pays", MySqlDbType.VarChar, 45))
  79.             .Add(New MySqlParameter("?p_adresse1", MySqlDbType.VarChar, 45))
  80.             .Add(New MySqlParameter("?p_adresse2", MySqlDbType.VarChar, 45))
  81.             .Add(New MySqlParameter("?p_adresse3", MySqlDbType.VarChar, 45))
  82.             .Add(New MySqlParameter("?p_text_lib_tiers1", MySqlDbType.VarChar, 45))
  83.             .Add(New MySqlParameter("?p_text_lib_tiers2", MySqlDbType.VarChar, 45))
  84.             .Add(New MySqlParameter("?p_text_lib_tiers3", MySqlDbType.VarChar, 45))
  85.             .Add(New MySqlParameter("?p_tiers_bloque", MySqlDbType.VarChar, 1))
  88.         End With
  90.         'Attribution des valeurs aux paramètres
  91.         With myCommand
  92.             ' .Connection = SqlConnection
  93.             '   .CommandText = str_carSql
  94.             .Parameters("?p_code_cl" ).Value = code_cl
  95.             .Parameters("?p_raison_sociale" ).Value = raison_sociale
  96.             .Parameters("?p_code_postale" ).Value = code_postal
  97.             .Parameters("?p_ville" ).Value = ville
  98.             .Parameters("?p_immat_tva" ).Value = immat_tva
  99.             .Parameters("?p_regime_tva" ).Value = regime_tva
  100.             .Parameters("?p_date_creation" ).Value = date_creation
  101.             .Parameters("?p_date_modif" ).Value = date_modif
  102.             .Parameters("?p_tiers_mi_sommeil" ).Value = tiers_mi_sommeil
  103.             .Parameters("?p_pays" ).Value = pays
  104.             .Parameters("?p_adresse1" ).Value = adresse1
  105.             .Parameters("?p_adresse2" ).Value = adresse2
  106.             .Parameters("?p_adresse3" ).Value = adresse3
  107.             .Parameters("?p_text_lib_tiers1" ).Value = text_lib_tiers1
  108.             .Parameters("?p_text_lib_tiers2" ).Value = text_lib_tiers2
  109.             .Parameters("?p_text_lib_tiers3" ).Value = text_lib_tiers3
  110.             .Parameters("?p_tiers_bloque" ).Value = tiers_bloque
  113.         End With
  116.         myCommand.ExecuteNonQuery()
  118.         myCommand.Connection.Close()
  122.         '   Catch ex As Exception
  123.         '      Return False
  124.         '   MsgBox("Error occured: Could not insert record" )
  125.         '  End Try


 
 
le debugger pointe sur le "  myCommand.ExecuteNonQuery()"
 
 
comprens pas l'erreur  
 
Cdlt  
Philippe

Reply

Marsh Posté le 14-07-2014 à 22:42:56   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed