救急!!!请问各位高手:csv文件在本地通过ODBC链接运行通过,但上传到服务器上就报错!

chenyf2006 2010-07-14 03:59:10
救急!!!请问各位高手:.csv文件在本地通过ODBC链接运行通过,但上传到服务器上就报错,为什么呀??


本地代码如下:
Dim odbcCSVDataAdapter As Data.Odbc.OdbcDataAdapter
Dim objConn As Data.Odbc.OdbcConnection
Dim filePath As String
Dim fileName, fileName_tmp As String
Dim strConn As String
Dim strSql As String


filePath = "D:\部门所需数据\仓库信息\"
fileName_tmp = FileUpload1.FileName
fileName = "ABCD.csv"

FileUpload1.SaveAs(filePath + fileName)

strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" + filePath + ";Extensions=asc,csv,tab,txt;"

objConn = New Data.Odbc.OdbcConnection(strConn)

Dim xslds As Data.DataSet = New Data.DataSet()
strSql = " select * from " + fileName
odbcCSVDataAdapter = New Data.Odbc.OdbcDataAdapter(strSql, objConn)
odbcCSVDataAdapter.Fill(xslds)

测试通过!


上传到服务器代码如下:


Dim filefolder As String = Format(Now(), "yyyyMMddHHmmss")
If CheckFileType(FileUpload1.FileName) Then
filePath = "~/allcatalog/tempfile/TermWithdrawInfoExport/" + filefolder + "/"

If Not IO.Directory.Exists(MapPath(filePath)) Then
IO.Directory.CreateDirectory(MapPath(filePath))

End If

fileName_tmp = FileUpload1.FileName

FileUpload1.SaveAs(MapPath(filePath) + fileName_tmp)

strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" + filePath + ";Extensions=asc,csv,tab,txt;"


objConn = New Data.Odbc.OdbcConnection(strConn)


Dim xslds As Data.DataSet = New Data.DataSet()
strSql = " select * from " + fileName_tmp
odbcCSVDataAdapter = New Data.Odbc.OdbcDataAdapter(strSql, objConn)


odbcCSVDataAdapter.Fill(xslds) ----****************-----本句出错:
End If



错误信息如下:
ERROR [HY000] [Microsoft][ODBC Text Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x664 Thread 0x1084 DBC 0x3a8fb4 Text'。
ERROR [IM006] [Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLSetConnectAttr 失败
ERROR [HY000] [Microsoft][ODBC Text Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x664 Thread 0x1084 DBC 0x3a8fb4 Text'。
ERROR [HY024] [Microsoft][ODBC Text Driver] '(未知的)'不是一个有效的路径。 确定路径名称拼写是否正确,以及是否连接到文件存放的服务器。
ERROR [HY000] [Microsoft][ODBC Text Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x664 Thread 0x1084 DBC 0x3a8fb4 Text'。
ERROR [HY000] [Microsoft][ODBC Text Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x664 Thread 0x1084 DBC 0x3a8fb4 Text'。
ERROR [HY024] [Microsoft][ODBC Text Driver] '(未知的)'不是一个有效的路径。 确定路径名称拼写是否正确,以及是否连接到文件存放的服务器。




...全文
342 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
robake 2010-07-16
  • 打赏
  • 举报
回复
服务器上重装你的Office
chenyf2006 2010-07-14
  • 打赏
  • 举报
回复
honkerhero (孤独的流浪) :
我已经将路径修改为:
strSql = " select * from " + MapPath(filePath) + fileName_tmp
但错误提示依旧......

myhope88(平凡男孩) :
能否说得详细些?或有例子更好?


救急!救急!帮帮忙吧,各位兄台!

myhope88 2010-07-14
  • 打赏
  • 举报
回复
路径问题,权限问题
honkerhero 2010-07-14
  • 打赏
  • 举报
回复
" select * from " + fileName_tmp

fileName_tmp = FileUpload1.FileName这是个客户端路径吧,甚至只有文件名没有路径


应该是上传服务器后的服务器文件路径:MapPath(filePath) + fileName_tmp

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