Obtener datos de una tabla
Publicado por Yol (4 intervenciones) el 20/02/2004 11:35:05
A ver si alguien me puede ayudar:
Yo pongo el siguento código dentro de la base de datos a la cual yo quiera acceder y no me dá ningún error pero el problema que tengo es que no me devuelve ningún registro. ¿Alguien me podría decir el por por qué?.
Private Sub Form_Current()
Dim Conexion As Object
Dim rs As Object
Dim Sql As String
'Buscar datos de la empresa
Set Conexion = CurrentProject.Connection
Sql = "SELECT CostasGastos, Interés FROM tbl_Empresa"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, Conexion, 1
rs.MoveFirst
If Not rs.EOF Then
InteresEmpresa = rs!interés
CostasGastosEmpresa = rs!CostasGastos
End If
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
Muchas gracias
Yo pongo el siguento código dentro de la base de datos a la cual yo quiera acceder y no me dá ningún error pero el problema que tengo es que no me devuelve ningún registro. ¿Alguien me podría decir el por por qué?.
Private Sub Form_Current()
Dim Conexion As Object
Dim rs As Object
Dim Sql As String
'Buscar datos de la empresa
Set Conexion = CurrentProject.Connection
Sql = "SELECT CostasGastos, Interés FROM tbl_Empresa"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, Conexion, 1
rs.MoveFirst
If Not rs.EOF Then
InteresEmpresa = rs!interés
CostasGastosEmpresa = rs!CostasGastos
End If
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
Muchas gracias
Valora esta pregunta


0