Urgent !!

par HOUCINE Jeu Juil 07, 2011 7:17 pm

Sallam,
j'ai besoin de Code VB pour enregistrer les données d'une base de
donnée Sql vers un fichier.text merci d'avance ?!!

par Mr.Hicham Jeu Juil 07, 2011 9:15 pm

voila hahia la syntaxe kayna f Variante 4 2010

Code:: Try da = New SqlDataAdapter("select * from Benevole", con) da.Fill(ds, "Benevole") tbenevole = ds.Tables("Benevole") Dim s As New SaveFileDialog s.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments s.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers (*.*)|*.*" If (s.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then Dim chemin As String = s.FileName Dim sw As New StreamWriter(chemin) Dim lin As DataRow For i As Integer = 0 To tbenevole.Rows.Count - 1 lin = tbenevole.Rows(i) sw.WriteLine("Code : " & lin(0)) sw.WriteLine("Nom : " & lin(1)) sw.WriteLine("Prénom : " & lin(2)) sw.WriteLine("Adresse : " & lin(3)) sw.WriteLine("Tél : " & lin(4)) sw.WriteLine("Email : " & lin(5)) sw.WriteLine("Login : " & lin(6)) sw.WriteLine("Password : " & lin(7)) Next sw.Close() End If MsgBox("Enregistrement Bien effectuer") Catch ex As Exception MsgBox(ex.Message) End Try

par HOUCINE Ven Juil 08, 2011 10:33 am

merci bien bien Very Happy

j'ai trouvé aussi un autre solution voilà :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
maconnexion.Open()
madapteremployé.Fill(madataset, "employé")
matable = madataset.Tables("employé")

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System..EventArgs) Handles Button1.Click
Try
For k = 0 To matable.Rows.Count - 1
If Not File.Exists("c:/ana.txt") Then
Dim sw As StreamWriter = File.CreateText("c:/ana.txt")
sw.WriteLine(matable.Rows(k).Item(0).ToString & " / " & matable.Rows(k).Item(1).ToString & " / " & matable.Rows(k).Item(3).ToString)
sw.Close()
' MsgBox("ajout succé ", MsgBoxStyle.Information)
Else

Dim rw As StreamWriter = File.AppendText("c:/ana.txt")
rw.WriteLine(matable.Rows(k).Item(0).ToString & " / " & matable.Rows(k).Item(1).ToString & " / " & matable.Rows(k).Item(3).ToString)
rw.Close()
' MsgBox("ajout succé ", MsgBoxStyle.Information)
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

par HOUCINE Ven Juil 08, 2011 10:46 am

pliiiiiiz un autre question :
Trigger pour enregistrer les numéro téléphone sous forme :
028 55 66 99 77 !!!!!!
et merci d'avance ::

par HOUCINE Ven Juil 08, 2011 10:56 am

dsssssssssssl !!!!!
mais f l'enregistrement khess darori t selectionnée d'abord le fichier text normalement khess t créa automatiquement olla la ?!

par Contenu sponsorisé

Urgent !!

Urgent !!

Re: Urgent !!

Re: Urgent !!

Re: Urgent !!

Re: Urgent !!

Re: Urgent !!