程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 編程綜合問答 >> vb6 0-vb6.0 Excel數據導入Access不能任意路徑

vb6 0-vb6.0 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控件,這樣方便用戶通過打開對話框選取。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved