PB中连接数据库的方法(TXT)

程序评级:

运行环境: Win9x/2K/XP/2003/Vista

程序大小: 10 KB

更新时间: 2008-5-30 22:33:06

发布时间: 2008-5-29 20:27:36

相关链接: 暂无链接

程序演示: 暂无演示

程序截图: 查看截图/快照

下载次数:
日:3 次周:43 次总:372 次

相关分类: PB教程书籍教程

程序简介

DbParm=ConnectString='DSN=dagang;UID=kantmis;PWD=kantmis'
　Prompt=0

environment  lenv_env   // holds environment information
if ( GetEnvironment(lenv_env) <> 1 ) then
       MessageBox( "Application: Open", &
               "Unable to get environment information.~nHalting ..." )
       halt
end if

SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"
SQLCA.Database = "huachdb"//数据库名
SQLCA.ServerName = "WISCO-2300E1457"//服务器名
SQLCA.LogId = "administrator"//登陆名
SQLCA.AutoCommit = False//取消自动提交
SQLCA.DBParm = ""
connect using sqlca;
if sqlca.sqlcode <> 0 then
     MessageBox ("不能连接到数据库", "可能是没上网或者没有安装数据库~n详细信息为:"+sqlca.sqlerrtext)
     return
end if