PepLluis : Sql

Como enlazar columnas de una tabla SQL a unos 'TextBox'

peplluis — Mon, 23 Mar 2009 08:58:00 GMT

' En respuesta a la pregunta de como añadir o modificar registros

' a una tabla de SQL con bindings sin DGV y al viejo estilo ADO.

' Utilizaremos solo las columnas de Nombre y Telefono de la tabla 'Shippers'

' Despues de insertar un nuevo registro, deberemos utilizar el boton

' de actualizar para que dichos cambios sean actualizados a la BD.

' En caso de modificacion solo necesitaremos llamar a la 'actualizacion'

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

'Constructores para el acceso a la tabla 'Shippers' y su correspondiente BindingSource

Private MiConexion As New SqlConnection( _

"Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Temp\Northwind\NORTHWND.MDF" + _

";Integrated Security=True;Connect Timeout=30;User Instance=True")

Private MiDataSet As New DataSet()

Private MiAdaptador As New SqlDataAdapter("SELECT * FROM Shippers", MiConexion)

Private MiEnlazador As New BindingSource

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Panel conteniendo los textbox para la entrada/modificacion

Dim Nombre As New TextBox

Dim Telefono As New TextBox

Dim marcoDatos = New FlowLayoutPanel

marcoDatos.Dock = DockStyle.Top

marcoDatos.Controls.AddRange(New Control() {Nombre, Telefono})

Me.Controls.AddRange(New Control() {marcoDatos})

' Panel conteniendo los botones de control

Dim Avanza As New Button

Dim Retrocede As New Button

Dim Insertar As New Button

Dim Actualizar As New Button

Dim Controles As New FlowLayoutPanel

Controles.Dock = DockStyle.Bottom

Retrocede.Text = "<- Re"

Avanza.Text = "Av ->"

Insertar.Text = "Insertar"

Actualizar.Text = "Actualizar"

Controles.Controls.AddRange(New Control() {Retrocede, Avanza, Insertar, Actualizar})

Me.Controls.AddRange(New Control() {Controles})

' Asignar el evento a las funciones de cada boton de control

AddHandler Retrocede.Click, AddressOf retroceder

AddHandler Avanza.Click, AddressOf Avanzar

AddHandler Insertar.Click, AddressOf Nuevo

AddHandler Actualizar.Click, AddressOf Actualizacion

' Conexion, relleno y asignacion del enlace a datos

MiConexion.Open()

MiAdaptador.Fill(MiDataSet)

MiEnlazador.DataSource = MiDataSet.Tables(0)

Dim Micommandbuilder As New SqlCommandBuilder(Me.MiAdaptador)

' Enlace de los TextBox a sus omologos en la tabla

Dim EnlaceNombre As New Binding("Text", MiEnlazador, "CompanyName")

Nombre.DataBindings.Add(EnlaceNombre)

Dim EnlaceDireccion As New Binding("Text", MiEnlazador, "Phone")

Telefono.DataBindings.Add(EnlaceDireccion)

End Sub

' Avanzar un registro dentro del 'recordset' :-)

Sub Avanzar()

MiEnlazador.MoveNext()

End Sub

' Retroceder un registro

Sub retroceder()

MiEnlazador.MovePrevious()

End Sub

'Crear un nuevo registro

Sub Nuevo()

MiEnlazador.AddNew()

End Sub

' Actualizar el registro en curso o el recien creado

Sub Actualizacion()

MiEnlazador.EndEdit()

MiAdaptador.Update(CType(Me.MiEnlazador.DataSource, DataTable))

End Sub

End Class

Saludos,
Pep Lluis,

Enumerar las tablas de una BD (SQL)

peplluis — Tue, 24 Feb 2009 02:53:00 GMT

Imports System.Data.SqlClient

Public Class Form1
    Private MiConexion As New SqlConnection( _
       "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\MisBDs\NORTHWND.MDF" + _
       ";Integrated Security=True;Connect Timeout=30;User Instance=True")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MiConexion.Open()
        Dim MisTablas As DataTable = MiConexion.GetSchema( _
            "Tables", New String() {Nothing, "dbo", Nothing, "Base Table"})
        ComboBox1.DataSource = MisTablas
        ComboBox1.DisplayMember = "TABLE_NAME"
    End Sub
End Class

Para probar este ejemplo, solo tenéis que crear un nuevo proyecto “windows forms application” arrastrar y soltar un ‘combobox’ desde el ‘toolbox’ al ‘form1’, copiar y pegar el código adjunto y modificar la ruta de la ubicación de la BD SQL en el valor ‘attachdbfilename’ de la cadena de conexión.

Saludos,
Pep Lluis,

Actualizar una Tabla de una BD SQL utilizando un DataGridView

peplluis — Wed, 23 Jul 2008 16:22:00 GMT

