none
Problemas com pagina ao gravar no Banco de Dados RRS feed

  • Pergunta

  • Pessoal boa noite,

    Sou novato em programação e estou tentando desenvolver minha primeira pagina em asp.net para um trabalho da faculdade, o que ocorre é o seguinte desenvolvi uma pagina para cadastro de alunos e de acordo com um tutorial de ado.net linkei com o banco de dados na hora da visualização tudo normal eu digito os dados no cadastro e envio beleza só que os mesmo não vão para o banco de dados vejam se podem me ajudar segue o codigo:

    Imports System
    Imports System.Data
    Imports System.Data.SqlClient

    Partial Class Cad_Aluno
        Inherits System.Web.UI.Page

        Protected Sub Bt_incluir_Click(sender As Object, e As EventArgs) Handles Bt_incluir.Click
            Dim connString As String = _
    "server = LUCAS-PC;" _
    & "integrated security = true;" _
    & "database=banco_tst"
            Dim conn As SqlConnection = New SqlConnection(connString)
            Dim sqlins As String = _
            "insert into Cad_Alun" _
            & "(RA,Nome,Data Nasc,Local Nasc,RM)" _
            & "values ( @ra, @nome, @data_nasc, @local_nasc, @rm)"
            conn.Open()
            Dim sqltrans As SqlTransaction = conn.BeginTransaction
            Try
                Dim cmdins As SqlCommand = conn.CreateCommand
                cmdins.CommandText = sqlins
                cmdins.Transaction = sqltrans
                cmdins.Parameters.Add("@ra", SqlDbType.Int)
                cmdins.Parameters.Add("@nome", SqlDbType.NVarChar, 50)
                cmdins.Parameters.Add("@data_nasc", SqlDbType.Date)
                cmdins.Parameters.Add("@local_nasc", SqlDbType.NChar, 10)
                cmdins.Parameters.Add("@rm", SqlDbType.NChar, 10)

                cmdins.Parameters("@ra").Value = Tb_ra.Text
                cmdins.Parameters("@nome").Value = Tb_nm_alum.Text
                cmdins.Parameters("@data_nasc").Value = Tb_dt_nasc.Text
                cmdins.Parameters("@local_nasc").Value = Tb_lc_nasc.Text
                cmdins.Parameters("@rm").Value = Tb_rm.Text


                cmdins.ExecuteNonQuery()
                sqltrans.Commit()
            Catch ex As System.Data.SqlClient.SqlException
                sqltrans.Rollback()
                Console.WriteLine("Error SQL: " & ex.Message)
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
            Finally
                conn.Close()
                Limpa_Tela()
            End Try
        End Sub
        Private Sub Limpa_Tela()
            Tb_ra.Text = ""
            Tb_nm_alum.Text = " "
            Tb_dt_nasc.Text = " "
            Tb_lc_nasc.Text = " "
            Tb_rm.Text = " "
        End Sub
    End Class
    • Editado Lks Silva segunda-feira, 11 de março de 2013 23:24
    segunda-feira, 11 de março de 2013 23:21

Respostas

  • Samuel, obrigado pela resposta visto que a parte da programação estava tudo em ordem resolvi dar uma checada no meu BD e constatei que o erro estava lá tinha faltado a inserção de um campo na tabela e por sinal era o PK rsrs... Obrigado cara!!
    terça-feira, 12 de março de 2013 07:00

Todas as Respostas

  • Cara,

    Aparentemente o seu código está correto, não é gerado nenhuma exception?
    Verifica se o nome da tabela está certo "Cad_Alun", ou se a sua conection string está correta mesmo.

    Pois você abre a conexão, utiliza um begin tran, faz o que tem que fazer e no final da um commit certinho também.

    Atenciosamente, Samuel dos Anjos

    terça-feira, 12 de março de 2013 00:30
  • Samuel, obrigado pela resposta visto que a parte da programação estava tudo em ordem resolvi dar uma checada no meu BD e constatei que o erro estava lá tinha faltado a inserção de um campo na tabela e por sinal era o PK rsrs... Obrigado cara!!
    terça-feira, 12 de março de 2013 07:00