如何用vb把txt文件的数据导入access数据库

编写一个Schemaini放在Txt文件的目录下

[customertxt] //Txt文件名

ColNameHeader=True

format=Delimited(",") //指定分隔符

MaxScanRows=0

CharacterSet=ANSI

Col1="字段1" Char Width 20 //指定字段的数据类型

Col2="字段2" Char Width 20

然后在程序中执行SQL：

Select Into customer From [Text;Database=c:\temp]customertxt

'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表，请您稍等"

通常来说， *** 作数据库只能用SQL，除非你是数据库的系统分析师级别的技术员

几万条数据，必定要消耗一定的时间，即便直接从数据库读取几万条数据也是比较费力的

Access不崩溃就已经很不错了，建议改用SQLServer或者Oracle，100万条以内都是比较流畅的

因为你说的是VB6，所以排除手动方法，如果目的仅仅是导入ACCESS的话可以使用Access的

导入功能，可以直接导入文本文档。

以上就是关于如何用vb把txt文件的数据导入access数据库全部的内容，包括:如何用vb把txt文件的数据导入access数据库、VB 将EXCEL数据导入到Access数据库中、在vb6.0中如何导入文本文档中的数据到数据库access等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！