用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的

*** 作方法如下：

1、导入Excel数据，同时创建表:

select into 表名 FROMopenrowset( 'MicrosoftJetOLEDB40','EXCEL 80;HDR=YES;IMEX=1;DATABASE=文件路径','select from [Excel表名(默认为Sheet1)$]')。

2、在表中插入Excel数据：

insert into 表名 select fromopenrowset( 'MicrosoftJetOLEDB40','EXCEL 80;HDR=YES;IMEX=1; DATABASE=文件路径','select from [Excel表名(默认为Sheet1)$]')。

3、导出数据到Excel中：

insert into openrowset('MicrosoftJetOLEDB40','EXCEL 80;HDR=YES;IMEX=0; DATABASE=文件路径','select from [Excel表名(默认为Sheet1)$]') select from 表名；需要创建Excel文件并指定列名后才可以导出。

VB存数据库的做过，EXCEL的没试过，应该都差不多吧，我当时也是网上找的资料学的，你也可以查一下相关资料，有时候语句都是写的成熟的，只要替换数据库名就可以了。

另外对于你的这个存储过程，我建议你分开来做，先做全部存储。全部存储功能实现了再做数据比对及不导入 *** 作，最后再实现提示重复订单功能。因为个人感觉这三个东西每一个处理起来都需要时间来测试的，分开来把问题简单化容易成功一些。

'ToDo: 设置 common dialog 控件的标志和属性Filter = "Excel文件 (xls) |xls"ShowOpenIf Len(FileName) = 0 ThenExit SubEnd Ifsfile = FileNameEnd WithAccessPath = lcspath & "\dbmdb" '数据库路径excelpath = sfile '电子表格路经AccessTable = "db" '数据库内表格msg = Trim(InputBox("请输入表名，如sheet1或sheet2：", "工作表", "sheet1"))' msg = Str(msg)sheet = msg '电子表格内工作表Set db = OpenDatabase(excelpath, True, False, "Excel 80") '打开电子表格文件sql = ("Select into [;database=" & AccessPath & "]" & AccessTable & " FROM [" & sheet & "$]")' sql = ("Select into [;database=" & AccessPath & "]" & AccessTable & " FROM [" & sheet & "]")If sheet = "" ThenMsgBox "您选择的EXCEL表不存在，请重新导入！", vbInformation, "抱歉！"Exit SubEnd IfIf deltable = 1 ThenWith ADOsdbExecute "drop table db", , adCmdTextEnd WithEnd IfADOsdbCommitTransdbExecute (sql) '将电子表格导入数据库ShowMessage "正在导入EXCEL表，请您稍等"

以用DATAGRID控件来显示，修改后保存OK就写入到OK表中，不合法的数据导入到NG表中，再调用NG数据进行数据修改，修改的方法是先调NG数据到DATAGRID后根据游标方式取数据到文本框中修改，正确的部分导入到OK表中，方法可以用先把EXCEL导入到VB界面的DATAGRID显示，其中在导入的过程去验证数据的合法性，NG表中就去除后再刷新显示，然后通过按钮写入到ACCESS中

以上就是关于用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的全部的内容，包括:用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的、vb excel导入数据库怎么做、VB 将EXCEL数据导入到Access数据库中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！