vb6 0-vb6.0 Excel数据导入Access不能任意路径

作者:用户 来源:互联网 浏览:450 次 时间:2016-03-17 19:26:25

vb6 0

vb6 0-vb6.0 Excel数据导入Access不能任意路径 - 摘要: vb6.0Excel数据导入Access不能任意路径vb6.0Excel数据导入Access不能任意路径,必须要EXCEL文件和ACCESS数据库在同一个目录下才能成功导入,请大神帮忙看看怎么修改一下

问题描述

vb6.0 Excel数据导入Access不能任意路径

vb6.0 Excel数据导入Access不能任意路径,必须要EXCEL文件和ACCESS数据库在同一个目录下才能成功导入,请大神帮忙看看怎么修改一下才能EXCEL在任意位置都可以导入。

----------------------------打开数据库找到数据表部分------------------

Private Sub Form_Load()
Dim cnn1 As New ADODB.Connection
Dim rstSchema As New ADODB.Recordset
Command1.Enabled = False
Command2.Enabled = False
dataBaseName = "data.mdb"

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "data.mdb"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
If (Not rstSchema.EOF) Then
If rstSchema!TABLE_TYPE = "TABLE" Then
sjbm = rstSchema!TABLE_NAME
End If
End If
rstSchema.Close
cnn1.Close
Set rstSchema = Nothing
Set cnn1 = Nothing
End Sub

----------------------------打开数据库找到数据表部分------------------

---------------导入部分-------------

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "亲,请加载正确的Excel文件!", vbCritical, "文件未找到"
Exit Sub
End If
On Error GoTo ErrorHandler ' 打开错误处理程序
sql = "insert INTO " & sjbm & " IN '" & dataBaseName & "' select * from [data$]"
Conn.Execute (sql)
MsgBox "数据导入成功~~~╰( ̄▽ ̄)╮", vbInformation, "信息提示"
Command1.Enabled = False
Command2.Enabled = False
Exit Sub
ErrorHandler: ' 错误处理程序
MsgBox Err.Description
End Sub


导入不同文件夹的EXCEL文件会提示找不到数据库文件,我就没懂怎么回事,不知道是那里的地址错了。

只有EXCEL和数据库在同文件夹才能导入成功。请教~~~~~

解决方案

Conn.Execute (sql)前面加上
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & tezt1.Text
Conn.Open strCnn
另外建议你用一个CommonDialog控件,这样方便用户通过打开对话框选取。

解决方案二:

你的Text1.Text是不是就是选择的Excel的路径?但是你的代码里面没有看到将这个路径作为参数提供给其他部分。

解决方案三:

你录段宏然后修改修改不就可以使用了吗?
Sub Macro1()
'
' Macro1 Macro
' 宏由 MicroSoft 录制,时间: 2014/12/15
'

'
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:db1.mdb;Mode=Share Deny Write;Extended Properties="""";J" _
, _
"et OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database" _
, _
" Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet " _
, _
"OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compa" _
, "ct Without Replica Repair=False;Jet OLEDB:SFP=False"), Destination:=Range( _
"A1"))
.CommandType = xlCmdTable
.CommandText = Array("tab1")
.Name = "db1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "D:db1.mdb"
.Refresh BackgroundQuery:=False
End With
End Sub

【云栖快讯】你想见的Java技术专家都在这了,向大佬提问,有问题必答  详情请点击
云栖社区(yq.aliyun.com)为您免费提供vb6 0-vb6.0 Excel数据导入Access不能任意路径相关信息,包括 vb6 0 的信息 ,所有vb6 0-vb6.0 Excel数据导入Access不能任意路径相关内容均不代表云栖社区的意见! 该页面h5页面的地址是:https://m.aliyun.com/yunqi/wenzhang/show_67917,您可以点击vb6 0-vb6.0 Excel数据导入Access不能任意路径-手机站访问。
弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率

40+云计算产品,6个月免费体验

现在注册,免费体验40+云产品,及域名优惠!

云服务器9.9元/月,大学必备

热点导航