关于VB.net中读取Excel数据存入数组后的再读取问题

Posted 2023-04-22

读取excel数据，采用代码如下：
arr1= ExcelWorkBook.Sheets("电缆参数").UsedRange.value
存在问题如下：
1、调试的时候查看变量，显示数组arr1的下标是从arr1（0,0）开始的，但是我用msgbox读取arr1（0,0）的值，程序提示超出数组的界限，然后改用arr1（1,1）测试读取，能读取出正确的值；
2、我用for循环，将单元格数组一个一个的读入数组arr2，然后用msgbox读取arr2（0,0）的值，读取得到的值和arr1（1,1）的值是一样的；
3、上述的第一种方案尽管显示下标是（0，0），但是实际下标是（1,1），第二种方案显示的下标和实际下标是一样的，请问这是怎么回事呢？

因为Excel表的左上角的单元格都是以第一行第一列
MsgBox(LBound(arr, 1)) '一维最小下标
MsgBox(LBound(arr, 2)) '二维最小下标
测试：用上面函数（LBound）得到的结果都是1 参考技术A 你的第一个方案中，你试试查一下这个 arr1（1,0）和arr1（0,1）的内容，你应该就能理解其意义所在了追问

提示错误啊！明明这个值是存在的，但是就是读不出来。

vb.net怎么将datagridview的数据写入数据库

我在窗体中拖放了一个DATAGRIDVIEW和几个TEXTBOX
在TEXTBOX中写入数据后按添加按钮添加到 DATAGRIDVIEW中
Dim 商品代码 = proid.Text
Dim 商品名称 = proname.Text
Dim 规格 = progg.Text
Dim 单位 = propice.Text
Dim 入库量 = proaddsu.Text
DataGridView1.Rows.Add(商品代码, 商品名称, 规格, 单位, 入库量)
然后添加N条记录后
要将DATAGRIDVIEW中所有刚刚用Rows.Add添加的数据
一次性写入数据库该怎么版？
麻烦各位大虾帮帮忙~！！
小弟为这个问题已经烦恼很久了。。。。。。

将textbox中的数据添加到datagridview中就不用说了吧
datagridview中更新导数据库 使用：
定义 OleDbCommandBuilder(DataAdapter)
DataAdapter.Update(DataSet)
DataGridView.Update() 参考技术A 以sqlite数据库为例：
1、声明SQLiteDataAdapter和SQLiteCommandBuilder对象；
Dim ap As SQLite.SQLiteDataAdapter
Dim sd As New SQLite.SQLiteCommandBuilder(ap)
2、然后设置SQLiteCommandBuilder对象
sd.GetUpdateCommand()
sd.GetDeleteCommand()
sd.GetInsertCommand()
3、更新与datagridview绑定的表（mytable）
ap.Update(mytable) 参考技术B 如果你觉得麻烦简单点就是
在你Button.Click的事件中
Dim year As String = TextBox1.Text
Dim month As String = TextBox2.Text
Dim day As String = TextBox3.Text
DataGridView1.Rows.Add(year, month, day)
Dim sqlcon As New SqlConnection("Data Source=WWW-9A6F5E15ECC;Initial Catalog=gj;User ID=sa;Password=123")
sqlcon.Open()
Dim sqlcmd As New SqlCommand("insert into dates(years,months,days) values(" + year + "," + month + "," + day + ")", sqlcon)
Dim reds As Int32 = sqlcmd.ExecuteNonQuery()
sqlcon.Close()
这样添加到DataGridView中的时候同时添加到数据库的表中 参考技术C 不用那么麻烦。为 gridview 绑定一个数据源，用Gridview可视化设计模板，在模板中打开增加、修改等功能。输入一条保存一条。