Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Microsoft.Jet.OLEDB.4.0 VB6 / 25 сообщений из 30, страница 1 из 2
  1  все
02.12.2009, 16:16
    #36343902
Странниk63
Странниk63
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft.Jet.OLEDB.4.0 VB6
Подскажите почему

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

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

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

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

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

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



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


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

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

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

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


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

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

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

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

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

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

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

Код: 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:39
    #36344009
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft.Jet.OLEDB.4.0 VB6
Странниk63этой проге 15 лет - торговля
субд доработана
незачем смеятся
смысл не в синтааксе
я его уберал
а результат тот же

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

"C:\OCS70\COPY\BASA.MDB"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2009, 16:40
    #36344018
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft.Jet.OLEDB.4.0 VB6
REPAIR пробовали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2009, 16:41
    #36344019
Странниk63
Странниk63
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft.Jet.OLEDB.4.0 VB6
клиент толстый база общая
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2009, 16:43
    #36344025
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft.Jet.OLEDB.4.0 VB6
Странни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:44
    #36344034
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft.Jet.OLEDB.4.0 VB6
Код: plaintext
MsgBox Err.Number & ": " & Err.Description

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


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