Base access + VB6
Signaler
webnoc
cs_ghuysmans99
- Messages postés
- 5
- Date d'inscription
- dimanche 27 novembre 2005
- Statut
- Membre
- Dernière intervention
- 26 mai 2008
cs_ghuysmans99
- Messages postés
- 3983
- Date d'inscription
- jeudi 14 juillet 2005
- Statut
- Membre
- Dernière intervention
- 30 juin 2013
A voir également:
- Base access + VB6
- Modifier les propriètés d'une base access avec vb6 - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Gestion de personnes en vb6 dans une base access. - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Erreur Recordset selection de données VB6 base Access ✓ - Forum - Visual Basic 6
- Pourquoi choisir de developper sous vb6 pour acceder à une base access ? ✓ - Forum - Visual Basic 6
- Comment relier directement des textbox avec une base Access en vb6 ✓ - Forum - Visual Basic
2 réponses
cs_ghuysmans99
- Messages postés
- 3983
- Date d'inscription
- jeudi 14 juillet 2005
- Statut
- Membre
- Dernière intervention
- 30 juin 2013
Si c'est ADO,
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "SELECT Count(UniqueID) As Ctx FROM YourTable;"
Set rs = Cnx.Execute(SQL)
If rs.EOF Then
MsgBox "Table vide", vbInformation
Else
MsgBox "Table non vide (plus d'une entrée)", vbInformation
End If
rs.Close
Set rs = Nothing , ----
[code.aspx?ID=41455 Colorisation syntaxique par Renfield]
_______________________________________________________________________
VB.NETis good ...VB6is better
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "SELECT Count(UniqueID) As Ctx FROM YourTable;"
Set rs = Cnx.Execute(SQL)
If rs.EOF Then
MsgBox "Table vide", vbInformation
Else
MsgBox "Table non vide (plus d'une entrée)", vbInformation
End If
rs.Close
Set rs = Nothing , ----
[code.aspx?ID=41455 Colorisation syntaxique par Renfield]
_______________________________________________________________________
VB.NETis good ...VB6is better
cs_ghuysmans99
- Messages postés
- 3983
- Date d'inscription
- jeudi 14 juillet 2005
- Statut
- Membre
- Dernière intervention
- 30 juin 2013
Oups j'ai oublié de dire qu'il faut remplacer UniqueID par l'identifiant unique de ta table et YourTable par le nom de ta table
_______________________________________________________________________
VB.NETis good ...VB6is better
_______________________________________________________________________
VB.NETis good ...VB6is better