Crear y conectar base de datos SQLServer Compact 4.0

-
Tengan un saludo amigos programadores, en este post veremos como crear una base de datos SqlServer Compact 4. Como uds saben que a diferencia de SQLServer 2014 las BD Compact  como su nombre lo indica son compactas y son usadas para realizar aplicaciones tanto para dispositivos móviles como para aplicaciones de escritorio parcialmente conectadas, no necesitan servidor y se ejecutan únicamente desde una dirección especifica determinada por el usuario.

SQLServer Compact 4 nos ofrece:
  • Desarrollo de aplicaciones SQLServer Compact 4 con  WebMatrix y Visual Studio 2010-2013
  • Mejoras de la API
  • Nueva sintaxis de Transact-SQL
  • Mejoras para los sitios Web y las aplicaciones ASP.NET
  • Mas confiable, segura y fácilmente implementable.

RECURSOS NECESARIOS PARA TRABAJAR
SqlServer Compact 4.0
http://www.microsoft.com/en-us/download/details.aspx?id=17876

SqlServer Compact/SqlLite Toolbox for VS
https://visualstudiogallery.msdn.microsoft.com/0e313dfd-be80-4afb-b5e9-6e74d369f7a1/file/29445/71/SqlCeToolbox.vsix

y por último Visual Studio 2010-2013 obviamente.
Bueno con estas herramientas podemos  comenzar para esto ver el vídeo preparado.






Luego de crear la BD procedemos a crear la app.
Vista diseño

La codificación en el Form

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnexam.Click
        Try
            Dim OpenFileDialog As New OpenFileDialog
            OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            OpenFileDialog.Filter = "Base de datos SqlServer Compact Edition 4.0 (*.sdf)|*.sdf|Todos los archivos (*.*)|*.*"
            If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
                Dim FileName As String = OpenFileDialog.FileName
                lbldir.Text = FileName
                ' TODO: agregue código aquí para abrir el archivo.
            End If
        Catch ex As Exception
            MsgBox("error al abrir base de datos", vbCritical)
        End Try
        btnver.Enabled = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnver.Click
        cargar_productos()
    End Sub
    Sub cargar_productos()
        Try
            conectarse()
            Dim ds As New DataSet
            Dim dt As New DataTable
            Dim strSql As String = "SELECT* FROM productos "
            Dim adp As New SqlServerCe.SqlCeDataAdapter(strSql, conn)
            adp.Fill(dt)
            DataGridView1.DataSource = dt
        Catch ex As Exception
            ex.ToString()
        End Try
        conn.Close()
    End Sub
End Class


En el módulo

Imports System.Data.SqlServerCe

Module Module1
    Public path As String = Form1.lbldir.Text
    Public conn As New SqlCeConnection("Data Source=" & path + ";Max Database Size=4091;Password=data")
    Public sql As String
    Public cmd As New 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

Finalmente la captura ejecutando




Y eso es todo, espero sus comentarios y nos vemos en otro post!
Mi proyecto

https://mega.co.nz/#!xY9RgDBS!xw8xX_ppwSZcER4Rvw2eSyHnz_vl53i_hiuQ2I_DySg

Comentarios

Publicar un comentario

Entradas populares de este blog

Imprimir directamente ReportViewer a impresora predeterminada

-
Imagen
                                                                                                                    MODIFICADO 07-10-2015 Un tema muy importante y picante en algunos blogs y foros es éste que les expongo, sin embargo adaptarlo no es facil, el hecho de verlo como reporte no es suficiente en aspectos donde ya se conoce y se quiere omitir dicho paso, siendo así me encamine el hacer un ejemplo que satisfaga estas necesidades como la de imprimir directamente a la impresora predeterminada de nuestra casa o trabajo.                                                               Con un ejemplo ya publicado en este post: http://jossm03.blogspot.com/2015/08/exportar-reporviewer-pdf-de.html   hice unas mejoras y tomando como base los codigos expuestos en el foro msn:  https://social.msdn.microsoft.com/Forums/es-ES/ede6c72e-444a-485d-b44e-28921929d631/impresion-de-reportes-rdlc-con-y-sin-vista-previa-en-winform?forum=vcses Con ajustes y adaptaciones les presento la  clas
Leer más

DevComponents DotnetBar 12.5.0.2

-
Imagen
Devcomponents DotNetBar es una suite de controles muy útiles para mejorar la apariencia y estilo mejorado de nuestras aplicaciones. Actualmente la versión bordea la v12.5, y tiene una  excelente afinidad con Microsoft Visual Studio 2005, 2008, 2010, 2012, 2013, 2015 Comunity 2013 y 2015  La Suite de DotNetBar para Windows Forms es la caja de herramientas de más de 86   componentes asombrosos para crear la interfaz de usuario profesional con facilidad utilizando Visual Studio 2005 hasta el 2015. Desde hace más de 10 años DotNetBar está ayudando a los desarrolladores   a crear elegantes aplicaciones profesionales de Windows Forms ( WinForms),  interfaces de usuario con una facilidad incomparable . Desde la version 10.4 aparece el ribbon tipo Metro,  pasando por version 11.3, 11.7, 11.8, 12, 12.1, 12,4  y ahora en la versión 12.5  incluye el ribbon tipo Office 2016, Office Mobile style 2014 y Office 2013 y otros controles adicionales  integrados en este 201
Leer más

Metodo Iterativo Gauss-Seidel en Visual Basic

-
Imagen
Un cordial saludo programadores y matemáticos a fin. En esta entrega hacemos mención a la resolución de ecuaciones simultaneas por métodos iterativos y es así que el método de Gauss-Seidel se acopla muy bien como una mejora al método de Jacobi, sin embargo la condicion fundamental  que su diagonal principal debe ser mayor a las demas. Por todo lo expresado aqui presento un poco de teoria tomado de   http://www.jldelafuenteoconnor.es/Clase_itera_2016.pdf  en el cual se expresan algunos métodos más pero para este tema analizaremos solamente el mencionado. La implementación en visual Basic 2015 Module Module1 Dim A(500, 500) As Single Dim B(500, 500) As Single Dim X(500, 500) As Single Dim n, iter As Integer Dim cError, Tol, sum As Double Sub Main() Console.BackgroundColor = ConsoleColor.White Console.Clear() Console.ForegroundColor = ConsoleColor.Black Console.Title = "METODO ITERATIVO GAUSS-SEIDEL"
Leer más