Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Access и Sql через delphi

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Access и Sql через delphi

Имя

Сообщение

<< Старые топики Новые топики >>

Access и Sql через delphi - 2010-12-02 17:34:34.206666

KillrBuckeye

Сообщений: 12
Оценки: 0
Присоединился: 2010-06-17 14:59:25.133333

Не получается открыть базу данных, созданную через ms access, в delphi.
http://s43.radikal.ru/i099/1012/64/e2979bb388c6.jpg - примерное представление чтоб было и то что прописано в параметрах свойства Database
использовал компоненты: TDatabase, TDatasource, TQuery, TTable.
цель такова: открывать базу msaccess и возможность ее редактирования непосредственно в программе

Post #: 1

RE: Access и Sql через delphi - 2010-12-02 20:56:04.413333

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

А TTable и остальное подключить ты не хочешь,не? И вообще,что значит "не получается открыть". Ты пока только компоненты на форму накидал. Гугли книжку/мануал, проставь свойства, запусти, подумай…

Post #: 2

RE: Access и Sql через delphi - 2010-12-02 23:26:20.020000

KillrBuckeye

Сообщений: 12
Оценки: 0
Присоединился: 2010-06-17 14:59:25.133333

quote:

ORIGINAL: Genco

А TTable и остальное подключить ты не хочешь,не? И вообще,что значит "не получается открыть". Ты пока только компоненты на форму накидал. Гугли книжку/мануал, проставь свойства, запусти, подумай…

Ты уверен что я их просто накидал? я все их между собой подключил, но при запуске у меня не появляется таблица

Post #: 3

RE: Access и Sql через delphi - 2010-12-02 23:43:47.456666

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

Я вот вижу слева в инспекторе значки вопроса, в частности рядом с таблицей. Ergo, она не подключена. Вероятно, ты или забыл какое-то свойство указать, а что вероятнее - при указании их перепутал как-то. Сверься с манами. Тут у ребят их полно навалено по сабжу.

Post #: 4

RE: Access и Sql через delphi - 2010-12-05 00:15:13.016666

KillrBuckeye

Сообщений: 12
Оценки: 0
Присоединился: 2010-06-17 14:59:25.133333

с этим разобрался, теперь считывается таблица и ее можно редактировать, но теперь у меня другой вопрос, как можно организовать поиск по критериям, например поиск по автору книги или поиск по названию книги
p.s. база данных paradox 7

Post #: 5

RE: Access и Sql через delphi - 2010-12-05 01:26:02.013333

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

RTFM. Не сочти за труд - проскролль страничку. Серьезно, заглядывай в маны.

Post #: 6

RE: Access и Sql через delphi - 2010-12-05 16:21:10.960000

KillrBuckeye

Сообщений: 12
Оценки: 0
Присоединился: 2010-06-17 14:59:25.133333

quote:

ORIGINAL: Genco

RTFM. Не сочти за труд - проскролль страничку. Серьезно, заглядывай в маны.

написал код на поиск, по выбраной радиокнопке, все ищется, но проблема, когда вводишь текст которого нет в базе, он выдает сообщение ничего не найдено, но потом выскакивает ошибка datasource1: "Circular datalinks are not allowed"

unit Unit2;
 
 interface
 
 uses
 &nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 &nbsp; Dialogs, StdCtrls;
 
 type
 &nbsp; TForm2 = class(TForm)
 &nbsp;&nbsp;&nbsp; RadioButton1: TRadioButton;
 &nbsp;&nbsp;&nbsp; RadioButton2: TRadioButton;
 &nbsp;&nbsp;&nbsp; RadioButton3: TRadioButton;
 &nbsp;&nbsp;&nbsp; Edit1: TEdit;
 &nbsp;&nbsp;&nbsp; Button1: TButton;
 &nbsp;&nbsp;&nbsp; Label1: TLabel;
 &nbsp;&nbsp;&nbsp; procedure Button1Click(Sender: TObject);
 &nbsp; private
 &nbsp;&nbsp;&nbsp; { Private declarations }
 &nbsp; public
 &nbsp;&nbsp;&nbsp; { Public declarations }
 &nbsp; end;
 
 var
 &nbsp; Form2: TForm2;
 &nbsp; avt:string[30];
 
 implementation
 uses Unit1;
 
 {$R *.dfm}
 
 
 
 
 procedure TForm2.Button1Click(Sender: TObject);
 begin
 &nbsp;&nbsp; if RadioButton1.Checked then begin
 &nbsp;avt:=Edit1.Text;
 &nbsp;&nbsp;&nbsp; if avt &lt;&gt; ''
 &nbsp;&nbsp;&nbsp; then
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; with form1.Query1 do begin
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Close;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SQL.Clear;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SQL.Add(' SELECT DISTINCT Nazvanie, Avtor, Janr, Nomer_p, Kolvo, Cena');
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SQL.Add('FROM ":STANDARD1:books.db"');
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SQL.Add('WHERE');
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SQL.Add('(Avtor= "'+ avt + '")');
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SQL.Add('ORDER BY Nazvanie, Avtor, Janr, Nomer_p, Kolvo, Cena');
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;
 
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if form1.Query1.RecordCount &lt;&gt; 0 then
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form1.DataSource1.DataSet:=form1.Query1
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else begin
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ShowMessage('Ничего не найдено');
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form1.DataSource1.DataSet:=form1.Table1;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;

Post #: 7

RE: Access и Sql через delphi - 2010-12-06 17:53:37.616666

KillrBuckeye

Сообщений: 12
Оценки: 0
Присоединился: 2010-06-17 14:59:25.133333

Разобрался.

Post #: 8

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Access и Sql через delphi

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.