怎么用VB把csv文件导入到ACCESS数据库中

分两步

1、从txt读出来

2、写入access

Private Sub Command2_Click()

Dim AccAPP As New Access.Application

AccAPP.OpenCurrentDb (数据库路径)

AccAPP.OpenCurrentDatabase "" &App.Path &"\CDD.mdb"

AccAPP.DoCmd.OutputTo acOutputTable, "RLCFP", acFormatCSV, "" &App.Path &"\0906RLCFP.csv", True '导出表

AccAPP.CloseCurrentDatabase '关闭access对象

AccAPP.Quit acQuitSaveNone

Set AccAPP = Nothing

End Sub

这个最好调用sql本身的功能。具体sql命令参考：

http://stackoverflow.com/questions/425379/how-to-export-data-as-csv-format-from-sql-server-using-sqlcmd

SSMS中提供了此功能。

1、对象树上，选择一个【数据库】，

2、右键菜单，

3、选择【任务】-->【导入数据...】

4、按照提示一步步 *** 作。

---