[VB-WindowsForm] Conectar con Base de Datos SQL e Insertar Registro
Página 1 de 1.
[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
Temas similares
» [VB-WindowsForm] Sacar Promedio de 3 Notas + Extras
» [C#-WindowsForm] Sacar Promedio de 3 Notas + Extras
» [C#-WindowsForm] Sacar Promedio de 3 Notas + Extras
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|
Lun Dic 21, 2015 2:17 pm por Koleshy
» [TOOL] Wifi Free
Sáb Dic 19, 2015 10:30 pm por Koleshy
» [SISTEMA] Comprar|Levelear Habilidades (max. 7)|con criterios
Vie Dic 18, 2015 2:34 pm por Koleshy
» [SISTEMA] Duelos Ultimate
Vie Dic 18, 2015 2:32 pm por Koleshy
» [SISTEMA] Duelos/Torneos (TiposDeDuelo{TodosContraTodos/EnEquipos})
Vie Dic 18, 2015 2:30 pm por Koleshy
» [SISTEMA] Creditos Flotantes
Vie Dic 18, 2015 2:27 pm por Koleshy
» [SISTEMA] Cospre Items con estadistica y Duracion
Vie Dic 18, 2015 2:26 pm por Koleshy
» [SISTEMA] Runas Avanzado
Vie Dic 18, 2015 2:23 pm por Koleshy
» [SISTEMA] Comprar habilidades y hacerlas leveleables
Vie Dic 18, 2015 2:19 pm por Koleshy