Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с добавлением записей. Delphi+ADO+Postgresql 
V
    Опции темы
Vavik
Дата 26.4.2009, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Вообщем, через запрос добавлять записи в бд научился, правда выдаёт ошибку "В наборе строк не определенно ни одного столбца", но запись добавляет. Но это если тупо запрос вбивать в ADOQuery.SQL.string. а мне надо с формы. Тоесть я вбиваю в эдиты нужную инфу и жму "Добавить". Но проблема в том, что таблиц несколько и количество полей разное, и мне вот, нужно что-то универсальное придумать, не буду же я для каждой таблицы делать отдельную форму с нужным количеством эдитов. Думаю, всё это делать в DBGride, а как вот не знаю. Кстати необходимо нетолько добавлять, но и редактировать/удалять. Помогите пжлст)
PM MAIL   Вверх
Данкинг
Дата 27.4.2009, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130



Переформулируй задачу, сделав её более конкретной. Что именно не получается?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 06:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Ну не то что не получается, я не наю как сделать). Вообщем, как мне добавить/удалить/редактировать ячейки в бд через DBGrid ? То есть я выделил в DBGridе ячейку изменил данные и сохранил или выделил строку всю и удалил. Ну вообщем, как это DBNavigator делает.
PM MAIL   Вверх
insoft
Дата 27.4.2009, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Vavik, пользуйся поиском!
смотри тут
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Эмм, ну да, похоже на то, ток чёт я ничё не понял)

И ещё вопрос: как в listboxe отобразить значения одного поля DBGridа ?

Это сообщение отредактировал(а) Vavik - 27.4.2009, 14:29
PM MAIL   Вверх
insoft
Дата 27.4.2009, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  27.4.2009,  14:20 Найти цитируемый пост)
И ещё вопрос: как в listboxe отобразить значения одного поля DBGridа ?

Код

ListBox1.Items.Add(IBQuery.FieldByName('NameField').AsString)

Цитата(Vavik @  27.4.2009,  14:20 Найти цитируемый пост)
Эмм, ну да, похоже на то, ток чёт я ничё не понял)

а что тебе не понятно то? конкретно тогда опиши проблему?
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 27.4.2009,  14:48)

Код

ListBox1.Items.Add(IBQuery.FieldByName('NameField').AsString)


Ну вообще я делаю так
Код

begin
Query1.First;
while not Query1.Eof do
ListBox1.Items.Add (Query1.FieldByName('Название').AsString);
Query1.Next;
end

Но тогда виснет. Почему ?smile

Цитата(insoft @ 27.4.2009,  14:48)

а что тебе не понятно то? конкретно тогда опиши проблему?

Проблема в том, что я хочу, но не знаю как менять/добавлять/удалять данные в БД через DBGrid. 
Тоесть нажал на поле DBGrida, редактировал значение и изменения сохранились в бд.
Поставил курсор на строке, удалил её из DBGrida и в бд она тоже удалилась.
Создал пустую строку, заполнил ячейки данными и сохранил. Вот как-то так. 
А в той теме куда ты меня направил, я не нашёл как это делать. Вот.

PM MAIL   Вверх
insoft
Дата 27.4.2009, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  27.4.2009,  15:20 Найти цитируемый пост)
что я хочу, но не знаю как менять/добавлять/удалять данные в БД через DBGrid. 

используй IBDataSet и пиши соответствующие запросы на Update/Delete/Insert
Цитата(Vavik @  27.4.2009,  15:20 Найти цитируемый пост)
А в той теме куда ты меня направил, я не нашёл как это делать.

видать и не смотрел :(
Цитата

Но тогда виснет. Почему ?smile

а количество записей (Fetch) определено?

Это сообщение отредактировал(а) insoft - 27.4.2009, 16:01
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 27.4.2009,  16:00)

используй IBDataSet и пиши соответствующие запросы на Update/Delete/Insert

А через ADO это как-нибудь делается ?
Цитата(insoft @ 27.4.2009,  16:00)

видать и не смотрел :(

Смотрел) ну не наю, там нет пару строк кода, примерчик какой-нить небольшой, так мне непонятно)
Цитата(insoft @ 27.4.2009,  16:00)

а количество записей (Fetch) определено?

Что есть Fetch ?  smile 



Это сообщение отредактировал(а) Vavik - 27.4.2009, 17:09
PM MAIL   Вверх
insoft
Дата 27.4.2009, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  27.4.2009,  16:17 Найти цитируемый пост)
А через ADO это как-нибудь делается ?

ADODataSet (читай букварь)
Цитата(Vavik @  27.4.2009,  16:17 Найти цитируемый пост)
Смотрел) ну не наю, там нет пару строк кода, примерчик какой-нить небольшой, так мне непонятно)

