Bonjour

Je suis en train de migrer mes données de Access vers MySQL.

J'ai déjà fait des Tests de manipulation de données avec une connection ADO avec le code ci-dessous. Pas de problème!

Ma question est de savoir comment afficher les données de cette table sur un formulaire, sachant que le formulaire actuelle utilise une table liée à MySQL, mais je ne veux plus utiliser de tables liées

Merci

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
Dim cnn As ADODB.Connection
Dim StrCnn As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
 
StrCnn = "DRIVER={MySQL ODBC 5.1 Driver}; " _
                        & " SERVER=fc-mysql-ory1-101.ory1;" _
                        & " DATABASE=EngToolSQL_dbo;" _
                        & " UID=EngUser;" _
                        & " PWD=EngTool;OPTION=3;"
cnn.Open StrCnn
 
 
rs.Open "TWork", StrCnn, adOpenKeyset, adLockOptimistic, adCmdTable
 
With rs
        .AddNew
        !WorkDescription = "TEST223333"
        !WorkEqID = 99
        !WorkCreationDate = Format$(Now, "dd/mm/yy hh:mm:ss")
        .Update
End With
 
' Close the connection.
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing