Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2011, 15:53   #1
denis_stell
Пользователь
 
Регистрация: 03.03.2010
Сообщений: 21
По умолчанию ms sql+delphi, клиент-серверное приложение

Добрый день!
Помогите пожалуйста разобраться с проблемой:
Суть такова:
Есть база данных(ms sql server 2005), делаю приложение для учета картриджей итп.
Коннект к базе проходит на ура, могу увидеть все строки, т.е. в ms sql написал хранимку с селектом.в делфи использую компоненты Ado (Adoconnection,AdostoredProc,adotab le,datasourse), отображаю в DBGridе
Затем хочу добавить новые данные в базу, пока на форму кинул Editы,хочу через них добавить в базу данные.
Сделал 2 хранимку
Код:
USE [mybase]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[Proc11] (
	@model varchar(50),
	@name_cart varchar(50),
	@number nchar(10),
	@serial_number varchar(50),
	@shtrix_code varchar(50),
	@status varchar(50),
	@uchet varchar(50),
	@raspolozhenie varchar(50))
AS
INSERT INTO base (model, name_cart, number, serial_number, shtrix_code, status, uchet, raspolozhenie)
VALUES (@model, @name_cart, @number, @serial_number, @shtrix_code, @status, @uchet, @raspolozhenie)
на кнопке в событие пишу так :
Код:
ADOStoredProc27. Parameters.ParamValues['@model'] := Edit45.Text;
 ADOStoredProc27. Parameters.ParamValues['@name_cart'] := Edit46.Text;
 ADOStoredProc27. Parameters.ParamValues['@number'] := Edit47.Text;
 ADOStoredProc27. Parameters.ParamValues['@serial_number'] := Edit49.Text;
 ADOStoredProc27. Parameters.ParamValues['@shtrix_code'] := Edit50.Text;
 ADOStoredProc27. Parameters.ParamValues['@status'] := Edit51.Text;
 ADOStoredProc27. Parameters.ParamValues['@uchet'] := Edit52.Text;
 ADOStoredProc27. Parameters.ParamValues['@raspolozhenie'] := Edit57.Text;
 ADOStoredProc27.ExecProc;
 ADOTable10.Close;
 ADOTable10.Open;
при выполнение выдает
Project raised exception class EdatabaseError message ''Adostored27: parametr '@model' not found....

Как можно это побороть?
denis_stell вне форума Ответить с цитированием
Старый 26.10.2011, 17:25   #2
Surgeon
Форумчанин
 
Регистрация: 04.10.2007
Сообщений: 106
По умолчанию

Я может чего-то не понимаю но зачем хранимая процедура в обоих случаях?
Не проще задействовать ADOQuery или ADODataSet.
Запрос на вставку уже есть.
Все не так плохо, как вам кажется, на самом деле все гораздо хуже.
http://delphiworld.narod.ru/dw.html - 5000 статей!!! удобный поиск, оффлайн сборник, рекомендую всем
Surgeon вне форума Ответить с цитированием
Старый 26.10.2011, 17:40   #3
denis_stell
Пользователь
 
Регистрация: 03.03.2010
Сообщений: 21
По умолчанию

Цитата:
Сообщение от Surgeon Посмотреть сообщение
Я может чего-то не понимаю но зачем хранимая процедура в обоих случаях?
Не проще задействовать ADOQuery или ADODataSet.
Запрос на вставку уже есть.
Просто раньше если честно не работал с ADOQuery или ADODataSet, поэтому пошел по такому способу, рассуждал так: первая хранимка реализована для кнопки "обновить",т.е. показать всю базу, вторая для вставки,т.е. для вставки новых значений,вроде прописал всё так,но не пойму где косякнул
denis_stell вне форума Ответить с цитированием
Старый 26.10.2011, 17:58   #4
Surgeon
Форумчанин
 
Регистрация: 04.10.2007
Сообщений: 106
По умолчанию

Я как раз не работал с хранимыми. Они вроде как нужны для более специфических задач, типа переработки на месте большого массива по заранее заданным правилам, создания view.
Внутри названных компонент ровно тот же SQL. В документации к Д7 сказано что ADODAtaSet предпочтительнее и должен заменить и ADOTable и ADOQuery.
Все не так плохо, как вам кажется, на самом деле все гораздо хуже.
http://delphiworld.narod.ru/dw.html - 5000 статей!!! удобный поиск, оффлайн сборник, рекомендую всем
Surgeon вне форума Ответить с цитированием
Старый 03.11.2011, 20:06   #5
arthur1
Пользователь
 
Регистрация: 01.09.2011
Сообщений: 44
По умолчанию

скажите а где можно разместить БД для общего пользования? сайт или какой нибудь хост подскажите пожалуйста

Удосужьтесь прочитать, наконец, правила раздела !
Там специально для таких ловкачей разъясняется, что такое "оффтоп".
И что за это бывает...
Кое что интерестное ожидает тебя тут.
мир прекрастная штука ... как не крути)

Последний раз редактировалось mihali4; 03.11.2011 в 21:01.
arthur1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Клиент-серверное приложение, создание сервера через MS SQL Server и подключение c ADO (CRM) StuDenT5x3 БД в Delphi 5 14.08.2011 17:12
Простейшее клиент-серверное приложение в Delphi 2009 RNT Работа с сетью в Delphi 15 21.11.2010 19:08
Клиент Серверное приложение BARNEY Общие вопросы Delphi 2 28.10.2010 09:30
Клиент-серверное приложение Куралай_ Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 14.05.2010 10:00
Возможно-ли Клиент-серверное приложение типа Клиент(Pascal) а сервер(CGI)? Demol Работа с сетью в Delphi 1 21.04.2009 16:18