Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 21 avril 2007 - 19 h 07 m 59 s |
|
|
Reprise du message précédent :
Regarde dans tes processus pour voir si l'appli est pas resté en mémoire.
Sinon j'ai réfléchi sur ce que tu me dis pour la base de donnée.
Effectivemnt il y à un problème, c'est pas très bon ce que j'ai fait donc je vais ajouter une base "Facture_items" et dedans seront stocker les articles vendu appartenant a chaque facture.
|
|
| |
|
Petit_PimoOosE
rsqrtps & pshufb
Messages : 4 617 Inscrit le 15/06/03
Ville : Montréal
Non connecté
|
|
Posté le 21 avril 2007 - 19 h 14 m 42 s |
|
|
Le 21 avril 2007 - 19 h 07, Jielde a écrit :
Regarde dans tes processus pour voir si l'appli est pas resté en mémoire.
|
Non, on ne dirait pas :-s
Effectivemnt il y à un problème, c'est pas très bon ce que j'ai fait donc je vais ajouter une base "Facture_items" et dedans seront stocker les articles vendu appartenant a chaque facture.
|
C'est exactement à ça que je pensais
edit: mais par contre, ne refais pas la même erreur, à savoir mettre tous les articles d'une facture dans un même enregistrement.
|
|
| |
Message édité 1 fois, la dernière par Petit_PimoOosE le 21 avril 2007 - 19 h 58. |
| |
Huile de fraise.
|
Petit_PimoOosE
rsqrtps & pshufb
Messages : 4 617 Inscrit le 15/06/03
Ville : Montréal
Non connecté
|
|
Posté le 21 avril 2007 - 20 h 02 m 54 s |
|
|
Bon, je viens de redémarrer, et l'installateur plante au même endroit (à 4%)...
|
|
| |
Huile de fraise.
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 21 avril 2007 - 20 h 08 m 26 s |
|
|
tu ne sais pas sur quelle fichier ?
|
|
| |
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 21 avril 2007 - 21 h 19 m 22 s |
|
|
|
|
|
| |
|
Petit_PimoOosE
rsqrtps & pshufb
Messages : 4 617 Inscrit le 15/06/03
Ville : Montréal
Non connecté
|
|
Posté le 22 avril 2007 - 00 h 14 m 31 s |
|
|
Non... Est-ce qu'il y a une place où je devrais faire le ménage ?
D'après Process Monitor, le dernier fichier non trouvé est zlib.dll.
|
|
| |
Huile de fraise.
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 30 avril 2007 - 02 h 04 m 49 s |
|
|
La version que je t'ais passé marche Petit_PimoOosE ?
Je prépare un nouvelle version avec pleins de modifs & de nouveau contenu et surtout moins de bugs
|
|
| |
|
Petit_PimoOosE
rsqrtps & pshufb
Messages : 4 617 Inscrit le 15/06/03
Ville : Montréal
Non connecté
|
|
Posté le 01 mai 2007 - 03 h 02 m 22 s |
|
|
Non, cf les MP 
Je ne suis pas capable d'entrer des informations qui ne me font pas une erreur 13 (je n'ai pas poussé plus que la dernière fois).
edit: euh, woops, j'avais pas vu le MP. Je regarde ça...
re-edit: du nouveau en MP
|
|
| |
Message édité 2 fois, la dernière par Petit_PimoOosE le 01 mai 2007 - 03 h 48. |
| |
Huile de fraise.
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 07 mai 2007 - 09 h 30 m 42 s |
|
|
Bonjour, grâce à ce forum, j'ai trouvé la moitié de mon bonheur, peut-être pourriez vous me donner l'autre moitié ;P
J'ai voulu crée la dll SQLite3VB.dll avec la version la plus recente c'est a dire 3.3.17 (cf. www.sqlite.org/download.htm)
Grace à ces sites, j'ai pu crée le projet, injecter les fichiers, il n'y en a plus que 3, le fichier
sqlite3.c
sqlite3.h ici : http://www.sqlite.org/sqlite-source-3_3_17.zip
ainsi que
sqlite3.def ici : http://www.sqlite.org/sqlitedll-3_3_17.zip
(les multitudes de fichier a injecter ont été mis dans le .c et le.h)
Seulement voila, la compilation m'indique 3 erreurs !
J'ai passé pas mal de temps a refaire le projet (sous visual studio 2005) et toujours trois erreur ??
voici les lignes avec des erreurs :
Change:
const char *sqlite3_libversion(void){ return sqlite3_version; }
To:
BSTR __stdcall sqlite3_libversion(void){ return SysAllocStringByteLen( sqlite3_version,strlen( sqlite3_version) ); }
Change:
int sqlite3_libversion_number(void){ return SQLITE_VERSION_NUMBER; }
To:
BSTR __stdcall sqlite3_libversion_number(void){ return SQLITE_VERSION_NUMBER; }
le deux premiere erreur m'indique qu'il manque des { avant les deux ligne en gras ... ?
la troisieme erreur est sur SysAllocStringByteLen comme quoi le retour n'est pas du bon type ...
Si quelqu'un a essayé de crée la SQLite3VB.dll en version 3.3.17 merci de m'indiquer s'il a ou non les meme erreur que moi ou si je suis un boulet ^^
Merci de votre aide, j'espere que j'ai indiqué assez d'information.
|
|
| |
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 07 mai 2007 - 09 h 58 m 30 s |
|
|
Salut lathenor,
Désolé, je ne saurais te répondre je travail avec Visual Basic 6
Par contre si je comprend bien ta demande, tu veux juste créer la dll "SQLite3VB.dll" pour l'utilisé après avec VB ?
Si c'ets le cas, moi j'ai installer les drivers ODBC puis je suis trankillement aller chercher la DLL dans system 32
Si tu la veux fait moi signe.
|
|
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 07 mai 2007 - 10 h 06 m 13 s |
|
|
Merci de ta reponse rapide.
En faite je ne connais pas trop VB (un peu quand meme^^) mais LA, j'ai un programme en VB qui utilise Access et je voudrais faire migrer la BDD sous SQLite d'ou la nécéssité de cette dll.
Schematiquement, aujourd'hui j'ai
VB>> Access
et je voudrais
VB>>SQLite
Les drivers ODBC me permetrais de faire cela ?
si oui, ta solution m'interresse.
|
|
| |
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 07 mai 2007 - 10 h 08 m 47 s |
|
|
En faite oui.
Avant j'était sous Access, j'utilisais les drivers ODBC pour me connecté à la base de donnée et faire mon mic-mac.
J'ai juste installé les drivers pour SQLite3, j'ai rien changer dans mon code source a part le systeme de connection et c'ets tout.
Si tu veux de l'aide pour la prog envoi moi ton code source si c'est pas un projet personnel et je te ferais la modif.
|
|
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 07 mai 2007 - 10 h 38 m 45 s |
|
|
Merci, mais je prefere comprendre les modification faite sur mon programme, c'est gentil de votre part d'avoir proposé ^^
je pense qu'au niveau du code il faut changer par exemple :
Dim StrSQL As String
StrSQL = "SELECT [Segments], [PK Origine], [PK Fin], [Sens] FROM TabSegments WHERE [Segments] = '" & Seg1 & "'"
par quelque chose de ce genre :
Dim StrSQL As String
StrSQL = sqlite_get_table(SELECT [Segments], [PK Origine], [PK Fin], [Sens] FROM TabSegments WHERE [Segments] = '" & Seg1 & "'")
Ou puis je trouver les drivers SQLite3 et les driver ODBC qui vont bien avec mon probleme.
J'ai uinstaller SQLite3.3.8 uniquement (pour le moment)
|
|
| |
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 07 mai 2007 - 10 h 51 m 46 s |
|
|
En faite c'est juste le Provider qu'il faut changer, le reste normalement ne bouge pas si tu utilise les "ActiveX Data Objects" de Microsoft.
Par exemple :
cnnADO_User.Open "Driver=SQLite3 ODBC Driver;Database=" & App.Path & "\BDD.db"
au lieu de :
cnnADO_User.Open "Microsoft.Jet.OLEDB.4.0;Database=" & App.Path & "\BDD.db"
après le reste ne change pas.
Mais uniquement si tu utilise les ADO
|
|
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 07 mai 2007 - 13 h 37 m 22 s |
|
|
J'ai effectué quelque recherche, dans le programme que j'utilise et certain module utilise les ADO
mais plein d'autres accès ne les utilisent pas
je devrait peut etre passé un peu de temps pour que tous les accées se fasse avec les ADO et ensuite la conversion sera rapide. C'est peut etre la bonne solution.
Merci
|
|
| |
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 07 mai 2007 - 16 h 54 m 25 s |
|
|
moi je marche avec sa, c'est tres simple d'utilisation et evite d'avoir des pages de codes pour rien.
par contre faut pas oublier d'installer les drivers si tu veux redistribuer ton prog
|
|
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 07 mai 2007 - 17 h 00 m 18 s |
|
|
Merci ^^
Les drivers de sqlite3 ODBC je peux les trouver où ?
|
|
| |
|
Jielde
Messages : 58 Inscrit le 26/02/06
Ville : Lyon
Non connecté
|
|
Posté le 07 mai 2007 - 20 h 48 m 41 s |
|
|
|
|
|
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 09 mai 2007 - 09 h 28 m 29 s |
|
|
Merci je vais voir ce que je peux faire avec tous ca ^^
|
|
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 09 mai 2007 - 17 h 51 m 55 s |
|
|
J'ai essayer de faire un petit programme avec une connection comme ca :
cn_mdb.Open "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Basemdb
J'ai voulu changer comme cela :
cn_mdb.Open "Data ProviderSQLite3 ODBC Driver;Data Source=" & Basemdb
mais mon programme plante.
a cette ligne, je pense que j'ai pas du mettre les bonne definition au debut de mon programme ou peut etre que je dois rajouter la dll sqlite3odbc pour que cela fonctionne ?
Peut tu me dire ce qui ne ava pas et ce que je dois faire ?
merci.
|
|
| |
Message édité 1 fois, la dernière par lathenor le 09 mai 2007 - 18 h 05. |
| |
|
lathenor
avatar
Messages : 13 Inscrit le 07/05/07
Ville : ullis
Non connecté
|
|
Posté le 09 mai 2007 - 17 h 53 m 17 s |
|
|
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
|
|
| |
Message édité 2 fois, la dernière par lathenor le 09 mai 2007 - 18 h 25. |
| |
|