Bonjour à tous,
Voila j'ai un petit problème avec le code ci-dessous. J'ai créer un bouton qui se connecte a une base de données géré par sql server et qui affiche une données. La connexion fonctionne correctement mais il y a un problème lors de l'affichage (en rouge).
Voici mon code :
Les varaiables NomUtilisateur et MotDePasse sont saisies a partir de l'interface.
'bouton de connexion Private Sub BtnConnexion_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles BtnConnexion.Click
'Déclaration de la variable Dim cnx
As ADODB.Connection
Dim rst
As ADODB.Recordset
Dim NomServeur = "CCOMMEC"
Dim NomBaseDeDonnées = "arlette"
'Instanciation des variables cnx =
New ADODB.Connection
rst =
New ADODB.Recordset
'Définition de la chaîne de connexion cnx.ConnectionString = "UID=" & NomUtilisateur.Text & ";PWD=" & MotDePasse.Text & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"
'Ouverture de la base de données cnx.Open()
'affichage d'un enregistrement 'Exécution de la requête rst.Open("SELECT * FROM Arl_Utilisateurs", cnx)
MsgBox(rst.Fields(0)) 'fermeture du recordset rst.Close()
'fermeture de la base de données cnx.Close()
End SubVoila le message d'erreur :
Quelqu'un aurait-il une petite idée du problème ? Merki d'avance.