[求助] - 编程论坛

#2

潇洒老乌龟2005-12-13 22:46

// Profile school0912
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = Ls_DBName
SQLCA.ServerName = Ls_ServerName
SQLCA.LogId = Ls_UserName
SQLCA.LogPass = Ls_DBPwd
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

上面的变量改为你自己的东西.

#3

潇洒老乌龟2005-12-13 22:47

或者放到ini文件中

[database]
DBMS=MSS Microsoft SQL Server 6.x
Database=dbname

UserId=
DatabasePassword=
ServerName=servername

LogId=sa
LogPass=
DbParm=
Lock=

#4

kingnan19882008-07-14 13:10

回复 3# 潇洒老乌龟的帖子

连接数据库的两种方法：

一
   1.点击pb上的DATABASE图标，选择数据库连接的接口(如'MSS Microsoft SQL Server')；
   2.鼠标右键单击，选择new profile... ，新建；
   3.在弹出的窗口中，然后输入相关的信息：
      profile name：随便取，要英文的
      server      ：连接数据库的服务器名称
      login ID    ：登入数据库服务器用户名
      password    ：登入数据库服务器密码
      database    ：要连接的数据库名称；
   4.完成后，选择preview选项卡，进行测试；若成功，复制代码到PB中的应用程序对象的open事件中；

二
   1.新建一个ini配置文件跟应用程序放在同一目录，ini文件格式如下：
     [DataBase]
     DBMS=                  //数据库连接接口方式
     Database=              //要连接的数据库名称
     UserId=                //与数据连接库的用户名
     DatabasePassword =     //与数据连接库的密码
     LogId=                 //登入数据库服务器用户名
     LogPassword=           //登入数据库服务器密码
     ServerName=            //要连接数据库的服务器名称
     DbParm=                //与DBMS相关的参数
   2.在应用程序对象的open事件输入一下代码：
   //连接数据库
   SQLCA.DBMS = ProfileString("config.ini","Database","DBMS","")
   SQLCA.Database = ProfileString("config.ini","Database","Database","")
   SQLCA.UserID = ProfileString("config.ini","Database","UserId","")
   SQLCA.DBPass = ProfileString("config.ini","Database","DatabasePassword","")
   SQLCA.LogID = ProfileString("config.ini","Database","LogId","")
   SQLCA.LogPass = ProfileString("config.ini","Database","LogPassword","")
   SQLCA.ServerName= ProfileString("config.ini","Database","ServerName","")
   SQLCA.DBParm = ProfileString("config.ini","Database","DbParm","")
   SQLCA.Lock = ProfileString("config.ini","Database","Lock","")
   connect using sqlca;
个人认为第二种方法比较简便，只要修改ini文件就能进行连接，而第一种需要新建连接。