none
Visual Studio 2012 - Ingresar datos a BD SQL Server 2012 RRS feed

  • Pregunta

  • Pues nada, que soy novato y todos los ejemplos que veo son con Funciones y Parámetros, pero yo quisiera saber si hay alguna forma de introducir los datos sin necesidad de crear una Función.

    Supongo que sí, pero esto de ser autodidacta no lo llevo muy bien.

    En fin, pongo el código para ver si alguien me puede echar una mano:

    (He intentado poner una imagen de la captura, pero este MICROSOFT me dice que tengo que verificar mi cuenta, cuando la tengo verificada hace meses...tiene huevos):

    If ActualizarAlumno = False Then

                cn = New SqlConnection
                cn.ConnectionString = "Server=FELIX-PC; database=COLEGIO MILITAR; Integrated security=true"
                daInsertar = New SqlDataAdapter()
                Dim Insercion As New SqlCommand("insert into ALUMNOS (Nombre, Documento, Tipo_Documento)

                values ('" & txt_Nombre.Text & "', '" & txt_Documento.Text & "', '" & cmb_Tipo_de_Documento.Text & "' )")

                cn.Open()
                cn.Close()

                MsgBox("Alumno registrado con éxito")

            End If



    • Editado felixmlj domingo, 26 de enero de 2014 0:02
    sábado, 25 de enero de 2014 23:35

Respuestas

  • SI SOLUCIONO TU PROBLEMA NO OLVIDES MARCAR COMO RESPUESTA Y VOTAR COMNO UTIL

    If ActualizarAlumno = False Then

    GuardarInformacion()

    End If

     Private Sub GuardarInformacion()

         Dim NOMBRE As String = txt_Nombre.Text

         Dim DOCUMENTO AS String =txt_Documento.Text

        Dim TIPODOCUMENTO AS String =cmb_Tipo_de_Documento.Text

    Dim conexion As SqlConnection = New SqlConnection("Server=FELIX-PC; database=COLEGIO MILITAR; Integrated security=true")

            Dim comando As SqlCommand = New SqlCommand()
           
                comando.Connection = conexion
                comando.Connection.Open()
                comando.Parameters.Clear()
                comando.CommandText = "INSERT INTO ALUMNOS (NOMBRE  , DOCUMENTO , TIPODOCUMENTO) VALUES(@NOMBRE  , @DOCUMENTO , @TIPODOCUMENTO) "
                comando.Parameters.AddWithValue("@NOMBRE", NOMBRE)
                comando.Parameters.AddWithValue("@DOCUMENTO", DOCUMENTO)
                comando.Parameters.AddWithValue("@TIPODOCUMENTO", TIPODOCUMENTO)
                comando.ExecuteNonQuery()
                comando.Connection.Close()
              MsgBox("Alumno registrado con éxito")
         
        End Sub


    EFRAIN MEJIAS C VALENCIA - VENEZUELA



    domingo, 26 de enero de 2014 0:03