最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
vb.net 数据导入excel代码
时间:2022-06-25 05:35:22 编辑:袖梨 来源:一聚教程网
vb.net 数据导入excel代码
这是一款简单的由vb.net把数据库教程的数据导入到execel实例哦,如果你正在找相关的.net把数据导入到数据表的话,这是一款完整的可用代码。
imports system.data
imports system.data.sqlclient
public class form1
dim app as new excel.application
dim exbook as excel.workbook
dim exsheet as excel.worksheet
dim exrange as excel.range
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
exbook = app.workbooks.open("d:www.111com.netc.xls")
exsheet = exbook.sheets(1)
dim myconnection as new sqlconnection("data source=192.168.0.1;initial catalog=test;user id=sa;password=abc")
dim mycommand as sqlcommand = new sqlcommand()
myconnection.open()
mycommand.connection = myconnection
mycommand.commandtext = "select un001,un002,un003 from bcun"
mycommand.commandtype = commandtype.text
dim myreader as sqldatareader = mycommand.executereader
dim i as integer = 1
do while myreader.read()
exsheet.cells(i, 1) = myreader.getstring(0)
exsheet.cells(i, 2) = myreader.getstring(1)
exsheet.cells(i, 3) = myreader.getstring(2)
i = i + 1
loop
myreader.close()
myconnection.close()
exbook.save()
exbook.close()
app.workbooks.close()
app.quit()
mycommand.connection.close()
end sub
end class
/*
请注意在引用中添加com组件:microsoft excel 11.0 object library(不一定是11.0的,由你用的excel版本来定)
相关文章
- 王者荣耀S38赛季有什么更新 12-25
- 王者荣耀S38赛季有什么更新 王者荣耀S38赛季更新内容介绍 12-25
- 世界之外12.25有什么更新 世界之外12月25日更新内容介绍 12-25
- 光遇12.25红石碎片在哪里 光遇12月25日红石碎片位置攻略 12-25
- 奇迹暖暖绚光引途第二天怎么玩 绚光引途day2庆祝之舞搭配攻略 12-25
- 无限暖暖拍照打卡位置在哪里 无限暖暖世界巡游位置全攻略 12-25