Problemas com pagina ao gravar no Banco de Dados

Question

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

Answer 1

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

Answer 2

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!!