SQL запрос, строковый тип

[IvaniuS]

BARNEY да небудет оно работать ' -служебный символ!! ну попробуйте вы сами достать из этой базы то что я хочу
например мне нужен путь к текстурам камня (path to textures of stone)
пост №2 тоже НЕ работатет

[IvaniuS]

вот и у меня не получается((

[Serge_Bliznykov]

не морочьте голову.
похоже, что не работает только у Вас.
доказательство того, что всё работает - смотри в приложении.


p.s. вместо того, чтобы долго и упорно рассказывать что у Вас не работает, лучше бы проект выложили.
источником проблемы может быть ЧТО УГОДНО!Например, ваша самописная процедура FetchDataExel!

[IvaniuS]

Serge_Bliznykov спасибо вам великодушный вот код который используется для работы с базой данных:

procedure ConnectToExcel(AdoConnection:TAdoConnection;PathToFile:string);
var strConn: widestring;
begin
 strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +
          'Data Source=' +PathToFile+ ';' +
          'Extended Properties=Excel 8.0;';
  AdoConnection.Connected:=False;
  AdoConnection.ConnectionString:=strConn;
 try
    AdoConnection.Open;
   except
  ShowMessage('Не могу соединиться с Excel книгой, которая расположена по адресу: '+PathToFile+' !');
  raise;
 end;
end;


procedure FetchDataExel(ADOQuery:TADOQuery;SQL:string);
begin
  ADOQuery.Close;
  ADOQuery.SQL.Text:=SQL;
  try
   ADOQuery.Open;
    except
     ShowMessage( 'Не могу выполнить Sql запрос ' + SQL +' !');
     raise;
  end;
end;


function gettexpath(TypeTex:string;ADOQuery:TADOQuery):string;
var
sql:string;
begin
  sql:= format('SELECT * FROM [textures$] where [name]= %s', [QuotedStr(TypeTex)]);
  FetchDataExel(ADOQuery,SQL);
 try
 gettexpath:=ADOQuery.Fields.FieldByName('path').Value;
 except
 ShowMessage( 'Не найден столбик path !');
 end;
end;


function gettexname(SQLText:string;ADOQuery:TADOQuery):string;
var
 i:Integer;
 num,text,sql:string;
begin
 try
  i:=Pos('-',SQLText);
    sql:=SQLText;
    Delete(SQL,i,length(sqltext));
    text:=sql;
    Delete(SQLText,1,i);
    num:=SQLText;
 except
  ShowMessage( 'Неверный формат указателя('+SQLText+'), TypeOfTexture-Number');
 end;
 sql:='SELECT * FROM [textures$] where [number]='+num;
  FetchDataExel(ADOQuery,SQL);
 try
 gettexname:=ADOQuery.Fields.FieldByName(text).Value;
 except
 ShowMessage( 'Не найден столбик ' + text +' !');
 end;
end;

и кстате gettexname работает прекрасно.
Ваша программа выдает ошибку с таким содержанием:

Microsoft Диспетчер драйверов ODBS
источник данных не найден и не указан драйвер, используемый по умолчанию

П.С. немного поколдовав у меня все заработало, спасибо, странно что раньше не работало т.к. по моему

sql:= format('SELECT * FROM [textures$] where [name]= %s', [QuotedStr(TypeTex)]);

еквивалентно тому, что у вас в коде

sql:='SELECT * FROM [textures$] where [name]= '+QuotedStr(Edit1.Text);

[Serge_Bliznykov]

ну заработало и слава Богу...