如何使用PB连接OFFEIC access数据库急！！！

首先创建ODBC数据源。

这个你按照向导创建就行。新建的时候会提示你选接口类型，是ACCESS就行。

然后配置路径等等，按照向导做，然后测试一下是否连接成功，成功了就没问题。

然后在PB的DB画板中配置数据库连接，选择ODBC那一项，点右键新建，最上面的名字自己取，服务名就是ODBC你配置的名字。然后设置用户名密码等等。

很简单，您自己看看可能就清楚了。

就是两步，首先配置ODBC，ODBC创建用户或者系统的都可以，然后配置PB。

PB提供了一个DATA LINK 的接口使我们可以通过UDL文件来连接带有密码的ACCESS。

这样我们就可以通过动态生成UDL文件，然后连接ACCESS数据库，具体做法如下：

Integer li_FileNum

String ls_udl

//写入UDL

ls_udl = "[oledb]~r~nEverything after this line is an OLE DB initstring~r~n"

ls_udl+= "Provider=Microsoft.Jet.OLEDB.4.0User ID=AdminData Source=数据库路径Persist Security Info=FalseJet OLEDB:Database Password=密码"

f_writeFile("Connect.udl",ls_udl,"Unicode") //UDL 要求是UNICODE编码

// Profile msg

SQLCA.DBMS = "OLE DB"

SQLCA.AutoCommit = False

SQLCA.DBParm = "PROVIDER='Microsoft.Jet.OLEDB.4.0',DATALINK='connect.udl'"

Connect

FileDelete("Connect.udl")

if sqlca.sqlcode=-1 then

messagebox('提示','数据库连接错误.~r~n'+sqlca.sqlerrtext)

end if

将一下文本另存为 f_writefile.srf,只有PB9及其以前的版本需要这样做，BP10之后可以直接使用PB的FileOpen来解决

$PBExportHeader$f_writefile.srf

$PBExportComments$写入到指定格式的文件中

global type f_writefile from function_object

end type

forward prototypes

global subroutine f_writefile (string as_file, string as_str, string as_typ)

end prototypes

global subroutine f_writefile (string as_file, string as_str, string as_typ)//====================================================================

// 事件: .f_writefile()

//--------------------------------------------------------------------

// 描述:写入到指定格式的文件中，用于PB9生成UNICODE\UTF8文件

//--------------------------------------------------------------------

// 参数:

// value string as_file 文件名

// value string as_str 要写入的内容

// value string as_typ 文件编码类型 "UNICODE" / "UTF-8"

//--------------------------------------------------------------------

// 返回: (none)

//--------------------------------------------------------------------

// 作者: topany 日期: 2008年06月30日

//--------------------------------------------------------------------

// 版权: Topany

//--------------------------------------------------------------------

// 修改历史:

//

//====================================================================

OLEObject ole_ADOStream

ole_ADOStream = Create OLEObject

ole_ADOStream.ConnectToNewObject("ADODB.Stream")

ole_ADOStream.Open()

ole_ADOStream.Position = 0 //Position为0才能设置Charset

ole_ADOStream.Type = 2 //文本数据 1-adTypeBinary 2-adTypeText

ole_ADOStream.Charset = as_typ

ole_ADOStream.WriteText(as_str)

ole_ADOStream.SaveToFile(as_file,2)

ole_ADOStream.Close()

Destroy ole_ADOStream

end subroutine

---