| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ADOTable...

Страницы:   < 1 2 >

KILROY ©   (2006-03-06 21:44:00) 

Как постить в БД?
Понимаю мой вопрос глуп.
Со 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 22:29:00) [21]

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

---

Desdechado   (2006-03-06 22:15:00) [22]

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

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

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

---

KILROY   (2006-03-06 22:07:00) [23]

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

хмм...т.е.???

procedure TForm1.Button8Click(Sender: TObject);
begin
 With ADOTable1 do
begin
Open;
First;
Edit;
FieldByName('imya').AsString :=Label1.Caption;

ну вот такой код ведь отображается...
либо сделать че нить с этим ...чтоб тоже был какой то цикл добавления.

---

Desdechado   (2006-03-06 21:52:00) [24]

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

---

KILROY   (2006-03-06 21:49:00) [25]


begin
ADOTable1.RowCount := 0;stringGrid

  FileAttrs := FileAttrs + faAnyFile;

with  ADOTable1 do

что типо......?????

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

---

Страницы:   < 1 2 >

Наверх