首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

assess数据库连接有关问题

2013-04-20 
assess数据库连接问题我想用pb连接assess数据库,不用ODBC的连接方式,请问怎么连接?[解决办法]肿么这么多的

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;" & _


                                     "Uid=myUsername;" & _
                                     "Pwd=myPassword;"
oConn.Open strConn
(二) 使用ODBC方式
********************************************************                     
***           ODBC Driver for Access
********************************************************                     
Dim oConn,strConn
Set oConn=Server.CreateObject("ADODB.Connection")
StrConn= "Driver={Microsoft Access Driver (*.mdb)};" & _
                                     "Dbq="&Server.MapPath("Testdb.mdb"); & _
                                     "Uid=AdminAccount;" & _
                                     "Pwd=Password;"
oConn.Open strConn

热点排行