Не могу подключть базу.

@ilya23 · Регистрация: 01.09.2010

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

Люди. Помогите советом как можно подключить .DBF файл к проге??

@slayer · 01.09.2010, 14:02

используй компоненты ADO

кидаешь на форму adoconnection, adodataset и datasource

текст такой (здесь dbf должны лежать с exe)

Delphi

adoconnection1.Connected:=false;
adoconnection1.ConnectionString:='Provider=VFPOLEDB.1;Data Source='+
  extractfilepath(application.exename)+';Password="";Collating Sequence=' +
  'MACHINE';
 
adoconnection1.Connected:=true;
 
except
showmessage('не могу подключиться');
  end;
 
adodataset1.CommandText:='select ИМЯ ДБФ ФАЙЛА1 БЕЗ РАСШИРЕНИЯ, ИМЯ ДБФ ФАЙЛА2 БЕЗ РАСШИРЕНИЯ ';
 
  adodataset1.Active:=true;
  datasource1.DataSet.active:=true;

@ilya23 · 01.09.2010, 16:41 **[ТС]**

Сообщение от slayer

используй компоненты ADO

кидаешь на форму adoconnection, adodataset и datasource

текст такой (здесь dbf должны лежать с exe)

Delphi

adoconnection1.Connected:=false;
adoconnection1.ConnectionString:='Provider=VFPOLEDB.1;Data Source='+
  extractfilepath(application.exename)+';Password="";Collating Sequence=' +
  'MACHINE';
 
adoconnection1.Connected:=true;
 
except
showmessage('не могу подключиться');
  end;
 
adodataset1.CommandText:='select ИМЯ ДБФ ФАЙЛА1 БЕЗ РАСШИРЕНИЯ, ИМЯ ДБФ ФАЙЛА2 БЕЗ РАСШИРЕНИЯ ';
 
  adodataset1.Active:=true;
  datasource1.DataSet.active:=true;

я бы с удовольствием так сделал..... но уменя восемь ДБФ файлов но без базы!!! а на сколько я помню в адоконекшен надо указывать базу......
я так пробовал но так у меня ошибку выдаёт!!!
кидаю компонент DataSource и чтоб можно было делать запросы компонент Query

свойство dbgridа datasourse выбираеш свой datasourse
свойство datasourseа dataset выбираеш свой Query
свойство Query databasename вводиш путь к дбфкам или созданый алиас
свойство Query sql запрос select * from {название таблици}
свойство Query active - true
.......

Добавлено через 1 час 41 минуту
сейчас вроде бы всё ОК!
пытался вывести в один ДБгрид несколько таблиц таким путём:

SQL

SELECT * FROM SCHECK.DBF
UNION 
SELECT * FROM PLANE.DBF
UNION 
SELECT * FROM SDEFECT.DBF
UNION 
SELECT * FROM BRIG1.DBF
UNION 
SELECT * FROM STRIPE.DBF

И только хочу в Куери поставить Актив Труе выскакивает такая ошибка....
"Type mismatch in expression"

@slayer · 02.09.2010, 09:42

Type mismatch in expression, я ж говорил без расширения в запросе надо указывать,

Delphi

1
2
3

adoconnection1.ConnectionString:='Provider=VFPOLEDB.1;Data Source='+
  extractfilepath(application.exename)+';Password="";Collating Sequence=' +
  'MACHINE';

- это без указания базы данных (здесь указана папка с exe)

запрос будет

SQL

1	SELECT * FROM PLANE, SDEFECT, BRIG1, STRIPE

@ilya23 · 02.09.2010, 09:50 **[ТС]**

Сообщение от slayer

Type mismatch in expression, я ж говорил без расширения в запросе надо указывать,

Delphi

1
2
3

adoconnection1.ConnectionString:='Provider=VFPOLEDB.1;Data Source='+
  extractfilepath(application.exename)+';Password="";Collating Sequence=' +
  'MACHINE';

- это без указания базы данных (здесь указана папка с exe)

запрос будет

SQL

1	SELECT * FROM PLANE, SDEFECT, BRIG1, STRIPE

у тебя есть MAIL AGENT там по проще общаться..?

	02.09.2010, 09:50