当前位置: 代码迷 >> PB >> assess数据库连接有关问题
  详细解决方案

assess数据库连接有关问题

热度:48   发布时间:2016-04-29 06:50:47.0
assess数据库连接问题
我想用pb连接assess数据库,不用ODBC的连接方式,请问怎么连接?

------解决方案--------------------
肿么这么多的问题,直接粘的,你看看吧

OLE DB 方式
//********************************************************
//***              OLE DB Provider for ODBC Databases
//********************************************************  
 
//访问MS Access数据库
OLEObject   adoConnection
adoConnection   =   CREATE   OLEObject
adoConnection.ConnectToNewObject("ADODB.Connection")  
String strConn
//Set oConn=Server.CreateObject("ADODB.Connection")
StrConn="Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};Dbq=E:\db1.mdb;Uid='';Pwd='';"
adoConnection.open(strConn)
//oConn.Open strConn
OLEObject   adoRecordset  
adoRecordset   =   CREATE   OLEObject  
adoRecordset.ConnectToNewObject("ADODB.Recordset")  
adoRecordset.Open("SELECT   *   FROM   city",adoConnection)
String   temp  
temp=adoRecordset.getString()  
MessageBox("Test:",temp)
 
(一) 使用OLE DB方式
********************************************************                   
***            OLE DB Provider for Microsoft Jet
********************************************************                   
Dim oConn,strConn
Set oConn=Server.CreateObject("ADODB.Connection")
StrConn=           "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                     "Data Source=c:\somepath\myDb.mdb;" & _
                                     "User Id=admin;" & _
                                     "Password=;"
oConn.Open strConn

********************************************************
***              OLE DB Provider for ODBC Databases
********************************************************  
访问MS Access数据库
Dim oConn,strConn
Set oConn=Server.CreateObject("ADODB.Connection")
StrConn=           "Provider=MSDASQL;" & _
                                     "Driver={Microsoft Access Driver (*.mdb)};" & _
                                     "Dbq=c:\somepath\mydb.mdb;" & _