воспользуйся поиском и будет счастье
на delphisources должны быть примеры
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Лин, да через запросы я добавлять могу, а как делать это через dbgrid.
PM MAIL   Вверх
insoft
Дата 27.4.2009, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  27.4.2009,  17:59 Найти цитируемый пост)
Лин, да через запросы я добавлять могу, а как делать это через dbgrid. 

мать твою smile  smile  smile  smile 
dbgrid - это всего лишь визуальный компонент который отображает НД .. любые операции производимые над НД делать лучше SQL или на низком уровне через API (точно не для тебя)
в общем, учи мат. часть и думай перед тем как задавать вопросы.. попробуй хоть маленько разобраться над тем что ты делаешь!!!

Это сообщение отредактировал(а) insoft - 27.4.2009, 18:06
PM MAIL WWW   Вверх
Данкинг
Дата 27.4.2009, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130



Цитата(Vavik @ 27.4.2009,  18:59)
Лин, да через запросы я добавлять могу, а как делать это через dbgrid.

Там когда вниз на последней строке давишь, новая сама добавляется. smile 

Это сообщение отредактировал(а) Данкинг - 27.4.2009, 18:39


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 27.4.2009,  18:05)

dbgrid - это всего лишь визуальный компонент который отображает НД .. любые операции производимые над НД делать лучше SQL или на низком уровне через API (точно не для тебя)
в общем, учи мат. часть и думай перед тем как задавать вопросы.. попробуй хоть маленько разобраться над тем что ты делаешь!!!



Та всё я понимаю, это ты не понимаешь, чего я хочу  smile 

user posted image

Как это сделать ?  smile 
PM MAIL   Вверх
insoft
Дата 27.4.2009, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Vavik, ещё раз повторю! через ADOQuery ты не сможешь такое сделать!!!
вот тут я выкладывал пример именно того что тебе надо!
скачай, не поленись разобраться!
p.s. IBDataSet от ADODataSet мало чем отличается...
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 27.4.2009,  18:55)
Vavik, ещё раз повторю! через ADOQuery ты не сможешь такое сделать!!!
вот тут я выкладывал пример именно того что тебе надо!
скачай, не поленись разобраться!
p.s. IBDataSet от ADODataSet мало чем отличается...

Ы, не смогу я посмотреть пример твой) у мя оказывается нет библиотеки с InterBase компонентами.

А что конкретно у меня не получится через ADOQuery ? 

Это сообщение отредактировал(а) Vavik - 27.4.2009, 19:09
PM MAIL   Вверх
insoft
Дата 27.4.2009, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  27.4.2009,  19:09 Найти цитируемый пост)
у мя оказывается нет библиотеки с InterBase компонентами

ты какую версию используешь Delphi? они в стандартной палитре компонентов...
Цитата(Vavik @  27.4.2009,  19:09 Найти цитируемый пост)
А что конкретно у меня не получится через ADOQuery ? 

ничего, что ты хочешь!
PM MAIL WWW   Вверх
Vavik
Дата 27.4.2009, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 27.4.2009,  19:13)

ты какую версию используешь Delphi? они в стандартной палитре компонентов...

Та в палитре то есть, но когда, на форму вынашу, выдаёт ошибку, грит, чтобы установил библиотеку. Ну и разумеется, эти компоненты, которые в твоём примере не отображаются.

Цитата(insoft @ 27.4.2009,  19:13)

ничего, что ты хочешь!

Ну почему же, я информацию добавлял, ща ещё можно попробывать редактировать и удалять...остаёться только из DBGrida заносить текст в код запроса.

Лан, пойду по другим форумам порыскаю, поспрашиваю.

Лин...а вот редактировать чёт не получается  smile 



Это сообщение отредактировал(а) Vavik - 27.4.2009, 19:46
PM MAIL   Вверх
Vavik
Дата 4.5.2009, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Код

 Query1.SQL.add('INSERT INTO poselok (id_poselok, "Название"');
 Query1.SQL.add('VALUES (3, 'Зелёная поляна')');

Пишет

[Ошибка] Unit1.pas(51): Illegal character in input file: 'З' ($C7)
[Ошибка] Unit1.pas(51): Illegal character in input file: 'я' ($FF)

Чё ему надо от меня ? о_О
Раньше вроде всё работало...
PM MAIL   Вверх
Keeper89
Дата 4.5.2009, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58



Цитата(Vavik @  4.5.2009,  13:36 Найти цитируемый пост)
"Название"

Это что, название столбца?


--------------------
PM MAIL WWW   Вверх
Vavik
Дата 4.5.2009, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(Keeper89 @ 4.5.2009,  13:50)
Цитата(Vavik @  4.5.2009,  13:36 Найти цитируемый пост)
"Название"

Это что, название столбца?

Аха.
Не, если вручную запихать запрос в SQL, то всё норм, а вот так чёт не нравится, хотя раньше работало всё.

