Серый форум — VBScript: Добавление записей БД Access

Re: VBScript: Добавление записей БД Access

null@example.com (alexii) — Thu, 17 Dec 2009 10:56:25 +0000

Обновил свой предыдущий пост.

Re: VBScript: Добавление записей БД Access

null@example.com (Loveц) — Thu, 17 Dec 2009 10:53:21 +0000

упс
сори за невнимательность.
все три способа работают, еще раз спасибо за помощь.

этот вопрос закрыт.

Re: VBScript: Добавление записей БД Access

null@example.com (alexii) — Thu, 17 Dec 2009 10:46:46 +0000

Хмм… Ой ли :

$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.

Re: VBScript: Добавление записей БД Access

null@example.com (Loveц) — Thu, 17 Dec 2009 10:11:58 +0000

Виноват, забыл написать...
Пробовал и с апострафами и без. Результат - не работает. В посте выше случайно апострофы остались. А так строчка полностью идентична строчке из способа 3.

Re: VBScript: Добавление записей БД Access

null@example.com (alexii) — Thu, 17 Dec 2009 10:04:20 +0000

Loveц пишет:

способ 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)

Re: VBScript: Добавление записей БД Access

null@example.com (Loveц) — Thu, 17 Dec 2009 08:58:25 +0000

Я имел ввиду что "не прокатил" способ номер 2. А вот ваш третий способ мне очень понравился своей короткостью кода. Ну по скорости потом потестирую... Второй так и не заработал....

способ 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 - ошибка')")

Спасибо

Re: VBScript: Добавление записей БД Access

null@example.com (alexii) — Wed, 16 Dec 2009 19:56:03 +0000

Что не прокатило? Обычная база с одной таблицей с двумя текстовыми полями. 1-й метод — Ваш, добавляем «ручками»; 2-й — пользуем запрос «INSERT INTO…VALUES» через RecordSet; 3-й — тот же запрос «INSERT INTO…VALUES», только работаем непосредственно с объектом «ADODB.Connection»:

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)

Re: VBScript: Добавление записей БД Access

null@example.com (Loveц) — Wed, 16 Dec 2009 16:51:48 +0000

Можно вместо «select …» попробовать сразу «insert into … values …».

Это пробовал - не прокатило....

Я просто про то, что допустим с MySQL, что добавление, что поиск по базе делаются по одинаковому шаблону:
- подключаемся к базе
- устанавливаем свойства для объекта "Рекордсэт" и в конце вызываем его метод Open.
В Access же такое не прокатиро... Поиск да, а вот добавоение только как я указал выше. Я вот и хотел уточнить действительно так или я что упустил...

Ну наверно все же так

P.S. Думал что ADO оно и в Африке ADO, но наверно у Access оно какое-то свое....

Re: VBScript: Добавление записей БД Access

null@example.com (alexii) — Wed, 16 Dec 2009 16:22:05 +0000

Можно вместо «select …» попробовать сразу «insert into … values …».

Насчёт поиска: других вариантов, кроме как «select … where …» (или Вы про что?!), для извлечения нет; естественно, подразумевается, что Вы заранее создали и построили индексы не только по ключевым полям, но и по всем полям, по которым осуществляется поиск.

Re: VBScript: Добавление записей БД Access

null@example.com (Loveц) — Wed, 16 Dec 2009 10:03:00 +0000

Спасибо.

Еще вопрос. Я сейчас для записи в 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?

Re: VBScript: Добавление записей БД Access

null@example.com (alexii) — Mon, 14 Dec 2009 13:04:48 +0000

1. В любом случае, тот или иной драйвер нужен, без него никак (ну, разве что кроме самопальной обработки CSV, Tab Delimited и т.п.). Могу лишь сказать, что действительно, для интегрированного набора Windows XP Professional SP3 пакет MDAC 2.8 SP1 не нужен — он уже наличествует в данном наборе.
2. Хуже. Нет.
3. Для перечисленных форматов отдельно на сервере ничего устанавливать не надо, только на клиенте, поскольку всё перечисленное не является файлами клиент-серверных БД (а xls — вообще не БД, как и csv, Tab Delimited, — просто есть драйвер, позволяющий рассматривать такие файлы как плоскую БД, и использовать команды для работы с БД).

Лучший вариант из перечисленного — mdb в качестве хранилища и, соответственно, Jet — для доступа. В качестве технологии пользовать ADO (а не DAO).

Re: VBScript: Добавление записей БД Access

null@example.com (Loveц) — Mon, 14 Dec 2009 09:04:39 +0000

Прочита всю ветку. Меня сейчас тоже интересует данная тема. А именно: хочу писать некоторые события (ошибки) в БД, которая не требует установки на клиенте отдельных драйверов. Пока что пишется тупо в текстовый файл. Хочется улучшений Вот смотрю в сторону аксеса. Событий-ошибок у меня немного, поэтому проблемы с большим количеством соединений быть не должно.

Вопросы:
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?

Re: VBScript: Добавление записей БД Access

null@example.com (krikerer) — Mon, 04 May 2009 07:40:12 +0000

dsb пишет:

uniken1 пишет:
Писать программу(это уже не скриптовый уровень) которая будет непрерывно работать, обрабатывая логи(иначе инфа из базы будет не достоверной), я думаю будет неправильно.
Да и такой подход(складываия файлов в кучу с последующей обработкой), сейчас может использоваться разве что только школьниками и студентами для изучения паскаля или асма
uniken1, вы напрасно так неадекватно реагируете на достаточно дельный совет от null. Это и невежливо, а, в сочетании с допущенным вами в этом комментарии кучи смысловых, логических и прочих огрех, ещё и нелепо.

У нас в сети всё складывается по файлам и прогой eXponent обрабатывается когда нужно. Очень удобно. А ещё скрипт по расписанию срабатывает (в 2 часа ночи ), лопатит файлы и шлёт письма, по изменениям. БД Access вообще не расшаренная.

Re: VBScript: Добавление записей БД Access

null@example.com (null) — Mon, 04 May 2009 06:22:07 +0000

Эта галочка к акксессу относятся, так что не заморачивайся.

Re: VBScript: Добавление записей БД Access

null@example.com (uniken1) — Mon, 04 May 2009 06:05:54 +0000

1. На сервере Access'a нет. к базе все обращаются через свой локальный Access с путем \\...\*.mdb
2. Как должна помочь блокировка на уровне страниц вместо записей?
3. Там есть подпись что эта галочка не влияет на запросы SQL, а на сколько я понимаю все функции выполняются через него