Programación General > Bases de Datos

 Please Ayudenme

<< < (2/3) > >>

F_Tanori:
que base de datos es?
como tienes las tablas?
que tipo de datos son los campos?

:)

coriatj:
F_Tanori  


la base de datos se llama principal

una tabla se llama ALUMNOS  Y la otra se llama MESES

y todos los campos son de tipo TEXT

F_Tanori:
A mi no me marca ningun error debe ser que en un campo de tipo text no estas utilizando las comillas



mira te dejo un ejemplo a ver si te sirve



Suerte

buhito:
:huh: rayos a el si lo ayudan

quizas la pregunta era mas corta

coriatj:
F_Tanori  BUEN DIA...

OYE ABUSANDO DE TU AMABILIDAD OTRA PREGUNTA:

ESTE ES EL CODIGO KE ME PASASTE ADAPTADO AL MIO LO KE ME FALTRA ES HACER KE ME DESPLIEGUE TODOS LOS MESES DE ESE ALUMNO KE TENGAN UN SALDO MAYOR A 0 Y KE SE VAYAN A VENCER O ESTEN VENCIDO....  YA LE INTENTE Y LA VDD NO ME HA SALIDO..  GRACIAS POR TU TIEMPO..
JAVIER CORIA



Private Sub CMDBUSCAR_Click()
 Dim CONTADOR As Integer
Dim ls_Matricula As String, ls_SQL As String
Dim X As Integer
Dim A As Integer
   
   ls_Matricula = Trim(TXTBUSCAR)
   
   ls_SQL = "SELECT ALUMNOS.MATRICULA,ALUMNOS.NOMBRE,ALUMNOS.AP_PATERNO,ALUMNOS.AP_MATERNO,ALUMNOS.GRUPO,ALUMNOS.INSCRIPCION,MESES.MES,MESES.MSTATUS,MESES.SALDO,MESES.VENCIMIENTO "
   ls_SQL = ls_SQL & "FROM ALUMNOS,MESES WHERE ALUMNOS.MATRICULA=MESES.MATRICULA AND MESES.SALDO > '0' AND MESES.VENCIMIENTO >'&DATE&' and ALUMNOS.MATRICULA='" & ls_Matricula & "'"
   
   
   With Me.Data1
      Set .Recordset = .Database.OpenRecordset(ls_SQL, dbOpenDynaset)
       
        ''IF 1
        If Not .Recordset.EOF Then
                'Evitar que Falle el RecorCount :P
            '====================================
            .Recordset.MoveLast
            .Recordset.MoveFirst
            '====================================
     
            ''IF 2
            If .Recordset.RecordCount > 0 Then
         
                TXTMATRICULA.Text = .Recordset!MATRICULA
                TXTNOMBRE.Text = .Recordset!NOMBRE
                TXTPATERNO.Text = .Recordset!AP_PATERNO
                TXTMATERNO.Text = .Recordset!AP_MATERNO
                TXTGRUPO.Text = .Recordset!GRUPO
                 
               
                ''IF 3
                If Not .Recordset!INSCRIPCION = 0 Then
                    X = 1
                    GRDOTRO.TextMatrix(X, 1) = .Recordset!INSCRIPCION
                    GRDOTRO.TextMatrix(X, 0) = "INSCRIPCION"
                    CONSULTA.GRDOTRO.ColWidth(0) = 1300
               
                      ''IF 4
                    While .Recordset!SALDO > 0 And .Recordset!VENCIMIENTO > Date
                         
                         X = X + 1
                        GRDOTRO.TextMatrix(X, 0) = .Recordset!MES
                        GRDOTRO.TextMatrix(X, 1) = .Recordset!SALDO
                        ''TERMINA IF 4
                    Wend
                     
                         
                Else
                    Select Case .Recordset!SALDO
                        Case Is > 0
                        For A = 1 To 4
                            GRDOTRO.TextMatrix(1, 0) = .Recordset!MES
                            GRDOTRO.TextMatrix(1, 1) = .Recordset!SALDO
                        Next A
                    End Select
                    ''TERMINA IF 3
                End If
             
                 ''TERMINA IF 2
            End If
             
        Else
           MsgBox ("No matricula no encontrada")
         
        ''TERMINA IF 1
        End If
   End With
End Sub

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior