vb读取excel数据的教程

Posted 2023-04-23

参考技术A 　　在Excle中录入好数据以后，可能会需要用VB进行读取Excle数据，具体该如何读取数据呢?下面是我带来的关于vb读取excel数据的教程，希望阅读过后对你有所启发!

　　vb读取excel数据的教程：

　　Private Sub Form_Load()

　　Text1.Text = App.Path & "\123.xls"

　　Text2.Text = App.Path & "\123.mdb"

　　Text3.Text = "sheet1"

　　Text4.Text = "sheet1"

　　Data1.DatabaseName = App.Path & "\123.mdb"

　　End Sub

　　Private Sub Command1_Click()

　　Dim db As Database

　　Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String

　　AccessPath = Text2.Text '数据库路径

　　excelpath = Text1.Text '电子表格路经

　　AccessTable = Text4.Text '数据库内表格

　　sheet = Text3.Text '电子表格内工作表

　　Set db = OpenDatabase(excelpath, True, False, " Excel 5.0") '打开电子表格文件

　　SQL = ("Select * into [;database=" & AccessPath & "]." & AccessTable & " FROM [" & sheet & "$]")

　　db.Execute (SQL) '将电子表格导入数据库

　　Data1.RecordSource = "sheet1"

　　Data1.Refresh

　　DBGrid1.Refresh '显示电子表格导入到数据库的数据

　　End Sub

　　上面的是把EXCEL读取到数据库中,你做点修改就行了.一个Data控件.

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可视化设计模板，在模板中打开增加、修改等功能。输入一条保存一条。