miércoles, septiembre 05, 2007

Conexion a una base de Datos SQLCE

Dim oCnn As New SqlCeConnection
Dim oDR As SqlCeDataReaderTry 'Crear un Objeto SqlCeCommand para enviar una sentencia SELECT a la Base de Datos
Dim oCmd As SqlCeCommand = oCnn.CreateCommand()
oCmd.CommandType = CommandType.Text
oCmd.CommandText = "SELECT * FROM Productos "
' Ejecuto la sentencia y la guardo en el DataReader

oDR = oCmd.ExecuteReader()
' Verifico que tenga Datos el DataReader
If Not oDR.Read Then
MessageBox.Show("No hay Dtaos que Mostrar", "Mi Aplicacion")
Exit Sub
End If
Catch ex As SqlCeException
' Muestro un Mensaje con lso Datos de la excepcion

MessageBox.Show(ex.Message.ToString & vbCrLf & ex.Source.ToString & vbCrLf & _
ex.NativeError.ToString, "Mi Aplicacion")
Finally
' Cierro el Objeto SqlCeConnection

oCnn.Close()
End Try

Hay que colocar la direccion exacta de la Base de Datos para que la encuentre.

D
espues que tenemos los Datos en el objeto DataReader podemos verlos en un DataGrid, simplemente tenemos que asigna a la propiedad DataSource del DataGrid el objeto DataReader.

Colocamos todo dentro de un Try ... catch para controlar cualquier execepcion que se produzca y nuestro programa no se cancele.

Para este ejemplo, a la base de datos le coloco un password de alli que en la cadena de conexion aparece PAssword, si no lo utilizan simplemente no lo colocan en la cadena de conexion.

En este caso, si deseamos que este objeto sea la fuente de un DataGrid, entonces debemos hacer la propiedad .DataSource del DataGrid = a dsCETmp.Tables(0).

Espero que esto los ayude en su experiencioa con SQL CE y .NET

oCnn.ConnectionString = "Data Source=" & "My Documents" & _
"BasePPC.sdf; " & " Password=" & "XXXX2005;"
' Abro la conexion con la Base de Datos
oCnn.Open()

Primero debemos crear las variables u objetos para el manejo de la Conexion y un Objeto DataReader para manejar o recibir los datos de la Base de Datos.


Otra forma es utilizar un Objeto DataSet como contenedor de datos, para esto necesitamos un objeto DataAdapter:

' Definimos el Objeto DataAdapter
Dim
daCETmp As SqlCeDataAdapter

' Asignamos el Objeto Conexion y el Query al DataAdapter
daCETmp =
New SqlCeDataAdapter("SELECT * FROM Productos ", oCnn)

' Llenamos el onbjeto DataSet con el metodo Fill del DataAdapter

daCETmp.Fill(dsCETmp, "Productos")

Saludos

Publicar un comentario