powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Несколько вопросов.
23 сообщений из 48, страница 2 из 2
Несколько вопросов.
    #32857007
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>В папку Виндоус я скопировал такие файлы
А надо в WINDOUS\SYSTEM для Win9X, WINNT\SYSTEM32 или WINDOWS\SYSTEM32 для Win2K и XP. Кроме того их можно просто оставить в том каталоге, в котором лежит и сам фоксовский exe-шник
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32857060
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Одессит!

Теперь мне надо было её запустить в другое ОС, где нет Фокса
Видимо та ОС это древняя Win98 - тогда поставь там dcom98.exe который
обновит систему до более-менее приемлемого состояния :)
А вообще надо пользоваться InstallShield или иным инструментом создания
дистрибутивов, а не "копированием файлов" :)

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32857193
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Burn>В папку Виндоус я скопировал такие файлы
А надо в WINDOUS\SYSTEM для Win9X, WINNT\SYSTEM32 или WINDOWS\SYSTEM32 для Win2K и XP. Кроме того их можно просто оставить в том каталоге, в котором лежит и сам фоксовский exe-шник
Если бы я копировал не туда куда надо, то выдавалась бы ошибка, что не может найти библиотеки, а выдавалась другая. А копировал я действительно в Систем.
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32857197
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Igor Korolyov
Hi Одессит!

Теперь мне надо было её запустить в другое ОС, где нет Фокса
Видимо та ОС это древняя Win98 - тогда поставь там dcom98.exe который
обновит систему до более-менее приемлемого состояния :)
А вообще надо пользоваться InstallShield или иным инструментом создания
дистрибутивов, а не "копированием файлов" :)

А что это за dcom98.exe? Где его взять? А то завтра мне ещё по практики показывать программу нужно, а у них кажись тоже 98.
А с InstallShield я ещё не разбирался
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32857488
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Интересная ошибка, даже не знаю, как это можно исправить, может кто-то подскажет.
У меня на форме два ЛистБокса, в них информация должна поступать из таблиц. Делаю я это примерно так
Код: plaintext
1.
2.
3.
thisform.lstcl.RowSourceType =  3 
cSQL = 'select * from client'
thisform.lstcl.RowSource = cSQL
Пробывал и через свойства ЛистБокса, эффект тот же. Он пишет, что не может получить доступ к какой-то таблице, к той, что была загружена раньше и ЛистБокс исчезает с формы. Когда одна таблица, то такой ошибки не возникает.
Может я как-то таблицы не правильно сделал? Кто что посоветует?
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32858018
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добавление к предыдущему сообщению
Весь код выглядет так:
Код: plaintext
1.
2.
3.
4.
5.
thisform.lstst.RowSourceType =  3 
stSQL = 'select * from stations'
thisform.lstcl.RowSourceType =  3 
cSQL = 'select * from client'
&&thisform.lstcl.RowSource =csql
thisform.lstst.RowSource =stsql
Если убрать коментарий, то выдаётся ошибка о доступе и пишется код SQL.
Если поменять последнии две строчки местами, то ошибка соответственно будет в другом запросе и таблице
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32865884
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С предыдущем вопросом я сам разобрался, там надо было использовать курсор, а не таблицу.
Но у меня появлась новая проблема, причём ошибки, которые возникают очень смешные.
Мне надо:
1) Открывать таблицу через проводник
2) Использовать её в программе, как обычную таблицу
Но, как это правельно сделать?
Я использую элемент commonDialog. Получаю в переменную строку с адресом.
Код: plaintext
1.
2.
3.
public bd 
thisform.CdFile.filter ="Áàçà äàííûõ Æ/Ä (*.dbf)|*.dbf|"
thisform.CdFile.ShowOpen 
bd = thisform.CdFile.FileName
А что делать дальше? Пробую использовать переменную, как название таблицы, выдаётся ошибка, что bd должна быть создана с помощью SELECT ... INTO TABLE. Пробую сделать по другому
Код: plaintext
1.
2.
3.
4.
5.
public bdF
thisform.CdFile.filter ="Áàçà äàííûõ Æ/Ä (*.dbf)|*.dbf|"
bdF = ""
thisform.CdFile.ShowOpen 
bdF = thisform.CdFile.FileName
SELECT * FROM bdF INTO CURSOR bd
Ошибка таже. Если создам как таблицу, а не курсор, то она сохраняется на диске с именем bd.dbf, но всё равно та же ошибка, да мне и сохранение не подходит. Работать программа начинает, когда имя переменной совпадает с именем файла, но это не выход, и даже в этом случае есть ошибка. Каталог по умолчанию почему-то меняется в папку, где я выбрал файл. Причём меняется в проекте и в следующий запуск я даже форму не могу открыть. Я проверял sys(2003), каталог изменяется. Что это такое и как от этого избавится?

У кого-то есть примеры программ, где используется commonDialog для открытия и подключения таблиц с дальнейшим использованием в запросе? Если можете скиньте на мыло - odessit-ua@ukr.net
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866114
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Одессит!

> SELECT * FROM bdF INTO CURSOR bd

Зачем выбирать все записи я не понимаю - сделай ей USE под определённым
алиасом и работай.

А так - у тебя нету ни макро, ни именованного выражения - это раз, и нету
NOFILTER - что нужно для такого запроса чтобы сделать "правильный" курсор а
не "фильтрованную таблицу"

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866174
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Igor Korolyov
Hi Одессит!

