Dag Allemaal,
De foto maakt de vraag duidelijk.
Kan de systeemdatum automatisch in kolom4 gezet worden ALS in kolom1 de
waarde "Ja" staat ? Indien de waarde "Neen" moet er dus niets gebeuren.
De waarden in de DataGrid worden uit een tekstbestand (csv) file gehaald die
dus dienst doet als DataBase.
groeten, Jan
Form code :
Public Class Form23
Private Sub Form23_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Ingevulde gegevens van Data-rooster wegschrijven naar Tekstbestand. (csv-Database)
Dim TextLine As String = ""
Dim SplitLine() As String
'Kontroleren of het opgegeven bestand wel bestaat
If System.IO.File.Exists("D:\VB-Testmap\Form23.csv") = True Then
'De inhoud van de datagrid lezen
Dim objReader As New System.IO.StreamReader("D:\VB-Testmap\Form23.csv")
Do While objReader.Peek() <> -1
TextLine = objReader.ReadLine()
SplitLine = Split(TextLine, ";")
Me.DataGridView1.Rows.Add(SplitLine)
Loop
Else
MsgBox("DataBase-Bestand bestaat niet")
End If
End Sub
'De inhoud van de Datagrid bewaren in het geheugen
Private Sub SaveGridDataInFile()
Dim I As Integer = 0
Dim j As Integer = 0
Dim cellvalue$
Dim rowLine As String = ""
Try
'Eerst "oud" bestand verwijderen !
IO.File.Delete("D:\VB-Testmap\Form23.csv")
'Gegevens wegschrijven naar DataBase :
Dim objWriter As New System.IO.StreamWriter("D:\VB-Testmap\Form23.csv", True)
For j = 0 To (DataGridView1.Rows.Count - 2)
For I = 0 To (DataGridView1.Columns.Count - 1)
If Not TypeOf DataGridView1.CurrentRow.Cells.Item(I).Value Is DBNull Then
cellvalue = DataGridView1.Item(I, j).Value
Else
cellvalue = ""
End If
rowLine = rowLine + cellvalue + ";"
Next
objWriter.WriteLine(rowLine)
rowLine = ""
Next
objWriter.Close()
MsgBox("Gegevens bewaard")
Catch e As Exception
MessageBox.Show("Er is een fout opgetreden tijdens het schrijven naar het bestand" + e.ToString())
Finally
FileClose(1)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Gegevens wegschrijven naar DataBasebestand :
SaveGridDataInFile()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'Scherm sluiten en terugkeren naar het Keuzemenuscherm
Form2.Show()
Me.Close()
End Sub
End Class
De foto maakt de vraag duidelijk.
Kan de systeemdatum automatisch in kolom4 gezet worden ALS in kolom1 de
waarde "Ja" staat ? Indien de waarde "Neen" moet er dus niets gebeuren.
De waarden in de DataGrid worden uit een tekstbestand (csv) file gehaald die
dus dienst doet als DataBase.
groeten, Jan
Form code :
Public Class Form23
Private Sub Form23_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Ingevulde gegevens van Data-rooster wegschrijven naar Tekstbestand. (csv-Database)
Dim TextLine As String = ""
Dim SplitLine() As String
'Kontroleren of het opgegeven bestand wel bestaat
If System.IO.File.Exists("D:\VB-Testmap\Form23.csv") = True Then
'De inhoud van de datagrid lezen
Dim objReader As New System.IO.StreamReader("D:\VB-Testmap\Form23.csv")
Do While objReader.Peek() <> -1
TextLine = objReader.ReadLine()
SplitLine = Split(TextLine, ";")
Me.DataGridView1.Rows.Add(SplitLine)
Loop
Else
MsgBox("DataBase-Bestand bestaat niet")
End If
End Sub
'De inhoud van de Datagrid bewaren in het geheugen
Private Sub SaveGridDataInFile()
Dim I As Integer = 0
Dim j As Integer = 0
Dim cellvalue$
Dim rowLine As String = ""
Try
'Eerst "oud" bestand verwijderen !
IO.File.Delete("D:\VB-Testmap\Form23.csv")
'Gegevens wegschrijven naar DataBase :
Dim objWriter As New System.IO.StreamWriter("D:\VB-Testmap\Form23.csv", True)
For j = 0 To (DataGridView1.Rows.Count - 2)
For I = 0 To (DataGridView1.Columns.Count - 1)
If Not TypeOf DataGridView1.CurrentRow.Cells.Item(I).Value Is DBNull Then
cellvalue = DataGridView1.Item(I, j).Value
Else
cellvalue = ""
End If
rowLine = rowLine + cellvalue + ";"
Next
objWriter.WriteLine(rowLine)
rowLine = ""
Next
objWriter.Close()
MsgBox("Gegevens bewaard")
Catch e As Exception
MessageBox.Show("Er is een fout opgetreden tijdens het schrijven naar het bestand" + e.ToString())
Finally
FileClose(1)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Gegevens wegschrijven naar DataBasebestand :
SaveGridDataInFile()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'Scherm sluiten en terugkeren naar het Keuzemenuscherm
Form2.Show()
Me.Close()
End Sub
End Class