vb.net & Excel作为数据库

        'Excle 保存的时候 文件类型为 Excel 97-2003 ブック (*.xls)

        '---------------------------------------------

        '注意选择表的时候要加上 "$" 符号表示是这个excel 的那一页面

        '打开excel 然后get 到想要的worksheet 然后获取表名

        '

        '--------------------------------------------

        Dim Sql As String

        Dim tempdbpath As String = "C:\Users\MinJie\Desktop\WK_MR2120"

        Sql = "Select * from [Sheet1$] where TERMNO =222"

'"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" + tempdbpath + "';Extended Properties='Excel 12.0;HDR=Yes;IMEX=1'; "   .xlsb

        Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + tempdbpath + "';Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'; ")

           '参数Excel 8.0对于Excel 97以上版本都用Excel 8.0

            ''参数HDR的值：HDR=Yes，这代表第一行是标题，不做为数据使用 ，如果用HDR=NO，则表示第一行不是标题，做为数据来使用。系统默认的是YES

            '我这里特别要说明的就是 IMEX 参数了，因为不同的模式代表著不同的读写行为：

            '　　当 IMEX=0 时为“汇出模式”，这个模式开启的 Excel 档案只能用来做“写入”用途。

            '　　当 IMEX=1 时为“汇入模式”，这个模式开启的 Excel 档案只能用来做“读取”用途。

            '　　当 IMEX=2 时为“连結模式”，这个模式开启的 Excel 档案可同时支援“读取”与“写入”用途。

 

 

        Dim Command As New OleDb.OleDbCommand

        Dim Reader As OleDb.OleDbDataReader

        Dim count As String

        Dim value As String

        Try

            Conn.Open()

            With Command

                .Parameters.Clear()

                .Connection = Conn

                .CommandText = Sql

                .CommandType = CommandType.Text

                Reader = .ExecuteReader()

            End With

            Reader.Read()

            If Reader.HasRows Then

                count = Reader.FieldCount

                value = Reader.Item("JYUTANM")

            End If

            Return True

        Catch ex As OleDb.OleDbException

            Return False

            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

        End Try

 

 

Excel 2010 和 Excel 2007 中，工作表的大小为 16,384 列 × 1,048,576 行

EXCEL表格列数如何设置列数  点击列标选中整列，按“END“键；按“Shirt+右”；右键单击选中区域选择“隐藏”。