GRAVAR OS DADOS DE UM WEBSERVICE EM UMA TABELA
Pessoal eu estou a pouco temto trabalhando com Vb.net
eu estou tentando Gravar os dados de um WebService em uma tabela porem não estou conseguingo achar que eu fiz de errado (Imagino que um Montão de coisas kkkk)
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim Bds = New BaseDados.Service1
Lblinfo.Visible = True
Pbar.Visible = True
Pbar.Value = 0
Try
Dim Sqldel As New SqlCeCommand([Ô]delete from Usuario[Ô], Conn)
Dim sqlinset As New SqlCeCommand([Ô]insert into Usuario values(?,?,?)[Ô], Conn)
Dim ds As New DataSet
ds = Bds.Dados
sqlinset.Parameters.Add([Ô]@IdUser[Ô], SqlDbType.Int, 4, [Ô]IdUser[Ô]).Value = ds.Tables(0).Rows([Ô]IdUser[Ô])
sqlinset.Parameters.Add([Ô]@Nome_User[Ô], SqlDbType.NVarChar, 100, [Ô]Nome_User[Ô]).Value = ds.Tables(0).Rows([Ô]Nome_User[Ô]).ToString
sqlinset.Parameters.Add([Ô]@Senha[Ô], SqlDbType.NVarChar, 100, [Ô]Senha[Ô]).Value = ds.Tables(0).Rows([Ô]Nome_User[Ô]).ToString
Conn.Open()
Sqldel.ExecuteNonQuery()
sqlinset.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Grato Jonatas Marques
eu estou tentando Gravar os dados de um WebService em uma tabela porem não estou conseguingo achar que eu fiz de errado (Imagino que um Montão de coisas kkkk)
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim Bds = New BaseDados.Service1
Lblinfo.Visible = True
Pbar.Visible = True
Pbar.Value = 0
Try
Dim Sqldel As New SqlCeCommand([Ô]delete from Usuario[Ô], Conn)
Dim sqlinset As New SqlCeCommand([Ô]insert into Usuario values(?,?,?)[Ô], Conn)
Dim ds As New DataSet
ds = Bds.Dados
sqlinset.Parameters.Add([Ô]@IdUser[Ô], SqlDbType.Int, 4, [Ô]IdUser[Ô]).Value = ds.Tables(0).Rows([Ô]IdUser[Ô])
sqlinset.Parameters.Add([Ô]@Nome_User[Ô], SqlDbType.NVarChar, 100, [Ô]Nome_User[Ô]).Value = ds.Tables(0).Rows([Ô]Nome_User[Ô]).ToString
sqlinset.Parameters.Add([Ô]@Senha[Ô], SqlDbType.NVarChar, 100, [Ô]Senha[Ô]).Value = ds.Tables(0).Rows([Ô]Nome_User[Ô]).ToString
Conn.Open()
Sqldel.ExecuteNonQuery()
sqlinset.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Grato Jonatas Marques
Qual é o erro?
opa o erro que estava acontecendo era que eu tinha que transformar o valor que estava entrando no campo IdUser para Int e eu não tinha feito
Grato Pela força
Grato Pela força
O projeto já foi resolvido?
Se sim, não esqueça de ENCERRAR O TÓPICO.
Se sim, não esqueça de ENCERRAR O TÓPICO.
Tópico encerrado , respostas não são mais permitidas