Discussion :

[amerex]

Bonjour à TOUS!!
J'aimerais vous entretenir sur un petit truc que j'aimerais vraiment avoir votre avis, je ne trouve pas grand chose dans l'encyclopédie mondiale (Je parle de Gooooogle ici )

Vous devez surement connaître un peu le principe des connexions PHP / MySQL. Et vous connaissez surement aussi le principe de la connexion en DAO entre les formulaires indépendants Access et une table Access.

N'y aurait-il pas un moyen, lorsque nous cliquons sur un bouton de commande pour enregistrer des champs dans une table, de se connecter sur une table MySQL, envoyer les données et ensuite se déconnecter ?!

En "mode local" (formulaire jouant avec une table locale), je spécifie :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim db as DAO.Database
Set db = CurrentDb
...

Bref, j'aimerais bien avoir vos avis

[argyronet]

Bonjour,

Pour accéder à MySQL, il te faut un DSN qui pointe sur le bon serveur, le bon login et le password sur le port 3306...
Une fois cela fait, la connexion s'établie par l'ouverture d'un Workspace auquel tu passes la méthode OpenConnection.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private m_oMySQLConnection As DAO.Database
 
Public Property Get p_oMySQLConnection() As DAO.Database
    p_oMySQLConnection = m_oMySQLConnection
End Property
 
Public Property Let p_oMySQLConnection(ByVal MySQLConnection As DAO.Database)
    m_oMySQLConnection = MySQLConnection
End Property
 
Public Function ConnectMySQLDB(ByVal DSN As String, ByVal DBName As String, ByVal UserID As String, ByVal Pwd As String) As Boolean
Dim oWS As DAO.Workspace
    On Error GoTo ConnectMySQLDB_Error
 
    Set p_oMySQLConnection = oWS.OpenConnection("MyDSN", dbDriverNoPrompt, False, "ODBC;" & DSN & ";DATABASE=" & DBName & ";UID=" & UserID & ";PWD=" & Pwd)
    p_oMySQLConnection.QueryTimeout = 300
    ConnectMySQLDB = True
    On Error GoTo 0
ConnectMySQLDB_Exit:
    Exit Function
ConnectMySQLDB_Error:
    ConnectMySQLDB = False
    Resume ConnectMySQLDB_Exit
End Function
 
Public Function DisconnectMySQLDB() As Boolean
    On Error GoTo DisconnectMySQLDB_Error
 
    If Not p_oMySQLConnection Is Nothing Then
        p_oMySQLConnection.Close
    End If
    Set p_oMySQLConnection = Nothing
    DisconnectMySQLDB = True
    On Error GoTo 0
DisconnectMySQLDB_Exit:
    Exit Function
DisconnectMySQLDB_Error:
    DisconnectMySQLDB = False
    Resume DisconnectMySQLDB_Exit
End Function

Pour fermer la connexion, tu utilises la méthode Close et tu mets ton objet à Nothing.

Argy

[amerex]

Humm... je vais me garder ça!!
Merci beaucoup, je sens déjà le mal de tête