FoxClub Forums > Visual Foxpro, Foxpro for DOS > Подключение к базу Perco ::

• Войти

Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 13:02:17 Подскажите пожалуйста как подключится к базе Perco через Fox Pro 6.0 И вытащить из базы таблицы!

Re: Подключение к базу Perco
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 01.07.19 13:14:24 Или ОДБС-драйвер установить и соединиться с ним из фокса, или средствами БД выгрузить в понятный фоксу формат, хоть в текстовый типа CSV

Re: Подключение к базу Perco
pasha_usue Сообщений: 3650 Откуда: Е-бург Дата регистрации: 06.10.2006	pasha_usue 01.07.19 13:26:19 С FireBird они работают. ODBC есть пдходящий для фокса.

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 13:58:18 FireBird, да данная программа есть! я тут по пытался сам подключится, но у меня не получилось! вот кусочек кода, то что сам пробовал

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 14:02:33 [code]clear PUBLIC nhandlenastrojka set step on

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 14:02:56 oConn = CREATEOBJECT('ADODB.Connection') oConn.Provider = 'ADsDSOObject'

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 14:05:30 oConn.Open('nhandlenastrojka') set step on res0=SQLExec(nhandlenastrojka,"select * from reg_events where LEFT(Date_ev,4)=2009 and (num_ev=27 or num_ev=28)", "my_reg_events") If res0>0 Select my_reg_events BROWSE Else Wait Window '?reg_events'

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 14:07:36 Блин не смог отправить путь и через что он подключается!

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 14:11:49 вот кусочек кода

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 01.07.19 14:17:27 Наконец то

Re: Подключение к базу Perco
AndyNigmatec Сообщений: 1574 Откуда: Волгоград Дата регистрации: 28.06.2015	AndyNigmatec 01.07.19 14:23:14 Или так - ставим ODBC-драйвер, а затем все просто cConnectionString='DRIVER={Firebird/InterBase(r) driver};DBNAME=....;UID=XXXXXXXX;PWD=YYYYYYYYYYY;CHARSET=win1251;DIALECT=1' nConnect=SQLSTRINGCONNECT(cConnectionString) IF nConnect>0 IF SQLEXEC(nConnect,lcQueryText,'cCursor')>0 ELSE ENDIF SQLDISCONNECT(nConnect) ELSE ?'ошибка подключения.' ENDIF Диалект в зависимости от того какой у базы (1 или 3) Исправлено 2 раз(а). Последнее : AndyNigmatec, 01.07.19 14:24

Re: Подключение к базу Perco

AndyNigmatec

Сообщений: 1574
Откуда: Волгоград
Дата регистрации: 28.06.2015

AndyNigmatec

01.07.19 14:23:14

Или так - ставим ODBC-драйвер, а затем все просто

cConnectionString='DRIVER={Firebird/InterBase(r) driver};DBNAME=....;UID=XXXXXXXX;PWD=YYYYYYYYYYY;CHARSET=win1251;DIALECT=1'
nConnect=SQLSTRINGCONNECT(cConnectionString)
IF nConnect>0
        IF SQLEXEC(nConnect,lcQueryText,'cCursor')>0
        
        ELSE
        ENDIF

    SQLDISCONNECT(nConnect)
ELSE
        ?'ошибка подключения.'
ENDIF

Диалект в зависимости от того какой у базы (1 или 3)

Исправлено 2 раз(а). Последнее : AndyNigmatec, 01.07.19 14:24

Re: Подключение к базу Perco
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 01.07.19 14:51:37 "смешались в кучу кони, люди". Хоть бы попытался осмыслить команды которые пишешь... ------------------ WBR, Igor

Re: Подключение к базу Perco
AndyNigmatec Сообщений: 1574 Откуда: Волгоград Дата регистрации: 28.06.2015	AndyNigmatec 01.07.19 15:04:10 ммм ... Игорь, а что не так то - нормально с птичкой такой вариант через ODBC работает.

Re: Подключение к базу Perco
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 01.07.19 18:01:09 Ветки включи, это не тебе. Это по поводу жуткой смести adodb и odbc выше. ------------------ WBR, Igor

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 02.07.19 05:46:10 вы уж, извините, но не получилось нормально код отправить

Re: Подключение к базу Perco
Sergeynizamov Автор Сообщений: 76 Дата регистрации: 21.09.2018	Sergeynizamov 02.07.19 06:51:36 Спасибо большое Ребята, Товарищи!Помогли и поделились своим опытом;);)

Re: Подключение к базу Perco
medstrах Сообщений: 1810 Дата регистрации: 10.06.2019	medstrах 02.07.19 12:12:45 Igor Korolyov Ветки включи, это не тебе. Это по поводу жуткой смести adodb и odbc выше. Смотреть "деревом" такое себе. Если вложенность большая, то низкоуровневые посты где-то далеко справа, читабельность страдает.

Re: Подключение к базу Perco

medstrах

Сообщений: 1810
Дата регистрации: 10.06.2019

medstrах

02.07.19 12:12:45

Igor Korolyov
Ветки включи, это не тебе. Это по поводу жуткой смести adodb и odbc выше.

Смотреть "деревом" такое себе. Если вложенность большая, то низкоуровневые посты где-то далеко справа, читабельность страдает.

Re: Подключение к базу Perco
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 02.07.19 18:23:11 medstrах Смотреть "деревом" такое себе. Если вложенность большая, то низкоуровневые посты где-то далеко справа, читабельность страдает. Да тут вроде как и без веток очевидно где каша PUBLIC nhandlenastrojka oConn = CREATEOBJECT('ADODB.Connection') oConn.Provider = 'ADsDSOObject' oConn.Open('nhandlenastrojka') res0=SQLExec(nhandlenastrojka,"select * from reg_events where LEFT(Date_ev,4)=2009 and (num_ev=27 or num_ev=28)", "my_reg_events") А ветки позволят уточнить, если таки закрались сомнения. ------------------ WBR, Igor

Re: Подключение к базу Perco

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

02.07.19 18:23:11

medstrах
Смотреть "деревом" такое себе. Если вложенность большая, то низкоуровневые посты где-то далеко справа, читабельность страдает.

Да тут вроде как и без веток очевидно где каша


PUBLIC nhandlenastrojka
oConn = CREATEOBJECT('ADODB.Connection')
oConn.Provider = 'ADsDSOObject'
oConn.Open('nhandlenastrojka')
res0=SQLExec(nhandlenastrojka,"select * from reg_events where LEFT(Date_ev,4)=2009 and (num_ev=27 or num_ev=28)", "my_reg_events")

А ветки позволят уточнить, если таки закрались сомнения.

------------------
WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 33 Victoriacom Владимир Максимов Guest (Гостей: 30)