菜鸟紧急求救~做了2个数据库，怎样才能够变成可执行文件

45275333

你顺便帮我弄成可执行文件吧 万分感谢啊 然后再麻烦教教我

[此贴子已经被作者于2007-6-8 13:46:59编辑过]

wanshan

代码有问题，编译的时候通不过，不可生成mde，附件中已经修改过了！

至于生成exe文件，在access中是不现实的，不能脱离access环境而运行。网上的打包工具也是将保证access运行需要的必要的东西一起打包，到客户机上再释放出来。这个需要开发版的access，我这里没有。不过好在大部分电脑都装了ACCESS，如果没有装一个也不是很麻烦……

dzh-1976

先把窗体这些东西隐藏,然后把一个主界面(一运行就打开的那个比如说窗体)作"启动"用,用"工具"--"启动"(在做这些之前最好先复制下这个数据库到别的盘),然后在里面设置就可以了.把那些复选框前的勾去掉.

45275333

wanshan  dzh-1976谢谢你们哦~

ssjl001

这样的话，我干嘛用access呢？我换别的数据库软件不就行了。哎……浪费感情！

hayhay

学习也是一种乐趣，多实践才会有提高

jjli2008

生成MDE文件出错，是因为数据库表的版本与程序版本不一致造成的，如数据表是ACCESS2000格式的，而程序是ACCESS2003做出来的，那么就不能直接编译成MDE文件，必须将数据表先生成ACCESS2003.或者使用ACCESS2000进行编译。

如果想隐藏源码，可以使用以下这段代码，并做一个autorun的宏让它自动运行。这个是用来禁用shift的键的，否则别人在打开程序时按shift就可以看到你的窗体、报表的设计了。

宏设置Runcode    ChangeProperty("AllowBypassKey", 1, False)
模板中加入以下函数。
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270 '没有找到属性的错误常量
Set dbs = CurrentDb '获取当前的数据库对象
On Error GoTo Change_Err '如果出错则转到错误处理
dbs.Properties(strPropName) = varPropvalue '如果找到属性,则设置属性的值为新的值
ChangeProperty = True '设置成功,设置函数值返回真
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' 如果错误是数据库没有这个属性
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropvalue) ' 创建新的属性,并设置它的默认值
dbs.Properties.Append prp ' 将新的属性对象绑定到数据库
Resume Next ' 继续执行后面的代码
Else
ChangeProperty = False ' 如果是其它错误,则函数值返回假
Resume Change_Bye ' 转到函数退出处理
End If
End Function

[:50]