Ms Access en Pocket PC 2003 con Visual Basic

Hola Dani

VS.NET 2003 no tiene soporte nativo para bases de datos Pocket Access, debes
utilizar un driver de un tercero: www.inthehand.com

La otra solucion es que utilices SQL CE que es "gratis".

Saludos

Roberto Alvarado

"Dani" wrote in message
news:00d201c4a57d$46b8aea0$
Hola, soy nuevo en esto de la programación para un PDA.
Estoy intentando hacer un pequeño programa para un pocket
PC con Windows Monile 2003. El caso es que al traspasar
una BBDD de access se convierte a un .cdb en el PDA pero
no he encontrado ninguna documentación de cómo con Visual
Basic (Visual Studio Net) conectar con ella.
¿Alguien me puede ayudar o dirigirme a alguna
localización donde encontrar ejemplos o documentación al
respecto?

Muchas gracias

Dani

Hola, soy nuevo en esto de la programación para un PDA.
Estoy intentando hacer un pequeño programa para un

pocket

PC con Windows Monile 2003. El caso es que al traspasar
una BBDD de access se convierte a un .cdb en el PDA pero
no he encontrado ninguna documentación de cómo con

Visual

Basic (Visual Studio Net) conectar con ella.
¿Alguien me puede ayudar o dirigirme a alguna
localización donde encontrar ejemplos o documentación al
respecto?

Muchas gracias

Dani
.
bueno estoy comenzando en este ambiente de programacion

sin embargo te menciono lo que he entendido hasta el
momento lo que pasa es que todos los archivos que se
encuentra en tu pc al momento de migrarlos al pocket pc
utilizan otra extension para estos dispositvos mdb se
convierte en cdb , lo que tienes que realizar es crear un
modulo donde colocas el siguinte codigo


Option Explicit
Public strActiveConnection, strSQL, objConn, rst
Dim unexpectedError
la base datos se llama prueba.cdb

Public Sub Conectar()
strActiveConnection = App.Path + "\" + "prueba.cdb"
strSQL = "select * from tabsamir"
Err.Clear
unexpectedError = False
Set objConn = CreateObject("ADOCE.Connection.3.0")
Set rst = CreateObject("ADOCE.Recordset.3.0")
objConn.ConnectionString = "provider=cedb;data
source=" & strActiveConnection & ";"
objConn.Open
If Err Then
unexpectedError = True
MsgBox "Error conexion", vbCritical
Err.Clear
End If
End Sub

Sub Main()

End Sub
Public Sub DBClose()

Err.Clear
unexpectedError = False


objConn.Close
Set objConn = Nothing

If Err Then
unexpectedError = True
MsgBox "Eroor al cerrar la base datos", vbCritical
Err.Clear
End If

End Sub
Public Sub Datos()
rst.Open strSQL, strActiveConnection
MsgBox rst.Fields(1)
End Sub