Private
Sub Button1_Click()
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
转载于:https://www.cnblogs.com/365haha/archive/2006/11/09/555781.html