Base de donnée Access
Arion
-
31 mai 2000 à 01:56
sigma13 Messages postés 1 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 8 octobre 2008 - 8 oct. 2008 à 14:45
sigma13 Messages postés 1 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 8 octobre 2008 - 8 oct. 2008 à 14:45
A voir également:
- Base de donnée Access
- Base de données javascript - Conseils pratiques -Javascript
- Base de données access - Conseils pratiques -Visual Basic / VB.NET
- Connexion base de données - Conseils pratiques -PHP
- Nomenclature base de données - Conseils pratiques -PHP
- Exemple base de donnée gestion de stock - Forum SQL
6 réponses
Voici comment moi je m'y prend:
Dim Db as Database
Dim Rs as RecordSet
Dim DBPath as String
Dim SQLQry as String
DBPath = "" 'Chemin et nom du fichier
SQLQry = "SELECT * FROM Table1;"
Set Db = DBEngine.OpenDatabase(DBPath, True, False)
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
If (Rs.RecordCount > 0) thenSQLQry "Champs1 'Donnée'" 'Recyclage de la variable...
Rs.FindFirst SQLQry
If (Rs.NoMatch) Then
MsgBox "Requête introuvable"
Else
MsgBox "Le résultat est : " & Rs.Fields("Champs1")
End If
End If
Dim Db as Database
Dim Rs as RecordSet
Dim DBPath as String
Dim SQLQry as String
DBPath = "" 'Chemin et nom du fichier
SQLQry = "SELECT * FROM Table1;"
Set Db = DBEngine.OpenDatabase(DBPath, True, False)
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
If (Rs.RecordCount > 0) thenSQLQry "Champs1 'Donnée'" 'Recyclage de la variable...
Rs.FindFirst SQLQry
If (Rs.NoMatch) Then
MsgBox "Requête introuvable"
Else
MsgBox "Le résultat est : " & Rs.Fields("Champs1")
End If
End If
-------------------------------
Réponse au message :
-------------------------------
Voici comment moi je m'y prend:
Dim Db as Database
Dim Rs as RecordSet
Dim DBPath as String
Dim SQLQry as String
DBPath = "" 'Chemin et nom du fichier
SQLQry = "SELECT * FROM Table1;"
Set Db = DBEngine.OpenDatabase(DBPath, True, False)
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
If (Rs.RecordCount > 0) thenSQLQry "Champs1 'Donnée'" 'Recyclage de la variable...
Rs.FindFirst SQLQry
If (Rs.NoMatch) Then
MsgBox "Requête introuvable"
Else
MsgBox "Le résultat est : " & Rs.Fields("Champs1")
End If
End If
-------------------------------
Réponse au message :
-------------------------------
Comment fait-on pour rechercher un enregistrement dans une base de donnée
Access a partir de VB, a partir de la commande recordset ?
-------------------------------
-------------------------------
Réponse au message :
-------------------------------
Voici comment moi je m'y prend:
Dim Db as Database
Dim Rs as RecordSet
Dim DBPath as String
Dim SQLQry as String
DBPath = "" 'Chemin et nom du fichier
SQLQry = "SELECT * FROM Table1;"
Set Db = DBEngine.OpenDatabase(DBPath, True, False)
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
If (Rs.RecordCount > 0) thenSQLQry "Champs1 'Donnée'" 'Recyclage de la variable...
Rs.FindFirst SQLQry
If (Rs.NoMatch) Then
MsgBox "Requête introuvable"
Else
MsgBox "Le résultat est : " & Rs.Fields("Champs1")
End If
End If
-------------------------------
Réponse au message :
-------------------------------
Comment fait-on pour rechercher un enregistrement dans une base de donnée
Access a partir de VB, a partir de la commande recordset ?
-------------------------------
-------------------------------
-------------------------------
Réponse au message :
-------------------------------
Voici comment moi je m'y prend:
Dim Db as Database
Dim Rs as RecordSet
Dim DBPath as String
Dim SQLQry as String
DBPath = "" 'Chemin et nom du fichier
SQLQry = "SELECT * FROM Table1;"
Set Db = DBEngine.OpenDatabase(DBPath, True, False)
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
If (Rs.RecordCount > 0) thenSQLQry "Champs1 'Donnée'" 'Recyclage de la variable...
Rs.FindFirst SQLQry
If (Rs.NoMatch) Then
MsgBox "Requête introuvable"
Else
MsgBox "Le résultat est : " & Rs.Fields("Champs1")
End If
End If
-------------------------------
Réponse au message :
-------------------------------
Comment fait-on pour rechercher un enregistrement dans une base de donnée
Access a partir de VB, a partir de la commande recordset ?
-------------------------------
-------------------------------
Réponse au message :
-------------------------------
Voici comment moi je m'y prend:
Dim Db as Database
Dim Rs as RecordSet
Dim DBPath as String
Dim SQLQry as String
DBPath = "" 'Chemin et nom du fichier
SQLQry = "SELECT * FROM Table1;"
Set Db = DBEngine.OpenDatabase(DBPath, True, False)
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
If (Rs.RecordCount > 0) thenSQLQry "Champs1 'Donnée'" 'Recyclage de la variable...
Rs.FindFirst SQLQry
If (Rs.NoMatch) Then
MsgBox "Requête introuvable"
Else
MsgBox "Le résultat est : " & Rs.Fields("Champs1")
End If
End If
-------------------------------
Réponse au message :
-------------------------------
Comment fait-on pour rechercher un enregistrement dans une base de donnée
Access a partir de VB, a partir de la commande recordset ?
-------------------------------
-------------------------------
J'aimerai utiliser un ProgressBar pour
le démarrage de mon application VB avec
un compteur automatique (en
pourcentages).
Merci d'avance
le démarrage de mon application VB avec
un compteur automatique (en
pourcentages).
Merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Pourquoi ais-je tout fait cela et que je reçois un message "type mismatch sur la ligne:
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
????
Merci de votre aide
Set Rs = Db.OpenRecordset(SQLQry, dbOpenSnapshot)
????
Merci de votre aide
sigma13
Messages postés
1
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
8 octobre 2008
8 oct. 2008 à 14:45
8 oct. 2008 à 14:45
tu n'a qu'a cpier le code source et l'executer !!
