[Zhigalov]

Суть такова есть 7 Edit'ов в них ввожу название таблиц в БД. Data_1...7. Как
мне сравнить то что я ввел в Edit'ы с существующими в БД таблицами. То есть я ввел в какой не то Edit не существующую таблицу и мне бы выдало сообщение что таблицы такой в БД не существует. БД MSSQL2005.

[lmikle]

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

Суть такова есть 7 Edit'ов в них ввожу название таблиц в БД. Data_1...7. Как
мне сравнить то что я ввел в Edit'ы с существующими в БД таблицами. То есть я ввел в какой не то Edit не существующую таблицу и мне бы выдало сообщение что таблицы такой в БД не существует. БД MSSQL2005.

Варианты:
1. Разобраться с метадатой. У сервера можно спросить какие табицы есть в БД (http://blog.sqlauthority.com/2007/06...-of-database/).
2. Просто попробовать сделать простенький запрос в соотв. табличку, типа:

Код:

 
select 1 from tablename where 1=2

Если получилось, то таблица есть, если ошибка - то нету или другая проблема (с подключением).

ЗЫ. Еще один забаненный в гугле

[Zhigalov]

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

Варианты:
1. Разобраться с метадатой. У сервера можно спросить какие табицы есть в БД (http://blog.sqlauthority.com/2007/06...-of-database/).
2. Просто попробовать сделать простенький запрос в соотв. табличку, типа:

Код:

 
select 1 from tablename where 1=2

Если получилось, то таблица есть, если ошибка - то нету или другая проблема (с подключением).

ЗЫ. Еще один забаненный в гугле

Я вот так вот планирую.

Код:

AdoQuery1.SQL.Text:='select 1 from tablename where 1=2';

А как узнать то выполнился или не выполнился?
Чтоб

Код:

ShowMessage('Таблицы не существует');

[M.A.D.M.A.N.]

База какая? В путевых базах есть вьюшка, которая позволяет вытащить перечень пользовательских таблиц.

[Zhigalov]

Сообщение от M.A.D.M.A.N.

База какая? В путевых базах есть вьюшка, которая позволяет вытащить перечень пользовательских таблиц.

Ну вытащу я список таблиц, их там 21 одна штука, а мне из них только семь надо. Как мне их там выискивать то? Они там в совершенно рандомном порядке меняются.
Мне кажется проще всего, как тут предложили сделать запросом.
Только я вот не как не могу сообразить как проверить то выполнился он или нет(То есть если запрос успешный то все хорошо едем дальше, а ежели нет то пишем сообщение ). В принципе если такой таблицы нет, Delphi выдает "Invalid object name 'dbName'''. Но все таки хотелось бы чтоб на нашем языке было и понятно пользователю.

[Страдалецъ]

Ну можно ведь вообще просто поступить. Считываете имена таблиц в стринглист и проверяете ваше введенное в едите имя на наличие в стринглисте через его метод инексоф. И всех делов.

Код:

procedure TForm2.Button1Click(Sender: TObject);
Var
  SL: TStringList;
begin
 if not AdoConnection1.Connected then Exit;
 SL := TStringList.Create;
 AdoConnection1.GetTableNames(SL);
 if SL.IndexOf(Edit1.Text) = -1
 then ShowMessage('Нетути такой табли');
 SL.Free;
end;

[Zhigalov]

Сообщение от Страдалецъ

Ну можно ведь вообще просто поступить. Считываете имена таблиц в стринглист и проверяете ваше введенное в едите имя на наличие в стринглисте через его метод инексоф. И всех делов.

Код:

procedure TForm2.Button1Click(Sender: TObject);
Var
  SL: TStringList;
begin
 if not AdoConnection1.Connected then Exit;
 SL := TStringList.Create;
 AdoConnection1.GetTableNames(SL);
 if SL.IndexOf(Edit1.Text) = -1
 then ShowMessage('Нетути такой табли');
 SL.Free;
end;

Даже и не задумался чтоб так сделать. Сделал вот так вот. Сейчас видимо переделаю.

Код:

...
 try
 DataModule2.Query.Open;
 except
  on EOleException do  MessageDlg('Некорректные настройки.'+
    ''+#13#10+''+Form3.Edit1.Text+' не существует!!!', mtError, [mbCancel], 0);
 end;