Programación General > Visual Basic 6.0 e inferiores

 Buscar En Una Base Datos Access97 Con Dao

<< < (2/2)

neorent:

--- Cita de: "hernanvid" ---cuando abras el recordset lo tienes que hacer con una sentencia SQL

set rs = db.openrecordset("SELECT * FROM folio ORDER BY campo")
--- Fin de la cita ---
HOLA MIRA DESEO QUE VEAS ESTE CODIGO Y ME DIGAS PK ME ARROJA UN ERROR QUE NO ENTIENDO PK SUCEDE SI ESTOY HACIENDO TODO BIEN Y QUIZAS ALGUNA PARTE DEL CODIGO ESTA MAL ME PUEDES INDICAR CUAL PUEDE SER?
TE  LO AGRADESCO ADIOS

Option Explicit
Private db As Database
Private rs As Recordset

Private Sub Command7_Click()
End
End Sub

Private Sub Form_Load()
Const sPathBase As String = "\\obiwan\soporte\prueba\bd1.MDB"
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("SELECT * FROM maestro_atenciones", dbOpenDynaset)
With ListView1
       
        .View = lvwReport
       
        .GridLines = True
     
        .LabelEdit = lvwManual
   
        .ColumnHeaders.Add , , "Folio atencion", 800
        .ColumnHeaders.Add , , "Nombre Usuario", 2500
        .ColumnHeaders.Add , , "Tecnico Asignado", 1500, lvwColumnRight
    End With
End Sub
Private Sub cmdBuscar_Click()
   
    Dim sBuscar As String
    Dim tRs As Recordset
    Dim tLi As ListItem
    sBuscar = "SELECT * FROM maestro_atenciones WHERE Author LIKE '" & Text2 & "' ORDER BY usuario_atencion"
    Set tRs = db.OpenRecordset(sBuscar, dbOpenSnapshot)
    With tRs
        If (.BOF And .EOF) Then
            MsgBox "No se han encontrado los datos buscados"
        Else
            ListView1.ListItems.Clear
            .MoveFirst
            Do While Not .EOF
                Set tLi = ListView1.ListItems.Add(, , .Fields("folio_atencion") & "")
                tLi.SubItems(1) = .Fields("usuario_atencion") & ""
                tLi.SubItems(2) = .Fields("tecnico_asignado") & ""
                .MoveNext
            Loop
        End If
    End With
End Sub


IGUAL TE ADJUNTO el formulario por si acaso pero la base no puedo pk resulta que pesa mas de 2 mb y el foro no lo soporta creo? bueno gracias y que estes bien adios

Yovana:
Hola

eso es mas fácil de lo que pensamos en Access si folio es la clave principal o independientemente, seleccionas la columna y le dices ordenar en el icono AZ o ZA según el orden que quieras y ya en ese orden que tenga en al base de datos te aparecerá en el formulario de búsquedas

Prueba eso a ver que tal te va

Saludos

neorent:

--- Cita de: "Yovana" --- Hola

eso es mas fácil de lo que pensamos en Access si folio es la clave principal o independientemente, seleccionas la columna y le dices ordenar en el icono AZ o ZA según el orden que quieras y ya en ese orden que tenga en al base de datos te aparecerá en el formulario de búsquedas

Prueba eso a ver que tal te va

Saludos
--- Fin de la cita ---
hola si se puede hacer eso pero resulta que folio es autonumerico y no se como quedara si lo ordeno asi????????

masticor:

--- Cita de: "Yovana" --- Hola

eso es mas fácil de lo que pensamos en Access si folio es la clave principal o independientemente, seleccionas la columna y le dices ordenar en el icono AZ o ZA según el orden que quieras y ya en ese orden que tenga en al base de datos te aparecerá en el formulario de búsquedas

Prueba eso a ver que tal te va

Saludos
--- Fin de la cita ---
Lol La mejor respuesta que ley xD

Navegación

[0] Índice de Mensajes

[*] Página Anterior