You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
73 lines
2.6 KiB
73 lines
2.6 KiB
Imports MyNameSpace.CSVDataAdapter
|
|
Imports System.IO
|
|
Public Class form1
|
|
|
|
Dim dsdaten As New DataSet
|
|
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub DokumentlisteLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentlisteLadenToolStripMenuItem.Click
|
|
dsdaten.Tables.Clear()
|
|
Me.OpenFileDialog1.Filter = "CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
|
|
Me.OpenFileDialog1.FileName = ""
|
|
Me.OpenFileDialog1.ShowDialog()
|
|
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
|
|
|
FillDataTableFromText(Me.OpenFileDialog1.FileName)
|
|
Try
|
|
Me.c1daten.DataSource = Nothing
|
|
Me.c1daten.DataSource = dsdaten.Tables(0)
|
|
Me.c1daten.DataMember = dsdaten.Tables(0).TableName
|
|
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function FillDataTableFromText(ByVal file As String) As DataTable
|
|
Select Case UCase(Microsoft.VisualBasic.Right(file, 3))
|
|
Case "CSV"
|
|
Dim csv As New MyNameSpace.CSVDataAdapter(file, True, ";")
|
|
csv.Fill(Me.dsdaten)
|
|
End Select
|
|
'Rel. Office Migration
|
|
|
|
Dim dv As DataRow
|
|
|
|
End Function
|
|
|
|
Private Sub NotizLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NotizLadenToolStripMenuItem.Click
|
|
Me.OpenFileDialog1.Filter = "Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
|
|
Me.OpenFileDialog1.FileName = ""
|
|
Me.OpenFileDialog1.ShowDialog()
|
|
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
|
Dim read As IO.StreamReader
|
|
read = IO.File.OpenText(Me.OpenFileDialog1.FileName)
|
|
TextBox1.Text = read.ReadToEnd()
|
|
read.Close()
|
|
End Sub
|
|
|
|
Private Sub UpdateDurchführenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateDurchführenToolStripMenuItem.Click
|
|
Dim f As New frmProgress
|
|
f.Show()
|
|
f.ProgressBar1.Minimum = 1
|
|
f.ProgressBar1.Maximum = Me.dsdaten.Tables(0).Rows.Count
|
|
Dim db As New DB
|
|
Dim dbconn As New DB_Connection
|
|
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In dsdaten.Tables(0).Rows
|
|
db.insert_data(r(2), Me.TextBox1.Text)
|
|
i = i + 1
|
|
f.ProgressBar1.Value = i
|
|
f.Refresh()
|
|
|
|
Next
|
|
f.Close()
|
|
MsgBox("Updates seitens EDOKA sind durchgeführt.", vbInformation)
|
|
End Sub
|
|
|
|
Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
End Class |