Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как читать DBF файлы через ADO? [D7, dBase, FoxPro]


SergSuper ©   (2003-05-26 10:41:00) 

Я делаю Build ConnectionString, выбираю OLEDB для ODBC. Дальше надо выбрать data source name. И вот тут мне приходится выпирать "Файлы dBase". Что не есть хорошо - где-то это может называться "dBase files".
Научите, как это надо делать грамотно, чтоб независимо от настроек открывался DBF файл


SergSuper   (2003-05-26 12:57:00) [1]

yes, победа!
большое русское мерси!

проблемы были из-за того что я не закрывал строку для Extended Properties двойной кавычкой


sniknik   (2003-05-26 12:31:00) [2]

>была такая строка
>Provider=MSDASQL.1;Persist Security Info=false;Data Source=Файлы dBASE;Initial Catalog=D:\DSOURCE\GA\dbf
>и всё хорошо работало

не выбирай (когда "Я делаю Build ConnectionString") использовать sourse name выбери use connection string и в этой получившейся строке замени DSN


SergSuper   (2003-05-26 12:01:00) [3]

была такая строка
Provider=MSDASQL.1;Persist Security Info=false;Data Source=Файлы dBASE;Initial Catalog=D:\DSOURCE\GA\dbf
и всё хорошо работало

сделал TADOConnection, теперь ошибка возникает когда приставиваю TADOConnection.ConnectionString

квери или ADODataSet - по-моему тут не принципиально, у меня это делается в одном месте, просто некий импорт из файла

насчет естественности:
Qdbf.SQL.Add("select * from "+name); - я сначала так и написал, но потом подумал что name - это типа параметр и подставление надо выделить отдельно.


sniknik   (2003-05-26 11:40:00) [4]

сделай так как получается с DSN (так понимаю с ним у тебя получалось)
а после замени
DSN=dBASE Files
на
DRIVER={Microsoft dBase Driver (*.dbf)}
и потом не игногируй дополнительные параметры, в первом случае он их из алиаса получает а во втором может по умолчанию поставить совсем не то что тебе нужно.

+ Qdbf.SQL.Add("select * from "+name); выглядит "естественнее" чем у тебя. не кажется?

ну и на последок а где собственно ошибка возникает на подключении или на запросе? (чтобы понять нужно использовать TADOConnection а уже кверю, а лутше ADODataSet, вязать уже к нему, а не все "в одном флаконе")


SergSuper   (2003-05-26 11:14:00) [5]

не, чё-то не получается
делаю так:
Qdbf.ConnectionString :=
"Provider=MSDASQL.1;Persist Security Info=False;"
+ "Extended Properties="DRIVER={Microsoft dBase Driver (*.dbf)};"
+"DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;"
+"DBQ="+ dir+"; DefaultDir="+dir;

Qdbf.SQL.Clear;
Qdbf.SQL.Add("select * from ");
Qdbf.SQL.Add(name);

try
Qdbf.Open;

dir - директорий файла dbf
name - его имя

Появляется ошибка Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another


sniknik   (2003-05-26 10:55:00) [6]

грамотно выбирать OLE DB Jet.4.0.

для ODBC пиши вместо DSN имя драйвера, оно не меняется получится чтото вроде
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DRIVER={Microsoft dBase Driver (*.dbf)};DBQ=D:\;DefaultDir=D:\;DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;PageTimeout=5;"


Наверх

Титульная страница Поиск, карта сайта Написать письмо