[VB-WindowsForm] Conectar con Base de Datos SQL e Insertar Registro

Ver el tema anterior Ver el tema siguiente Ir abajo

[VB-WindowsForm] Conectar con Base de Datos SQL e Insertar Registro

Mensaje por Koleshy el Dom Mar 23, 2014 11:52 am



El Codigo (Source)

Código:
Imports System.Data.SqlClient
Public Class Form1
   'Creando conexion
   Public con As New SqlConnection
   'Sub para conectar
   Public Sub Conectar()
       'Todo esto dentro de un Try Catch en caso de que nos de algun error y saber el origen de él
       Try
           'Configurando la ruta de la conexion
           Dim Nombre_Servidor As String = "Data Source=ARON\SQLEXPRESS; "
           Dim Nombre_DB As String = "Initial Catalog=KoleshyEngine; "
           Dim Ruta_Conexion As String = Nombre_Servidor & Nombre_DB & "Integrated security=true;"
           con.ConnectionString = Ruta_Conexion
           'Revisando si la conexion esta cerrada, entonces abrir conexion
           If (con.State = ConnectionState.Closed) Then
               con.Open()
               'Mandando un msgbox para saber si se establecio la conexion
               MsgBox("Conectado!")
           End If
       Catch ex As Exception
           'En caso que el codigo nos mande error, nos lansze un msgbx con el error
           'para saber que ocaciono ese error.
           MsgBox(ex.Message)
       End Try
   End Sub

   'Sub con parametros para insertar el registro
   Public Sub Insertar_Registro(nombre As String, edad As String, sexo As String)
       'Llamando al Sub Conectar, para que establesca la conexion en caso de que no este abierta
       Call Conectar()
       'Todo esto dentro de un Try Catch en caso de que nos de algun error y saber el origen de él
       Try
           'Insertando registro a travez de Consulta/Query usando parametros
           Dim Nombre_Tabla As String = "Cliente"
           Dim cmd As New SqlCommand("INSERT INTO " & Nombre_Tabla & " VALUES (@Nombre, @Edad, @Sexo)", con)
           cmd.Parameters.AddWithValue("@Nombre", nombre)
           cmd.Parameters.AddWithValue("@Edad", edad)
           cmd.Parameters.AddWithValue("@Sexo", sexo)
           cmd.ExecuteNonQuery()
           'Mandando un msgbox para saber si se inserto el registro
           MsgBox("Registro Insertado!")
       Catch ex As Exception
           'En caso que el codigo nos mande error, nos lansze un msgbx con el error
           'para saber que ocaciono ese error.
           MsgBox(ex.Message)
       Finally
           'cerrando la conexion despues de ejecturarse el procedimiento
           con.Close()
       End Try
   End Sub

   Private Sub btnInsertarRegistro_Click(sender As Object, e As EventArgs) Handles btnInsertarRegistro.Click
       'Llamando a nuestro sub para insertar registro
       'fijando correspondientemente los valores respectivos que se van a insertar segun su parametro
       Call Insertar_Registro(txtNombre.Text, txtEdad.Text, txtSexo.Text)
   End Sub
End Class

descarga
Password: koleshyengine
Archivos
VB - Conectar con Base de Datos SQL e Insertar Registro.pdf El link del proyecto esta dentro del pdf en la parte inferior...No tienes los permisos para descargar los archivos.(71 KB) Descargado 1 veces
avatar
Koleshy
Pendejo
Pendejo

Mensajes : 37
Fecha de inscripción : 21/11/2013
Edad : 21
Localización : Lima, Perú

Ver perfil de usuario http://koleshyengine.foroactivo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.