rs_Count_client.Open "Select count (num_client) As nbclient From client", cn_client, adOpenDynamic, adLockOptimistic
Public Sub CmdPremier_Click() ' pour ce positioner sur le premier client de la base MySQL ' verification si la table n'est pas vide rs_client.CursorType = adOpenDynamic rs_client.Open "Select * From client", cn_client if rs_client.recordcount>0 then 'récuperation des informations de la base txtNumClient = rs_client("num_client") txtNomClient = rs_client("societe") txtContactClient = rs_client("contact") txtAdresseClient = rs_client("adresse") txtCpClient = rs_client("cp") txtVilleClient = rs_client("ville") TxtTelClient = rs_client("num_tel") txtFaxClient = rs_client("num_fax") Else MsgBox "il n'existe aucun client dans la base" End If rs_client.Close End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question