Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / обращение к сетевой базе в формате Access через ADO из Kix32 скрипта / 2 сообщений из 2, страница 1 из 1
24.04.2002, 13:29
    #32028671
VNT2002
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к сетевой базе в формате Access через ADO из Kix32 скрипта
ADO-спецы!
Я вообще не программист, а админ так что сильно не ругайте.
Написал KIX32 скрипт складывающий в базы информацию по компам. С локальной базой нормально работает, но если переложить базу на сетевой диск то запись не происходит. Права на запись есть, там же лежит лог файл и в него пишется все нормально. Плохо то что это АДО не дает кодов ошибок. Видимо надо поправить метод открытия файла базы но я не знаю как. Может подскажете. Привожу ниже кусок скрипта:

Use Y: "\Server\Dir$"
$DBpath = "Y:\pc-info.mdb"
$CNstring = "provider=microsoft.jet.oledb.4.0;data source=$DBpath;persist security info=false"
$CMDtxt = "select * from COMPUTERS where computer = '@WKSTA'"
$cn = CreateObject ("ADODB.Connection")
$cmd = CreateObject ("ADODB.Command")
$rs = CreateObject ("ADODB.RecordSet")

$cn.connectionstring = $CNstring
$cn.Open
$cmd.activeconnection = $cn
$rs.cursortype = 3
$rs.locktype = 3
$rs.activecommand = $cmd

$cmd.commandtext = $CMDtxt $rs.Open ($cmd)

If $rs.eof = -1 ; addnew is only needed if a record for this workstation was not found.
$rs.addnew
EndIf
...
Рейтинг: 0 / 0
29.04.2002, 06:41
    #32029133
BAlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
обращение к сетевой базе в формате Access через ADO из Kix32 скрипта
Если у вас не срабатывает добавление новой записи, то могу сказать, что при указании метода AddNew надо не забывать указывать метод Update, по которому данные будут действительно занесены в базу.

Вот пример из MSDN:

"
AddNew Method Example (MDB)

The following example creates a new record in an Employees table and saves the changes:

Sub AddNewRecord(ByVal rst As Recordset, _
strLast As String, strFirst As String)

With rst
.AddNew ' Add new record.
!LastName = strLast ' Add data.
!FirstName = strFirst
.Update ' Save changes.
End With
End Sub
"
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / обращение к сетевой базе в формате Access через ADO из Kix32 скрипта / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]