
Public conn As ADODB.Connection
Public Sub conect()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Sub
Public conn As ADODB.Connection
Public Sub conect()
On Error Goto Err_Debug
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Persist Security Info=False"
if conn.State=1 then
Msgbox "Подключились!"
end if
lb_out:
exit sub
Err_Debug:
Msgbox Err.Number & ": " & Err.Description, vbCritical
Set conn=Nothing
Resume lb_out
End Sub
Private Sub Form_Load()
With Data1
.DatabaseName = "D:\base.mdb"
.RecordSource = scheta
End With
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 3