怎么在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
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
我想用VB6.0在QQ城市达人搜索的结果里 取出搜索到的达人的QQ号 该如何实现
城市达人搜索结果的页面 并不能直接看到QQ号码 只有把鼠标移到照片上 或者某些信息上才能显示QQ号 如：javascript:inCityGuest( ......
