Läsa in data till textfält

 

I detta tips demonstreras hur vi läser in data till ett flertal textfält i en Windows Form från en stängd arbetsbok.

Följande "namespaces" måste importeras till projektet:

 

Noterbart är att databasanslutningen stängs i och med att all data har läst in till DataReader.

 

Const stCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _

                      & "Data Source=c:\TextA.xls;" _

                      & "Extended Properties=""Excel 8.0;HDR=NO"";"

 

        Dim stSQL As String = "SELECT * FROM [Sheet1$A2:C2]" 

        Dim cn As New OleDbConnection(stCon) 

        Dim cmd As New OleDbCommand(stSQL, cn)

 

        'Innan exekvering av kommandot kan ske måste anslutningen vara öppen. 

        cn.Open()

 

        Dim dr As OleDbDataReader = _
                     cmd.ExecuteReader(CommandBehavior.CloseConnection)

        dr.Read()

 

        With Me

            .TextBox1.Text = dr(0)

            .TextBox2.Text = dr(1)

            .TextBox3.Text = dr(2)

        End With

 

        dr.Close()

        cmd.Dispose()

        cn.Dispose()