Удаленная база данных - БД в Delphi

Stanislav · 30.10.2007, 15:44

Здравствуйте проблема такая пишу удаленку (в консольном режиме).. проблема у меня только в одном не могу написать sql запрос на объеденение двух таблиц.. точнее я написал компилирую все отображает ... но закидываю cgi скрипт на сервер там ошибка..

Код:

program Project1;

{$APPTYPE CONSOLE}
{$E CGI}

uses
  SysUtils,
  ActiveX,
  DB,
  ADODB,
  Classes,
  comObj, zcgi;

var
  // Переменные БД

   ADOConnection1: TADOConnection;
   ADOQuery1: TADOQuery;
   DataSource1:TDataSource;
   AdoTable1:Tadotable;

  // Переменные для программ
   i:integer;
  predmet:string;
   // Переменные парсера
  CGIParamsParser : TCGIParamsParser;

   // Переменные для поиска
   strpred,fam,strfield, pas:string;
   viborka:string;
   begin
strfield:='Name';
CoInitialize(nil);
ADOConnection1:= TADOConnection.Create(Nil);

ADOConnection1.connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False';
ADOConnection1.Provider:='Microsoft.Jet.OLEDB.4.0';
ADOConnection1.loginprompt:=false;
ADOConnection1.connected:=true;
ADOQuery1:=TADOQuery.Create(NIL);
ADOQuery1.Connection:=ADOConnection1;





  WriteLn('Content-Type: text/html');
  Writeln;
  writeln('<html>');
  writeln('<head>');
  writeln('<title>cgi-test</title>');
  writeln('</head>');
  writeln('<body>');

  writeln('<html>');

  writeln('<head>');
  writeln('<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">');

  // Создание класса и разбор строки параметров
CGIParamsParser := TCGIParamsParser.Create;
CGIParamsParser.ParamStr := GetEnv('QUERY_STRING');
fam:=CGIParamsParser.GetParamVal('Radio1');
 writeln(fam);


 With ADOQuery1  do begin
 Close;
 sql.clear;
 sql.Add('select * from Kat Inner Join Con on Kat.ID=Con.ID   ');
SQL.Add(' where Kat.name="'+ fam + '"');


 Open;

// Попытка поиска в записи

 adoquery1.Locate(strfield, fam, [locaseinsensitive, loPartialKey]);
 if adoquery1.Locate(strfield, fam, [locaseinsensitive, loPartialKey]) = true
 then begin

adoquery1.Open;
adoquery1.First;
 writeln(adoquery1.FieldByName('Phone').AsString);
 for i:=1 to adoquery1.RecordCount do begin
writeln('<br>');
 writeln(adoquery1.FieldByName('Name').AsString);

adoquery1.Next;
writeln('<hr>');

 end;
  end;


   //end;
 readln;


end.

Как я отмечал проект компилируеться н в окне не отображет не чего кроме черного окна (смотри вложение) ну если закоментировать следующий запрос
SQL.Add(' where Kat.name="'+ fam + '"'); то отображает условия отбора

strfield:='Name'; Поле в которм будет происходить поиск записи

adoquery1.Locate(strfield, fam, [locaseinsensitive, loPartialKey]);
if adoquery1.Locate(strfield, fam, [locaseinsensitive, loPartialKey]) = true

Если в поле Name найдено то что мы занесли в переменную fam возращает true;

А переменную Radio1 получаем из web - странице после чего присваиваем ее
fam:=CGIParamsParser.GetParamVal('R adio1');

База данных находиться во вложении

Так вот не могли бы подсказать как правильно написать sql запрос?
Или в чем тут может быть причина?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
База данных	Alex XXX	Помощь студентам	3	08.08.2008 10:23
База данных	Andr180nag	JavaScript, Ajax	3	02.08.2008 14:01
База данных	xakkkkker	БД в Delphi	1	22.03.2008 12:03