Programación General > Visual Basic 6.0 e inferiores

 Utilización Del Order By

(1/2) > >>

lavi:
Puedo utilizar el SELECT * FROM Tabla ORDER BY Nombre en medio de éste código...?? Me tira un semejate error... pero en realidad mi idea es levantar la tabla ordenada por apellidos... el abrirtabla alli sería un OpenRecordset que está en otro módulo...

espero PUEDAN AYUDARME.... GRACIAS..



--- Código: Text ---Public Function CargarTodos() As Collection    Set CargarTodos = New Collection    Set rs = mBASE.abrirtabla("Select * from Afiliado1 order by Apellido")      Do While Not rs.EOF        Set ficha = New cAfiliado1          'ficha.ID = rs!ID          ficha.Numero = rs!Numero          ficha.CI = rs!CI          ficha.Nombre = rs!Nombre          ficha.Apellido = rs!Apellido          ficha.Direccion = rs!Direccion          ficha.Telefono = rs!Telefono          ficha.FechaIng1 = rs!FechaIng1          ficha.FechaIng2 = rs!FechaIng2          ficha.FechaIng3 = rs!FechaIng3          ficha.FechaBaja1 = rs!FechaBaja1          ficha.FechaBaja2 = rs!FechaBaja2          ficha.FechaBaja3 = rs!FechaBaja3          ficha.IDCategoria = rs!IDCategoria          ficha.HABILITADO = rs!HABILITADO          CargarTodos.Add ficha        Set ficha = Nothing        rs.MoveNext    Loop  

Mollense:

--- Cita de: "lavi" --- Puedo utilizar el SELECT * FROM Tabla ORDER BY Nombre en medio de éste código...?? Me tira un semejate error... pero en realidad mi idea es levantar la tabla ordenada por apellidos... el abrirtabla alli sería un OpenRecordset que está en otro módulo...

espero PUEDAN AYUDARME.... GRACIAS..



--- Código: Text ---Public Function CargarTodos() As Collection    Set CargarTodos = New Collection    Set rs = mBASE.abrirtabla("Select * from Afiliado1 order by Apellido")      Do While Not rs.EOF        Set ficha = New cAfiliado1          'ficha.ID = rs!ID          ficha.Numero = rs!Numero          ficha.CI = rs!CI          ficha.Nombre = rs!Nombre          ficha.Apellido = rs!Apellido          ficha.Direccion = rs!Direccion          ficha.Telefono = rs!Telefono          ficha.FechaIng1 = rs!FechaIng1          ficha.FechaIng2 = rs!FechaIng2          ficha.FechaIng3 = rs!FechaIng3          ficha.FechaBaja1 = rs!FechaBaja1          ficha.FechaBaja2 = rs!FechaBaja2          ficha.FechaBaja3 = rs!FechaBaja3          ficha.IDCategoria = rs!IDCategoria          ficha.HABILITADO = rs!HABILITADO          CargarTodos.Add ficha        Set ficha = Nothing        rs.MoveNext    Loop  
--- Fin de la cita ---
¿Cual es el error?

lavi:
este...

--- Código: Text --- "Error 3011 en tiempo de ejecución:El motor de base de datos Microsoft Jet no pudo encontrar el objeto "Select * from Afiliado 1 order by Apellido". Asegurese de que el objeto existe y que ha escrito el nombre y la ruta de acceso correctamente " 
espero respuesta.. gracias.

Jonathan_Vidal:
Tu Sintaxis SQL esta correcta ese no creo que sea el Error, Mejor indicanos cual es el Error

Jonathan_Vidal:
Verifica el Nombre de la Tabla y los Campos ahora si segun tu consulta SQL el Nombre de tu Tabla es el "Afiliado 1"

Para poder ejecutar esa consulta tendrias que hacer lo Siguiente:

Select * from [Afiliado 1] order by Campo1

Pd:

Cuando el Nombre de la Tabla o el Campo estan separados por un espacio tienes que colocarlo entre Corchetes [Tabla 1] o entre este simbolo dependiendo de que Base de Datos `Tabla 1`

Saludos
Jonathan Vidal

Navegación

[0] Índice de Mensajes

[#] Página Siguiente