сори за невнимательность.
все три способа работают, еще раз спасибо за помощь.
этот вопрос закрыт.
]]>этот вопрос закрыт.
]]>:$objRecordset.Open("INSERT INTO Таблица1 ('источник', 'ошибка') VALUES ('TEST - источник', 'TEST - ошибка')")
$objRecordset.Open("INSERT INTO Таблица1 (источник, ошибка) VALUES ('TEST - источник', 'TEST - ошибка')", $objConnection)
P.S. В «комбинированном» примере из поста #30 привязка RecordSet'а делалась в первом методе:
; 1-й метод
With $oRecordSet
.Open("SELECT * FROM Table1", $oConnection, $adOpenDynamic, $adLockOptimistic)
…Оттого во втором методе уже не требовалось указывать отдельно Connection.
]]>способ 2 - не работает…
А так:
$objConnection = ObjCreate("ADODB.Connection")
$objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = '\\b2\public1$\errors\1\errors.mdb'"
$objConnection.Open
$objRecordset = ObjCreate("ADODB.Recordset")
$objRecordset.Open("INSERT INTO Таблица1 (источник, ошибка) VALUES ('TEST - источник', 'TEST - ошибка')", $objConnection)
способ 1 - работает
Const $adOpenKeyset = 1
Const $adLockOptimistic = 3
Local $objConnection, $objRecordset
$objConnection = ObjCreate("ADODB.Connection")
$objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\b2\public1$\errors\1\errors.mdb"
$objConnection.Open
$objRecordset = ObjCreate("ADODB.Recordset")
With $objRecordset
.Open ("SELECT * FROM Таблица1", $objConnection, $adOpenKeyset, $adLockOptimistic)
.AddNew
.Fields("источник") = "TEST - источник"
.Fields("ошибка") = "TEST - ошибка"
.Update
EndWithспособ 2 - не работает
$objConnection = ObjCreate("ADODB.Connection")
$objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\b2\public1$\errors\1\errors.mdb"
$objConnection.Open
$objRecordset = ObjCreate("ADODB.Recordset")
$objRecordset.Open("INSERT INTO Таблица1 ('источник', 'ошибка') VALUES ('TEST - источник', 'TEST - ошибка')")способ 3 - работает
$objConnection = ObjCreate("ADODB.Connection")
$objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\b2\public1$\errors\1\errors.mdb"
$objConnection.Open
$objConnection.Execute ("INSERT INTO Таблица1 (источник, ошибка) VALUES ('TEST - источник', 'TEST - ошибка')")Спасибо
AutoItSetOption("MustDeclareVars", 1)
Local Const $adOpenDynamic = 2
Local Const $adLockOptimistic = 3
Local $oConnection = ObjCreate("ADODB.Connection")
Local $oRecordSet = ObjCreate("ADODB.RecordSet")
$oConnection.Open("Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = 'C:\bla-bla-bla\db1.mdb'")
; 1-й метод
With $oRecordSet
.Open("SELECT * FROM Table1", $oConnection, $adOpenDynamic, $adLockOptimistic)
.AddNew
.Fields.Item("Field1") = "Value1"
.Fields.Item("Field2") = "Value2"
.Update
.Close
EndWith
; 2-й метод
With $oRecordSet
.Open("INSERT INTO Table1 (Field1, Field2) VALUES ('Value3', 'Value4')")
EndWith
; 3-й метод
$oConnection.Execute("INSERT INTO Table1 (Field1, Field2) VALUES ('Value5', 'Value6')")
$oConnection.Close
Exit(0)Можно вместо «select …» попробовать сразу «insert into … values …».
Это пробовал - не прокатило....
Я просто про то, что допустим с MySQL, что добавление, что поиск по базе делаются по одинаковому шаблону:
- подключаемся к базе
- устанавливаем свойства для объекта "Рекордсэт" и в конце вызываем его метод Open.
В Access же такое не прокатиро... Поиск да, а вот добавоение только как я указал выше. Я вот и хотел уточнить действительно так или я что упустил...
Ну наверно все же так
P.S. Думал что ADO оно и в Африке ADO, но наверно у Access оно какое-то свое....
]]>Насчёт поиска: других вариантов, кроме как «select … where …» (или Вы про что?!), для извлечения нет; естественно, подразумевается, что Вы заранее создали и построили индексы не только по ключевым полям, но и по всем полям, по которым осуществляется поиск.
]]>Еще вопрос. Я сейчас для записи в MySQL использую следующую схему:
$objADOConnect = ObjCreate ("ADODB.Connection")
$objADORecordset = ObjCreate ("ADODB.Recordset"
; подключаемся к БД
With $objADOConnect
.ConnectionString = "Provider=MSDASQL.1;Driver=MySQL ODBC 5.1 Driver;Server=" & $strServer & ";UID=" & $strLogin & ";PWD=" & $strPassword & ";Database=" & $strBase
.Open
EndWith
; записываем в БД
With $objADORecordset
.ActiveConnection = $objADOConnect
.CursorLocation = 3 ; adUseClient
.CursorType = 1 ; adOpenKeyset
.LockType = 3 ; adLockOptimistic
.Open
EndWithОпытным путем я выяснил что такой способ работает быстрее чем через метод Execute (по крайней мере у меня).
А в Access я щас пишу так:
; устанавливаем соединение с БД
$objConnection = ObjCreate("ADODB.Connection")
$objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & $strErrorDatabasePath
$objConnection.Open
; выбираем нужный набор записей
$objRecordset = ObjCreate("ADODB.Recordset")
$objRecordset.Open ("SELECT * FROM Таблица1", $objConnection, $adOpenKeyset, $adLockOptimistic)
; модифицируем этот набор записей
With $objRecordset
.AddNew
.Fields("дата") = @YEAR & "." & @MON & "." & @MDAY
.Update ; сохраняем изменения
EndWithНет ли второго, возможного более быстрого способа записи (а так же поиска) в БД Access?
]]>Лучший вариант из перечисленного — mdb в качестве хранилища и, соответственно, Jet — для доступа. В качестве технологии пользовать ADO (а не DAO).
]]> Вот смотрю в сторону аксеса. Событий-ошибок у меня немного, поэтому проблемы с большим количеством соединений быть не должно.Вопросы:
1) тут писали, что для коннекта к файлу access нужны компоненты определенные скачанные с мелкософта или установленный офис... есть ли способ соединиться с базой без установки чего-бы то нибыло на чистую WinXP? через Win API может ...
2) а формат dbf хуже формата mdb? может в него можно писать без доп. софта?
3) какие еще есть форматы БД. позволяющие писать в них без установки самих БД? например, чтобы писать в файл dbf, xls, mdb мне не надо ставить на сервере какой то софт, эти файлы можно просто положить на общий ресурс...
P.S. Почитал по ссылке http://www.microsoft.com/downloads/details.aspx?familyid=78cac895-efc2-4f8e-a9e0-3a1afbd5922e&displaylang=ru
Правильно я понял что для связи с access в WinXP не надо ничего дополнительного? Это только для систем до WinXP?
uniken1 пишет:Писать программу(это уже не скриптовый уровень) которая будет непрерывно работать, обрабатывая логи(иначе инфа из базы будет не достоверной), я думаю будет неправильно.
Да и такой подход(складываия файлов в кучу с последующей обработкой), сейчас может использоваться разве что только школьниками и студентами для изучения паскаля или асмаuniken1, вы напрасно так неадекватно реагируете на достаточно дельный совет от null. Это и невежливо, а, в сочетании с допущенным вами в этом комментарии кучи смысловых, логических и прочих огрех, ещё и нелепо.
У нас в сети всё складывается по файлам и прогой eXponent обрабатывается когда нужно. Очень удобно. А ещё скрипт по расписанию срабатывает (в 2 часа ночи ), лопатит файлы и шлёт письма, по изменениям. БД Access вообще не расшаренная.