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

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

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