Problema appendText ed evento Load

di il
7 risposte

Problema appendText ed evento Load

Ho un problema con una applicazione che sto scrivendo. in pratica c'è un form1 che è un menù, che apre vari form in cui si effettuano le operazioni. tra questi, nel form 5 c'è una datagridview con l'elenco di tutti i record presenti in un db access.
se effettuo doppio click su una cella, tramite DataGridView1_CellDoubleClick, mi si apre (con showdialog) il form8
e qui nasce il problema. nel form ci sono delle textbox, che al caricamento dovrebbero leggere i dati alla gridview. ma niente. nemmeno se l'appendtext lo faccio con una stringa.
ma se invece che nel load lancio il codice alla pressione di un button tutto funziona perfettamente. qualcuno per favore saprebbe dirmi come mai?
da premettere che sto cercando di riusare il codice di una applicazione più piccola, con solo un form con datagrid e uno con le textbox, creata prendendo spunto da vari tutorial qua e la, e funzionava tutto perfettamente
ecco il codice:

Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim connetionString As String

        Dim connection As OleDbConnection

        Dim oledbAdapter As OleDbDataAdapter

        Dim ds As New DataSet

        Dim sql As String





        connetionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\utente\Documents\Visual Studio 2012\Projects\DATABASE REPERTI\DATABASE REPERTI\Database reperti versione buona1.accdb"
        sql = "SELECT * FROM Tabella1 WHERE (ID = " & param & ")"



        connection = New OleDbConnection(connetionString)

        Try

            connection.Open()

            oledbAdapter = New OleDbDataAdapter(sql, connection)

            oledbAdapter.Fill(ds)

            oledbAdapter.Dispose()

            connection.Close()
MsgBox("Prova")
            txtID.AppendText("prova")
            txtTipo.AppendText(ds.Tables(0).Rows(0).Item(1).ToString)
            txtSottotipo.Text = "" & param
            txtInventario.Text &= "provaInventario"

        Catch ex As Exception

            MsgBox("Can not open connection ! ")

        End Try

    End Sub

7 Risposte

Devi accedere o registrarti per scrivere nel forum
7 risposte