VB操作Excel
发布时间:2020-12-17 00:13:07 所属栏目:大数据 来源:网络整理
导读:'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.OleDbConne
'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,'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条记录"))
??
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |