AYUDA.. NO PUEDO MAS... (donde pongo la base de datos)

23/07/2004 - 20:27 por Angel López | Informe spam
Hola y Gracias de antemano por leer este mensaje.

Estoy intentando sin éxito conectar con una base de datos, la base se llama
agenda.cdb, pero no se donde tengo que colocarla.

REPITO: No se donde poner la base de datos en mi PC.

Utilizo Visual Embedded y No tengo Pocket PC así que juego con el emulador

(PORCIÓN DE CODIGO DE CONEXIÓN) ¿DONDE LA PONGO ????

Set cnn = CreateObject("ADOCE.Connection.3.0")
cnn.Open "ProviderÎDB;data source = \agenda.cdb"

Set rsamigos = CreateObject("ADOCE.Recordset.3.0")
rsamigos.Open "amigos", cnn, adOpenStatic, adLockOptimistic
If rsamigos.RecordCount <> 0 Then
etc..
etc.

Mil Gracias

Angel

Preguntas similare

Leer las respuestas

#1 cesar.fong
24/07/2004 - 04:25 | Informe spam
si estas usando pocket pc 2002 debes ponerla dentro del emulador existe
una herramienta para poder crear el cdb dentro del emulador.

tienes que buscar el mdbtotdb.exe y el tdbtocdb.vb el primero sirve para
convertir el achivo mdb en un formato .tdb una vez que haces eso debes
copiar ese archivo tdb en la pocket pc en my documents por ejemplo.

luego copias (usando el remote tools --> file viewer del evb) el
programita tdbtocdb.vb en la pocket pc en my documents tambien ejecutas el
.vb y escoges el .tdb y lo transforma a cdb si te sale error de un control
debes registrar el control con regsvrce.exe

Saludos

César

Angel López wrote:

Hola y Gracias de antemano por leer este mensaje.

Estoy intentando sin éxito conectar con una base de datos, la base se llama
agenda.cdb, pero no se donde tengo que colocarla.

REPITO: No se donde poner la base de datos en mi PC.

Utilizo Visual Embedded y No tengo Pocket PC así que juego con el emulador

(PORCIÓN DE CODIGO DE CONEXIÓN) ¿DONDE LA PONGO ????

Set cnn = CreateObject("ADOCE.Connection.3.0")
cnn.Open "ProviderÎDB;data source = agenda.cdb"

Set rsamigos = CreateObject("ADOCE.Recordset.3.0")
rsamigos.Open "amigos", cnn, adOpenStatic, adLockOptimistic
If rsamigos.RecordCount <> 0 Then
etc..
etc.

Mil Gracias

Angel
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida