ActiveX component can't create object
Sub Soob()
Dim db As DAO.Database, r As DAO.Recordset
Set db = Workspaces(0).OpenDatabase("C:\Documents and Settings\Julia\Рабочий стол\настя\ПИС\Проект\basa.mdb")
Set r = db.OpenRecordset("Покупатель")
r.AddNew
r.Fields(0) = 1
r.Fields(1) = Cells(3, 14)
r.Update
r.Close
db.Close
Set r = Nothing
End Sub
на второй строке выскакиквает ошибка
что это значит?
Пишу
Sub Soob()
Dim db As DAO.Database, r As DAO.Recordset
Set db = Workspaces(0).OpenDatabase("C:\Documents and Settings\Julia\Рабочий стол\настя\ПИС\Проект\basa.mdb")
Set r = db.OpenRecordset("Покупатель")
r.AddNew
r.Fields(0) = 1
r.Fields(1) = Cells(3, 14)
r.Update
r.Close
db.Close
Set r = Nothing
End Sub
на второй строке выскакиквает ошибка
что это значит?
Может стоит попробовать через ADO?:
Option Explicit
.
Const Provider = _
"Provider=Microsoft.Jet.OLEDB.4.0;"
Const DataSource = _
"Data Source=C:\Documents and Settings\Julia\Рабочий стол\настя\ПИС\Проект\basa.mdb;"
Const DataBasePath = _
"C:\Documents and Settings\Julia\Рабочий стол\настя\ПИС\Проект\basa.mdb"
dim Catalog As ADOX.Catalog
dim Connect As ADODB.Connection
dim Record As ADODB.Recordset
.
Sub Soob()
Set Catalog = New ADOX.Catalog
Let Catalog.ActiveConnection = Provider & DataSource
Set Connect = New ADODB.Connection
Call Connect.Open(Catalog.ActiveConnection)
Set Record = New ADODB.Recordset
Call Record.Open("Покупатель", Connect, adOpenDynamic, adLockOptimistic)
Record.Fields.Refresh
Record.AddNew
Record.Fields(0) = 1
Record.Fields(1) = Cells(3, 14)
Record.Update
If Record.state = adStateOpen Then Call Record.Close
Set Record = Nothing
If Connect.state = adStateOpen Then Call Connect.Close
Set Connect = Nothing
Set Catalog.ActiveConnection = Nothing
Set Catalog = Nothing
End Sub
Удачи