[VB-WindowsForm] Conectar con Base de Datos SQL e Insertar Registro
Página 1 de 1. • Comparte •
[VB-WindowsForm] Conectar con Base de Datos SQL e Insertar Registro

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
Koleshy- Pendejo
- Mensajes : 37
Fecha de inscripción : 21/11/2013
Edad : 21
Localización : Lima, Perú

» ¿Como puedo solicitar la base de datos de mi foro o acceso al servidor donde se aloja el dominio de pago?
» Servicio de Base de Datos
» Me pueden dar la Base de Datos
» ¿Cómo puedo llevarme la base de datos de mi foro a otro sitio?
» puedo subir una base de datos de mi foro
» Servicio de Base de Datos
» Me pueden dar la Base de Datos
» ¿Cómo puedo llevarme la base de datos de mi foro a otro sitio?
» puedo subir una base de datos de mi foro
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
» [TOOL] Wifi Free
» [SISTEMA] Comprar|Levelear Habilidades (max. 7)|con criterios
» [SISTEMA] Duelos Ultimate
» [SISTEMA] Duelos/Torneos (TiposDeDuelo{TodosContraTodos/EnEquipos})
» [SISTEMA] Creditos Flotantes
» [SISTEMA] Cospre Items con estadistica y Duracion
» [SISTEMA] Runas Avanzado
» [SISTEMA] Comprar habilidades y hacerlas leveleables