VPF::Добавление данных в таблицу - Форум программистов

Knorkator

Дата 22.5.2008, 07:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Добрый день многомудрые винградовцы

Существует таблица в котором 4 поля, 1 из них уникальное и генерируется сервером
1. kod_k int - первичный ключ
2. nazv varchar(30)
3. kod_d int
4. date_izb datetime

AdoQuery1 - тупо показывает все что есть в таблице.

На сервере существует процедура добавление.

Код


set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[add_A]
@nazv varchar(30), @kod_d int, @date_izb datetime
 AS 
insert into A (nazv, kod_d, date_izb)
values (@nazv, @kod_d, @date_izb)

Добавление кнопкой

Код


void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOQuery1->Active=false;
ADOStoredProc1->Parameters->Items[1]->Value=Edit1->Text;
ADOStoredProc1->Parameters->Items[2]->Value=StrToInt(Edit2->Text);
ADOStoredProc1->Parameters->Items[3]->Value=StrToDate(Edit3->Text);
ADOStoredProc1->ExecProc();
ADOQuery1->Active=true;
}

Однако при добавлении выскакивает баг
user posted image

На Delphi тоже самое. Что делать и как бороться?

Это сообщение отредактировал(а) LSD - 23.5.2008, 12:52

skyboy

Дата 22.5.2008, 09:33 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

человек, научись отделять проблемы БД от проблем программы.
у тебя проблема чисто Delphi/Builder. Точнее, того, что прежде чем обращаться к Parameters->Items[0/1/2/...] необходимо этот самый items[0/1/...] добавить(скорее всего, методом parameters->add() или addItem())
ошибка "List index out of bounds" - это сообщение не базы данных, а исключение, вызванное в наследнике TList

LSD

Дата 23.5.2008, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

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

Учимся пользоваться кнопкой код и правильно выбирать раздел.

Модератор: Перемещено из Общие вопросы по базам данных.

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

Rodman

Дата 23.5.2008, 14:57 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

что в ADOStoredProc1 и ADOQuery1??

и зачем их вместе запускать?!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Deniz

Дата 23.5.2008, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

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

Knorkator, а ты уверен что нумерация параметров начинается с 1?
Ошибка в этой строке:

Код

ADOStoredProc1->Parameters->Items[3]->Value=StrToDate(Edit3->Text);

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

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