powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / О ГУРУ аЦесса напишите три строчки..
19 сообщений из 44, страница 2 из 2
О ГУРУ аЦесса напишите три строчки..
    #32226163
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Смею повториться - это не в вебе, а на локале
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226187
VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если я правильно понял то что-то типа
Код: plaintext
1.
2.
3.
For Each $my_query in $my_array;
docmd.runsql $my_query;
'or CurrentProject.Connection.Execute my_string,,adCmdText+adExecuteNoRecords; 
next;
P.S split у тебя неправильный.Д.б
$my_array = split$my_text,("\n" );
Границы массива можно определить с помощью функций LBound - нижняя,
UBound - верхняя
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226194
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Теперь я не понял :)
На каком языке мы пишем?
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226199
VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я на VBSCRIPT, а РНР - не знаю
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226210
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Фууу.. Спасибо VIG у - команды отрабатывают, всё в базу легло, но выругалось на последнем (пустом) елементе СПЛИТ а
Терь последний штрих - прроверка на наличие строки IF... THEN...
Проверьте пжлста - где ГОН.. Валидатор опять сказал, что я лох,

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Command2_Click()
AllText = Split(Text0.Value,  ";" )
For Each ToQuery In AllText
    If Len(ToQuery) Then DoCmd.RunSQL ToQuery
    End If
Next
End Sub


Пишем на ВБ - начальный ПХП-код был для примера (думал - облегчит понимание, но наоборот запутал - звините)
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226215
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Валидатор опять сказал, что я лох ,

Если бы тебе валидатор такое сказал, ты бы такие вопросы не задавал
Лох - на этом форуме имя собственное и уважаемое.

>Пишем на ВБ - начальный ПХП-код был для примера (думал - облегчит понимание

Ага, понятно, хорошо что не на ассемблере принялся объяснять:)

==
Чуть не забыл
If Len(ToQuery) >0 Then DoCmd.RunSQL ToQuery
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226217
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и End IF убери
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226289
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Наконец-то заработало минимально хорошо. Огромное спа VIG у и Senin Viktor у.
Теперь положить клЫенту в комп и не дышать.
Однако поганое чувство гложет - незя сдавать работы, под которыми не можешь подписаться. В данном случае я не могу сказать, что код хорош (не потому что плох, а потому что язык не поворачивается - не знаю я хорош он или нет)

В коментах, с Вашего позволения, я пропишу линк на Форум и уважаемых помощников.
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32226313
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>В данном случае я не могу сказать, что код хорош

чтобы судить хорош код или нет - надо его целиком увидеть
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228782
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
При работе вышеозначенного скрипта, АЦЕСС постоянно, с каждей транзакцией, спрашивает: Действительно ли я хочу закинуть/поправить что то в базе??
Предупредительный, мля..
Подскажите, пжлста, где это отключается.
Незя ж 200-250 записей подтверждать - издевательство ж..
;-)
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228794
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
лучше сделай
CurrentProject.Connection.Execute бла-бла
вместо docmd.runSql бла-бла
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228801
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Senin Viktor - в краце, прокомментируйте, пжлста, разницу
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228808
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2PHP

В кратце не получиться :)

Лучше используй Execute - шире возможности (будет задел на будущее).
Да и сообЧений получать не будешь - разве этого не достаточно?
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228828
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Да. Отсутствие сообщений - это то что нужно..
Но раз я залез в это дело, хочется по-максимуму делать осмысленно.
К примеру в ПХП - нет ни одного знака в моём коде за который бы я не обьяснил - зачем именно этот, а не другой.

Тут этого нет, отсюда и моральные неудобства и "зелёные" вопросы. Чесговоря VB-хелп совершенно бездарный..

Еще вопрос. Как блокируется сообщение об ошибках в транзакциях? Чтоб не стопорило скрипт, а переходило к следующей строке?

ToQuery = "UPDATE бла-бла-бла..."
Ща так:
If Len(ToQuery) > 0 Then CurrentProject.Connection.Execute ToQuery

так не проходит:
If Len(ToQuery) > 0 AND CurrentProject.Connection.Execute(ToQuery) Then
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228834
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2PHP

>Чесговоря VB-хелп совершенно бездарный..

Для разработки надо MSDN иметь.

>Еще вопрос. Как блокируется сообщение об ошибках в транзакциях? Чтоб не стопорило скрипт, а переходило к следующей строке?

On error resume next 'отключаем обработку ошибок
If Len(ToQuery) > 0 Then CurrentProject.Connection.Execute ToQuery
On Error Goto 0 'опять включаем
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228837
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лучше так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
On error resume next 'отключаем обработку ошибок 
If Len(ToQuery) > 0 Then CurrentProject.Connection.Execute ToQuery 

If err.Number<>0 then
'Была ошибка
Else
'не было
End if

On Error Goto 0 'опять включаем
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228887
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Senin Viktor , моё глубокое почтение.. Спасибо!

Лейбл в строке "On Error Goto 0" показывает на какую строчку кода вернуться?
Если так, то я ее просто удалил, так как проверка идёт в цикле ФОР
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228910
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Лейбл в строке "On Error Goto 0" показывает на какую строчку кода вернуться?
Если так, то я ее просто удалил, так как проверка идёт в цикле ФОР

Верни обратно. Эта хрень никуда ни по какой метке не переходит. Это такой синтаксис отключения Resume Next. А то у тебя вообще ни какие ошибки показываться не будут.
...
Рейтинг: 0 / 0
О ГУРУ аЦесса напишите три строчки..
    #32228925
PHP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PHP
Гость
Опс.. ОК верну.
Правда это тоже хорошо.. ;-)) В скрипте из 5 строк ошибки это слишком.. ;-)
...
Рейтинг: 0 / 0
19 сообщений из 44, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / О ГУРУ аЦесса напишите три строчки..
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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