Connexion à une base mysql

Résolu
keunene
Messages postés
68
Date d'inscription
samedi 5 avril 2014
Statut
Membre
Dernière intervention
16 mars 2022
- 28 nov. 2014 à 16:15
NHenry
Messages postés
14944
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 juillet 2022
- 29 nov. 2014 à 20:38
Bonjour,
ce code marche et il affiche tous les utilisateurs mais je voudrais alerter
par msgbox qu'un même pseudo ne peut s'inscrire deux fois





Dim conv As New MySqlConnection
Dim result As Integer
'MySqlCommand It represents a SQL statement to execute against a MySQL Database
Dim cmdv As New MySqlCommand
'Represents a set of data commands and a database connection that
'are used to fill a dataset and update a MySQL database. This class cannot be inherited.
Dim dan As New MySqlDataAdapter


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
try

conv.ConnectionString = ("server=192.168.1.24;user id=keunene;password=;database=activation")
Try
conv.Open()

cmdv.Connection = conv
'in this query it does simply selecting or getting all the user found in the database.
cmdv.CommandText = "Select * from users where pseudo ='" & TextBox3.Text & "' "





Catch ex As Exception
MsgBox(ex.Message)


End Try
conv.Close()
dan.Dispose()
filltable(dtguser)
End Sub


je voudrais ajouter une condition de ce genre
Dim ds As New DataSet

If da.Fill(ds, "login") Then

MsgBox("Ce code existe déjà dans notre base")

end if


merci

1 réponse

NHenry
Messages postés
14944
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 juillet 2022
161
29 nov. 2014 à 20:38
Bonsoir,

Regardes du côté du DataReader, cela sera plus accessible pour une utilisation qui ne concerne pas l'affichage des données reçues.
0