Quelqu'un ici s'est-il déjà vraiment servi de ce truc ? Je ne comprends
rien aux ouvertures/fermetures sur les deux niveaux commande et
recordset, je dois sans cesse recréer mes connexions et avec un
UpdateBatch, mes modifs se perdent dans la nature une fois sur deux,
sans même un message d'erreur !
Bref, après m'être bcp énervé, j'ai fini par renoncer et à gérer mes
connexions Bdd (en l'occurence du Access 2000) avec du bête script (quel
bonheur !), mais ça me laisse l'impression désagréable de passer à côté
de quelque chose. D'où mon appel à témoignages : qui a eu une expérience
du DE ? qu'en pensez-vous ? suis-je totalement idiot, très malchanceux
ou ce machin est-il juste abominablement mal foutu ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clive Lumb
Personellement je n'utilise plus que ça ! Je ne vois pas du tout d'où vient ton problème de recréer les connexions... Sauf s'il s'agit de changer la chaine SQL ??
Ce j'aime c'est sa simplicité d'utilisation, cf ces deux petits bout de code qui permettent de rentrer des coordonnées des tombes d'un cimetière que gère mon beauf et de mettre à jour la base de données des photos des tombes.
Desolé pour le FSO dans ce code, j'étais pressé. Le résultat finale peut être vu ici : http://mountzionhalifax.free.fr/Graveyard_full.htm
Private Sub Command1_Click() Dim myDE1 As DataEnvironment1 Dim PreviousGrave As String 'Dim myFile As Scripting.File Me.Command1.Enabled = False Me.Command2.Enabled = True Set myDE1 = New DataEnvironment1 Quit = False myDE1.RWCon PreviousGrave = "XXXX" With myDE1.rsRWCon .MoveFirst Do While Not .EOF If .Fields("HasPhoto") = "N" And IsNull(.Fields("cX")) And .Fields("Section") = "Middle" Then Me.GraveRef.Caption = .Fields("Grave") If PreviousGrave <> .Fields("Grave") Then Call GetCoords If Quit Then Exit Do .Fields("cX") = Me.ClickX.Caption .Fields("cY") = Me.ClickY.Caption .Update PreviousGrave = .Fields("Grave") End If .MoveNext Loop End With myDE1.rsRWCon.Close Set myDE1 = Nothing Me.Command1.Enabled = True Me.Command2.Enabled = False End Sub
Private Sub UpdateHasPhoto_Click() Dim myDE1 As DataEnvironment1 Dim myFSO As Object 'Dim myFolder As Scripting.Folder 'Dim myFile As Scripting.File Dim dbJpg As String Dim localJpg As String Dim localPath As String localPath = "C:Documents and SettingsCliveMes documentsMount Zion on FreeGravePhotos" Set myDE1 = New DataEnvironment1 Set myFSO = CreateObject("Scripting.FileSystemObject") myDE1.RWCon With myDE1.rsRWCon .MoveFirst While Not .EOF dbJpg = .Fields("Grave") & ".jpg" localJpg = localPath & dbJpg If myFSO.FileExists(localJpg) Then .Fields("HasPhoto") = "Y" Else .Fields("HasPhoto") = "N" End If .Update .MoveNext Wend End With myDE1.rsRWCon.Close Set myDE1 = Nothing Set myFSO = Nothing End Sub
"Antoun" a écrit dans le message de news:
Grrrrrr !
Quelqu'un ici s'est-il déjà vraiment servi de ce truc ? Je ne comprends rien aux ouvertures/fermetures sur les deux niveaux commande et recordset, je dois sans cesse recréer mes connexions et avec un UpdateBatch, mes modifs se perdent dans la nature une fois sur deux, sans même un message d'erreur !
Bref, après m'être bcp énervé, j'ai fini par renoncer et à gérer mes connexions Bdd (en l'occurence du Access 2000) avec du bête script (quel bonheur !), mais ça me laisse l'impression désagréable de passer à côté de quelque chose. D'où mon appel à témoignages : qui a eu une expérience du DE ? qu'en pensez-vous ? suis-je totalement idiot, très malchanceux ou ce machin est-il juste abominablement mal foutu ?
Merci !
Antoun
Personellement je n'utilise plus que ça !
Je ne vois pas du tout d'où vient ton problème de recréer les connexions...
Sauf s'il s'agit de changer la chaine SQL ??
Ce j'aime c'est sa simplicité d'utilisation, cf ces deux petits bout de code
qui permettent de rentrer des coordonnées des tombes d'un cimetière que gère
mon beauf et de mettre à jour la base de données des photos des tombes.
Desolé pour le FSO dans ce code, j'étais pressé.
Le résultat finale peut être vu ici :
http://mountzionhalifax.free.fr/Graveyard_full.htm
Private Sub Command1_Click()
Dim myDE1 As DataEnvironment1
Dim PreviousGrave As String
'Dim myFile As Scripting.File
Me.Command1.Enabled = False
Me.Command2.Enabled = True
Set myDE1 = New DataEnvironment1
Quit = False
myDE1.RWCon
PreviousGrave = "XXXX"
With myDE1.rsRWCon
.MoveFirst
Do While Not .EOF
If .Fields("HasPhoto") = "N" And IsNull(.Fields("cX")) And
.Fields("Section") = "Middle" Then
Me.GraveRef.Caption = .Fields("Grave")
If PreviousGrave <> .Fields("Grave") Then Call GetCoords
If Quit Then Exit Do
.Fields("cX") = Me.ClickX.Caption
.Fields("cY") = Me.ClickY.Caption
.Update
PreviousGrave = .Fields("Grave")
End If
.MoveNext
Loop
End With
myDE1.rsRWCon.Close
Set myDE1 = Nothing
Me.Command1.Enabled = True
Me.Command2.Enabled = False
End Sub
Private Sub UpdateHasPhoto_Click()
Dim myDE1 As DataEnvironment1
Dim myFSO As Object
'Dim myFolder As Scripting.Folder
'Dim myFile As Scripting.File
Dim dbJpg As String
Dim localJpg As String
Dim localPath As String
localPath = "C:Documents and SettingsCliveMes documentsMount Zion on
FreeGravePhotos"
Set myDE1 = New DataEnvironment1
Set myFSO = CreateObject("Scripting.FileSystemObject")
myDE1.RWCon
With myDE1.rsRWCon
.MoveFirst
While Not .EOF
dbJpg = .Fields("Grave") & ".jpg"
localJpg = localPath & dbJpg
If myFSO.FileExists(localJpg) Then
.Fields("HasPhoto") = "Y"
Else
.Fields("HasPhoto") = "N"
End If
.Update
.MoveNext
Wend
End With
myDE1.rsRWCon.Close
Set myDE1 = Nothing
Set myFSO = Nothing
End Sub
"Antoun" <antoun@free.fr> a écrit dans le message de
news:3FB93F24.4010903@free.fr...
Grrrrrr !
Quelqu'un ici s'est-il déjà vraiment servi de ce truc ? Je ne comprends
rien aux ouvertures/fermetures sur les deux niveaux commande et
recordset, je dois sans cesse recréer mes connexions et avec un
UpdateBatch, mes modifs se perdent dans la nature une fois sur deux,
sans même un message d'erreur !
Bref, après m'être bcp énervé, j'ai fini par renoncer et à gérer mes
connexions Bdd (en l'occurence du Access 2000) avec du bête script (quel
bonheur !), mais ça me laisse l'impression désagréable de passer à côté
de quelque chose. D'où mon appel à témoignages : qui a eu une expérience
du DE ? qu'en pensez-vous ? suis-je totalement idiot, très malchanceux
ou ce machin est-il juste abominablement mal foutu ?
Personellement je n'utilise plus que ça ! Je ne vois pas du tout d'où vient ton problème de recréer les connexions... Sauf s'il s'agit de changer la chaine SQL ??
Ce j'aime c'est sa simplicité d'utilisation, cf ces deux petits bout de code qui permettent de rentrer des coordonnées des tombes d'un cimetière que gère mon beauf et de mettre à jour la base de données des photos des tombes.
Desolé pour le FSO dans ce code, j'étais pressé. Le résultat finale peut être vu ici : http://mountzionhalifax.free.fr/Graveyard_full.htm
Private Sub Command1_Click() Dim myDE1 As DataEnvironment1 Dim PreviousGrave As String 'Dim myFile As Scripting.File Me.Command1.Enabled = False Me.Command2.Enabled = True Set myDE1 = New DataEnvironment1 Quit = False myDE1.RWCon PreviousGrave = "XXXX" With myDE1.rsRWCon .MoveFirst Do While Not .EOF If .Fields("HasPhoto") = "N" And IsNull(.Fields("cX")) And .Fields("Section") = "Middle" Then Me.GraveRef.Caption = .Fields("Grave") If PreviousGrave <> .Fields("Grave") Then Call GetCoords If Quit Then Exit Do .Fields("cX") = Me.ClickX.Caption .Fields("cY") = Me.ClickY.Caption .Update PreviousGrave = .Fields("Grave") End If .MoveNext Loop End With myDE1.rsRWCon.Close Set myDE1 = Nothing Me.Command1.Enabled = True Me.Command2.Enabled = False End Sub
Private Sub UpdateHasPhoto_Click() Dim myDE1 As DataEnvironment1 Dim myFSO As Object 'Dim myFolder As Scripting.Folder 'Dim myFile As Scripting.File Dim dbJpg As String Dim localJpg As String Dim localPath As String localPath = "C:Documents and SettingsCliveMes documentsMount Zion on FreeGravePhotos" Set myDE1 = New DataEnvironment1 Set myFSO = CreateObject("Scripting.FileSystemObject") myDE1.RWCon With myDE1.rsRWCon .MoveFirst While Not .EOF dbJpg = .Fields("Grave") & ".jpg" localJpg = localPath & dbJpg If myFSO.FileExists(localJpg) Then .Fields("HasPhoto") = "Y" Else .Fields("HasPhoto") = "N" End If .Update .MoveNext Wend End With myDE1.rsRWCon.Close Set myDE1 = Nothing Set myFSO = Nothing End Sub
"Antoun" a écrit dans le message de news:
Grrrrrr !
Quelqu'un ici s'est-il déjà vraiment servi de ce truc ? Je ne comprends rien aux ouvertures/fermetures sur les deux niveaux commande et recordset, je dois sans cesse recréer mes connexions et avec un UpdateBatch, mes modifs se perdent dans la nature une fois sur deux, sans même un message d'erreur !
Bref, après m'être bcp énervé, j'ai fini par renoncer et à gérer mes connexions Bdd (en l'occurence du Access 2000) avec du bête script (quel bonheur !), mais ça me laisse l'impression désagréable de passer à côté de quelque chose. D'où mon appel à témoignages : qui a eu une expérience du DE ? qu'en pensez-vous ? suis-je totalement idiot, très malchanceux ou ce machin est-il juste abominablement mal foutu ?
Merci !
Antoun
Zoury
Bonne nuit! :O)
Et moi contrement a Clive, je ne l'ai jamais utilise, et je me suis toujours tres bien debrouiller sans. :O)
Ceci dit, le DE est assez simple d'utilisation, AHMA, tes problemes ne sont peut-etre du qu'a une quelconque incomprehension de son fonctionnement... l'exemple de Clive t'a aider? (sans le FSO bien entendu... ;O)
Et moi contrement a Clive, je ne l'ai jamais utilise, et je me suis toujours
tres bien debrouiller sans. :O)
Ceci dit, le DE est assez simple d'utilisation, AHMA, tes problemes ne sont
peut-etre du qu'a une quelconque incomprehension de son fonctionnement...
l'exemple de Clive t'a aider? (sans le FSO bien entendu... ;O)
Et moi contrement a Clive, je ne l'ai jamais utilise, et je me suis toujours tres bien debrouiller sans. :O)
Ceci dit, le DE est assez simple d'utilisation, AHMA, tes problemes ne sont peut-etre du qu'a une quelconque incomprehension de son fonctionnement... l'exemple de Clive t'a aider? (sans le FSO bien entendu... ;O)
