因为工作的需要，在某些时候又要拣一拣令我生厌的VB，是要在别人代码的基础上进行修改。看人家代码都是写连接字符串、用户名和密码都写两套，开发时用一套，注释另一套，发布时反过来，更加了VB还只能行注释。我一看就嫌这麻烦，宁愿多思考思考，看看有啥好办法能偷偷懒，当这事，条件编译了。
以前就没怎么用过VB，更别提VB中条件编译了，Goole搜，发现VB中可以用几个预编译指令： #Const、#If .Then ...#ElseIf.Then...#Else...#End If
#Const 声明一个常量，相当于宏定义，用#Const定义的只能被当前模块识别。例如定义常 DebugVer =1，标明是调试版本：
#Const DebugVer = 1
然后，数据库连接串写成
#If DebugVer = 1 Then '或者是#If DebugVer Then VB和C、C++也一样，非零为真
connStr = "Provider=OraOLEDB.Oracle;Data Source=Fraud-Test;User Id=Unmi;Password=testpwd;"
#Else
connStr = "Provider=OraOLEDB.Oracle;Data Source=Fraud;User Id=user;Password=pwd";
#End If
要发布到正式环境时编译前只需要把 #Const DebugVer = 1 改为 #Const DebugVer = 1 就 OK 了。 阅读全文 >>