Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с запросом / 25 сообщений из 30, страница 1 из 2
  1  все
16.05.2010, 16:52
    #36630685
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
strobrez = Left(CommonDialog1.FileTitle,  8 )
MsgBox (strobrez)
Adodc2.ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)};DBQ= C:\obmen\archive ;DefaultDir =C:\obmen\archive"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "SELECT " + strobrez + ".KOD," + strobrez + ".NAME ,zayav.NAME FROM " + strobrez + _
"INNER JOIN zayav ON " + strobrez + ".KOD=zayav.KOD"
Set TDataLite2.DataSource = Adodc2
Adodc2.Refresh
TDataLite2.Refresh


Задача состоит в том чтобы вывести схожие позиции

Выдает ошибку
ошибка синтаксиса в предложении FROM
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 16:58
    #36630693
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05adm,

Пробела нет между именем таблицы и INNER
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 17:05
    #36630699
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Используйте алиасы для таблиц, меньше будете таких ошибок допускать:

Код: plaintext
1.
Adodc2.RecordSource = "SELECT STB.KOD, STB.NAME, zayav.NAME FROM " + strobrez + _
" AS STB INNER JOIN zayav ON STB.KOD=zayav.KOD"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 17:38
    #36630726
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,

Спасибо Большое )))

не подскажете как обнулить схожие позиции в двух таблицах и последующей записью их в таблицу zayav в adodc1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 17:43
    #36630736
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05admне подскажете как обнулить схожие позиции в двух таблицах и последующей записью их в таблицу zayav в adodc1

Б-р-р-р.
Каша какая-то.

1) Что такое "обнулить позицию"?
2) Что значит "записать в таблицу zayav", что именно?
3) Что значит zayav в adodc1? Таблица, надо полагать, в базе находится, причем тут adodc1?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 17:52
    #36630753
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,

это два dbf файла подключены через ado ,файл zayav.dbf находится в adodc1,
а в adodc2 как раз результат запроса в котором вы мне помогли,
так вот хотелось бы в схожих значениях в поле KOD в adodc1 и adodc2 в поле ZAKAZ поставить 0,
надеюсь сейчас понятно объяснил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 17:57
    #36630761
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Вы перемешали теплое с мягким.
Сколько у вас баз?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:07
    #36630779
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
формируется dbf файл в 1с с остатками
далее открываю в viusal basic через ado (zayav.dbf)
при отправке заказа (менеджеру)он добавляется в папку архив
, так вот хотелось чтобы при следующем формировании заказа
схожие позиции(в файле zayav.dbf и тем что открываю через CommonDialog с папки архив) в поле ZAKAZ(zayav.dbf) можно было автоматом проставить 0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:13
    #36630785
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
То есть базы две...

К сожалению, с dBase не работал, не знаю синтаксиса, как из одной базы сделать запрос к другой базе, объединив INNER JOIN-ом таблицы из разных баз. Скорее всего можно, но лучше об этом спросить на форуме dBase-ников.

А если принципиально делать через ADO на клиенте, то "объединять" базы придется вручную с помощью цикла имитируя JOIN для двух коннектов.

ADODC вам, кстати, для этого не нужен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:18
    #36630793
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
через ADO пробовал так но понятно из кода что результат будет не всегда верным

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
ad2 = Me.Adodc2.Recordset.RecordCount
For B =  0  To ad2
If Me.Adodc1.Recordset.EOF = False Then
If Me.Adodc2.Recordset.EOF = False Then
namefilt1 = Me.Adodc1.Recordset("KOD").Value
namefilt2 = Me.Adodc2.Recordset("KOD").Value
If namefilt1 = namefilt2 Then
Me.Adodc1.Recordset("ZAKAZ").Value =  0 
End If
Me.Adodc1.Recordset.MoveNext
Me.Adodc2.Recordset.MoveNext
 End If
 End If
 Next B
Adodc1.Refresh
TDataLite1.Refresh
Adodc2.Refresh
TDataLite2.Refresh
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:22
    #36630797
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
кто вас учил форматировать код... >:-o ничего ж непонятно

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
ad2 = Me.Adodc2.Recordset.RecordCount
For B =  0  To ad2
  If Me.Adodc1.Recordset.EOF = False Then
    If Me.Adodc2.Recordset.EOF = False Then
      namefilt1 = Me.Adodc1.Recordset("KOD").Value
      namefilt2 = Me.Adodc2.Recordset("KOD").Value
      If namefilt1 = namefilt2 Then
        Me.Adodc1.Recordset("ZAKAZ").Value =  0 
      End If
      Me.Adodc1.Recordset.MoveNext
      Me.Adodc2.Recordset.MoveNext
    End If
  End If
Next B
Adodc1.Refresh
TDataLite1.Refresh
Adodc2.Refresh
TDataLite2.Refresh
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:23
    #36630799
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Почему MoveNext находятся на одном уровне, оба во внутреннем цикле?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:24
    #36630802
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,

извините)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:25
    #36630803
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Почему MoveNext находятся на одном уровне, оба во внутреннем цикле?

Не, другой вопрос. У вас всегда одинаковое количество записей в обоих рекордсетах?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:25
    #36630804
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,

а как надо было?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:26
    #36630805
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
нет разное , потому то и не получается с этим кодом правильное значение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:28
    #36630808
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05admShocker.Pro,
нет разное , потому то и не получается с этим кодом правильное значение

Ну, грубо говоря, есть два алгоритма, быстрый и простой. Вам какой?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:30
    #36630814
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
любой рабочий)))
movenext во втором рекордсете надо было после цикла по всем строкам в первом пускать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:36
    #36630816
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05admmovenext во втором рекордсете надо было после цикла по всем строкам в первом пускать?
Забудьте, это я глупость сморозил, ибо не ожидал увидеть..... эмммм.... такой странный алгоритм.

aduka05admлюбой рабочий)))
Устраиваете цикл по первому рекордсету. По каждой его строке во втором рекордсете ищете методом .Find нужную запись. Найдено - ставить нолик. Не забывайте делать .Update после изменения записи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:39
    #36630822
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
спасибо вам , не ожидал повстречать здесь такого замечательного человека)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:43
    #36630826
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05admне ожидал повстречать здесь такого замечательного человека)

Интересно, а где вы ожидали меня повстречать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:46
    #36630831
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
вот именно нигде))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:54
    #36630834
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
Shocker.Pro,
Код: plaintext
1.
2.
3.
namefilt1 = Me.Adodc1.Recordset("KOD").Value
namefilt2 = Me.Adodc2.Recordset("KOD").Value
Me.Adodc2.Recordset.Find ("KOD =" + namefilt1)
ошибку выдает так, неправильно написал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:58
    #36630836
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05admShocker.Pro,
Код: plaintext
1.
2.
3.
namefilt1 = Me.Adodc1.Recordset("KOD").Value
namefilt2 = Me.Adodc2.Recordset("KOD").Value
Me.Adodc2.Recordset.Find ("KOD =" + namefilt1)
ошибку выдает так, неправильно написал?
без скобок надо оказывается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2010, 18:59
    #36630838
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с запросом
aduka05admShocker.Pro,
вот именно нигде))
Оптимистичней надо быть

aduka05admошибку выдает так, неправильно написал?
Наверное неправильно.
Текст ошибки я угадать не смог.

И не забывайте, что искать надо с самого начала, а не с текущей позиции
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с запросом / 25 сообщений из 30, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 399ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159789]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 234ms
total:  399ms
x
x
Закрыть


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