> SELECT * FROM bdF INTO CURSOR bd

Зачем выбирать все записи я не понимаю - сделай ей USE под определённым
алиасом и работай.

А как это правлиьно сделать? Можно пример кода? А то я делаю, а он ошибку выдаёт, что-то про доступ, точно не помню
А так - у тебя нету ни макро, ни именованного выражения - это раз, и нету NOFILTER - что нужно для такого запроса чтобы сделать "правильный" курсор а не "фильтрованную таблицу"

Честно говоря вообще ничего не понял. Вам не сложно хоть какой-то примерный код вставлять? Просто мне так легче понять.
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866247
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По поводу Алиаса. Я написал так
Код: plaintext
1.
2.
3.
4.
5.
public bdF
thisform.CdFile.filter ="Áàçà äàííûõ Æ/Ä (*.dbf)|*.dbf|"
bdF = ""
thisform.CdFile.ShowOpen 
bdF = thisform.CdFile.FileName
USE bdf IN  0  ALIAS bd
В результате ошибка, что bdF.dbf не существует. Т.е. адрес не подходит, а как это сделать? Мне нужно, чтоб bd я дальше использовал как таблицу.
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866403
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
USE (bdf) IN  0  ALIAS bd
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866544
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
quot Urri]
Код: plaintext
USE (bdf) IN  0  ALIAS bd
[/quot]
Ой, спасибо, работает.
А как закрывать таблицы при завершении работы? А то при следующем запросе выдаётся ошибка, что файл используется.
И ещё одна ошибка, я уже про неё писал, это то, что при использовании commonDialog меняется каталог по умолчанию. Мне что перед его использованием нужно сохранять путь к каталогу, а потом снова устанавливать?
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866560
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>А как закрывать таблицы при завершении работы?
Если открыл:
USE (bdf) IN 0 ALIAS bd

То закрыть:
USE IN bd
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32866865
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Burn!

Лучше USE IN SELECT("bd") - на случай непреднамеренного досрочного её
закрытия :)
А возникающие проблемы с ошибкой совместного доступа наводят на грустные
мысли про SET EXCLUSIVE ON :(

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32868900
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Возникла одна проблема, не могу из таблицы удалить запись, делаю это так:
Код: plaintext
1.
2.
3.
4.
5.
cCurCl=ALLTRIM(TRANSFORM(oMainForm.lstcl.DisplayValue))
if (len(cCurCl) >  0 )
	DELETE from client WHERE ALLTRIM(TRANSFORM(KODKL))= cCurCl
	?cCurCl
endif
Но ничего не удаляется. Как будто условие не выполняется, но оно не может не выполнятся. У меня такое условие в другом запросе SELECT, там он отлично выполняется, а тут не хочет. И строчка ниже выполняется, выдаётся имено то, что в таблице. В чём может быть проблема? Уже и с помощью Val преобразовывал к числовому виду, результат тот же. Может я что-то не так делаю?
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32868904
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что такое "удаление" в FoxPro смотри во вложенном файле
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32868959
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А, понял, у меня доступ открыт только для чтения этой таблицы. Добавляь могу, а вот удалять нет. А как изменить доступ?
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32868963
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не видел предыдущее сообщение. Спасибо за подсказку
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32869192
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так, всёравно не разобрался. Моя проблема там не описана.
У меня к проекту подключено две таблицы client и station. Я в коде к ним для открытия вообще не обращаюсь, хотя в lstst.RowSource я указываю такой запрос: select * from stations into cursor tmpSt
Далее я пытаюсь добавлять или удалять. Когда создаю проект, т.е. работаю в Визуал ФоксПро, то при операции PACK выдаётся ошибка, что файл используется, поэтому я включил Deleted On и написал PACK в form.Unload, это помогло. Изменение SET EXCLUSIVE ничего не давало
Но при запуске готового еxe выдаётся другая ошибка. Что невозможно обновить курсор, так как он доступен только для чтения. А как поменять доступ к моей таблице? И где это сделать?
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32869236
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А не включил ли ты случайно таблицы внутрь exe-шника? Исключи немедленно (опция exclude в проекте).
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32869245
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, и кстати, операциями типа PACK так разбрасываться негоже. Обычно в формах делают только DELETE, а физическую чистку - которая, кстати, приводит к пересозданию файла - можно вынести в административную часть программы, которую запускают, когда никто из пользователей не работает. Ночью, например.
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32869417
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ОдесситНо при запуске готового еxe выдаётся другая ошибка. Что невозможно обновить курсор, так как он доступен только для чтения. А как поменять доступ к моей таблице? И где это сделать?
http://www.sql.ru/faq/faq_topic.aspx?fid=251
...
Рейтинг: 0 / 0
Несколько вопросов.
    #32870447
Одессит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UrriДа, и кстати, операциями типа PACK так разбрасываться негоже. Обычно в формах делают только DELETE, а физическую чистку - которая, кстати, приводит к пересозданию файла - можно вынести в административную часть программы, которую запускают, когда никто из пользователей не работает. Ночью, например.
В моей таблице не будет больше 10 записей и работает только в одном месте
...
Рейтинг: 0 / 0
23 сообщений из 48, страница 2 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Несколько вопросов.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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