一、從服務(wù)器創(chuàng)建到客戶端：
Public Sub Main3()
'當(dāng)創(chuàng)建成功后，如果要再次創(chuàng)建，請(qǐng)刪除已創(chuàng)建的表，否則提示出錯(cuò)
Dim Cnxn As ADODB.Connection
Dim Cnxn_source As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Dim strSQLRestore As String
Dim strCnxn_source As String
Dim strSQLTitles
Dim strCnxn As String
'數(shù)據(jù)庫(kù)設(shè)有密碼：123456
strCnxn_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurrentProject.Path & "\ado001_be.mdb" & ";jet oledb:database password=123456"
'數(shù)據(jù)為密碼為空
' strCnxn_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurrentProject.Path & "\ado001_be.mdb"
Set Cnxn_source = New ADODB.Connection
Cnxn_source.Open strCnxn_source
strSQLRestore = "SELECT * INTO tblUser_make FROM [MS Access;DATABASE=" & CurrentProject.Path & "\ado001_be.mdb;UID=admin;PWD=123456].[tblUser]"
' strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurrentProject.Path & "\ado001.mdb"
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurrentProject.Path & "\ado001.mdb;"
Set Cnxn = New ADODB.Connection
Cnxn.Open strCnxn
Set rstTitles = New ADODB.Recordset
Cnxn.Execute strSQLRestore, , adExecuteNoRecords
Cnxn.Close
Set rstTitles = Nothing
Set Cnxn = Nothing
MsgBox "已成功執(zhí)行此操作"
Exit Sub
End Sub
|
別人笑我太瘋 | | 
|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó)
( 粵ICP備10043721號(hào)-1 ) 