A menudo en los foros aparece la pregunta de cómo actualizar una BD utilizando un DataGridView. Aquí os dejo una forma de realizarlo. Espero que os sea útil.

Saludos,
Pep Lluis,

'
'Definir enlace a datos y objetos del form

Private MiConexion As New SqlConnection( _

"Datasource=.\SQLEXPRESS;AttachDbFilename=C:\Temp\NORTHWND.MDF" + _
";Integrated Security=True;Connect Timeout=30;User Instance=True")
Private MiAdaptador As New SqlDataAdapter("SELECT * FROM Shippers", MiConexion)
Private MiDataSet As New DataSet()

Private MiEnlazador As New BindingSource

Private MidataGriView As New DataGridView

Private BotonGuardar As New Button

'En tiempo de carga...
Private Sub Form1_Load(…..) Handles MyBase.Load
MessageBox.Show(My.Computer.FileSystem.CurrentDirectory)

'Poner titulo a la aplicacion

Me.Text = "Mantenimiento de Shippers"

'Añadir DataGriView

MidataGriView.Dock = DockStyle.Top

Me.Controls.Add(MidataGriView)

BotonGuardar.Dock = DockStyle.Bottom

'Añadir Boton de Guardar

BotonGuardar.Text = "Guardar Cambios"

Me.Controls.Add(BotonGuardar)

AddHandler BotonGuardar.Click, AddressOf Guardar
Dim commandbuilder As New SqlCommandBuilder(Me.MiAdaptador)

MiConexion.Open()

MiAdaptador.Fill(MiDataSet)

MiEnlazador.DataSource = MiDataSet.Tables(0)

MidataGriView.DataSource = MiEnlazador

End Sub

'Actualizar la tabla enlazada con el DataGridView

Private Sub Guardar(…..)
Me.MiAdaptador.Update(CType(Me.MiEnlazador.DataSource, DataTable))

End Sub

Dar Grant Access a un usuario de SQL 2005 Express

peplluis — Tue, 15 Jul 2008 12:08:00 GMT

Algunas de las preguntas relacionadas con SQL Express y los errores generados al intentar abrir una conexión en una implementación diferente de la máquina de desarrollo, son debidas a que el usuario no dispone del suficiente ‘Grant Access’ J

Desde el símbolo de sistema (Ejecutando como Administrador) y entendiendo que no dispones del 'Management Studio' :

Salud!

Cargar/Descargar Archivos Desde y Hacia una Columna 'image' SQL

peplluis — Wed, 28 Mar 2007 07:18:00 GMT

Friend Class Ejemplo

Private _ms As MemoryStream 'Carga/descarga de archivos SQL

Private _Fs As FileStream ’Manejo archivos en memoria

Private _By() As Byte = Nothing 'Array de intercambio

'Guardar el Documento

Private Sub Doc_Almacenar(ByVal Origen As String, ByVal Nombre As String)

Try

'crear un nuevo fstrm con el archivo apuntado en la ruta

'contenida en el origen

_Fs = New FileStream(Origen, FileMode.Open, FileAccess.Read)

'redimensionarlo y adaptarlo a su longitud

ReDim _By(_Fs.Length)

'convertir el fstrm en un array de bytes

_Fs.Read(_By, 0, _Fs.Length)

'Archivos es el tableadapter

'almacenar array en una imagen binaria Sql

Archivos.Insert(Nombre, _By)

_Fs.Close() 'cerrar el fstrm

_Fs.Dispose() 'Liberarlo

Catch ex As Exception

'En caso de excepcion...

Me.lblExcepciones.Text = "DocAlmacenar: " + ex.Message

End Try

End Sub

'Cargar documento desde la col imagen de SQL

Private Sub Doc_Recuperar(ByVal Nombre As String)

Try

'Recuperar imagen de SQL a un array intermedio

If Nombre.Length > 0 Then

'el table adapter devuelve una imagen

'resultante de la consulta 'Recuperar(Col Nombre)'

Dim Buffer() As Byte = Archivos.Recuperar(Nombre).Rows(0).Item("Imagen")

'Crear un nuevo archivo

_Fs = New FileStream("Documento.tmp", FileMode.Create, FileAccess.Write)

'escribirlo a partir del array intermedio

_Fs.Write(Buffer, 0, Buffer.Length)

_Fs.Close() 'Cerrar el fstrm

_Fs.Dispose() 'Liberarlo

End If

Catch ex As Exception

'En caso de excepcion, reportar

Me.lblExcepciones.Text = "DocRecuperar: " + ex.Message

Try

My.Computer.FileSystem.DeleteFile("Documento.tmp")

Catch ex2 As Exception

Me.lblExcepciones.Text = "Eliminar: " + ex.Message

End Try

End Sub

End Class