laurent207
Messages postés101Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention11 avril 2008
-
4 juin 2002 à 16:37
khoubaibma
Messages postés11Date d'inscriptionmercredi 7 novembre 2007StatutMembreDernière intervention17 janvier 2010
-
8 avril 2008 à 12:05
je dévoloppe un prog qui sauvegarde une table access ds un fichier texte. Dans un souci de perfectionnement, je souhaite inscrire dans le fichier le titre de la chanson et non pas sa référence qui est dans la table. J'ai mit un contrôle data pour chaque type de chanson (mp3, karaoke, midi). Ainsi qu'un contrôle data pour les commandes et j'affiche les commandes dans des textbox. Voilà, voici mon code :
Option Explicit
Private Sub Command_Click()
Dim i As Integer
Dim nom As String
Dim t() As String
Dim FileName As String
Dim num As Integer
FileName = "Sauvegarde des commandes du " & Format(Date, "dddd d mmm yyyy")
t = Split("numéro.nom.village.type.date.ref1.ref2.ref3.ref4.ref5.ref6.ref7.ref8.ref9.ref10", ".")
Open App.Path & "" + FileName + ".txt" For Append As #1
Do Until Data.Recordset.EOF
For i = 0 To 4
nom = t(i) & " : " & txtbd(i).Text
Print #1, "" + nom + ""
Next i
For i = 5 To 14
num = Val(txtbd(i).Text)
If (num <> 0) Then
If (txtbd(3).Text = "MP3") Then Datamp3.RecordSource "SELECT titre FROM mp3 WHERE ref '+ num +';"
Datamp3.Refresh
nom = t(i) & " : " & lblmp3.Caption
End If
If (txtbd(3).Text = "KARAOKE") Then Datakaraoke.RecordSource "SELECT titre FROM karaoke WHERE ref '+ num +';"
Datakaraoke.Refresh
nom = t(i) & " : " & lblkaraoke.Caption
End If
If (txtbd(3).Text = "PAROLE") Then Dataparole.RecordSource "SELECT titre FROM parole WHERE ref '+ num +';"
Dataparole.Refresh
nom = t(i) & " : " & lblparole.Caption
End If
If (txtbd(3).Text = "MIDI") Then Datamidi.RecordSource "SELECT titre FROM midi WHERE ref '+ num +';"
Datamidi.Refresh
nom = t(i) & " : " & lblmidi.Caption
End If
Print #1, "" + nom + ""
Else
nom = t(i) & " : " & txtbd(i).Text
Print #1, "" + nom + ""
End If
Next i
Print #1, ""
Data.Recordset.MoveNext
Loop
Close #1
MsgBox ("Un fichier (" & FileName & ".txt) a été créé à l'emplacement : " & App.Path)
End
End Sub
PS: Je débute en vb, c pour ça que mon code reléve du bricolage car je ne connait pas encore la POO (je suis qu'en première année). Si vous avez des question quant à mon explication, dite-le moi.
laurent207
Messages postés101Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention11 avril 2008 5 juin 2002 à 14:32
Merci. mais on place le code de cette requête où, a-t'on besoin de pls contrôle data ? De plus, les tables ne sont pas reliées entre elles sous access.
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 5 juin 2002 à 18:15
dans access pour creer une nouvelle requette :
1-->Selectionner requettes dans le menu droite objet
2-->nouveau-->mode création
3-->
--------> a) tu ajoutes les tables avec l'assistant
--------> b) tu fais FERMER, bouton de droite
dans la zone superieur--> mode SQL
et la, tu tapes ta requette comme indique avant.
Access plutôt que des jointures aura tendance à faire des WHERE ceci cela AND WHERE ceci cela... !!
Ensuite tu appels ta requette comme si c'etait une table.
@ bientot :)