2014-01-16 3 views
0

Я пытаюсь добавить элементы из списка в таблицу внешнего ключа в SQL-сервере.Вставить элементы списка списка в sql-сервер

Любые предметы в списке должны быть добавлены в базу данных.

Текущий я застреваю в цикле, потому что он не собирает элемент в списке.

Элементы в поле списка не будут выбраны.

Любые советы будут замечательными!

Dim CommandText As String = "INSERT INTO code (id, Code, specialty) VALUES (@id, @ClientCode, @specialty);" 
     Dim cmd As SqlCommand = New SqlCommand(CommandText, sqlconninsertDB) 

For Each item As ListItem In lstspecialty.Items 
       If Items.Count = lstspecialty.Items.Count Then 
        Try 
         With cmd.Parameters 
          .Add(New SqlParameter("@id", ID)) 
          .Add(New SqlParameter("@ClientCode", Code)) 
          .Add(New SqlParameter("@specialty", item.Value)) 
         End With 

        cmd.ExecuteNonQuery() 
        Label.Text = "Data Inserted" 
       Catch ex As Exception 
        ErrorLabel.Text = "Error Message" 
       End Try 
      End If 
     Next 
+0

Что такое значение 'cmd.CommandText'? – equisde

+0

Просьба уточнить вашу проблему. В общем, если вы застряли, вам нужно позвонить в эвакуатор. – Neolisk

ответ

0
Dim SQL as String = "INSERT INTO YourTable(id, ClientCode, specialty) VALUES (@id, @ClientCode, @specialty)" 

Dim cmd As New SqlClient.SqlCommand(SQL, Connection) 

For Each item As ListItem In lstspecialty.Items 
      Try 
        With cmd.Parameters 
         .Add(New SqlParameter("@id", item.ID)) 
         .Add(New SqlParameter("@ClientCode", item.Code)) 
         .Add(New SqlParameter("@specialty", item.Value)) 
        End With 
        cmd.ExecuteNonQuery() 

      Catch ex As Exception 

       'Whatever you want' 

      End Try    
Next 
Смежные вопросы