Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM [игнор отключен] [закрыт для гостей] / коллекция параметров SqlCommand / 15 сообщений из 15, страница 1 из 1
14.08.2008, 15:58
    #35487974
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
подскажите что не так? выдает ошибку что процедура ожидает параметер "@kod_if" который не был передан
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
     Dim pc As SqlClient.SqlParameterCollection
            Dim cmd_ob_add = cn.CreateCommand()
            cmd_ob_add.commandtext = "pldo.usp_object_add"
            cmd_ob_add.CommandType = CommandType.StoredProcedure
            pc = cmd_ob_add.parameters
            pc.Add("@kod_if", SqlDbType.TinyInt,  0 , Me.ComboBox_if.SelectedValue)
            pc.Add("@kod_vr", SqlDbType.TinyInt,  0 , Me.ComboBox_vr.SelectedValue)
            pc.Add("@id_zak", SqlDbType.Int,  0 , Me.ComboBox_zak.SelectedValue)
            pc.Add("@id_ist_dsr", SqlDbType.Int,  0 , Me.ComboBox_ist_dsr.SelectedValue)
            pc.Add("@kod_fil", SqlDbType.TinyInt,  0 , Me.ComboBox_ist_dsr.SelectedValue)
            pc.Add("@nazv_ob", SqlDbType.VarChar,  250 , Me.ComboBox_ist_dsr.SelectedValue)
            pc.Add("@god_nach_vr", SqlDbType.SmallInt,  0 , Me.ComboBox_god_n.SelectedValue)
            pc.Add("@mes_nach_vr", SqlDbType.TinyInt,  0 , Me.ComboBox_mes_n.SelectedValue)
            pc.Add("@god_sd", SqlDbType.SmallInt,  0 , Me.ComboBox_god_sd.SelectedValue)
            pc.Add("@mes_sd", SqlDbType.TinyInt,  0 , Me.ComboBox_mes_sd.SelectedValue)
            pc.Add("@flag_subp", SqlDbType.Bit,  0 , Me.CheckBox_subp.CheckState)
            pc.Add("@kod_raena", SqlDbType.TinyInt,  0 , Me.ComboBox_raen.SelectedValue).IsNullable = true
            pc.Add("@id_agr", SqlDbType.Int,  0 , Me.ComboBox_agr.SelectedValue).IsNullable = True
            pc.Add("@id_vr_agr", SqlDbType.Int,  0 , Me.ComboBox_vr_agr.SelectedValue).IsNullable = True
            cmd_ob_add.executenonquery()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:13
    #35488015
AlexeiK
AlexeiK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
код процедуры то покажи .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:14
    #35488020
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
AlexeiKкод процедуры то покажи .
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
create proc pldo.usp_object_add
@kod_if tinyint,
@kod_vr tinyint,
@id_zak int,
@id_ist_dsr int,
@kod_fil tinyint,
@nazv_ob varchar( 250 ),
@god_nach_vr smallint,
@mes_nach_vr tinyint,
@god_sd smallint,
@mes_sd tinyint,
@flag_subp bit,
@kod_raena tinyint,
@id_agr int,
@id_vr_agr int
as
insert into pldo.объекты
(kod_if, kod_vr, id_zak, id_ist_dsr, kod_fil, nazv_ob, god_nach_vr, mes_nach_vr, god_sd, mes_sd, flag_subp, kod_raena, id_agr, id_vr_agr)
values (@kod_if, @kod_vr, @id_zak, @id_ist_dsr, @kod_fil, @nazv_ob, @god_nach_vr, @mes_nach_vr, @god_sd, @mes_sd, @flag_subp, @kod_raena, @id_agr, @id_vr_agr);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:15
    #35488025
Ex_Soft
Ex_Soft
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
тынць
_________________
"Helo, word!" - 17 errors 56 warnings
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:17
    #35488031
AlexeiK
AlexeiK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
cn - объект какого типа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:17
    #35488032
SQL_Lamer
SQL_Lamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
+ Проверь значения, передаваемые из комбобоксов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:19
    #35488037
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
AlexeiKcn - объект какого типа?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Module main_mod
    Public cn As SqlClient.SqlConnection

    Public Sub createConnectionString(ByVal user_name As String, ByVal password As String)
        Dim bldr = New SqlClient.SqlConnectionStringBuilder()
        bldr.DataSource = "221.1.2.44"
        bldr.InitialCatalog = "trust"
        bldr.UserID = user_name
        bldr.Password = password
        bldr.IntegratedSecurity = False
        cn = New SqlClient.SqlConnection(bldr.ConnectionString)
    End Sub
End Module
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:20
    #35488039
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
SQL_Lamer+ Проверь значения, передаваемые из комбобоксов
проверил все нормально
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:23
    #35488057
SQL_Lamer
SQL_Lamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
Эта че ? pc = cmd_ob_add.parameters
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:24
    #35488061
SQL_Lamer
SQL_Lamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
SQL_LamerЭта че ? pc = cmd_ob_add.parameters

