data 控件,DAO,ADO,RDO, DATA控件一般连接本地数据库,DAO与RDO都比较老了,ADO最常用. 连接方式通过ODBC连接,也可以用专用接口!!
菜单"工程/引用/Microsoft Activex Data Object Library 2.0" 后面为版本号Public cn As New ADODB.Connection '数据库连接'连接 SYBASE 数据库 cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
DATA控件一般连接本地数据库,DAO与RDO都比较老了,ADO最常用.
连接方式通过ODBC连接,也可以用专用接口!!
cn.ConnectionString = "Driver={Sybase System 11};SRVR=Cuizm;DATABASE=ResManage;UID=sa;PWD=admind"
'连接 SQL SERVER 数据库
'cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
cn.ConnectionString = ls_Constringcn.OPen这是连接SQL和SYBASE的连接方式,其它的数据库改一下数据库引擎就行了~~
ODBC数据库技术现在ADO技术最常用了现在三层模式进行开发在大企业里用的比较多
'Ado
Set cnSourceDB = New ADODB.Connection
'for Oledb
cnSourceDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Security Info=False"
'for Odbc
cnSourceDB.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\test.mdb;Uid=Admin;"
'Dao
Dim dbOpenFile As DAO.Database
Set dbOpenFile = DBEngine.Workspaces(0).OpenDatabase("c:\test.mdb", False, False, "")
- Access
ODBC
Standard Security:
"Driver={Microsoft Access Driver (*.mdb)};Dbq=\somepath\mydb.mdb;Uid=Admin;Pwd=asdasd;"
Workgroup:
"Driver={Microsoft Access Driver (*.mdb)};Dbq=\somepath\mydb.mdb;SystemDB=\somepath\mydb.mdw;","admin", ""
OLEDB, OleDbConnection (.NET)
Standard security:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=asdasd;"
Workgroup (system database):
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;","admin", ""
With password:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;","admin", ""
'2.5是版本号Sub test()
Dim iDb As ADODB.Connection
Dim iConc As String iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\My Documents\客户资料.mdb"
Set iDb = New ADODB.Connection
iDb.Mode = adModeShareExclusive
iDb.Open iConc
iDb.Close
Set iDb = Nothing
End Sub
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=;"
cn.Open
因为DAO是专门ACESS为做的
下面这两种连接方法,应该都属ADO吧?oledb和odbc分别指什么?有什么区别? 'for Oledb
cnSourceDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Security Info=False" 'for Odbc
cnSourceDB.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\test.mdb;Uid=Admin;"