Keskustelu: Ohjelmointikysymykset: VB.NET: VB2010 - Datasetistä textboxiin valitut tiedot

jokke568 [18.01.2013 08:42:37]

Hei

Tarvitsis vähän apua Datasetistä valittujen tietojen siirtämiseksi textboxiin..

Tähän tyssää:

Dim kysely As String = "SELECT * FROM Viat WHERE [REK-NRO] ='" + ValittuAuto.Text + "' ORDER BY pvm DESC"

   daKalusto = New OleDbDataAdapter(query, YhteysKalusto)
   dsKalusto = New DataSet
   daKalusto.Fill(dsKalusto, "Viat")

Eli nyt ovat aikajärjestyksessä, mutta miten saan valituista sarakkeista tietoja siirrettyä textboxiin.

Yritystä löytyy alla olevaa solveltaen vaikka mitä

Dim Vikoja() As dsKalusto.ViatRow

Googletettu on ja kokeiltu erilaisia vaihtoehtoja.

Mut nyt ei onnistu.

Voisiko joku vähän auttaa, kiitos.

neau33 [18.01.2013 11:24:47]

Moi jokke568!

voit napata datasetistä kenttien arvoja esim. seuraavasti...

Sub Button2Click(sender As Object, e As EventArgs)

    If ValittuAuto.Text = String.Empty Then
        ValittuAuto.Focus : Exit Sub
    End If

    If conn.State = ConnectionState.Open Then

        Dim query As String = "SELECT * FROM Viat WHERE REK-NRO ='" + ValittuAuto.Text + "'"
        daKalusto = New OleDbDataAdapter(query, YhteysKalusto)
        dsKalusto = New DataSet
        daKalusto.Fill(dsKalusto, "Viat")

        If dsKalusto.Tables("Viat").Rows.Count > 0 Then

            'esim. näin -------------------------------
            For i As Integer = 0 To dsKalusto.Tables("Viat").Rows.Count - 1
                For j As Integer = 0 To dsKalusto.Tables("Viat").Columns.Count - 1
                    Select Case j
                        Case 1, 2 'esim.
                            MsgBox(dsKalusto.Tables("Viat").Rows(i)(j).ToString)
                    End Select

                Next j
            Next i
            '--------------------------------------------------

            'tai vaikkapa näin --------------------------------
            Dim vikaTable As DataTable = dsKalusto.Tables("Viat")

            For Each drow As DataRow In vikaTable.Rows
                For i As Integer = 0 To vikaTable.Columns.Count - 1
                    Select Case i
                        Case 1, 2 'esim.
                            MsgBox(drow(i))
                    End Select
                Next i
            Next drow

            vikaTable = Nothing
            '-------------------------------------------------

        End If

        daKalusto = Nothing
        dsKalusto = Nothing

    End If

End Sub

jokke568 [18.01.2013 12:13:47]

Suuri kiitos taas Nea.

Jostain syystä SELECT lauseeseen REK-NRO pitää laittaa hakasulkuihin tai muuten valitta virhettä daKalusto.Fill rivillä.

Mutta tätä soveltamalla selviän varmastikin(toivottavasti) pitemmälle.

Kiitos!

Grez [18.01.2013 13:31:39]

jokke568 kirjoitti:

Jostain syystä SELECT lauseeseen REK-NRO pitää laittaa hakasulkuihin tai muuten valitta virhettä daKalusto.Fill rivillä.

Johtuu siitä että siinä on tuo - -merkki. Eli ilman hakasulkuja se yrittää laskea vähennyslaskun REK miinus NRO.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen