ADOTable...

← →
KILROY (2006-03-06 21:44) [0]

Как постить в БД?
Понимаю мой вопрос глуп.
Со StringGrid проблем нет.
есть вот такой вот код...

procedure TForm1.Button4Click(Sender: TObject); begin stringGrid1.RowCount := 0;stringGrid FileAttrs := FileAttrs + faAnyFile; with stringGrid1 do begin RowCount := 1; dir:= Label1.Caption; if FindFirst( dir+"\*.txt", FileAttrs, sr) =0 then begin repeat if (sr.Attr and FileAttrs) = sr.Attr then begin RowCount := RowCount + 1; Cells[0,RowCount-1] := sr.name; Cells[1,RowCount-1] := IntToStr(sr.size); Cells[2,RowCount-1] := IntToStr(sr.time); Cells[3,RowCount-1] := Label1.Caption +sr.name; end; until FindNext(sr) <> 0; FindClose(sr); end;
вот надо тоже самое токо чтоб уже в БД постил.
пробовал менять stringGrid на ADOTable...не получилось...
Я так понимаю надо описать в начале таблицу БД
чтоб он постил в ADOTable.только как? ну наверно что то типо того...
begin stringGrid1.RowCount := 0;stringGrid FileAttrs := FileAttrs + faAnyFile; with stringGrid1 do

← →
KILROY (2006-03-06 21:49) [1]

begin ADOTable1.RowCount := 0;stringGrid FileAttrs := FileAttrs + faAnyFile; with ADOTable1 do
что типо......?????

Подскажите пожалуйста.

← →
Desdechado © (2006-03-06 21:52) [2]

ничего не понял :(
StringGrid - работа с данными в сетке
Table - работа с данными в таблице БД без отображения на экране
где связь в попытках заменить одно другим?

← →
KILROY (2006-03-06 22:07) [3]

> Table - работа с данными в таблице БД без отображения на
> экране

хмм...т.е.???
procedure TForm1.Button8Click(Sender: TObject); begin With ADOTable1 do begin Open; First; Edit; FieldByName("imya").AsString :=Label1.Caption;
ну вот такой код ведь отображается...
либо сделать че нить с этим ...чтоб тоже был какой то цикл добавления.

← →
Desdechado © (2006-03-06 22:15) [4]

> такой код ведь отображается.
куда отображается?

> чтоб тоже был какой то цикл добавления.
опять не понял, что добавлять и куда...

не хочешь Tdatasource прикрутить и dbgrid использовать?

← →
KILROY (2006-03-06 22:29) [5]

все уже это используется.
все прикручено.

← →
KILROY (2006-03-06 22:32) [6]

аа...хм...значит работать надо с dbgrid???

← →
KILROY (2006-03-06 22:35) [7]

[Error] Unit1.pas(259): Undeclared identifier: "RowCount"
[Error] Unit1.pas(270): Undeclared identifier: "Cells"
но тогда пишет вот такую вот шляпу...
"истина где то рядом" +)

← →
аматор © (2006-03-06 22:51) [8]

Привет...
цикл ? такое подойдет "for i := 0 to"?

← →
Desdechado © (2006-03-06 23:07) [9]

в грид добавлять ничего не надо, он сам все покажет, только натрави егона твой datasource

← →
KILROY (2006-03-06 23:07) [10]

> Привет...
> цикл ? такое подойдет "for i := 0 to"?

Привет!+)ну да вполне...
токо теперь его еще бы запихнуть туда...но я тут пытаюсь с dbgrid сделать...
вот...

← →
KILROY (2006-03-06 23:10) [11]

да нет...мне не связ нужно реализовать...я уже все сделал связь есть таблици отображаюцо...
теперь надо сделать пост в эту саму таблицу...

← →
KILROY (2006-03-07 00:11) [12]

вот что нить типо этого токо он не компилицо
grid.colcount := dbGrid1.fieldcount; table.first; FileAttrs := FileAttrs + faAnyFile; with dbGrid1 do begin RowCount := 1; dir:= Label1.Caption; if FindFirst( dir+"\*.txt", FileAttrs, sr) =0 then begin repeat if (sr.Attr and FileAttrs) = sr.Attr then begin RowCount := RowCount + 1; Cells[0,RowCount-1] := sr.name;

← →
Virgo_Style © (2006-03-07 00:45) [13]