Это сообщение отредактировал(а) Vavik - 4.5.2009, 14:17
PM MAIL   Вверх
insoft
Дата 4.5.2009, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Vavik, избавься от кириллицы в названии полей!!!
PM MAIL WWW   Вверх
Vavik
Дата 4.5.2009, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



 А что значит сообщение 
"В наборе строк не определенно ни одного столбца" ?

Выскакивает когда я запросом делаю, какие либо изменения в БД. Хотя всё работает, но всё равно было бы лучше, если бы оно не показывалось)

Это сообщение отредактировал(а) Vavik - 5.5.2009, 17:50
PM MAIL   Вверх
insoft
Дата 4.5.2009, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  4.5.2009,  14:54 Найти цитируемый пост)
но мне нужна кирилица в DBGride

мдя уж..
а кто мешает изменить название поля?  smile 
PM MAIL WWW   Вверх
Vavik
Дата 4.5.2009, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



 ещё вопрос.
Добавляю запись в поле
Код

Table1.Insert;
Table1.FieldByName('id_poselok').asString:= '3';
Table1.Post;

На что он мне говорит "Field "id_poselok" cannot be modified"
Чего ему снова не так ?

И что всё таки вот с этим делать ?
Цитата(Vavik @ 4.5.2009,  14:54)

 А что значит сообщение 
"В наборе строк не определенно ни одного столбца" ?

Выскакивает когда я запросом делаю, какие либо изменения в БД. Хотя всё работает, но всё равно было бы лучше, если бы оно не показывалось)



Это сообщение отредактировал(а) Vavik - 4.5.2009, 20:39
PM MAIL   Вверх
Vavik
Дата 5.5.2009, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 4.5.2009,  14:25)
Vavik, избавься от кириллицы в названии полей!!!

Дело не в полях, не помогло, тем более раньше и  с кирилицей работало.
PM MAIL   Вверх
Kbl4AH
Дата 6.5.2009, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15



Цитата(Vavik @  4.5.2009,  19:40 Найти цитируемый пост)
На что он мне говорит "Field "id_poselok" cannot be modified"Чего ему снова не так ?

Код

Table1.Insert;
Table1.Edit;
Table1.FieldByName('id_poselok').asString:= '3';
Table1.Post;

PM MAIL ICQ   Вверх
insoft
Дата 6.5.2009, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3



Цитата(Vavik @  4.5.2009,  18:40 Найти цитируемый пост)
Добавляю запись в поле

используй запросы!!!
или
Надо изменить текущую запись
Код

 Table1.edit; //переводим таблицу в режим редактирования
 Table1.fieldbyname('id_poselok').asString:='3';//изменяем поле
 Table1.post;//сохраняем изменения

Надо добавить новую запись.
Код

 Table1.append; //переводим таблицу в режим добавления новой записи
 Table1.fieldbyname('id_poselok').asString:='3';//присваиваем значение полей
 Table1.post;//сохраняем изменения

В режим редактирования таблицу переводят следующие методы:
Edit - редактирование текущей записи
Append - добавление записи в конец таблицы
Insert - вставка записи перед текущей

Для выхода из режима редактирования служат методы:
Post - запомнить изменения и выйти из режима редактирования
Cancel - отменить сделанные изменения и выйти из режима редактирования

p.s. а разве id_poselok у тебя не автоинрементальное???  smile 

Это сообщение отредактировал(а) insoft - 6.5.2009, 09:36
PM MAIL WWW   Вверх
Kbl4AH
Дата 6.5.2009, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15



Цитата(Vavik @  27.4.2009,  00:51 Найти цитируемый пост)
Думаю, всё это делать в DBGride, а как вот не знаю. Кстати необходимо нетолько добавлять, но и редактировать/удалять.

попробуй добавить в запрос псевдополе oid:
Код

select oid, * from table

PM MAIL ICQ   Вверх
Vavik
Дата 7.5.2009, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.4.2007
Где: РнД

Репутация: нет
Всего: нет



Цитата(insoft @ 6.5.2009,  09:36)


p.s. а разве id_poselok у тебя не автоинрементальное???  smile


Нее, неприучен так делать, поэтому забываю про такую штуку.
Таак, теперь как мне сделать

query1.FieldByName('id_poselok').asString:= ' А тут ячейка DBGRida '   м?

PM MAIL   Вверх
Kbl4AH
Дата 8.5.2009, 07:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15



Цитата(Vavik @  7.5.2009,  17:00 Найти цитируемый пост)
query1.FieldByName('id_poselok').asString:= ' А тут ячейка DBGRida '   м?

Код

Query1.FieldByName('id_poselok').asString := DBGrid1.Columns[DBGrid1.SelectedIndex].Field.AsString;

PM MAIL ICQ   Вверх
Страницы: (3) [Все] 1 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.1192 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.