Conectar base de datos

'conexion con la B.D.
Set con1 = CreateObject("adoce.connection.3.1")
con1.Provider = "CEDB"
con1.ConnectionString = archivo 'archivo es una constante con la ruta
con1.Open

'conexion del recordset
Set rst1 = CreateObject("ADOCE.Recordset.3.1")
rst1.Open "SELECT * FROM tblNombres ORDER BY Apellidos, Nombre", _
con1, 1, 3 'el 1 y el 3 equivalen a addOpenStatic y AddLockOptimistic

No te molestes en descargar de memoria las conexiones y los recordsets, no
funciona. Es un Bug de eVB. Sólo se descargan al cerrar el programa. Así que
utiliza el mínimo número de ellos posible.


"MiC" escribió en el mensaje
news:OqgF9DY$

Hola.
Tengo un problema al intentar generar codigo con eMbedded Visual Basic 3.
La conexion la hare conectado por GPS.
En Visual Basic 6 genero la conexion a la base de datos

Public Db As ADODB.Connection
Set Db = New Connection
Db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User

ID=sa;Initial

Catalog=DatosEmp;Data Source=orion"

y creo el recordset

Public Rst1 As New ADODB.Recordset
Set Rst1 = New ADODB.Recordset
With Rst1
.CursorLocation = adUseServer
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "Select * from datos"
.ActiveConnection = Db
.Open
End With

el caso es que para la PPC no sirven estos comandos
¿Puede alguien ayudarme un poco y darme alguna nocion de como hacerlo?
Es la primera vez que programo para la PPC y la verdad no se muiy bien por
donde me dal el aire.


Fdo. Jesus Mª Martínez
TSM 400
PPC 2002

Hola.
Se supone que tengo instalado el SQL Server CE Administration. Cuando lo
ejecuto me dice: "IIS does not seem to be runnin on this computer. Please
start IIS before continuing." lo que no se es donde encontrar ese programa.
de todas formas, ¿Hay alguna otra forma de atacar una bd que esta en un
servidor?, El codigo que utilizo es el siguiente, pero lo puedo variar para
poder atacar la bd.

Dim C As ADOCE.Connection
Dim R As ADOCE.Recordset
Set C = CreateObject("adoce.Connection.3.0")
Set R = CreateObject("adoce.Recordset.3.0")
C.ConnectionString = "provider=SQLOLEDB;pasword=;Persist Security
Info=true;User ID=sa;Initial Catalog=DatosEmp;Data Source=Orion"
C.Open
R.ActiveConnection = C
R.CursorType = adOpenKeyset
R.LockType = adLockOptimistic
R.Source = "SELECT nombre FROM dbo.datos WHERE mat(2 and empresa=5"
R.Open
Label1.Caption = R("nombrecompleto")

Gracias
Un saludo


Fdo. Jesus M Martinez
TSM 400
Pocket PC
"jorge" escribió en el mensaje
news:Oxhc752$

'conexion con la B.D.
Set con1 = CreateObject("adoce.connection.3.1")
con1.Provider = "CEDB"
con1.ConnectionString = archivo 'archivo es una constante con la ruta
con1.Open

'conexion del recordset
Set rst1 = CreateObject("ADOCE.Recordset.3.1")
rst1.Open "SELECT * FROM tblNombres ORDER BY Apellidos, Nombre", _
con1, 1, 3 'el 1 y el 3 equivalen a addOpenStatic y

AddLockOptimistic

No te molestes en descargar de memoria las conexiones y los recordsets, no
funciona. Es un Bug de eVB. Sólo se descargan al cerrar el programa. Así

que

utiliza el mínimo número de ellos posible.


"MiC" escribió en el mensaje
news:OqgF9DY$
> Hola.
> Tengo un problema al intentar generar codigo con eMbedded Visual Basic

3.

> La conexion la hare conectado por GPS.
> En Visual Basic 6 genero la conexion a la base de datos
>
> Public Db As ADODB.Connection
> Set Db = New Connection
> Db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial
> Catalog=DatosEmp;Data Source=orion"
>
> y creo el recordset
>
> Public Rst1 As New ADODB.Recordset
> Set Rst1 = New ADODB.Recordset
> With Rst1
> .CursorLocation = adUseServer
> .CursorType = adOpenDynamic
> .LockType = adLockOptimistic
> .Source = "Select * from datos"
> .ActiveConnection = Db
> .Open
> End With
>
> el caso es que para la PPC no sirven estos comandos
> ¿Puede alguien ayudarme un poco y darme alguna nocion de como hacerlo?
> Es la primera vez que programo para la PPC y la verdad no se muiy bien

por

> donde me dal el aire.
>
>
> Fdo. Jesus Mª Martínez
> TSM 400
> PPC 2002
>
>