A voir également:
- Comment ce connecter de VB vers acces
- Se connecter à gmail sur téléphone - Guide
- Comment connecter chromecast à la télé - Guide
- Acces rapide - Guide
- Vb - Télécharger - Langages
- Se connecter à ma boite hotmail - Guide
4 réponses
tu fais une recherche sur les forums de CCM et tu mets
"Interf. Visual basic 6.0->base Access 2000"
(tu oublies pas les double quotes)
tu obtiendras un message de chicco avec la meme question et les reponses
"Interf. Visual basic 6.0->base Access 2000"
(tu oublies pas les double quotes)
tu obtiendras un message de chicco avec la meme question et les reponses
Public Function fnAccesDB()
'Définition d’un saut en cas d’erreur de la fonction
On Error GoTo Err_Handler
'Définition de la variable qui contiendra l’accès à la base courante
Dim bd As adodb.Connection
'Ici on lie la base courante à la variable définie ci-dessus
Set bd = CurrentProject.Connection
Exit_Fn:
'On libère la variable
Set bd = Nothing
Exit Function
Err_Handler:
chaine = "Description de l'erreur : " & Err.Description & vbCrLf & _
"Numéro d'erreur : " & CStr(Err.Number) & vbNewLine
ecrireRapport (chaine)
Resume Exit_Fn
End Function
'Définition d’un saut en cas d’erreur de la fonction
On Error GoTo Err_Handler
'Définition de la variable qui contiendra l’accès à la base courante
Dim bd As adodb.Connection
'Ici on lie la base courante à la variable définie ci-dessus
Set bd = CurrentProject.Connection
Exit_Fn:
'On libère la variable
Set bd = Nothing
Exit Function
Err_Handler:
chaine = "Description de l'erreur : " & Err.Description & vbCrLf & _
"Numéro d'erreur : " & CStr(Err.Number) & vbNewLine
ecrireRapport (chaine)
Resume Exit_Fn
End Function