ACCESS TO / VERS MYSQL ET INVERSEMENT

Commentaire de dragon le 17/01/2005 18:12:24

ah oui. Initié faut pas exagéré non plus

il aurait fallu bien plus que ça
genre convertir 100% une base ded onnée sans donner le nom des tables, du genre qu,il est capapble de les trouver tout seul

gestion des erreurs aurait été très apprécier pour un code initié

Commentaire de dragon le 18/01/2005 12:35:36

pas que ça empêche de dormir, mais c'est juste faut garder un certain niveau sur le site, puisque sinon il y en aura toujours qui vont abuser et mettre des sources expert, juste parce qu'il utilise un api.

Commentaire de PROGRAMMIX le 18/01/2005 20:03:13

C'est derniers temps, je suis à la recherche de sources qui font l'inverse : récupérer les données d'une base de données MySQL dans une BD access.

Aurais-tu cela en rayon ?

Commentaire de zoukozouko le 19/01/2005 21:51:13

Private Sub Commande0_Click()

Dim bd As Database
Dim pointeur As String
Dim strSQL As String
Dim monfichier As String
Dim FSys As Object

Set bd = CurrentDb

pointeur = FreeFile
monfichier = "C:\Documents and Settings\Yoni\Bureau\fichier.txt"
Open monfichier For Input As pointeur

Line Input #pointeur, strSQL

strSQL = FSys.readLine


Do While Not (EOF(pointeur))

bd.Execute (strSQL)
strSQL = FSys.readLine

Loop

Close pointeur
    
End Sub

voila, a mettre sur le code evenement d'un bouton sur un formulaire
En esperant que ca fonctionne chez toi aussi!!!!

Commentaire de zoukozouko le 09/03/2005 21:25:57

ta raison, cette source est super galere autiliser tele quelle puisque lle fichier doit etre formaté, et tout
moi jen ai u une grande utilité parce que jai du concevoir un logiciel a partir dune base de donné access
le truc interessant cest kon peut le moduler, mais l'interet cest juste qu'il contient les quelques focntions que j'ai mis une heure au moins a chercher sur les cours VB et Access.
Merci d'avoi au moin laissé un message

Commentaire de sediri le 30/03/2006 14:41:38

salut,
SVP tu peut m'envoyer ce code source en C++.
Merci

Commentaire de zoukozouko le 31/03/2006 15:17:00

tiens, en fait je me rends compte que j'avais deja fait un petit prog.
La démarche est pas idéale, mais ca marche. Donc si ca peut te dépanner le temps de trouver mieux....
a+
http://www.cppfrance.com/codes/TRANSPORTER-BASE-DONNEES-ACCESS-VERS-CODE-CREATION-SQL_28845.aspx

Commentaire de incoro le 02/08/2006 16:34:37

Il y a une erreur dans le code mysql vers access

Private Sub btnExportTXT_Click()
#  'Pour le transfert d'access vers mysql il faut gérer les valeurs nulles et les ' dans les textes
Dim bd As Database
Dim strSQL As String
Dim rec As Recordset
Dim ligne As String
Dim FSys As Object
Dim MonFic As Object
dim critere as string
dim fld as field
dim l%
Set bd = CurrentDb
strSQL = "SELECT * FROM maTable WHERE monChamp=" & critere
'remplir le recordset
Set rec = bd.OpenRecordset(strSQL, dbOpenForwardOnly)
'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject")
'Choisir l'adresse du fichier de resultat
Set MonFic = FSys.CreateTextFile("adresse du fichier : C:\fichier.txt")
'Pour écrire dans le fichier texte
With MonFic
'Tant que le recordset contient des lignes d'enregistrement...
While Not (rec.EOF)  
ligne = ""
ligne = "INSERT INTO maTableSQL VALUES ("

for each fld in rec.fields
if not isnull(fld) then
                  'Il faut ici gérer la virgule pour les nombres, l'apostrophe pour les textes      
                   'et les vrai/faux
ligne = ligne & "'" & fld.value & "', "
else
ligne = ligne & "NULL" & ", "
end if
next fld
ligne = trim(ligne)
'il faut supprimer la dernière virgule, fermer la parenthèse et placer un ;
l% = len(ligne)
ligne = left(ligne, l% - 1) & ");"
'On ecrit chaque ligne dans le fichier
.writeLine ligne
'on saute vers l'enregistrement suivant du recordset
rec.MoveNext
Wend
End With    
End Sub
#  
# voici le code pour: mysql vers access
#  
Private Sub btnImportmySQLTxt_Click()
Dim bd As Database
Dim pointeur As String
Dim strSQL As String
Dim monfichier As String
Set bd = CurrentDb  
pointeur = FreeFile
monfichier = "C:\Documents and Settings\Zoukozouko\Bureau\fichier.txt"
Open monfichier For Input As pointeur  
Line Input #pointeur, strSQL 'Lit la 1ère ligne avec des virgules d'où le signe #
#  'Place la ligne dans la variable strSQL
Do While Not (EOF(pointeur))
bd.Execute (strSQL)
Line Input #pointeur, strSQL 'C'est ici que se situe l'erreur lecture de la ligne suivante
Loop

Close pointeur    
End Sub