将excel中的数据按照顺序录入到vb.net中的指定文本框内
发布网友
发布时间：2023-10-02 06:54
共1个回答
热心网友
时间：2024-12-03 02:52
Dim mData As New OleDb.OleDbConnection(connStr)
mData.Open()
Dim mTableName = mData.GetOleDbSchemaTable (System.Data.OleDb.OleDbSchemaGuid.Tables, Nothing)
‘mTableName 可以直接设置成Sheet1如果不可预期表名，下面将从EXCEL中直接查找第一个SHEET
If Not IsNothing(mTableName) And mTableName.Rows.Count > 0 Then
mTableName.TableName = mTableName.Rows(0)("TABLE_NAME").ToString()
End If
Dim mComm As New OleDb.OleDbCommand("select * from [" & mTableName.TableName & "$]", mData)
Dim mRs As OleDb.OleDbDataReader
Try
mRs = mComm.ExecuteReader
Catch ex As Exception
mData.Close()
Exit Sub
End Try
'上面的代码是从EXCEL中读取全部记录
'键盘控制我就不写了，给你说下实现步骤：
'要键盘控制每次读取一行的话，如果是WINDOWS程序还好办，只要获取键盘事件就可以了，还要将mRs读取到一个List(of T)的变量中，这个变量要声明为窗体级的，然后判断键盘按键依次读取输入到文本框就行了
