推荐订阅源

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.OdbcConnection1.ConnectionString = ("DRIVER={MICROSOFT EXCEL DRIVER (*.XLS)};FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=""C:Documents and Settingsykhu
.xls"";DBQ=C:Documents and Settingsykhu
.xls")
        Me.OdbcConnection1.Open()
        If (OdbcConnection1.State = ConnectionState.Open) Then
            'MsgBox("Connection setup.")
            Dim cmd As New System.Data.Odbc.OdbcCommand("select * from Test", Me.OdbcConnection1)
            Dim rd As System.Data.Odbc.OdbcDataReader
            rd = cmd.ExecuteReader(CommandBehavior.Default)
            Dim i As Int16
            Me.TextBox1.Text = ""
            For i = 0 To rd.FieldCount - 1
                Me.TextBox1.Text &= rd.GetName(i) & vbTab & vbTab
            Next
            While rd.Read()
                For i = 0 To rd.FieldCount - 1
                    Try
                        Me.TextBox1.Text &= rd.GetString(i)
                    Catch ex As Exception
                        Me.TextBox1.Text &= Space(0)
                    End Try
                    Me.TextBox1.Text = Me.TextBox1.Text & vbTab & vbTab
                Next
                Me.TextBox1.Text = Me.TextBox1.Text & vbCrLf
            End While
            OdbcConnection1.Close()
        Else
            MsgBox("Failed to open odbc")
        End If
    End Sub