A voir également:
- 1er pas avec visual basic HELP PLEASE
- Visual basic download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Visual petanque - Télécharger - Sport
- Visual paradigm - Télécharger - Gestion de données
4 réponses
Si quelqu'un pouvait mettre de l'ordre dans mon code et me dire quel mon probleme ça serait vraiment gentil.
Mais je pense qu'il est préférable de tout récrire car à force de faire de copier coller provenant de site internet cela n'a plus de sens.
Code vb:
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As MySqlConnection
Dim data As DataTable
Dim da As MySqlDataAdapter
Dim cb As MySqlCommandBuilder
Private Sub submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submit.Click
'Dim SQL As String
Dim MyCommand As New MySqlCommand
Dim MyDataReader As MySqlDataReader
Dim ConnnectionStr = "Database=vbtest;Data Source='psinfo1';User Id=test;Password=test"
Dim Connection = New MySqlConnection
Connection.ConnectionString = ConnnectionStr
Dim MyAdapter = New MySqlDataAdapter
Connection.Open()
data = New DataTable
MyCommand.Connection = Connection
Dim cmd As New MySqlCommand("INSERT INTO vbtest.vbtest (`nom` ,`prenom`)VALUES ('nom', 'prenom')", Connection)
cb = New MySqlCommandBuilder(da)
'attache la varibale MyCommand à notre connexion
'MyCommand.Connection = Connection
'MyCommand.CommandText = SQL
'récupère les données de la requête
MyDataReader = MyCommand.ExecuteReader
'MyAdapter.InsertCommand = New MySqlCommand(MySqlCommand, Connection)
Label1.Text = "ok"
End Sub
End Class
Mais je pense qu'il est préférable de tout récrire car à force de faire de copier coller provenant de site internet cela n'a plus de sens.
Code vb:
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As MySqlConnection
Dim data As DataTable
Dim da As MySqlDataAdapter
Dim cb As MySqlCommandBuilder
Private Sub submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submit.Click
'Dim SQL As String
Dim MyCommand As New MySqlCommand
Dim MyDataReader As MySqlDataReader
Dim ConnnectionStr = "Database=vbtest;Data Source='psinfo1';User Id=test;Password=test"
Dim Connection = New MySqlConnection
Connection.ConnectionString = ConnnectionStr
Dim MyAdapter = New MySqlDataAdapter
Connection.Open()
data = New DataTable
MyCommand.Connection = Connection
Dim cmd As New MySqlCommand("INSERT INTO vbtest.vbtest (`nom` ,`prenom`)VALUES ('nom', 'prenom')", Connection)
cb = New MySqlCommandBuilder(da)
'attache la varibale MyCommand à notre connexion
'MyCommand.Connection = Connection
'MyCommand.CommandText = SQL
'récupère les données de la requête
MyDataReader = MyCommand.ExecuteReader
'MyAdapter.InsertCommand = New MySqlCommand(MySqlCommand, Connection)
Label1.Text = "ok"
End Sub
End Class
correction : ma table s'apelle 'vbtest' et ma base s'appelle aussi 'vbtest'.
Dans l'attente d'une reponse merci beaucoup
Dans l'attente d'une reponse merci beaucoup