Текущий архив: 2003.02.20;
Скачать: CL | DM;

Вниз

Сквозной поиск в базе по всем таблицам   Найти похожие ветки 

← →
гомер   (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;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.015 c