COMO COLOCAR OBJETOS DE UM GROUPBOX NO CODIGO?

WANDERJSAN 21/10/2012 20:45:37
#412448
Boa noite a todos!!!!

Alguém poderia me orientar, por favor, sou iniciante em programação e estou tendo dificuldade em relação ao seguinte problema de código?
Ele compila o código normalmente, porém, quando digito os dados de dentro do GroupBox, ele retorna o seguinte erro, conforme imagens em anexo.

Muito obrigado pela atenção.
ADHEL 21/10/2012 20:59:23
#412450 Resposta escolhida
Posta o código que você está usando.
WANDERJSAN 21/10/2012 21:00:42
#412451
postei
ADHEL 21/10/2012 21:12:05
#412453
Copia o código do formulário e cola na janela do tópico por favor
Nada de pdf,Assim dificulta para o pessoal.
WANDERJSAN 21/10/2012 21:18:58
#412454
OK!


Imports System.Data.SqlClient
Imports System.Text



Public Class fisioterapeutaForm

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub fisioterapeutaForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub NovoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoButton.Click


Dim conexao As New SqlConnection(Dados.StringProntuario)

Dim instrucaoSQL As String =
[Ô]INSERT fisioterapeuta(id_fisio, crefito_fisio, nome_fisio, end_fisio, bairro_fisio, cidade_fisio,[Ô] &
[Ô]uf_fisio, cep_fisio, tel_res_fisio, tel_com_fisio, celular_fisio)[Ô] &
[Ô]VALUES(@Codigo, @Crefito, @Nome, @Endereco, @Bairro, @Cidade, @CEP, @Telefone_Residencial,[Ô] &
[Ô]@Telefone_Comercial, @Celular)[Ô]

Dim comando As New SqlCommand(instrucaoSQL, conexao)

comando.CommandType = CommandType.Text

Dim instrucaoNovoCodigo As String = _
[Ô]SELECT MAX(id_fisio) FROM fisioterapeuta[Ô]

Dim comandoCodigo As New SqlCommand(instrucaoNovoCodigo, conexao)

comandoCodigo.CommandType = CommandType.Text

Dim tx As SqlTransaction = Nothing
Try
comando.Parameters.AddWithValue(
[Ô]@Crefito[Ô], TextBox10.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Nome[Ô], TextBox1.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Endereco[Ô], TextBox2.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Bairro[Ô], TextBox4.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Cidade[Ô], TextBox3.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Estado[Ô], TextBox5.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@CEP[Ô], TextBox6.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Telefone_Residencial[Ô], TextBox7.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Telefone_Comercial[Ô], TextBox8.ValidarVazio().ToLower())
comando.Parameters.AddWithValue(
[Ô]@Celular[Ô], TextBox9.ValidarVazio().ToLower())


conexao.Open()

tx = conexao.BeginTransaction()

comando.Transaction = tx
comandoCodigo.Transaction = tx

comando.ExecuteNonQuery()

codigoLabel.Text = comandoCodigo.ExecuteScalar().ToString()

tx.Commit()

MessageBox.Show([Ô]Paciente cadastrado com sucesso[Ô], _
[Ô]Aviso[Ô], MessageBoxButtons.OK, _
MessageBoxIcon.Information)

Catch ex As SqlException

tx.Rollback()

MessageBox.Show([Ô]Erro ao tentar inserir na tabela[Ô], _
[Ô]Alerta do Servidor SQL[Ô], MessageBoxButtons.OK, _
MessageBoxIcon.Error)

Catch ex As Exception
MessageBox.Show(ex.Message, [Ô]Alerta de Erro[Ô], _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If conexao.State = ConnectionState.Open Then conexao.Close()
End Try
End Sub
Private Sub codigoLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigoLabel.Click

End Sub

Private Sub alterarButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alterarButton.Click

End Sub
End Class
ADHEL 21/10/2012 21:25:35
#412455
a princípio
aqui está faltando o into

[Ô]INSERT [txt-color=#e80000]into[/txt-color] fisioterapeuta(id_fisio, crefito_fisio, nome_fisio, end_fisio, bairro_fisio, cidade_fisio,[Ô] &
[Ô]uf_fisio, cep_fisio, tel_res_fisio, tel_com_fisio, celular_fisio)[Ô] &
[Ô]VALUES(@Codigo, @Crefito, @Nome, @Endereco, @Bairro, @Cidade, @CEP, @Telefone_Residencial,[Ô] &
[Ô]@Telefone_Comercial, @Celular)[Ô]

nos campos dos valores está faltando o uf
muda e vamos ver...
WANDERJSAN 21/10/2012 21:33:02
#412456
Mesmo assim ainda dá erro ao tentar inserir na tabela!
ADHEL 21/10/2012 21:40:04
#412458
a mensagem de erro continua a mesma ou mudou?
Sabe dizer qual linha ocorre o erro?
WANDERJSAN 21/10/2012 21:49:49
#412459
Continua a mesma! Na realidade ele compila normalmente, porém, quando preencho o formulário e clico no botão inserir ele dá o erro. Fiz um cadastro direto no SQL e ele cadastra normalmente. Não é problema de BD e sim no código!

Obrigado pela atenção que está tendo amigo!
ADHEL 21/10/2012 21:53:48
#412460
Tira o try catch momentaneamente e posta a mensagem que aparecerá
WANDERJSAN 21/10/2012 22:00:22
#412461
deu erro no EXECUTENONQUERY
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar