Исходный РС:
- Код: Выделить всё
Dim path As String
strTable = "Ñòóäåíòû"
path = App.path & "\database.mdb"
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & path & ";"
cn.Open
If cn.State = adStateClosed Then
MsgBox "Connection Error", vbCritical, "Error!"
End
Else
Debug.Print "Connection Object Created"
cn.CursorLocation = adUseClient
End If
SQL = "Select * From " & strTable
rs.Open SQL, cn, adOpenStatic, adLockBatchOptimistic
Debug.Print "Recordset Object Created"
Теперь пытаемся сохранить его в new.mdb
- Код: Выделить всё
Set rs.ActiveConnection = Nothing
Set cn2 = New ADODB.Connection
path = App.path & "\new.mdb"
cn2.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & path & ";"
cn2.Open
rs.ActiveConnection = cn2
rs.MarshalOptions = adMarshalAll
rs.UpdateBatch
new.mdb - пустая база с той же структурой. после выполнения кода так и остается пустой =(
Где копать?