VB操作Excel
2015-05-01 11:06
309 查看
'Dim 文件路径 As String = System.Environment.CurrentDirectory + "\AAA.xls" 'Dim 字符 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 文件路径 + ";Extended Properties='Excel 8.0;'" 'Dim 连接 As New System.Data.OleDb.OleDbConnection(字符) '连接.Open() 'Dim 操作 As New System.Data.OleDb.OleDbCommand() '操作.Connection = 连接 '操作.CommandText = "Insert into [Sheet1$](a,b) values('aaaaaaaaaaaaa','bbbbbbbbbbbbbbb')" '操作.ExecuteNonQuery() 'Dim 读取数据 = "SELECT * FROM [Sheet1$]" 'Dim 读取 As New System.Data.OleDb.OleDbDataAdapter(读取数据, 连接) 'Dim 数据表 As New DataSet() '读取.Fill(数据表, "[Sheet1$]") '连接.Close() 'Dim aa As DataTable = 数据表.Tables(0)
VB.NET数据库查询代码遇到问题在写查询数据库某表里有多少条记录数 显示在TEXTBOX控件里出问题!textbox1无法取得值!!
Dim 文件路径 As String = System.Environment.CurrentDirectory + "\AAA.xls" Dim 字符 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 文件路径 + ";Extended Properties='Excel 8.0;'" Dim 连接 As New System.Data.OleDb.OleDbConnection(字符) 连接.Open() Dim 操作 As New System.Data.OleDb.OleDbCommand() 操作.Connection = 连接 操作.CommandText = "Insert into [Sheet1$](a,b) values('aaaaaaaaaaaaa','bbbbbbbbbbbbbbb')" 操作.ExecuteNonQuery() Dim 表 As New DataTable Dim 读数据 As System.Data.OleDb.OleDbDataReader 操作.CommandText = "SELECT * FROM [Sheet1$]" 读数据 = 操作.ExecuteReader() 表.Load(读数据) Dim 作 As New System.Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", 连接) 读数据 = 作.ExecuteReader() 表.Load(读数据) MessageBox.Show(表.Rows.Count.ToString("0条记录"))
相关文章推荐
- 通过vb.net 和NPOI实现对excel的读操作
- VB 操作Excel
- [转]VB中操作Excel的一般做法(读取)
- [VB/VBA]SQL操作EXCEL
- 在VB中操作Excel
- VB 通过指定Excel模板文件进行另存为新文件操作
- 以VB操作EXCEL(转贴)
- VB操作Excel
- vb操作excel新建excel文件模式
- [导入]VB中操作Excel的一般做法(读取)
- VB.NET使用EXCEL常见操作
- vb.net 开发 excel Addin学习(3)---- 菜单 的 操作
- VB操作Excel
- vb.net操作excel时,如何判断单元格内容为空
- VB中对EXCEL的各种操作
- VB 操作Excel总结
- vb.net office excel 和wps共存,创建正确的excel对象以便操作excel表格
- VB千里行-操作Word与Excel
- VB.Net操作Excel
- VB中对EXCEL的各种操作