我们用VB和数据库编了一个系统，现在遇到一个难题：怎么用VB语言将excel表导入到数据库中谢谢！

具体 *** 作可以按以下步骤进行：

1、启动MicrosoftAccess2000；

2、建立一个空数据库student；

3、在对象栏中选择“表”选项，执行“文件→获取外部数据→导入”命令，打开“导入”对话框；

4、选择文件类型“为MicrosoftExecl”，单击“查找范围”右边的向下黑三角，选择xls文件所在的目录，再选择要导入数据的工作薄文件；

5、单击“导入”按钮，进入“导入数据表向导”对话框．

6、按“下一步”，选中“第一行包含列标题”前面的复选框；

7、按“下一步”，进入“请选择数据的保存位置”页，假如你不想保存在现有的表中，那么选择“新表中”，否则保持默认值“现有的表中”再选择表名；（我这里以选择新表）

8、按“下一步”，进入“字段选择”页，保持默认值。

9、按“下一步”，进入图3所示页面，选择“自行选择主键”。

10、按“下一步”，进入图4所示的界面，在“导入到表”输入框中输入表名，我这里输入“一班”。

11、“完成”按钮，此时系统会d出一个导入完成的对话框，按“确定”按钮。

完成以上步骤，我们就成功的把数据就从Excel中导入到Access中了。

Public cn As ADODBConnection

Public rs As ADODBRecordset

Public cc As String

Sub aa()

Set cn = New ADODBConnection

Set rs = New ADODBRecordset

cc = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" ‘这里要改成连接的数据库。

cnOpen cc

End Sub

以上是模块代码。

Private Sub Command1_Click()

If Text1Text = "" Then

MsgBox "请输入商品ID！"

Text1SetFocus

Exit Sub

End If

If Text2Text = "" Then

MsgBox "请输入商品名称！"

Text2SetFocus

Exit Sub

End If

If Text3Text = "" Then

MsgBox "请输入商品价格！"

Text3SetFocus

Exit Sub

End If

sql = "select from goods where goodid='" & Text1Text & "'"

Set rs = New ADODBRecordset

rsOpen sql, cn, 1, 3

If rsEOF Then

rsAddNew

rsFields(0) = Text1Text

rsFields(1) = Text2Text

rsFields(2) = Text3Text

rsUpdate

MsgBox "商品信息添加成功！"

Text1Text = ""

Text2Text = ""

Text3Text = ""

Text1SetFocus

Else

MsgBox "此ID已存在，请输入新ID！"

Text1Text = ""

Text1SetFocus

End If

rsClose

Set rs = Nothing

End Sub

Private Sub Form_Load()

Call aa

End Sub

以上是窗体代码。

你好好看一下，这是一个正确的源代码。

要用两个连接 一个连接excel 一个连access，把从excel查处的数据放到dataset里，循环dataset的记录，用另一个连接插入到access中。

抱歉，没仔细看代码，你可能需要确认一下执行到connOpen 时，conn的状态有打开,然后再执行到connExecute "select into tmptable 时确认一下ACESS中有生成tmptable 这个表，如果没有，那么再看看你传进去的路径是否正确，路径上确实存在excel和access文件，确定SQL写的空格字符什么的。

以上就是关于我们用VB和数据库编了一个系统，现在遇到一个难题：怎么用VB语言将excel表导入到数据库中谢谢！全部的内容，包括:我们用VB和数据库编了一个系统，现在遇到一个难题：怎么用VB语言将excel表导入到数据库中谢谢！、VB 向数据库 写入数据、vb语言将excel表中的数据导入到数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！