怎么在VB中把excel中的数导入到数据库中
怎么在VB中把excel中的数导入到数据库中
直接在vb中调用数据库的导入功能进行导入。
自己百度一下,代码海了去了,方法有好多
参考
http://blog.sina.com.cn/s/blog_4a384544010004zk.html
'判断数据库中表是否存在
'在
删除表
'如果不在
Adodc1.RecordSource = "select * into test from [excel 8.0;database=" & App.Path & "\boox1.xls].[sheet1$]"
============
这个最简单了
以前做的：
数据量大了就慢死人
你看看
Private Sub Command3_Click()
'找出EXCEL文件位置
CommonDialog1.ShowOpen
Dim data_jbxx As String
data_jbxx = CommonDialog1.FileName
If data_jbxx <> "" Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据.MDB;Persist Security Info=False;Jet OLEDB:Database password=密码"
Adodc1.RecordSource = "select * from 表名 "
Adodc1.Refresh
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL不可见
Set xlBook = xlApp.Workbooks.Open(data_jbxx) '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
'xlsheet
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
VB 中我用MSChart绘曲线图，怎样才能实现把鼠标移到曲线上就能自动显示该点的值？
请大家帮忙！！！
菜鸟敬上……
MSChart貌似没有这个功能,实在不行就改用别的控件
引用
MSChart貌似没有这个功能,实在 ......
