Este ejemplo está programado en Visual Studio 2005, en Visual Basic para una PDA, lo que hace es conectarse a una base de datos SQL server mobile, hacer una consulta y llenar un datagrid con los resultados. Es necesario que esté instalado en la PDA SQL Server. En este caso la consulta se hace en el momento en que se instancia el formulario, por lo tanto cuando aparece ya está el datagrid cargado con los resultados.
Private sqlConn As System.Data.SqlServerCe.SqlCeConnection
Private sqlDA As System.Data.SqlServerCe.SqlCeDataAdapter
Private sqlDS As System.Data.DataSet
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
DataGrid1.BackgroundColor = Color.White
Try
sqlDS = New DataSet
sqlConn = New SqlCeConnection("Data Source='Storage Card\SQL\BD.sdf'")
sqlDA = New SqlCeDataAdapter("SELECT nro, cliente, fcom AS Fecha FROM tabla1", sqlConn)
sqlDA.Fill(sqlDS, "Sini")
DataGrid1.DataSource = sqlDS.Tables("Sini")
Catch err As SqlCeException
MsgBox("No se puede abrir la base de datos, verifique la tarjeta de memoria", MsgBoxStyle.Critical)
Exit Sub
End Try
End Sub
Private sqlConn As System.Data.SqlServerCe.SqlCeConnection
Private sqlDA As System.Data.SqlServerCe.SqlCeDataAdapter
Private sqlDS As System.Data.DataSet
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
DataGrid1.BackgroundColor = Color.White
Try
sqlDS = New DataSet
sqlConn = New SqlCeConnection("Data Source='Storage Card\SQL\BD.sdf'")
sqlDA = New SqlCeDataAdapter("SELECT nro, cliente, fcom AS Fecha FROM tabla1", sqlConn)
sqlDA.Fill(sqlDS, "Sini")
DataGrid1.DataSource = sqlDS.Tables("Sini")
Catch err As SqlCeException
MsgBox("No se puede abrir la base de datos, verifique la tarjeta de memoria", MsgBoxStyle.Critical)
Exit Sub
End Try
End Sub
Comentarios