ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Microsoft.Jet.OLEDB.4.0 VB6
25 сообщений из 30, страница 1 из 2
  1  все
Microsoft.Jet.OLEDB.4.0 VB6
    #36343902
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
Подскажите почему

Dim PNET As String: PNET="BASA.MDB"

Dim SQLBasa As ADODB.Connection: Set SQLBasa = New ADODB.Connection
SQLBasa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PNET & ";Persist Security Info=False" SQLBasa.Open

100 аналогичных запросов выполняются а вот один не хочет

SQLBasa.Execute "DELETE DISTINCTROW [Счета].* FROM [Счета] WHERE (([Н]>20) AND ([ТС]<>4));"

а на других машинах работает все
...
Рейтинг: 0 / 0
02.12.2009, 16:16
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343915
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
DISTINCTROW зачем???
...
Рейтинг: 0 / 0
02.12.2009, 16:19
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343927
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
не играет роли без этого не работает тоже
...
Рейтинг: 0 / 0
02.12.2009, 16:20
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343929
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Странниk63
> SQLBasa.Execute "DELETE DISTINCTROW [Счета].* FROM [Счета] WHERE (([Н]>20) AND ([ТС]<>4));"

А что это за запрос такой? Может стоит почитать справку о команде DELETE?

И какую ошибку возвращает сие чУдо?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.12.2009, 16:21
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343937
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Игорь Горбонос
> Автор: Странниk63
> SQLBasa.Execute "DELETE DISTINCTROW [Счета].* FROM [Счета] WHERE (([Н]>20) AND ([ТС]<>4));"

А что это за запрос такой? Может стоит почитать справку о команде DELETE?

И какую ошибку возвращает сие чУдо?



у автора же везде работает
...
Рейтинг: 0 / 0
02.12.2009, 16:23
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343948
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
Err (-2147467259 )


Error
Нераспознаваемый формат базы данных: 'C:\DOCUME~1\SUPERV~1\LOCALS~1\Temp\RMS6F.tmp'.
...
Рейтинг: 0 / 0
02.12.2009, 16:25
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343952
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JET в отличие от MSSQL понимает DELETE * FROM....
ну то есть просто игнорирует перечень полей

А MSACCESS-овский конструктор сует DISTINCTROW где ни попадя.

Так что, откуда взялось - понятно. Ждем от автора текст ошибки
...
Рейтинг: 0 / 0
02.12.2009, 16:27
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343955
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
RMS6F. tmp

на мысли не наводит?
...
Рейтинг: 0 / 0
02.12.2009, 16:28
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343956
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
SQLBasa.Execute "DELETE [Счета].* FROM [Счета] WHERE (([Н]>20) AND ([ТС]<>4));"

тоже самое

SQLBasa.Execute "DELETE DISTINCTROW Sys_Persone.*, Sys_Persone.ID From Sys_Persone WHERE ((Sys_Persone.ID>16));"

работает
...
Рейтинг: 0 / 0
02.12.2009, 16:28
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343958
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Странниk63Err (-2147467259 )


Error
Нераспознаваемый формат базы данных: 'C:\DOCUME~1\SUPERV~1\LOCALS~1\Temp\RMS6F.tmp'.

А файл базы данных надо полагать не этот?
...
Рейтинг: 0 / 0
02.12.2009, 16:28
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343963
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
на 20 машинах работают 100 запросов а на 2ух
нет
...
Рейтинг: 0 / 0
02.12.2009, 16:30
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343968
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Konst_One
> у автора же везде работает

Да, я написал, а потом подумал, может пропустил чего? Посмотрел в справки доступных мне средств исполнения команды
DELETE и нигде не нашел подобного синтаксиса.
Так может я действительно пропустил революцию ?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.12.2009, 16:31
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343970
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
я тут наблюдаю всего лишь 1 кривой запрос с неправильным синтаксисом
...
Рейтинг: 0 / 0
02.12.2009, 16:31
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343971
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
просто конечно не этот обробатывается в темпе
...
Рейтинг: 0 / 0
02.12.2009, 16:31
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343976
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
этот синтаксис работет почти везде
он из мастера accecc 2.0
...
Рейтинг: 0 / 0
02.12.2009, 16:33
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343979
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Странниk63этот синтаксис работет почти везде
он из мастера accecc 2.0

ADO <> DAO
...
Рейтинг: 0 / 0
02.12.2009, 16:34
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343980
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shocker.Pro
> JET в отличие от MSSQL понимает DELETE * FROM....
> ну то есть просто игнорирует перечень полей

А да! действительно хавАйся
Караул! а потом хотят вменяемых разработчиков

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.12.2009, 16:34
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343991
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
этой проге 15 лет - торговля
субд доработана
незачем смеятся
смысл не в синтааксе
я его уберал
а результат тот же
...
Рейтинг: 0 / 0
02.12.2009, 16:36
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36343999
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
давайте начнём с самого начала:

Код: plaintext
1.
2.
3.
4.
Dim PNET As String: PNET="BASA.MDB"

Dim SQLBasa As ADODB.Connection: Set SQLBasa = New ADODB.Connection
SQLBasa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PNET & ";Persist Security Info=False" 
SQLBasa.Open

я тут вижу, что путь указан к базе относительный! вот отсюда и начинайте плясать
...
Рейтинг: 0 / 0
02.12.2009, 16:38
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36344009
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Странниk63этой проге 15 лет - торговля
субд доработана
незачем смеятся
смысл не в синтааксе
я его уберал
а результат тот же

Так мы не поняли с файлом. Все станции работают с одним и тем же файлом БД или с разными?
...
Рейтинг: 0 / 0
02.12.2009, 16:39
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36344012
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
путь правильный
я у простил
там в пременной
полный физический путь

"C:\OCS70\COPY\BASA.MDB"
...
Рейтинг: 0 / 0
02.12.2009, 16:40
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36344018
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
REPAIR пробовали?
...
Рейтинг: 0 / 0
02.12.2009, 16:40
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36344019
Странниk63
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Странниk63
Гость
клиент толстый база общая
...
Рейтинг: 0 / 0
02.12.2009, 16:41
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36344025
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Странниk63путь правильный
я у простил
там в пременной
полный физический путь

"C:\OCS70\COPY\BASA.MDB"

ок. пошли дальше:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim PNET As String
PNET="C:\OCS70\COPY\BASA.MDB"

Dim SQLBasa As ADODB.Connection

Set SQLBasa = New ADODB.Connection
SQLBasa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PNET & ";Persist Security Info=False" 
SQLBasa.Open

Dim SQL as String

SQL = "DELETE FROM [Счета] WHERE [Н]>20 AND [ТС]<>4"

On Error Resume Next
SQLBasa.Execute SQL

If Err.Number<> 0  Then
MsgBox Err.Number & ": " Err.Description
else
MsgBox "удалили"
end if

проверьте
...
Рейтинг: 0 / 0
02.12.2009, 16:43
| Ответить | Цитировать | Написать  
Microsoft.Jet.OLEDB.4.0 VB6
    #36344034
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
MsgBox Err.Number & ": " & Err.Description

& пропустил
...
Рейтинг: 0 / 0
02.12.2009, 16:44
| Ответить | Цитировать | Написать  
25 сообщений из 30, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Microsoft.Jet.OLEDB.4.0 VB6
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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