- Beranda
- Programmer Forum
[ask]Failed to convert parameter value from a List '1 to a ienumerable '1
...
TS
myputra
[ask]Failed to convert parameter value from a List '1 to a ienumerable '1
Teman-teman yth,
Ketika saya akan mengirim sebuah list ke parameter di sql server yang bertipe table, saya mendapatkan pesan ini:
Failed to convert parameter value from a List '1 to a ienumerable '1
Potongan kodingan saya:
da = New SqlDataAdapter
ds = New DataSet
Dim daftarikan As List(Of String)
daftarikan = New List(Of String)
If listikan.SelectedItems.Count <> 0 Then
Try
tk.txtno.Text = txtno.Text
tk.txtinforman.Text = txtnama.Text
tk.txtupt.Text = cmbnegara.SelectedItem.ToString()
tk.txtalamat.Text = txtalamat.Text
Dim x As Integer
For x = 0 To listikan.SelectedItems.Count - 1
daftarikan.Add(CStr(listikan.SelectedItems(x)))
Next x
cmd = New SqlCommand
cmd.Connection = koneksi.kone
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "select_laporan_akhir"
cmd.Parameters.Add("@nama_ikan", SqlDbType.Structured)
cmd.Parameters("@nama_ikan").TypeName = "tbelikan"
cmd.Parameters("@nama_ikan").Value = daftarikan
cmd.Parameters.Add("@upt", SqlDbType.VarChar, 255).Value = cmbnegara.SelectedItem.ToString()
da.SelectCommand = cmd
da.Fill(ds, "hasil")
tk.dginfo.DataSource = ds
tk.dginfo.DataMember = "hasil"
tk.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Ketika saya akan mengirim sebuah list ke parameter di sql server yang bertipe table, saya mendapatkan pesan ini:
Failed to convert parameter value from a List '1 to a ienumerable '1
Potongan kodingan saya:
da = New SqlDataAdapter
ds = New DataSet
Dim daftarikan As List(Of String)
daftarikan = New List(Of String)
If listikan.SelectedItems.Count <> 0 Then
Try
tk.txtno.Text = txtno.Text
tk.txtinforman.Text = txtnama.Text
tk.txtupt.Text = cmbnegara.SelectedItem.ToString()
tk.txtalamat.Text = txtalamat.Text
Dim x As Integer
For x = 0 To listikan.SelectedItems.Count - 1
daftarikan.Add(CStr(listikan.SelectedItems(x)))
Next x
cmd = New SqlCommand
cmd.Connection = koneksi.kone
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "select_laporan_akhir"
cmd.Parameters.Add("@nama_ikan", SqlDbType.Structured)
cmd.Parameters("@nama_ikan").TypeName = "tbelikan"
cmd.Parameters("@nama_ikan").Value = daftarikan
cmd.Parameters.Add("@upt", SqlDbType.VarChar, 255).Value = cmbnegara.SelectedItem.ToString()
da.SelectCommand = cmd
da.Fill(ds, "hasil")
tk.dginfo.DataSource = ds
tk.dginfo.DataMember = "hasil"
tk.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Diubah oleh myputra 10-02-2014 23:30
0
2K
2
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
20.2KThread•4.3KAnggota
Terlama
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru