Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Conectar base de datos

27/02/2004 - 23:28 por MiC | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 jorge
01/03/2004 - 10:19 | Informe spam
'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


Preguntas similares

 

Busqueda sugerida :