1er pas avec visual basic HELP PLEASE
jaks
-
jacks -
jacks -
Bonjour,
Jeune etudiant en informatique je débute en visual basic et j'essaye de faire une application toute simple. Je cherche à envoyer des informations dans une base de donnée appelé 'vbtest' et une table 'test' avec comme champ 'id', 'nom' et 'prenom'.
Dans visual basic, j'ai juste deux textbox nom et prenom, et j'ai un boutton submit.
Je n'arrive pas à envoyer mes informations dans ma base, et à force de modifier mon code il ne ressemble plus à rien, je suis perdu.
Quelqu'un pourrait m'aider svp?
merci d'avance
ps: désolé si j'ai fait de fautes d'orthographes le francais ce n'est pas mon fort.
Jeune etudiant en informatique je débute en visual basic et j'essaye de faire une application toute simple. Je cherche à envoyer des informations dans une base de donnée appelé 'vbtest' et une table 'test' avec comme champ 'id', 'nom' et 'prenom'.
Dans visual basic, j'ai juste deux textbox nom et prenom, et j'ai un boutton submit.
Je n'arrive pas à envoyer mes informations dans ma base, et à force de modifier mon code il ne ressemble plus à rien, je suis perdu.
Quelqu'un pourrait m'aider svp?
merci d'avance
ps: désolé si j'ai fait de fautes d'orthographes le francais ce n'est pas mon fort.
A voir également:
- 1er pas avec visual basic HELP PLEASE
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
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