offtop: который раз читаю очередную ветку, вижу > типо, токо и компилицо, и желание отвечать пропадает как не было. Есть подозрение, что не я один. Рекомендую автору сделать выводы...

← →
Плохиш © (2006-03-07 01:32) [14]

> Virgo_Style © (07.03.06 00:45) [13]
> желание отвечать пропадает как не было.

IMHO, смысла отвечать нет, т.к. разговор будет на разных языках :-(
Человеки не желают учить теорию, а только топтают кнопки :-(

← →
sniknik © (2006-03-07 02:13) [15]

не знаю как вам, мне отбивает охоту отвечать (и вообще вникать) уже вот это ADOTable, это хуже самых страшных ругательств... и ведь не обьясниш, пробовал неоднократно. желают непременно сами на грабельки наступить (детские ;), в аккурат получить промеж ног ;о)))
кстати когда дочитал до "компилицо" то подумал, а этому это на пользу пойдет... (подумать же страшно, как могли бы выражаться его дети)

← →
msguns © (2006-03-07 10:07) [16]

В дельфях море демок, где синим по серому обозначена связь
<Объект доступа к БД> -> TDataSource -> <DB-aware-объект отображения>

Хотя можно, конечно сделать и так:
<Объект доступа к БД> -> массив записей в ОП -> <Объекты отображения таблиц>

Во втором случае интерфейсы "массив"-"отображение"
и "доступ"-"массив" надо писать "ручками"

← →
аматор © (2006-03-07 22:20) [17]

Я конечно звиняюсь, умная беседа, пиииииииииииии. KILROY скачай, плиз, учебник по базам. И потом задавай вопрос. При чем тут дбгрид (он специально для работы с базой создан т.е. работает конкретно с таблиций, а именно связка Table + DataSource+dbGrid, с первыми двумя работаем, 3 отображает. Со стрингом другая ситуация: чё угодно + StringGrid. Приблизительно так. По поводу цикла: прочитав книгу Вы увидете "While no Table1.Eof do begin" и ещё много чего интересного.).

Просто так.
Когда я изучал дельфина я был туп, туп и сейчас, знаю вообще мизер (занимаюсь им всего-то около 3 лет) но не до ТАКОЙ СТЕПЕНИ которую вижу сейчас. Это касается не только этого вопроса но и многих других. Не, я понимаю: есть такой фактор лень. У меня она огромная. И чем дальше тем больше. Но и тогда и сейчас я задаю вопрос пытаясь сначала вникнуть в суть, разобрать по полочкам, а потом получать: "крикну, а в ответ тишина"... и опять разбираться самому. Но я привык и мне это нравится. Пардон...

← →
KILROY (2006-03-07 23:36) [18]

хм...учусь,учусь!+)
кстате учебник скачал!50 метроф!почитал раздел связки ADO...но там ведь не фига не написанно как постить в БД...точнее там написанно но...
мне то надо чтоб как бы эта таблица понимала row и cells...т.е. вносить туда данные через вот эти операции а не через FieldByName("imya") и т.д.
ну вот наверно конкретный вопрос...Как сделать обращение к таблице через строки и столбцы?

> мне то надо чтоб как бы эта таблица понимала row и cells

У таблицы нет row и cells. Дальнейший разговор бесполезен.

← →
KILROY (2006-03-08 00:44) [20]

хм...тогда как сделать так чтобы он вопринимал таблицу как сетку?

← →
KILROY (2006-03-08 01:59) [21]

или как сделать обращение к ячейке в таблице?

KILROY (08.03.06 0:44) [20]
KILROY (08.03.06 1:59) [21]

написать свою БД, в которой будут сетки и ячейки. В существующих таких штуковин нет.

← →
KILROY (2006-03-09 20:16) [23]

ААААААА.....!
хм........!
на чем писать свою БД??

← →
KILROY (2006-03-09 21:32) [24]

хм....мда уж....хм....
написать свою БД.....хм....с нуля....хм....на чем?...аксес,парадокс,sql,оракл....это не подходит...там нельзя сделать то что мне нужно....или можно?...
тогда как же ее писать???...хм....

у таблицы есть записи и поля
обращение к полям - по именам
обращение к записям - только физическим позиционированием внутреннего указателя в наборе данных
активна в текущий момент только одна запись, на которой стоит этот указатель

делай выводы, читай документацию, смотри демки
"C:\Program Files\Borland\Delphi7\Demos\Db\"

ADOTable... Найти похожие ветки