ERRO AO INSERIR DADOS
podem me ajudar ÂÂÂ'qual será o erro do meu código??
Erro: Line 1: Incorrect Syntax near 'fdfd)'
Dim tp_desp, nome_conta, sql As String
Dim cnn As SqlConnection
Dim cmd As SqlCommand
Try
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & ")'"
cnn = New SqlConnection("Data Source=SILAS;" & _
"Initial Catalog = pessoa; " & _
"Integrated Security = SSPI")
cnn.Open()
cmd = New SqlCommand(sql, cnn)
cmd.ExecuteNonQuery()
MessageBox.Show("Registro Salvo")
Catch ex As Exception
MsgBox(" Erro : " & ex.Message)
End Try
cnn.Dispose()
cnn.Close()
limpa()
End Sub
Erro: Line 1: Incorrect Syntax near 'fdfd)'
Dim tp_desp, nome_conta, sql As String
Dim cnn As SqlConnection
Dim cmd As SqlCommand
Try
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & ")'"
cnn = New SqlConnection("Data Source=SILAS;" & _
"Initial Catalog = pessoa; " & _
"Integrated Security = SSPI")
cnn.Open()
cmd = New SqlCommand(sql, cnn)
cmd.ExecuteNonQuery()
MessageBox.Show("Registro Salvo")
Catch ex As Exception
MsgBox(" Erro : " & ex.Message)
End Try
cnn.Dispose()
cnn.Close()
limpa()
End Sub
Tem uma aspa em um local incorreto, depois do parentese
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & ")'"
troque por
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & "')"
Outra coisa:
Dim tp_desp, nome_conta, sql As String
tem certeza que todas as variáveis ficaram com o tipo String?
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & ")'"
troque por
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & "')"
Outra coisa:
Dim tp_desp, nome_conta, sql As String
tem certeza que todas as variáveis ficaram com o tipo String?
O erro é no cmd.executenonquery
Pois é, se verificar bem no final de sua sql está
e o correto seria
txtconta.Text & " ) ' "
e o correto seria
txtconta.Text & " ' ) "
Tópico encerrado , respostas não são mais permitidas