查看: 1171|回复: 10
在线时间248 小时威望0 金钱728 人气0 最后登录注册时间帖子精华0积分2771阅读权限40UID266593
高级程序员, 积分 2771, 距离下一级还需 1229 积分
擂点0 人气0 威望0 注册时间精华0帖子
我用vb6.0+Access做了一个程序，生成exe文件，点击运行时，会报错：[Microsoft][ODBC Microsoft Access Driver] 找不到文件'(未知的)'；如果把建立的Access数据库和exe放在同一个文件夹下，则不会出现这个问题！但是如果换到别的机器上，在没有装Microsoft Access2007的情况下，即使数据库文件和exe文件在同一文件夹下，也会报错，提示错误：Run-time error '339'。查了一些资料猜想应该是和软件打包的方法有关，请问怎么解决这个问题！如果用Setup Factory7.0对软件进行打包的话，应该怎样做，才不会出现上面的问题？
在线时间111 小时威望178 金钱676 人气55 最后登录注册时间帖子精华0积分1736阅读权限20UID266818
中级程序员, 积分 1736, 距离下一级还需 264 积分
擂点0 人气55 威望178 注册时间精华0帖子
请将代码发上来研究一下。
在线时间499 小时威望258 金钱3723 人气51 最后登录注册时间帖子精华0积分6995阅读权限80UID111568
在职会计不专业 业余编程很业余
系统分析员, 积分 6995, 距离下一级还需 1005 积分
擂点0 人气51 威望258 注册时间精华0帖子
如果不是路径的问题，就是对方电脑没安装数据库引擎
在线时间573 小时威望158 金钱2122 人气63 最后登录注册时间帖子精华0积分6895阅读权限80UID149928
系统分析员, 积分 6895, 距离下一级还需 1105 积分
擂点0 人气63 威望158 注册时间精华0帖子
你的电脑的access数据引擎版本是什么，是不是太高了呢？
找不到数据库是路径问题，如果是用app.path指定路径的，数据库就要与程序文件放在一起，或者程序文件下的子文件夹，但路径也要加上这文件夹名，app.path & &\文件夹&
正在练功呢。& && &&&回答有用么即给一点分嘛,分多好看点哦-----------------------------------------------------------------
在线时间248 小时威望0 金钱728 人气0 最后登录注册时间帖子精华0积分2771阅读权限40UID266593
高级程序员, 积分 2771, 距离下一级还需 1229 积分
擂点0 人气0 威望0 注册时间精华0帖子
阳光宝宝 发表于
如果不是路径的问题，就是对方电脑没安装数据库引擎
Set pic = New ADODB.Connection
pic.ConnectionString = &;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=& & App.Path & &\IO.MDB&
上面是我的路径；对方电脑没有装Access数据库的话，会出现问题！请问，如何才能在即使对方没有装Access数据库，设计的程序也能进行正常的运行！
在线时间248 小时威望0 金钱728 人气0 最后登录注册时间帖子精华0积分2771阅读权限40UID266593
高级程序员, 积分 2771, 距离下一级还需 1229 积分
擂点0 人气0 威望0 注册时间精华0帖子
阳光宝宝 发表于
如果不是路径的问题，就是对方电脑没安装数据库引擎
Set pic = New ADODB.Connection
pic.ConnectionString = &;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=& & App.Path & &\IO.MDB&
上面是我的路径；对方电脑没有装Access数据库的话，会出现问题！请问，如何才能在即使对方没有装Access数据库，设计的程序也能进行正常的运行！
在线时间248 小时威望0 金钱728 人气0 最后登录注册时间帖子精华0积分2771阅读权限40UID266593
高级程序员, 积分 2771, 距离下一级还需 1229 积分
擂点0 人气0 威望0 注册时间精华0帖子
yiziwuya 发表于
你的电脑的access数据引擎版本是什么，是不是太高了呢？
找不到数据库是路径问题，如果是用app.path指定路 ...
我电脑上数据库是Access2007版，但是建立数据库时把类型保存为！已经用App.Path指定了路径！在我的电脑上数据库与程序放在一起能正常运行，但在没有装Access的电脑上，即使把数据库与程序放在一起也会有问题！帮忙分析下，不胜感激！！
在线时间573 小时威望158 金钱2122 人气63 最后登录注册时间帖子精华0积分6895阅读权限80UID149928
系统分析员, 积分 6895, 距离下一级还需 1105 积分
擂点0 人气63 威望158 注册时间精华0帖子
那要看看你的数据库连接代码了
在线时间248 小时威望0 金钱728 人气0 最后登录注册时间帖子精华0积分2771阅读权限40UID266593
高级程序员, 积分 2771, 距离下一级还需 1229 积分
擂点0 人气0 威望0 注册时间精华0帖子
yiziwuya 发表于
那要看看你的数据库连接代码了
问题解决了，就是软件打包时，把数据库也打进去就没有出现上面的问题！路径还是采用的App+数据库文件！
在线时间248 小时威望0 金钱728 人气0 最后登录注册时间帖子精华0积分2771阅读权限40UID266593
高级程序员, 积分 2771, 距离下一级还需 1229 积分
擂点0 人气0 威望0 注册时间精华0帖子
yiziwuya 发表于
那要看看你的数据库连接代码了
问题解决了，就是软件打包时，把数据库也打进去就没有出现上面的问题！路径还是采用的App+数据库文件！
&我参考大家的意见，修改了多次才实现的，开始应该忘记把一些文件打包进来所以一直报错！&
&突然有一种被耍的感觉&想用vb做一个自动喊话的工具，有点问题请指教一下~_百度知道
想用vb做一个自动喊话的工具，有点问题请指教一下~
Command1.Enabled = False
Text1，请大神帮忙看一下, 0
SendKeys Text1, 0。引用api函数的keybd_event模拟键盘的enter键, ByVal dwExtraInfo As Long)Private Sub Command1_Click()
If Command1.Enabled = False
Timer1, vbCritical。以下是我的代码.Caption = &quot.Caption = &quot.Text = &开始喊话&quot, ByValdwFlags As Long, 0; (ByVal bVk As Byte, ByVal bScan As B
Timer1;喊话间隔不能为空&quot.Enabled = True
ElseIf Command1.Enabled = False
Text2。Private Declare Sub keybd_event Lib &quot, .Text
keybd_event vbKeyRuser32&quot, 0;
Timer1.Interval = Text2窗体的text1是输入喊话的内容，command1是开始喊话，但是出现参数不可选的错误, 0; Then
MsgBox &quot，不胜感激.Text
End SubPrivate Sub Text2_Change()
If Text2;&
End IfEnd SubPrivate Sub Timer1_Timer()
keybd_event vbKeyR停止喊话&quot.Caption = &提示& Then
Command1.Caption = &quot，text2是时钟的间隔;;停止喊话&开始喊话&quot, &quot
提问者采纳
KEYEVENTF_KEYUP; press E
keybd_event VK_E.Print Chr$(KeyAscii), 0, 0
&#39你定义的vbKeyReturn常量在哪儿;keyb_eventConst VK_H = 72Const VK_E = 69Const VK_L = 76Const VK_O = 79Const KEYEVENTF_EXTENDEDKEY = &H1Const KEYEVENTF_KEYUP = &H2Private Declare Sub keybd_event Lib &quot://www, 0; release H 弹起H建
keybd_event VK_E.user32.dll&quot.net/
&#39, 0;KPD-Team 2000
' release L
keybd_event VK_O？api函数库中的实例.net
&#39, ByVal bScan As Byte, ByVal dwFlags As Long, 0, 0, 0, 0.net/" target="_blank">http: KPDTeam@Allapi：'Print the key on the form
Me;E-Mail.Cls
keybd_event VK_H;End SubPrivate Sub Form_Paint()
&#39; (ByVal bVk As Byte: <a href="http, 0, 0://www, 0
&#39; press L
keybd_event VK_L, 0
&#39;Clear the form
Me.allapi, 0, 0
&#39, KEYEVENTF_KEYUP; press H
keybd_event VK_H; press L
keybd_event VK_L, KEYEVENTF_KEYUP, 0, ByVal dwExtraInfo As Long)Private Sub Form_KeyPress(KeyAscii As Integer)
&#39, KEYEVENTF_KEYUP, 0, 0, 0
&#39; release E
keybd_event VK_L, 0;URL, 0, 0
&#39; press O
keybd_event VK_O？为什么只有按下按键的函数而没有弹起的函数, KEYEVENTF_KEYUP; release L
keybd_event VK_L
提问者评价
虽然没太看懂。。我自己再研究一下吧，辛苦你了。
来自团队：
其他类似问题
为您推荐：
其他1条回答
{Enter}&quot：SendKeys&nbsp用什么API呢，VB直接发送回车不就好了;&quot
自动喊话的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