Отправка данных на Sql server

@fedya.lutkovski · Регистрация: 24.03.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте. Столкнулся с такой проблемой, как добавить запись в таблицу на sql server из foxpro?

@sks1904 · 01.10.2012, 20:32

для начала требуется соединение с sql-сервером, оно создается из фокса или используется созданное ODBC-соединение, далее командой sqlexec(дескриптор_соединения,команда_до бавления_записи_в_таблицу) добавляется запись
для примера:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
*** 19 октября 2010 11:04 ****************************************************************
******************************************************************************************
******************************************************************************************
*** открытие файла login.ini и чтение из него параметров подключения
*** к базе данных, данные заносятся в переменные
*** база данных:  lcDBase
*** логин:         lcLogin
*** пароль:           lcPass
******************************************************************************************
*** оформление файла *********************************************************************
******************************************************************************************
*** database = /имя базы данных/
*** login = /логин/
*** pass = /пароль/
*** server = /имя сервера/
******************************************************************************************
******************************************************************************************
*!* LOCAL lnDescr, lcSQL
*!* lnDescr = 0
*!* lnDescr = get_description()
*!* MESSAGEBOX(STR(lnDescr))
*!* lcSQL = "select * from action"
*!* SQLEXEC(lnDescr,lcSQL,"temp")
*!* SQLDISCONNECT(lnDescr)
 
 
PROCEDURE get_description
    IF FILE("login.ini")
        LOCAL lnHandle, lnByte, lcFile, lcDBase, lcLogin, lcPass, lcServer, lnDescription
        lnDescription = 1
        lnHandle = FOPEN("login.ini",2)     && открытие файла для чтения/записи
        lnByte = FSEEK(lnHandle, 0, 2)      && чтение размера файла, переход в конец файла
         = FSEEK(lnHandle,0,0)              && переход в начало файла
        lcFile = FREAD(lnHandle, lnByte)    && чтение содержимого файла
        FCLOSE(lnHandle)                    && закрытие файла
        lcStr = SUBSTR(lcFile, 1, AT(CHR(13),lcFile))
        lcFile = SUBSTR(lcFile,AT(CHR(13),lcFile)+1)
        lcDBase = SUBSTR(SUBSTR(lcStr,AT("/",lcStr)+1),1,AT("/",SUBSTR(lcStr,AT("/",lcStr)+1))-1)
        lcStr = SUBSTR(lcFile, 1, AT(CHR(13),lcFile))
        lcFile = SUBSTR(lcFile,AT(CHR(13),lcFile)+1)
        lcLogin = SUBSTR(SUBSTR(lcStr,AT("/",lcStr)+1),1,AT("/",SUBSTR(lcStr,AT("/",lcStr)+1))-1)
        lcStr = SUBSTR(lcFile, 1, AT(CHR(13),lcFile))
        lcFile = SUBSTR(lcFile,AT(CHR(13),lcFile)+1)
        lcPass = SUBSTR(SUBSTR(lcStr,AT("/",lcStr)+1),1,AT("/",SUBSTR(lcStr,AT("/",lcStr)+1))-1)
        lcStr = lcFile
        lcServer = SUBSTR(SUBSTR(lcStr,AT("/",lcStr)+1),1,AT("/",SUBSTR(lcStr,AT("/",lcStr)+1))-1)
        lcConnect = "DRIVER=SQL Server; " + ; 
                    "Language=Us_English; " + ; 
                    "SERVER=" + lcServer + "; " + ; 
                    "UID=" + lcLogin + "; " + ; 
                    "PWD=" + lcPass + "; " + ; 
                    "DataBase="+lcDBase
        *MESSAGEBOX(lcConnect)
        lnDescription = SQLSTRINGCONNECT(lcConnect)
        RETURN lnDescription
    ELSE
        LOCAL lnErrFile, lcErrStr
        lcErrStr =  "database = /имя базы данных/" + CHR(13) + ; 
                    "login = /логин/" + CHR(13) + ; 
                    "pass = /пароль/" + CHR(13) + ; 
                    "server = /имя сервера/"
        lnErrFile = FCREATE("login.ini")
        =FWRITE(lnErrFile, lcErrStr)
        =FCLOSE(lnErrFile)
        MESSAGEBOX("Создан файл авторизации login.ini, заполните параметры!",48,"Сообщение")
    ENDIF 