В смысле, нету у тебя никаких параметров.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:31
    #35488078
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
а как надо делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:34
    #35488085
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
ну тут же работает все :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim pc As SqlClient.SqlParameterCollection
                'update command
                Me.SqlDataAdapter_zak.UpdateCommand = cn.CreateCommand()
                Me.SqlDataAdapter_zak.UpdateCommand.CommandText = "general.usp_zak_upd"
                Me.SqlDataAdapter_zak.UpdateCommand.CommandType = CommandType.StoredProcedure
                pc = Me.SqlDataAdapter_zak.UpdateCommand.Parameters
                pc.Add("@id_zak", SqlDbType.Int,  0 , "id_zak")
                pc.Add("@назв_зак", SqlDbType.VarChar,  0 , "Название организации заказчика")
                pc.Add("@флаг_изм", SqlDbType.Bit,  0 , "Флаг изменений")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 16:35
    #35488089
SQL_Lamer
SQL_Lamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
А = В и В = А - это не одно и то - же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 18:17
    #35488369
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
а вот так все работает, до параметра "kod_raena" но там Combobox-ы не заполнены и в таблицу должно быть добавлено null по задумке, и я же на параметр указал isnullable=true чего он не принимает?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
cn.Open()
            Dim pc As SqlClient.SqlParameterCollection
            Dim cmd_ob_add As New SqlClient.SqlCommand
            cmd_ob_add = cn.CreateCommand()
            cmd_ob_add.commandtext = "pldo.usp_object_add"
            cmd_ob_add.CommandType = CommandType.StoredProcedure
            pc = cmd_ob_add.Parameters
            pc.AddWithValue("kod_if", Me.ComboBox_if.SelectedValue)
            pc.AddWithValue("kod_vr", Me.ComboBox_vr.SelectedValue)
            pc.AddWithValue("id_zak", Me.ComboBox_zak.SelectedValue)
            pc.AddWithValue("id_ist_dsr", Me.ComboBox_ist_dsr.SelectedValue)
            pc.AddWithValue("kod_fil", Me.ComboBox_ist_dsr.SelectedValue)
            pc.AddWithValue("nazv_ob", Me.TextBox_nazv_ob.Text)
            pc.AddWithValue("god_nach_vr", Me.ComboBox_god_n.SelectedValue)
            pc.AddWithValue("mes_nach_vr", Me.ComboBox_mes_n.SelectedValue)
            pc.AddWithValue("god_sd", Me.ComboBox_god_sd.SelectedValue)
            pc.AddWithValue("mes_sd", Me.ComboBox_mes_sd.SelectedValue)
            pc.AddWithValue("flag_subp", Me.CheckBox_subp.CheckState)
            pc.AddWithValue("kod_raena", Me.ComboBox_raen.SelectedValue).IsNullable = True
            pc.AddWithValue("id_agr", Me.ComboBox_agr.SelectedValue).IsNullable = True
            pc.AddWithValue("id_vr_agr", Me.ComboBox_vr_agr.SelectedValue).IsNullable = True
            cmd_ob_add.executenonquery()
            cn.Close()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2008, 18:32
    #35488411
koJIo6ok
koJIo6ok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
коллекция параметров SqlCommand
а вот так вообще все заработало :) все спасибо
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
cn.Open()
            Dim pc As SqlClient.SqlParameterCollection
            Dim cmd_ob_add As New SqlClient.SqlCommand
            cmd_ob_add = cn.CreateCommand()
            cmd_ob_add.commandtext = "pldo.usp_object_add"
            cmd_ob_add.CommandType = CommandType.StoredProcedure
            pc = cmd_ob_add.Parameters
            pc.AddWithValue("kod_if", Me.ComboBox_if.SelectedValue)
            pc.AddWithValue("kod_vr", Me.ComboBox_vr.SelectedValue)
            pc.AddWithValue("id_zak", Me.ComboBox_zak.SelectedValue)
            pc.AddWithValue("id_ist_dsr", Me.ComboBox_ist_dsr.SelectedValue)
            pc.AddWithValue("kod_fil", Me.ComboBox_fil.SelectedValue)
            pc.AddWithValue("nazv_ob", Me.TextBox_nazv_ob.Text)
            pc.AddWithValue("god_nach_vr", Me.ComboBox_god_n.SelectedValue)
            pc.AddWithValue("mes_nach_vr", Me.ComboBox_mes_n.SelectedValue)
            pc.AddWithValue("god_sd", Me.ComboBox_god_sd.SelectedValue)
            pc.AddWithValue("mes_sd", Me.ComboBox_mes_sd.SelectedValue)
            pc.AddWithValue("flag_subp", Me.CheckBox_subp.CheckState)
            If Me.ComboBox_if.SelectedValue =  2  Then
                pc.AddWithValue("kod_raena", Me.ComboBox_raen.SelectedValue)
                pc.AddWithValue("id_agr", Me.ComboBox_agr.SelectedValue)
                pc.AddWithValue("id_vr_agr", Me.ComboBox_vr_agr.SelectedValue)
            Else
                pc.AddWithValue("kod_raena", System.DBNull.Value)
                pc.AddWithValue("id_agr", System.DBNull.Value)
                pc.AddWithValue("id_vr_agr", System.DBNull.Value)
            End If
            cmd_ob_add.ExecuteNonQuery()
            cn.Close()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM [игнор отключен] [закрыт для гостей] / коллекция параметров SqlCommand / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 328ms
Закрыть
start [/forum/topic.php?fid=17&mobile=1&tid=1352177]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 207ms
total:  328ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]