VB与SQl的配置环境

来源：百度知道 编辑：UC知道 时间：2024/05/21 23:53:55
我所遇到的问题是：我在宿舍的机子上以SQL 2000为数据库写好的VB程序，现在我要把程序拿到教室去演示，但是我不能修改学校机子的SQL（学校机子上也安装了SQL 2000），那我怎样才能不修改学校机子上的SQL环境又能运行我的程序呢？
我在网上找到这个，不过我不知道是什么意思。我想说如果我能在我运行我的程序之前，先运行配置文件setup.ini来设置好环境，那我就不用修改学校机子的sql环境了。
查看地址：http://zhidao.baidu.com/question/61675913.html

to 1楼 ：你说的那个我会，不过我在vb程序里写入了sql服务器的名称和用户名，密码之类的，这样就不行了啊！
to 大家：谢谢大家这么好的回答，祝大家每天都快乐！
to 万炮齐发：首先谢谢你的回答，我想再问问你，那个【设置默认值】是不是要写些什么代替？如果我的信息是：
学校的SQL服务器IP地址：10.10.240.28 登录帐号：sa 密码：123 数据库名称：Student。能不能麻烦你帮我写完整（能直接给我vb程序那就更好了或者加个qq，email什么的）。再次说声谢谢！

呵呵，既然你会备份/还原数据库，那剩下的问题是如何访问学校的SQL了，你可以通过INI来配置连接学校的SQL服务器了。首先，在程序的所在目录下新建一个文本文档，改名为 MyConfig.ini，然后用记事本打开这个文件，在里面输入：

[SQL_SERVER]
ServerName = 学校的SQL服务器名称或IP地址
UID = 登录帐号（一般设置为：sa）
Password = 密码
DataBase = 数据库名称

然后保存，在Form模块贴上下面的代码：

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Private Sub Form_Load()
Dim KeyPath As String * 200
dim mServerName as String
dim mUID as String
dim mPWD as String
dim mDataBase as String

'从INI读取SQL服务器名或IP地址
C