[VB] Meerdere regels splitten in stukjes

[Verwijderd]

Goedemiddag allen,

Ik ben een programmaatje aan het maken. Het is de bedoeling dat uit een ASCII bestand een aantal gegevens worden gelezen in textboxen worden geplaatst en wordt opgeslagen in een database. Het lukt mij echter maar om 1 regel te importeren. Zodra ik meerdere regels wil doen krijg ik het niet meer voor elkaar...

Dit is mijn code tot nog toe:

Visual Basic:

Public Class Form1
#Region "Private Declarations"
    Private objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\formule1.mdb")
    Private objCommand As New OleDbCommand
    Private objDataAdapter As New OleDbDataAdapter
    Private objDataSet As New DataSet
    Dim objDataView As DataView
    Dim MyCurrencyManager As CurrencyManager
    Dim filenaam As String
#End Region
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        VulGrid()
        VulDataSetEnDataView()
        TextBox9.Text = MyCurrencyManager.Position + 1 & " / " & MyCurrencyManager.Count
        BindDeVelden()
        Button2.Hide()
    End Sub
    Private Sub VulGrid()
        objDataSet.Clear()
        objCommand.CommandText = "Select * from teams"
        objCommand.Connection = objConnection
        objDataAdapter.SelectCommand = objCommand
        objDataAdapter.Fill(objDataSet, "queryAlleTeams")
        DataGridView1.DataSource = objDataSet
        DataGridView1.DataMember = "queryAlleTeams"
    End Sub
    Private Sub VulDataSetEnDataView()
        objDataSet = New DataSet()
        objDataAdapter.Fill(objDataSet, "AnyName")
        objDataView = New DataView(objDataSet.Tables("AnyName"))
        MyCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)
    End Sub
    Private Sub BindDeVelden()
        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        TextBox6.DataBindings.Clear()
        TextBox7.DataBindings.Clear()
        TextBox8.DataBindings.Clear()
        TextBox1.DataBindings.Add("Text", objDataView, "Teamnaam")
        TextBox2.DataBindings.Add("Text", objDataView, "Teambaas")
        TextBox3.DataBindings.Add("Text", objDataView, "Banden")
        TextBox4.DataBindings.Add("Text", objDataView, "Motor")
        TextBox5.DataBindings.Add("Text", objDataView, "Hoofdsponsor")
        TextBox6.DataBindings.Add("Text", objDataView, "EersteCoureur")
        TextBox7.DataBindings.Add("Text", objDataView, "TweedeCoureur")
        TextBox8.DataBindings.Add("Text", objDataView, "TestCoureur")
    End Sub
    Public Sub vindbestand()
        Dim objOpenFileDialog As New OpenFileDialog
        With objOpenFileDialog
            .Filter = "Tekstbestand (*.txt)|*.txt|Alle bestanden (*.*)|*.*"
            .FilterIndex = 1
            .Title = "ASCII Bestand Openen"
        End With
        If objOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Als er een Open_click was, dan selecteer de DatabaseNaam
            filenaam = objOpenFileDialog.FileName
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        vindbestand()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        Dim text As String
        Dim bestandsnaam As String
        bestandsnaam = filenaam
        Dim objReader As New System.IO.StreamReader(bestandsnaam)
        text = objReader.ReadLine
        Dim tekstregel As String
        tekstregel = text

        Dim i As Integer
        Dim aryTekstbestand() As String

        aryTekstbestand = tekstregel.Split(";")
        For i = 0 To UBound(aryTekstbestand)
            Label10.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox1.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox2.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox3.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox4.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox5.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox6.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox7.Text = (aryTekstbestand(i))
            i = i + 1
            TextBox8.Text = (aryTekstbestand(i))
            i = i + 1
        Next i

        Button2.Visible = True
        Button2.Enabled = True
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim objCommand As OleDbCommand = New OleDbCommand()
        objCommand.Connection = objConnection
        objCommand.CommandType = CommandType.Text
        objCommand.CommandText = "INSERT INTO teams " & _
        "(teamnaam, teambaas, banden, motor, hoofdsponsor, eerstecoureur, tweedecoureur, testcoureur)" & _
  "VALUES(@TeamNaam, @TeamBaas, @Banden, @Motor, @Hoofdsponsor, @EersteCoureur, @TweedeCoureur, @TestCoureur)"
        objCommand.Parameters.AddWithValue("@TeamNaam", TextBox1.Text)
        objCommand.Parameters.AddWithValue("@TeamBaas", TextBox2.Text)
        objCommand.Parameters.AddWithValue("@Banden", TextBox3.Text)
        objCommand.Parameters.AddWithValue("@Motor", TextBox4.Text)
        objCommand.Parameters.AddWithValue("@Hoofdsponsor", TextBox5.Text)
        objCommand.Parameters.AddWithValue("@EersteCoureur", TextBox6.Text)
        objCommand.Parameters.AddWithValue("@TweedeCoureur", TextBox7.Text)
        objCommand.Parameters.AddWithValue("@TestCoureur", TextBox8.Text)
        Try
            objConnection.Open()
            objCommand.ExecuteNonQuery()
        Catch Err As OleDbException
            MessageBox.Show(Err.Message)
            objConnection.Close()
            Exit Sub
        End Try
        objConnection.Close()
        VulGrid()
        VulDataSetEnDataView()
        TextBox9.Text = MyCurrencyManager.Position & " / " & MyCurrencyManager.Count
        BindDeVelden()
        Button2.Hide()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MyCurrencyManager.Position = 0 Then
            MessageBox.Show("Je bent al bij het eerste record.")
        Else
            MyCurrencyManager.Position = 0
            TextBox9.Text = MyCurrencyManager.Position + 1 & " / " & MyCurrencyManager.Count
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If MyCurrencyManager.Position = 0 Then
            MessageBox.Show("Je bent al bij het eerste record.")
        Else
            MyCurrencyManager.Position -= 1
            TextBox9.Text = MyCurrencyManager.Position + 1 & " / " & MyCurrencyManager.Count
        End If
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MyCurrencyManager.Position = MyCurrencyManager.Count - 1 Then
            MessageBox.Show("Je bent al bij de laatste record.")
        Else
            MyCurrencyManager.Position += 1
            TextBox9.Text = MyCurrencyManager.Position + 1 & " / " & MyCurrencyManager.Count
        End If
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If MyCurrencyManager.Position = MyCurrencyManager.Count - 1 Then
            MessageBox.Show("Je bent al bij de laatste record.")
        Else
            MyCurrencyManager.Position = MyCurrencyManager.Count - 1
            TextBox9.Text = MyCurrencyManager.Position + 1 & " / " & MyCurrencyManager.Count
        End If
    End Sub

