Búsquedas en base de datos Sql Compact 4.0

- agosto 27, 2015

Saludos,en este post veremos como parametrizar búsquedas en nuestra base de datos. Para demostrar el ejemplo hecho, use de la base de datos" Northwind.sdf " que viene incluida en sql compact 3.5 y que gracias a la herramientas de http://go.microsoft.com/fwlink/?LinkId=212219 para VStudio podemos actualizarla a la version 4.0 para poder usarla sin problemas.

De las tablas de contiene "Northwind.sdf " vamos a usar Products. El ejemplo hace dos consultas y filtra los datos d acuerdo los campos asociados y los muestra en la datagridview, tomando en cuenta los valores ingresados ya sea tipo string(cadena) o tipo numérico(entero), donde estan asociados los campos "Product Name" y "Category Id" correspondientemente.

Veamos la codificación del modulo de conexion:

Module Module1
    Public path As String = Form1.lbldir.Text
    Public conn As New SqlServerCe.SqlCeConnection("Data Source=" & path + ";Max Database Size=4091")
    Public sql As String
    Public cmd As New SqlServerCe.SqlCeCommand(sql, conn)
    Public Sub conectarse()
        Try
            conn.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
        '   conn.Close()
    End Sub
End Module

Dentro del Form1:

Public Class Form1
    Sub cargar_datos()
        Try
            conectarse()
            Dim ds As New DataSet
            Dim dt As New DataTable
            Dim strSql As String = "SELECT* FROM Products "
            Dim adp As New SqlServerCe.SqlCeDataAdapter(strSql, conn)
            adp.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            ex.ToString()
        End Try
        conn.Close()
        contar()
    End Sub

    Sub contar()
        Dim i As Integer = DataGridView1.Rows.Count
        lblcounter.Text = "Número de items =" & i
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        cargar_datos()
    End Sub
    Public Sub buscar()
        Try
            Dim ds As New DataSet
            Dim dt As New DataTable
            Dim strSql As String
            If TextBox1.Text = "" Then
                MsgBox("Ingrese código para buscar", vbInformation)
            ElseIf IsNumeric(TextBox1.Text) = True Then
                strSql = "SELECT * FROM PRODUCTS WHERE [CATEGORY ID] =" & TextBox1.Text
            ElseIf Not IsNumeric(TextBox1.Text) = True Then
                strSql = "SELECT * FROM PRODUCTS WHERE [PRODUCT NAME] LIKE '%" & TextBox1.Text & "%'"
            End If
            Dim adp As New SqlServerCe.SqlCeDataAdapter(strSql, conn)
            adp.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            ex.ToString()
        End Try
        conn.Close()
        StatusStrip2.Refresh()
        contar()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        buscar()
    End Sub
End Class

Les dejo un captura ejecutando:

Y asi culminamos, como ya saben cualquier comentario lo pueden hacer por aquí o a mi correo, nos vemos, adjunto link de mi ejemplo incluye base de datos Northwind:

https://mega.nz/#!cNdwjboQ!3IxrM_8TCmFjSfyMTcL4Qa_jqyWRQKs2Cu47nt7JfyY