pb开发程序怎么跟数据库连，代码详细点

setpointer(hourglass!) sqlcadbms=profilestring("hszxini","database","dbms","") sqlcadatabase=profilestring("hszxini","database","database","") sqlcalogid=profilestring("hszxini","database","logid","") sqlcalogpass=profilestring("hszxini","database","logpass","") sqlcaservername=profilestring("hszxini","database","servername","") sqlcadbpass=profilestring("hszxini","database","dbpass","") sqlcauserid=profilestring("hszxini","database","userid","") sqlcalock=profilestring("hszxini","database","lock","") sqlcadbparm=profilestring("hszxini","database","dbparm","") sqlcaautocommit=true connect using sqlca; setpointer(arrow!) if sqlcasqlcode<0 then messagebox(" *** 作失败","数据库连接错误!") halt end if 初始文件hszx。ini是配置文件，可以在开发目录夏建一个 [Database] DBMS=O84 ORACLE 804 Database= UserId= DatabasePassword= LogPass=密码 ServerName=服务器名 LogId=登录名 Lock= DbParm= Prompt=0 AutoCommit=0 其他的数据库也雷同

registryset("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINI\ODBC Data Sources","mydatabase",regstring!,"Adaptive Server Anywhere 80")

registryset("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINI\mydatabase","AutoStop",regstring!,"yes")

registryset("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINI\mydatabase","DatabaseFile",regstring!,"mydatabasedb")

registryset("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINI\mydatabase","Driver",regstring!,"dbodbc8dll")

registryset("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINI\mydatabase","Integrated",regstring!,"NO")

registryset("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINI\mydatabase","Start",regstring!,"dbeng8exe -Q")

SQLCADBMS = "ODBC"

SQLCAAutoCommit = False

SQLCADBParm = "ConnectString='DSN=mydatabase;UID=dba;PWD=sql'"

Connect using sqlca;

ODBC只是PB和数据库之间的一个桥梁而已。

ODBC指向数据库，而PB指向ODBC。

PB提供了专门的ODBC接口，先配置ODBC数据源，连接数据库。

然后在PB里面，找到DataBase Painter，找里面的ODBC，新建一个，配置连接就好了。

pb每连接一个数据库用一个事务对象 平常我们所用的sqlca就是默认的事务对象 你可以定义多个事务对象transaction 例如transaction mytran 你再设置一下连接参数,就像设置sqlca的连接参数一样, 最后连接,当然,是用connect using mytran; 如果不加后面的using mytran,系统默认用sqlca连接 这样就连接上另外一个数据库了,你还可以再定义几个, 这样当你 *** 作不同的数据库(sql代码)时,你就在后面加上一个(using 事务对象名) 而数据窗口就在settransobject()这步设置 你可以试试

你缺少自动连接数据库的语句你是用ASA数据库吧得用到以下语句在你源程序的Application的open事件中：

//其中dsn_name为你所建立的数据源名字

gs_curpath = space(100)

GetCurrentDirectoryA(100,gs_curpath)//获得程序路径

gs_curpath = trim(gs_curpath)

if right(gs_curpath,1)<>'\' then

gs_curpath = gs_curpath+"\"

end if

RegistryDelete ("HKEY_CURRENT_USER\software\odbc\odbcini\odbc data sources", dsn_name )

RegistryDelete ("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name, "" )

//如果没有此句,odbc中无此数据源名称，但可以用

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\odbc data sources",dsn_name,regstring!,"Adaptive Server Anywhere 80")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"AutoStop",regstring!,"Yes")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"DatabaseFile",regstring!,gs_curpath + db_filename)//db_filename为你数据库名字

// registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"Debug",regstring!,"NO")

// registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"DisableMultiRowFetch",regstring!,"NO")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"Driver",regstring!,gs_curpath+"dbodbc8dll")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"Integrated",regstring!,"NO")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"PWD",regstring!,"sql")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"UID",regstring!,"dba")

registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"Start",regstring!,gs_curpath+"dbeng8exe -q -cl 32m")

// registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"Start",regstring!,gs_curpath+"dbeng8exe -d -qp -cl 8m")

//registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"ServerName",regstring!,gs_curpath+"dbsrv8exe")

//registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"DataBaseName",regstring!,"HTCTS10")

// registryset("HKEY_CURRENT_USER\software\odbc\odbcini\" + dsn_name,"Start",regstring!,gs_curpath+"dbeng8exe -Q ")

//用户名和口令不注册,以保安全,下面连接时输入正确的用户名和口令即可。end if

SQLCADBMS = "ODBC"

SQLCADBParm = "ConnectString='DSN=" + dsn_name + ";UID=dba;PWD=sql'"

SQLCAAutoCommit = False

connect;

//还需要一些文件 你从网上down就行了

以上就是关于pb开发程序怎么跟数据库连，代码详细点全部的内容，包括:pb开发程序怎么跟数据库连，代码详细点、简述“在PB8.0中如何连接本地已有的ASA数据库”、PB如何连接ODBC数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！