Форум: "Потрепаться";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Вниз
Сквозной поиск в базе по всем таблицам Найти похожие ветки
← →
гомер (2003-02-03 12:00) [0]У меня есть база. В ней >300 таблиц, >700 представлений, а процедур вообще полторя тысячи. В родной проге я могу редактировать эту (ODBC) базу. Я хочу узнать где конкретно эта инфа хранится.
Предполагаю вывод: Талица1 - Поле1
Есть ли готовое средство для решения этой задачи?
← →
гомер (2003-02-03 12:10) [1]бред, однако
← →
гомер (2003-02-03 12:46) [2]сам такой
← →
Max Zyuzin (2003-02-03 14:05) [3]Однако раздвоение личности налицо :)
В общем объясни какая именно у тебя база, ODBC - это средство доступа, если я не совсем еще все забыл :)
← →
гомер (2003-02-03 14:18) [4]говорю база большая
← →
Max Zyuzin (2003-02-03 14:23) [5]Эээ ммм да... очень конкретно получилось...
← →
гомер (2003-02-03 14:29) [6]бред перманентен
← →
-=Sergeante=- (2003-02-03 16:17) [7]Поиск в метаданных?
← →
JibSkeart (2003-02-03 16:36) [8]Я хочу узнать где конкретно эта инфа хранится.
Вы сами то свой вопрос поняли ??
Какая инфа и что вас конкретно интересует ??
Сдесь к сожалению телепатов нету :)
← →
passm (2003-02-03 16:40) [9]Кажется, человек заблудился в базе.
Где-то натыкался на фразу:"База данных выходит за рамки человеческого понимания." :))
← →
roottim (2003-02-03 16:59) [10]:-))))))) клевый пост!!... до сих пор ржу!!!
супер натс!!
← →
BlackTiger (2003-02-03 20:52) [11]гомер!
Где такой заборной травы достал, а?
Во несет-то! :)))
В принцЫпе, берешь АДО, коннектисссся к базе, получаешь список всех таблиц/вьюшек, для каждой таблицы/вьюшки получаешь списки полей.
Потом в цЫкле генеришь запросы типа
for i := 0 to TablesList.Count - 1 do begin
sql := "SELECT * FROM ["+Tables[i]+"] WHERE ";
//...
//Здесь получаешь список полей и заносишь его в FieldsList
//...
for j:= 0 to FieldsList.Count - 1 do begin
if j = 0 then
sql := "(["+FieldsList[j]+"] LIKE ""%"+VALUE_TO_FIND+"%"")"
else
sql := " OR (["+FieldsList[j]+"] LIKE ""%" + VALUE_TO_FIND + "%"")"
;
end;
Query1.SQL.Clear;
Query1.SQL.Add(sql);
Query1.Open;
if not Query1.Eof then begin
//...
// Регистрируешь, что что-то гдето нашел
//...
end;
Query1.Close;
end;
← →
BlackTiger (2003-02-03 20:55) [12]Да, еще забыл сказать!!!
Предупреди своих потомков (оставь запись в завещании) чтобы дождались результатов! :)))
← →
Anatoly Podgoretsky (2003-02-03 21:01) [13]Вызвал гомерический хохот у местного населения.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c
