Accueil
ContactUrgent !!
Page 1 sur 4 • Partagez
Page 1 sur 4 • 1, 2, 3, 4 
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 ?!!
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 ?!!
HOUCINE-
- Nombre de messages : 11
Date d'inscription : 07/07/2011
Re: Urgent !!
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
Mr.Hicham-
- Nombre de messages : 464
Date d'inscription : 25/05/2010
Re: Urgent !!
par HOUCINE Ven Juil 08, 2011 10:33 am
merci bien bien 
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
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
HOUCINE-
- Nombre de messages : 11
Date d'inscription : 07/07/2011
Re: Urgent !!
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 ::
Trigger pour enregistrer les numéro téléphone sous forme :
028 55 66 99 77 !!!!!!
et merci d'avance ::
HOUCINE-
- Nombre de messages : 11
Date d'inscription : 07/07/2011
Re: Urgent !!
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 ?!
mais f l'enregistrement khess darori t selectionnée d'abord le fichier text normalement khess t créa automatiquement olla la ?!
HOUCINE-
- Nombre de messages : 11
Date d'inscription : 07/07/2011
Page 1 sur 4 • 1, 2, 3, 4
Page 1 sur 4
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|
» Examen de fin de formation Théorique 2018 TDM
» Examen de Passage Chef Chantier TP 2010 Pratique
» Examen de fin de formation Chef de Chantier T.P 2012 Théorique
» Examen de fin de formation TSGO 2016 Pratique Variante 1
» Examen de fin de formation Chef de Chantier T.P 2008 Théorique
» Examen de Passage Chef de Chantier T.P 2008 Théorique et Pratique
» Examen de Fin de Formation Gestion des Entreprises TSGE 2015
» Examen de Passage 2015 Gestion des Entreprises TSGE
» Examen de Passage Gestion des Entreprises TSGE 2017