“热电厂指标统计程序”，想与大家一起共勉！

Question

我是liuwangxin,一名热电厂的普通员工，＂热电厂指标统计程序＂是集电厂指标计算、保存、查询、分析、打印于一体的微型应用程序。开发环境：WINXP + vb6.0 + access2002。程序中可能还有许多不足或bug,热心的朋友们，我期盼得到你们的帮助！并与你们交流！有兴趣的朋友可用msn或邮件与我联系。
我的[email protected]

Answer 1

同时请问各位高手一个问题：
我用vb和access做的这个程序，是通过odbc将程序和数据库连接起来的，在打包程序后安装在winxp里必须在控制面板里设置odbc,否则就不能连上数据库，对用户来说过于麻烦，请问如何修改安装程序后不用再设置odbc来连接数据库呢？能详细告诉我吗？
感谢各位热心朋友的帮助，thanks!!!
同时我也恳请你们能帮我测试一下我的这个程序，十分感谢！
我的[email protected]，请告诉你们的联系方式，最好是不用邮箱，因为６Ｍ附件发送时奇慢，用msn直接发送文件或qq发送邮件比较快！

Answer 2

我在程序中是用ado,ado连接时指定了路径，但比如我把程序发给你时，我给你的数据库必须安装在指定的目录中，否则就找不到数据库了，怎样解决这个问题，能动态不受限制呢？？？

Answer 3

'返回程序路径
Public Function MyAppPath() As String
    If Right$(App.Path, 1) = "\" Then
        MyAppPath = App.Path
    Else
        MyAppPath = App.Path & "\"
    End If
End Function'打开带密码的Access
Public Function ConnectString() _
                              As String
    '
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & MyAppPath & "\data\db.mdb") & _
                    ";Jet OLEDB:Database Password =wumicat;Persist Security Info=False"
End Function

Answer 4

谢谢wumylove1234的帮助，但你说用’返回程序路径‘函数，就可不用odbc连接数据库了吗？

Answer 5

ACCESS库加密码；在程序启动时注册一个临时的ODBC数据源；程序运行结束后删除它。偶的程序就这样，可以给你瞅瞅。[email protected]

Answer 6

cobrastudio(老汉我)和swpcsoft（编程黑马－海（http://fzwang.com))以及其他有兴趣的朋友们，请你们留下msn messenger 或 qq的联系方式以便与你们及时沟通，行吗？

Answer 7

cobrastudio(老汉我)和swpcsoft（编程黑马－海（http://fzwang.com))感谢你们的协助，我昨天上中班去了，没能及时回复你们，抱歉！

Answer 8

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" 这里指明了数据库提供者使用的OleDb的Jet4.0引擎,没有使用ODBC.ODBC,是过时的技术了.现在基本是OLEDB未提供可用数据源,但ODBC提供了,才使用ODBC,一般ACCESS,SQLSERVER,ORACLE都可以用OLEDB.

Answer 9

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" 这里指明了数据库提供者使用的OleDb的Jet4.0引擎,没有使用ODBC.ODBC,是过时的技术了.现在基本是OLEDB未提供可用数据源,但ODBC提供了,才使用ODBC,一般ACCESS,SQLSERVER,ORACLE都可以用OLEDB.

Answer 10

[email protected]
发来看看.

Answer 11

谢谢swpcsoft，我现在就头晕晕的，过段时间才能恢复，再与你联系！

Answer 12

谢谢swpcsoft和wumylove的关心，我现在正在做颈部牵引，过一段时间才能恢复，我真想快点好，爹妈天天警告我少用电脑，没办法！心急如焚！
等我好了，再向你们请教！！

Answer 13

Public Function MyAppPath() As String
    If Right$(App.Path, 1) = "\" Then
        MyAppPath = App.Path
    Else
        MyAppPath = App.Path & "\"
    End If
End Function'打开带密码的Access
Public Function ConnectString() _
                              As String
    '
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & MyAppPath & "\data\db.mdb") & _
                    ";Jet OLEDB:Database Password =wumicat;Persist Security Info=False"
End Function
顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！顶！