powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FoxPro & MSSQL
8 сообщений из 8, страница 1 из 1
FoxPro & MSSQL
    #34309254
aksjuta
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Help me PLS!
Есть задача, нужна програмка, которая при запуске соединялась бы с SQL server,вставляла бы в определенную таблицу новую строку с системной датой и закрывалась. Все по отдельности понятно, а как это сделать через FOXPro - ­не знаю. Может кто поможет советом?

STORE SQLCONNECT('ODBCName', user) TO gnConnHandle
IF gnConnHandle < 0
= MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
ELSE
= MESSAGEBOX('made connection',48, 'SQL Connect Message')
????
INSERT INTO mytable (DateS) values(getDate())


а как указать FOXPRO к какой именно базе на сервере нужно коннектиться?
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34309268
.....
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
STORE SQLCONNECT('ODBCName', user) TO gnConnHandle
IF gnConnHandle < 0
= MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
ELSE
= MESSAGEBOX('made connection',48, 'SQL Connect Message')
endif

cSql='INSERT INTO mybd.dbo.mytable (DateS) values(getDate())'

sqlexec(gnConnHandle,cSql)
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34309404
aksjuta
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
большое спасибо!!!!
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34395409
aksjuta
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В дополнении к этому.
Программа написана, работает. Но почему-то не всегда срабатывает. Т.е. после отработки программы, подключаешься к базе через Query Analyzer и делаешь запрос:
select * from Table where assertion='R'

Так вот иногда, вместо необходимого значения true в поле holds остается false.
Причем не всегда.

Текст программы прилагаю:
STORE SQLCONNECT('SRVNAME', 'USER') TO gnConnHandle
cSql='update DBName.dbo.Table set holds="true", asof =(GETDATE()) where assertion="R"'
sqlexec(gnConnHandle,cSql)
quit


Может кто-нибудь подскажет, почем такое происходит? Что неверно?
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34395573
.....
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Структуру таблицы покажите
Проверьте условие where в запросе
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34395930
aksjuta
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Table:
assertion (varchar(1024), Not Null)
holds(varchar(5), Not Null)
asof (smalldatetime, NULL)

Таблица содержит всего 2 записи:
assertion holds asof
G false 2007-02-07 00:00:00
R false 2007-03-15 21:15:00
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34396573
.....
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А зачем поле varchar(1024) для assertion, если используются только 2 значения R и G?

попробуйте так:
cSql='update DBName.dbo.Table set holds="true", asof =(GETDATE()) where rtrim(ltrim(assertion))="R"'
sqlexec(gnConnHandle,cSql)
...
Рейтинг: 0 / 0
FoxPro & MSSQL
    #34396963
aksjuta
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сори, значение поля больше, чем я сказала, правда на не настолько. Реальные значения assertion (varchar(1024), Not Null):
ReportsReady - G
RestoreReports - R
Но мысль поняла, спасибо, попробую
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FoxPro & MSSQL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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