Как только подключаюсь через визуальное меню все норм как только в обход все ломается вот функция:
function TForm2.bdconected(s2: string; s1, s:TObject): string;
begin
if(s is TFDConnection) and (s1 is TFDQuery) then
begin
TFDConnection(s).Params.Values['DriverID']:='MSAcc';TFDConnection(s).Params.Values['Database']:=s2;TFDConnection(s).LoginPrompt:=false;TFDQuery(s1).SQL.add('select*From User_Grid');TFDQuery(s1).Connection.Connected:=true;TFDQuery(s1).Active:=true;
end;{if(TFDConnection(s).Connected=true) and (TFDQuery(s1).Active=true) then
Result:='successfully';}
end;
вот вызов
procedure TForm1.CornerButton1Click(Sender:TObject);
var
path:String;
begin
path:='I:\bd\UserBD.mdb';Form2.bdconected(path,Form2.FDQuery1,Form2.FDConnection1);
end;
Вопрос
Mari_rohan
Как только подключаюсь через визуальное меню все норм как только в обход все ломается вот функция:
вот вызов
вот что то что получается:
Ссылка на комментарий
13 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.