Résultats de 1 à 2 sur 2

Sujet : afficher le dernier enregistrement

  1. #1
    Visiteur MP
    Visiteur MP

    afficher le dernier enregistrement

    Bonjour
    J’aimerais savoir la source de l’erreur lorsque j’essaie d’afficher le dernier enregistrement par le biais d’un bouton dernier,et ceci à l’aide d’un code en VB6 ,et ça génère l’erreur suivante :
    « Utilisation incorrecte de Null (erreur 94) »

    Voici mon code :

    Private Sub b_dernier_Click()
    rs.MoveLast
    extraire
    actualiser_grille
    End Sub


    Public Sub extraire()
    If rs.EOF Then
    rs.MoveFirst
    Else
    If rs.BOF Then
    rs.MoveLast

    End If
    End If
    Text_med = rs.Fields(\"medicament\&quot
    Text_prix = rs.Fields(\"prix\&quot
    Text_qte = rs.Fields(\"qte stock\&quot
    Text_type = rs.Fields(\"type\&quot

    End Sub


    Public Sub actualiser_grille()
    Dim ss As String
    sql1 = \"select * from Table1 where medicament=\'\" + Text_med + \"\'\"
    Call ouvrir_rs(rsflx, sql1)
    MSFlexGrid1.Clear
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = 5
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Text = \"N°\"
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Text = \"medicament\"
    MSFlexGrid1.Col = 2
    MSFlexGrid1.Text = \"type\"
    MSFlexGrid1.Col = 3
    MSFlexGrid1.Text = \"prix\"
    MSFlexGrid1.Col = 4
    MSFlexGrid1.Text = \"qte stock\"
    While Not rsflx.EOF
    MSFlexGrid1.AddItem \"\"
    MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Text = rsflx.Fields(0)
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Text = rsflx.Fields(1)
    MSFlexGrid1.Col = 2
    MSFlexGrid1.Text = rsflx.Fields(2)
    MSFlexGrid1.Col = 3
    MSFlexGrid1.Text = rsflx.Fields(3)
    MSFlexGrid1.Col = 4
    MSFlexGrid1.Text = rsflx.Fields(4)
    rsflx.MoveNext
    Wend
    rsflx.Close
    End Sub

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    2
    Public Sub extraire()
    If rs.EOF=true Then
    rs.MoveFirst
    Else
    If rs.BOF =true Then
    rs.MoveLast

    End If
    End If
    Text_med = rs.Fields(\"medicament\&quot
    Text_prix = rs.Fields(\"prix\&quot
    Text_qte = rs.Fields(\"qte stock\&quot
    Text_type = rs.Fields(\"type\&quot

    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é
Please disable Adblock!