ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / OLE DB Provider for VFP
5 сообщений из 5, страница 1 из 1
OLE DB Provider for VFP
    #33211972
vitbys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitbys
Гость
Напишите кто-нибудь, если несложно, пример работы в VFP через OLE DB Provider c источниками данных Oracle или SQL.
...
Рейтинг: 0 / 0
12.08.2005, 08:47:06
| Ответить | Цитировать | Написать  
OLE DB Provider for VFP
    #33213696
Reznichenko Y.V.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Reznichenko Y.V.
Участник
Сокращенно так:

Local rstTable as Object
Local lcSelectCmd

lcSelectCmd = "SELECT a,b,c FROM tblName WHERE a > 0"

rstTable = Createobject("ADODB.Recordset")
rstTable = Open(lcSelectCmd, "Provider=MSDAORA.1;Password=123456;" + ;
"User ID=UserXX;Data Source=DbAlias")

...... работаем с рекордсетом ......

RELEASE rstTable
......

Не претендую на изящество, но работает в 8-ке и 9-ке.
...
Рейтинг: 0 / 0
12.08.2005, 17:32:35
| Ответить | Цитировать | Написать  
OLE DB Provider for VFP
    #33214024
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi vitbys!

Код: plaintext
1.
2.
3.
4.
loCon = CREATEOBJECT("ADODB.Connection")
m.loCon.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=имя_базы;Data Source=имя_сервера")
loRS = m.loCon.Execute("SELECT * FROM имя_таблицы")
MESSAGEBOX(m.loRS.GetString())
Для Oracle всё идентично, за исключением строки коннекта. Строку коннекта
можно получить очень просто - создай на диске файл с расширением udl и
"открой" его проводником - в диалоге всё настрой, проверь и нажми OK - после
этого открой файл в notepad или ином редакторе понимающем UNICODE и забери
оттуда готовую строку коннекта.
Как работать с ADO.Recordset - почитай умных книжек, коих по ADO (не путать
с ADO.NET) навалом.
Также в VFP начиная с 8-й версии появилась неплохая возможность легко и
просто конвертировать RecordSet в родной курсор - через CursorAdapter - в
хелпе про это всё подробно расписано.

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
13.08.2005, 01:22:40
| Ответить | Цитировать | Написать  
OLE DB Provider for VFP
    #33214060
vitbys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitbys
Гость
Спасибо за ответы. Всё работает!!!
...
Рейтинг: 0 / 0
13.08.2005, 09:45:12
| Ответить | Цитировать | Написать  
OLE DB Provider for VFP
    #33214068
vitbys
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitbys
Гость
Вот только русские буквы, всё одно, не передаются корректно :((

loCon = CREATEOBJECT("ADODB.Connection")
m.loCon.Open("Provider=MSDAORA.1;User ID=nXXX;Password=aXXX;Data Source=wXXX;Persist Security Info=False")
loRS = m.loCon.Execute("select ml.short_name from main_list ml, groupview gv where gv.group_id = ml.group_id and ml.hidden = 0 and rownum<2")
? m.loRS.GetString()

їїїї їїїїїїї ї3 4,8% 0,5ї їїїїїїїїїї їїїїїїї ї6 7% 0,5ї їїїїїї
...
Рейтинг: 0 / 0
13.08.2005, 10:51:24
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / OLE DB Provider for VFP
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33211972&tid=1593690]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 546ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 219ms
total:  865ms
созд. / загр.: 865ms
x
x
Закрыть


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