Problème d'affichage de données SQL server

Question

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 Sub

Voila le message d'erreur : 

Quelqu'un aurait-il une petite idée du problème ? Merki d'avance.

screquer · Answer

Bonjour lolorenzeb,

Ton Msgbox(rst.fields(0)) fonctionne correctement dans mon test ...
C'est équivalent à Msgbox(rst(0))

Et si ton rst ne renvoie aucune information ?
Si aucun, quelle donnée est transmise ?

>   rst.Open("SELECT * FROM Arl_Utilisateurs", cnx)
>   Msgbox rst.recordcount ' Pour tester ton Nb d'enregistrements transmis ?
>   MsgBox(rst.Fields(0))

Stéph

screquer · Answer

lolorenzeb,

Pour info...
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Dim cnx As New ADODB.Connection
   Dim rst As New ADODB.Recordset

   cnx.ConnectionString  = ...
   rst.Open(...
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
est équivalent à 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Dim cnx As ADODB.Connection
   Dim rst As ADODB.Recordset

   cnx = New ADODB.Connection
   rst = New ADODB.Recordset

   cnx.ConnectionString  = ...
   rst.Open(...
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Stéph

lolorenzeb · Answer

Ok screquer le msgbox me revoie -1 donc j'imagine que cela signifie que la requete ne me renvoie rien. Pourtant ma requete est correct. Il n'y a rien de spécial du coté de sql server ? ma base et ma table est bien crée et la table contient deux enregistrements..

adil_ista · Answer

est ce que la  table contient un clé primaire?
vérifie la ,et essayé d'afficher les rst(1),et rst(2) pour tester

lolorenzeb · Answer

oui elle contient bien une clé primaire. mais  rst.recordcount me  renvoi -1 donc pas d'enregistrement

meme erreur avec rst(1) et aussi avec rst(2) normal

adil_ista · Answer

si rst.recordcount = -1 ca veux dire pas d'eb registrement, c'est vari!
alors vérifie que toutes les colonnes sont remplies ,et aussi de femer la table au moment de l'éxecution !

lolorenzeb · Answer

j'ai déja fait tous ses tests. merci quand meme

screquer · Answer

Rebonjour lolorenzeb,

Ta variable cnx comporte la propriété state...
State=0 => connexion refusée
State=1 => connexion effective

Essaie le test pour vérifier...
Msgbox cnx.state

Sinon, dans le libellé de ta chaîne de connexion cnx.ConnectionString, remplace temporairement les variables NomUtilisateur.Text, MotDePasse.Text, NomServeur et NomBaseDeDonnées par les valeurs réelles (case y compris) pour vérifier tes données ...

Autre point, dans Access, les anciennes versions demandaient le déplacement à la fin du recordset (rst.movelast) pour obtenir le Nb réel d'enregistrements ? avant de revenir au début (rst.movefirst)...
Je ne pense pas que ce soit cela... Mais...

Autre point, rst comporte aussi la propriété state ???
Teste-le si oui...

Steph

screquer · Answer

lolorenzeb

Pour info, voilà mon Open sur le recordset de ma base Access 2003... en VB6...

sSQL = "SELECT * FROM films"

rst.Open sSQL, Cnx, adOpenStatic, adLockReadOnly, adCmdTableDirect
Msgbox rst.state
iNb = rst.RecordCount

l'Open ne comporte pas de parenthèses, mais comporte des infos supplèmentaires sur la façon de lire les données de la base ...

Si ça peut t'aider...

Stéph

lolorenzeb · Answer

Screquer,

Tout d'abord pour toute ces informations c'est super sympa de ta part.

J'ai donc tester les valeurs de cnx.state et rst.state et toutes les deux sont à 1 donc effectives si j'ai bien compris. Par contre dès que j'essai de faire un rst.movelast j'ai la meme erreur qui revient. Je voulais te dire également que je travaille avec une base sql server et  non access. Sinon j'ai essayé d'utiliser ton open mais ca ne passe pas sous VB.NET. Donc la pour le moment je suis un peu dans l'impasse.

screquer · Answer

lolorenzeb Tiens, j'ai trouvé ceci, essaie de l'adapter à ton projet !!! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Voici un exemple de code qui permet de se connecter à n'importe qu'elle type de base de données ( ce code fonctionne sous XP avec VB 5.0 ) : S'assurer au préalable que vous utiliser la référence suivante ( Menu Projet/ Référence ) : Microsoft ActiveX Data Objet 2.7 Libray '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Source

Publicsub Connection()
Dim CoLilas As New ADODB.Connection
Dim Rec_Mod As New ADODB.Recordset
Dim Rec_Estamp As New ADODB.Recordset
Dim Ident as string
Dim Provider as string
Dim Connexion as string
Dim Connectdb as Boolean
'**** C'est à vous de choisir le type de base auquel vous voulez accèder.
'*** Connexion Sql Serveur.
Provider "SQLOLEDB.1"
Connexion "Persist Security Info=False;" & _
"User ID=admin; Password=admin;Initial Catalog=BASE-TEST;" & _
"Data Source=SERVEURSQL"
'*** connexion Fichier Base Access 95,97
'Provider "Microsoft.JET.OLEDB.3.51"
'Connexion "C:\Base\ma_db.mdb"
'*** connexion Fichier Base Access 2000,XP
'Provider = "Microsoft.JET.OLEDB.4.0"
'Connexion = "C:\Base\ma_db.mdb"
'*** connexion via un base déclaré dans ODBC
'Provider = "MSDASQL.1"
'Connexion = "Data Source=BASE-TEST"
'*** connexion à une base Oracle
'Provider = "MSDAORA"
'Connexion = "Data Source=BASE-TEST;User ID=admin;" & _
' "Password=admin"
'**** Connexion à la Base de données
ConnectBd = True
With CoLilas
.Provider = Provider
.ConnectionString = Connexion
.ConnectionTimeout = 6
.CommandTimeout = 60
.Open
EndWith
ConnectBd = False
'**** Lecture d'un enregistrement
ident "123"
Rec_Estamp.Open"select DADMAJ, HEUMAJ from TAB1 where CDVERS'1'" & _
" and CDPRG = '" & Ident & "';", CoLilas, adOpenForwardOnly, adLockReadOnly
If Rec_Estamp.EOFThen
ok = MsgBox("Erreur lors de la lecture de la date de mise à jour !", vbExclamation + vbSystemModal, "LilasExplor")
Else
msgbox Rec_Estamp!DADMAJ & Rec_Estamp!HEUMAJ
EndIf
Rec_Estamp.Close
'**** Mise à jour
Ident "153243"
Rec_Mod.Open"select DADMAJ, HEUMAJ from TAB2 where CDVERS'1'" & _
" and CDFOAP = '" & Mid(Ident, 1, 2) & _
"' and CDARL = '" & Mid(Ident, 3) & "';", CoLilas, adOpenDynamic, adLockPessimistic
If Rec_Mod.EOFThen
ok = MsgBox("Erreur lors de la mise à jour !" & vbCrLf & "Enregistrement non trouvé !", vbExclamation + vbSystemModal, "LilasExplor")
Else
Rec_Mod!DADMAJ = Format(Date, "YYYYMMDD")
Rec_Mod!HEUMAJ = Format(Time, "HHMMSS")
Rec_Mod.Update
EndIf
Rec_Mod.Close
ExitSub
gestion_erreur:
If ConnectBd True Then
'**** Gestion des erreurs de connexion à la base de données.
Err_debut True
ok = MsgBox("Erreur de connexion à la base de données.", vbExclamation + vbSystemModal, "LilasExplor")
'Call Info_Err("Module1", "Sub_Connection")
Else
'Call Info_Err("Module1", "Sub_Connection")
EndIf
EndSub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Steph

lolorenzeb · Answer

C'est bon je viens de trouver d'ou vient mon problème.

Il fallait ajouter cette ligne avant l'ouverture de mon recordset : 

rst.CursorLocation = ADODB.CursorLocationEnum.adUseClient

Cela annonce au serveur que le curseur est exécuté côté client et non coté serveur si j'ai bien compris. Du coup rst.recordcount me renvoi bien le bon nombre d'enregistrement mais je n'arrive pas a afficher mes données. Le msgbox me renvoi toujours une erreur.

screquer · Answer

Si SqlServer est si susceptible, essaie d'indiquer le maximum d'informations pour le champ à afficher ...
Msgbox  rst.fields.item("Field_Name").value

Stéph

Problème d'affichage de données SQL server

13 réponses

Votre réponse

Discussions similaires