ENDPROC

сори за некоторые стыдности, писал под себя, давно, но работает стабильно, и переделывать нет никакого желания, кому пригодится - пользуйтесь

@Redglow · 02.10.2012, 08:55

Для добавления записи в таблицу SQL Server необходимо:
1. Установить на клиентской машине ODBC драйвер MS SQL Server Native Client
2. Знать имя или IP-адрес сервера, логин и пароль учетной записи, у которой есть права на добавление записей в нужную таблицу, название схемы, название таблицы
3. С помощью функции SQLSTRINGCONNECT() создать соединение и поместить хэндл соединения в переменную, а лучше в свойство объекта
4. Собственно, добавить запись. Здесь есть несколько вариантов - использовать SQL pass-through, удаленные представления или курсор-адаптеры.
В первом варианте для добавления записи используется функция SQLEXEC(), как ею пользоваться достаточно подробно описано в хелпе. Курсор-адаптер - это по сути то же удаленное представление, только в объектной обертке, которая позволяет более полно осуществлять контроль над данными и событиями. Внутри фокспро-клиента он будет выглядеть как обычный буферизированный курсор, т.е. для добавления записи необходимо использовать обычный SQL-INSERT + TABLEUPDATE()
5. Проконтролировать ошибки каждого этапа
6. Закрыть соединение

@Alchi09 · 08.10.2012, 10:38

Сначало настройка ОДБС драйверов добвление нового соединения а потом в программе уже делается так как описано ниже

STORE SQLCONNECT('Название соединения указываемого в ОДБС драйверах') TO test
IF test <= 0
= MESSAGEBOX('Не могу соединиться', 16, 'SQL Connect Error')
ELSE
ENDIF
SQLexec (test,"USE название БД")
SQLEXEC(test, "CREATE PROCEDURE #MyProc1 " + ;
"AS select * from table1 ")
SQLEXEC(test, "exec #myProc1 ","table1CURSOR" )
SQLDISCONNECT(test)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@fedya.lutkovski 3 / 3 / 1 Регистрация: 24.03.2012 Сообщений: 174

	Отправка данных на Sql server 01.10.2012, 10:14. Показов 5584. Ответов 3 Метки нет (Все метки) Здравствуйте. Столкнулся с такой проблемой, как добавить запись в таблицу на sql server из foxpro? 0

@Redglow 107 / 107 / 0 Регистрация: 06.05.2011 Сообщений: 277
	02.10.2012, 08:55
	Для добавления записи в таблицу SQL Server необходимо: 1. Установить на клиентской машине ODBC драйвер MS SQL Server Native Client 2. Знать имя или IP-адрес сервера, логин и пароль учетной записи, у которой есть права на добавление записей в нужную таблицу, название схемы, название таблицы 3. С помощью функции SQLSTRINGCONNECT() создать соединение и поместить хэндл соединения в переменную, а лучше в свойство объекта 4. Собственно, добавить запись. Здесь есть несколько вариантов - использовать SQL pass-through, удаленные представления или курсор-адаптеры. В первом варианте для добавления записи используется функция SQLEXEC(), как ею пользоваться достаточно подробно описано в хелпе. Курсор-адаптер - это по сути то же удаленное представление, только в объектной обертке, которая позволяет более полно осуществлять контроль над данными и событиями. Внутри фокспро-клиента он будет выглядеть как обычный буферизированный курсор, т.е. для добавления записи необходимо использовать обычный SQL-INSERT + TABLEUPDATE() 5. Проконтролировать ошибки каждого этапа 6. Закрыть соединение 0

@Alchi09 206 / 135 / 6 Регистрация: 15.11.2009 Сообщений: 1,654
	08.10.2012, 10:38
	Сначало настройка ОДБС драйверов добвление нового соединения а потом в программе уже делается так как описано ниже STORE SQLCONNECT('Название соединения указываемого в ОДБС драйверах') TO test IF test <= 0 = MESSAGEBOX('Не могу соединиться', 16, 'SQL Connect Error') ELSE ENDIF SQLexec (test,"USE название БД") SQLEXEC(test, "CREATE PROCEDURE #MyProc1 " + ; "AS select * from table1 ") SQLEXEC(test, "exec #myProc1 ","table1CURSOR" ) SQLDISCONNECT(test) 0