enkhil
12 de Mayo del 2004

Hola. tengo un problema que os cuento. Os paso el codigo y me decis porque no me carga nada en el recordset 'rsTMesas'.

Option Explicit

Public conndb As ADOCE.Connection 'Declaramos el objeto de la bbdd
Set conndb = CreateObject("adoce.connection.3.0") 'Lo seteamos
Public rsTSalones As ADOCE.Recordset 'Declaramos el objeto recordset de TSalones
Set rsTSalones = CreateObject("adoce.recordset.3.0") 'Lo seteamos
Public rsTMesas As ADOCE.Recordset 'Declaramos el objeto recordsest de TMesas
Set rsTMesas = CreateObject("adoce.recordset.3.0") 'Lo seteamos

rsTMesas.Open "Select * from TMesas", conndb, adOpenKeyset, adLockOptimistic
MsgBox ("toy funcionando")

If rsTMesas.RecordCount > 0 Then
MsgBox ("hay mesas")
End If

End Sub

Private Sub Form_Load()


'Creamos el objeto de la base de datos, le decimos donde buscarla y lo abrimos
conndb.ConnectionString = "data source=BBDDPocketbbdd.cdb"
conndb.Open 'abrimos la base de datos

'abrimos la tabla TSalones y la cargamos en su recordset
rsTSalones.Open "select * from TSalones", conndb, adOpenKeyset, adLockOptimistic

If rsTSalones.RecordCount > 0 Then
MsgBox ("Hay salones")
End If
rsTSalones.Close
Set rsTSalones = Nothing

'Y aqui cerramos el objeto de conexión de la bbdd
conndb.Close
Set conndb = Nothing

End Sub

gracias.

enkhil
12 de Mayo del 2004

Antes de la linea
rsTMesas.Open "Select * from TMesas", conndb, adOpenKeyset, adLockOptimistic


va un
Private Sub Command2_Click()

Se me olvido ponerlo. cual es la solucion? alguna idea? rsTMesas no me carga nada.

enkhil
12 de Mayo del 2004

Ya lo tengo. No hace falta que contesteis, pero gracias por mirar la pregunta.