Résultats de 1 à 2 sur 2

Sujet : afficher dans une datagrid

  1. #1

    afficher dans une datagrid

    Bonjour
    Est ce que vous pouvez m’aider à propos d’un code visual basic 6,que j’ai pas pu afficher une datagrid avec et ca me donne le message d’erreur suivant :
    La methode open de l’objet recordset a échouée
    Merci et voici le code complet :



    Private Sub b_chercher_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim n As Integer
    n = Val(InputBox(\"donnez le numero d\'inventaire SVP!\", \"MAGASIN\&quot)

    If IsNumeric(n) Then
    cn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" _
    & \"Data Source=MAGASIN.mdb;\" _
    & \"Persist Security Info=False\"
    cn.Open
    rs.ActiveConnection = cn
    rs.Source = \" SELECT Decharge.NInvo, Professeur.Nom, Decharge.DateSortie, Decharge.DateEntree, Materiel.REF, Decharge.Observation, Section.Libile \" _
    & \" FROM [Section] INNER JOIN (Professeur INNER JOIN (Materiel INNER JOIN Decharge ON Materiel.NInvo = Decharge.NInvo) ON Professeur.CodeProf = Decharge.CodeProf) ON Section.CodeSec = Decharge.CodeSec\" _
    & \" WHERE Decharge.NInvo =\" + Str(n)
    rs.Open
    Set DataGrid1.DataSource = rs
    rs.Close
    cn.Close
    End If
    End Sub

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    2
    Private Sub b_chercher_Click()
    Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim n As Integer n = Val(InputBox(\"donnez le numero d\'inventaire SVP!\", \"MAGASIN\&quot) If IsNumeric(n) Then cn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" _ & \"Data Source=MAGASIN.mdb;\" _ & \"Persist Security Info=False\"
    cn.Open
    rs.open \" SELECT Decharge.NInvo, Professeur.Nom, Decharge.DateSortie, Decharge.DateEntree, Materiel.REF, Decharge.Observation, Section.Libile \" _ & \" FROM [Section] INNER JOIN (Professeur INNER JOIN (Materiel INNER JOIN Decharge ON Materiel.NInvo = Decharge.NInvo) ON Professeur.CodeProf = Decharge.CodeProf) ON Section.CodeSec = Decharge.CodeSec\" _ & \" WHERE Decharge.NInvo =\" + Str(n),cn,adopendynamic
    Set DataGrid1.DataSource = rs
    rs.Close
    cn.Close
    End If
    End Sub

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé