Visual Basic 2010 y SQL Server 2008 Conexión

1:31 Desarrollo 0
EJEMPLO SENCILLO. 
De cómo haer una conexión con Visual Basic 2010 y Sql Server 2008, 
Guardando 2 datos en una Tabla de una base de datos en Sql Server

Sólo utilizaremos 2 Textbox, y un Button

 Datos que tenemos que cambiar:

 SERVIDOR: Nombre de nuestro servidor
DATABASE: Nombre de nuestra base de datos 
TABLA: Nombre de nuestra Tabla
@tb_id: Nombre de nuestra primer columna de nuestra tabla
@tb_nombre: nombre de nuestra segunda columna





Imports System.Data.SqlClient
Imports System
Imports System.Data

Public Class Form1

    Dim cnn As SqlConnection
    Dim cmd As SqlCommand

    Private cn As New SqlConnection("Data Source=SERVIDOR;Initial Catalog=DATABASE;Integrated Security=True")
    


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        Dim lsQuery As String = "Insert into DATABASE.dbo.TABLA(id,nombre) Values (@tb_id,@tb_nombre)"
        Dim loComando As New SqlCommand(lsQuery, cn)
        loComando.Parameters.AddWithValue("@tb_id", tb_id.Text.Trim)
        loComando.Parameters.AddWithValue("@tb_nombre", tb_nombre.Text.Trim)
        cn.Open()
        Try
            MessageBox.Show("Registro grabado", "Guardado", MessageBoxButtons.OK, MessageBoxIcon.Information)
            loComando.ExecuteNonQuery()

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Button1_Click", MessageBoxButtons.OK, MessageBoxIcon.Information)


        End Try
        cn.Close()

        Me.Update()

    End Sub


   
End Class


0 comentarios:

Suscribirse a: Enviar comentarios (Atom)