Reprise du message précédent :

Sub main()

Message = MsgBox(Basemdb, vbOK)

Set cn_mdb = New ADODB.Connection
cn_mdb.Provider = "MSDataShape"


cn_mdb.Open "Data Provider=SQLite3 ODBC Driver;Data Source=" & Basemdb

'cn_mdb.Open "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Basemdb

Editeur.MAJ_messages

End

End Sub

Public Sub MAJ_messages()
'*****************************************************************
'Cette procédure permet la mise à jour le la liste des messages,
'à partir de la base de données
'*****************************************************************
Dim SQL As String
Dim compteur As Integer

Set rs_messages = New ADODB.Recordset

SQL = "SELECT * FROM TabAuteurs"
rs_messages.Open SQL, cn_mdb, adOpenDynamic, adLockOptimistic, adCmdText



'Si une entrée existe
If rs_messages.EOF = True Then Exit Sub

rs_messages.MoveFirst
Do While rs_messages.EOF <> True

compteur = 1
If Not rs_messages.EOF Then
'Message = MsgBox("pas fin", vbOK)
compteur = compteur + 1
If compteur = 5 Then Exit Sub
Else
Message = MsgBox("fin", vbOK)
End If

Loop

rs_messages.Close

End Sub

Essaye plutot comme ceci :

Sub main()

Message = MsgBox(Basemdb, vbOK)

Set cn_mdb = New ADODB.Connection

cn_mdb.Open "Driver=SQLite3 ODBC Driver;Database=" & Basemdb

Editeur.MAJ_messages

End '<<< Ceci ferme l'application

End Sub

Merci ça fonctionne !


Maintenant il faut que je passe mes bases Access en Sqlite, avec SQLite Analyzer, j'arrive a copier lles noms des champs et leurs attributs mais pas les données ?

est ce que tu serais pourquoi ?

peut etre parceque c'est pas la version complete ?

(je devrais peut etre crée un nouveau topic ^^)

Le 10 mai 2007 - 11 h 18, lathenor a écrit : Merci ça fonctionne ! Maintenant il faut que je passe mes bases Access en Sqlite, avec SQLite Analyzer, j'arrive a copier lles noms des champs et leurs attributs mais pas les données ? est ce que tu serais pourquoi ? peut etre parceque c'est pas la version complete ? (je devrais peut etre crée un nouveau topic ^^)

Moi aussi j'utilisais ton programe pour gérée ma Base SQL, mais j'ai vite arreter et je suis passé à SQLite Maestro qui est beaucoup mieux.

Pour faire la migration de ma base Access sur SQL, je l'ais fais avec Microsoft Access et j'ai fait exporter, par contre j'ai créer un profil dans les Sources de données (ODBC) de mon ordi pour pointé vers ma base sql, et je sélectionnais dans access.

Voila, sinon tu te fait un prog qui récupère les infos de la base access et les copie dans la base sql, sa peut être marrant pour apprendre

++

Voila, sinon tu te fait un prog qui récupère les infos de la base access et les copie dans la base sql, sa peut être marrant pour apprendre ++

C'est ce que j'ai commencé a faire ^^

Par contre, j'aimerai bien récupérer "automatiquement" le nom des tables.

exemple, ma BDD s'appelle BDD.db
elle a 4 tables avec les nom
Table1, table2, table3 ...

Comment les récupérer ?

Un conseille,

Créer tes tables avec un programme et ensuie sous vb tu te connecte sur chaque table et tu fais la copie

Ca ca marche je recupere tout je converti tout ^^

Masi c'est vrai que le "best" serait de pointé directement sur un .mdb et ensuite de pointé sur un .db et que le logiciel tourne tout seul.
pour le moment tout fonctionne bien excepté le fait que je ne sais pas comment saisir le nom des bases de données ...

tu peux le faire, mais bon j'ai pas chercher étant donner que je cherche jamais compliqué

bon, bah je laisse tomber mon petit prog tourne bien, je le laisse comme ca ^^,
merci pour tout !

derien, sinon j'ai vu qu'avec "SQLite Maestro" on pouvais transféré une Base de donnée vers une autre totalement vide.

Dès que j'ai un peu de temps j'essayerai SQLite Maestro ^^

D'ailleur, est ce que SQLite Maestro est payant ?

Oui, il ets payant, mais très pratique