Ik wil dus eigenlijk een ASCII bestand inladen en de eerste 8 gegevens (= 1 record van 8 kolommen_ inladen. Zodra ik op toevoegen heb gedrukt moet hij de volgende regel inladen (= de volgende 8 gegevens) enz enz.

Mijn ASCII bestand ziet er zo uit:
INSERT;Ferrari;Jean Todt;Bridgestone;FerrariV8;Marlboro;Kimi Raikkonen;Felipe Massa;Luca Badoer
INSERT;Renault;Flavio Briatore;Bridgestond;RenaultV8;ING;Giancarlo Fisichella;Heiki Kovalainen;Nelsinho Piquet

Kan iemand mij helpen? Alvast bedankt!

[MTWZZ]

Je zult het stukje waarmee je een regel inleest en verwerkt voor elke regel in het tekstbestand moeten doen.

Je kunt zoiets doen:

Visual Basic .NET:

Do While Not text Is Nothing
    text = objReader.ReadLine

    ' Verdere verwerking van de regel zoals je die nu al hebt
Done

[Verwijderd]

Zoiets?

Visual Basic:

Dim text As String
        Dim bestandsnaam As String
        bestandsnaam = filenaam
        Dim objReader As New System.IO.StreamReader(bestandsnaam)

        Do While Not text Is Nothing
            Dim tekstregel As String
            tekstregel = text
            text = objReader.ReadLine


            Dim i As Integer
            Dim aryTekstbestand() As String

            aryTekstbestand = tekstregel.Split(";")
            For i = 0 To UBound(aryTekstbestand)
                Label10.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox1.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox2.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox3.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox4.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox5.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox6.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox7.Text = (aryTekstbestand(i))
                i = i + 1
                TextBox8.Text = (aryTekstbestand(i))
                i = i + 1
            Next i
        Loop

[RobIII]

Verwijderd schreef op vrijdag 07 september 2007 @ 17:47:
Zodra ik meerdere regels wil doen krijg ik het niet meer voor elkaar...

Want

Allereerst: het is hier niet de bedoeling om een enorme lap code te posten en die door ons te laten debuggen. We zien graag enkel relevante code. Daarnaast zien we ook graag wat je zelf al geprobeerd hebt om je probleem op te lossen (heb je al gedebugged? wat heb je al geprobeerd? wat werkt er niet? etc.). Graag verwijs ik je daarom naar onze Programming Beleid Quickstart.

Verwijderd schreef op vrijdag 07 september 2007 @ 18:14:
Zoiets?

Euh, waarom probeer je het dan niet? En als je het al hebt geprobeerd, wat werkt(e) er dan niet aan? Wat doet het (niet) en welke foutmelding(en) krijg je eventueel?

Wat algemene(re) tips: Je moet het zelf weten, maar persoonlijk vind ik Nederlands in je code ontzettend 'vies'. "BindDeVelden()" of "BindFields()", you pick Ook is het niet erg netjes om in een for-lus met de iterator zelf te gaan rommelen. Gebruik dan een while of repeat until of iets dergelijks. Ook de stukken code met TextBox1, TextBox2, ..., TextBoxX zijn nogal overbodig in je code. Kijk eens naar control collections En tot slot: "Select * from teams" kan prima, maar het is IMHO netter om de velden die je ook daadwerkelijk wil hebben te vermelden in de select statement (dus select fieldA, fieldB, FieldC, ... From MyTable en evt. een WHERE clause op te nemen met een Order by*).
_{* Order by omdat de volgorde waarin je de records terugkrijgt niet gegarandeerd is in principe, tenzij je een order specificeert en de Where clause om te voorkomen dat je teveel terug krijgt in een later stadium.}
Edit: en nu ik toch bezig ben: waarom al die 'globals' en vanwaar de ene helft "private" en de andere helft "dim"? En het is ook netjes als je files opent om ze, als je er mee klaar bent, netjes te sluiten. En tot slot kun je de code achter button 3 & 4 en achter button 5 & 6 natuurlijk prima combineren (desnoods middels een functie, maar nog makkelijker door de "handles" aan te passen).

Hoe dan ook, bij deze het verzoek voortaan de voorgenoemde quickstart in acht te houden en voortaan eerst wat voorwerk te doen voor je hier een topic opent

[ Voor 48% gewijzigd door RobIII op 07-09-2007 18:58 ]