Programación General > Bases de Datos

 Please Ayudenme

<< < (3/3)

F_Tanori:
Hola

Mira, hay algunos detalles, si el campo del saldo es Numerico (que seria los mas logico :P) no es necesario que le pongas las comillas (')
sino lo es, es necesario que lo hagas porque no es lo mismo ( Saldo >'0' ) que (Saldo > 0) ahora la matriz (FlexGrid) no se llena solo

Necesitas, indicarle las columnas y filas (Cols,Rows) para poder llenarlo como matriz

Ej.
Grid.Rows=10
Grid.Cols=10

tienes un ciclo que necesitas moverte de registro porque si no siempre estas comparando el mismo,
y nunca lo va romper


--- Código: Text --- While .Recordset!SALDO &#62; 0 And .Recordset!VENCIMIENTO &#62; Date And Not .Recordset.EOF    X = X + 1    GRDOTRO.TextMatrix(X, 0) = .Recordset!MES    GRDOTRO.TextMatrix(X, 1) = .Recordset!SALDO    .Recordset.MoveNext '&#60;---- Moverse al siguiente registroWend  

Aqui vuelves a buscar lo mismo Saldo>0 y haces un ciclo que no hace nada solo reescribe en las mismas celdas
4 veces supongo que era algo como GRDOTRO.TextMatrix(1, A) = .Recordset!MES no pusiste la variable


--- Código: Text --- Select Case .Recordset!SALDOCase Is &#62; 0    For A = 1 To 4        GRDOTRO.TextMatrix(1, 0) = .Recordset!MES  '&#60;--------- La misma celda en todas las iteraciones        GRDOTRO.TextMatrix(1, 1) = .Recordset!SALDO'&#60;--------    Next AEnd Select  
Lo que opino es que no es necesario, llenar el grid en forma de matriz si el resultado (SQL) ya te devolveria la información
solicitada, Bastaria con colocar en la propiedad DataSourece de FlexGrid el Data, ¿no creees? (o tal vez satisface lo requerido) :ph34r:

coriatj:
hola  F_Tanori ya corregi todo lo que me dijiste  y si salio  al flexgrid le puse en la propiedad DataSourece  le puse data1.

ahora kiero en el   WHERE DEL SELECT  agregarle and MESES.VENCIMIENTO < '&DATE&'  esta seria otra condicion aparte de las que ya tiene pero me marca un error...


too few parameters, EXPECTED 1.



Y ME LO MARCA EN EL    Set .Recordset = .Database.OpenRecordset(ls_SQL, DBOPENDYNASET)




ESTE ES EL CODIGO KE TENGO EN LA FUNCION BUSCAR.....


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 "
   ls_SQL = ls_SQL & "WHERE ALUMNOS.MATRICULA=MESES.MATRICULA AND MESES.SALDO > 0  and ALUMNOS.MATRICULA='" & ls_Matricula & "'"
   
   
   ''AND MESES.VENCIMIENTO<'&DATE&'
   
   With Me.Data1
      Set .Recordset = .Database.OpenRecordset(ls_SQL)
       
        ''IF 1
        If Not .Recordset.EOF Then
                'Evitar que Falle el RecorCount :P
            '====================================
            .Recordset.MoveLast
            .Recordset.MoveFirst
            '====================================
     
            ''IF 2
            If .Recordset.RecordCount > -1 Then
         
                TXTMATRICULA.Text = .Recordset!MATRICULA
                TXTNOMBRE.Text = .Recordset!NOMBRE
                TXTPATERNO.Text = .Recordset!AP_PATERNO
                TXTMATERNO.Text = .Recordset!AP_MATERNO
                TXTGRUPO.Text = .Recordset!GRUPO
                 
                 ''TERMINA IF 2
            End If
             
        Else
           MsgBox ("No matricula no encontrada")
         
        ''TERMINA IF 1
        End If
   End With



TE AGRADESCO  TU AYUDA...

F_Tanori:
Estas Concatenando mal...


MESES.VENCIMIENTO < '&DATE&'   '<---- Esto no es válido


debe ser ...

"MESES.VENCIMIENTO < '" <---- Es Una cadena
Date <--es una funcion que te dara la fecha
"'" <-----Es otra cadena


No te digo esto porque pienso que no lo sabes sino que creo que estas confundido mira, son tres cadenas independientes
para pegarlas (& concatenar) las tres se hace asi

"MESES.VENCIMIENTO < '" & DATE &"'"


Cadena1
Cadena2( en este caso valor de la funcion)
Cadena3
Concatenar



--- Código: Text --- ls_SQL = &#34;SELECT ALUMNOS.MATRICULA,ALUMNOS.NOMBRE,ALUMNOS.AP_PATERNO,ALUMNOS.AP_MATERNO,ALUMNOS.GRUPO,ALUMNOS.INSCRIPCION,MESES.MES,MESES.MSTATUS,MESES.SALDO,MESES.VENCIMIENTO &#34;ls_SQL = ls_SQL & &#34;FROM ALUMNOS,MESES &#34;ls_SQL = ls_SQL & &#34;WHERE ALUMNOS.MATRICULA=MESES.MATRICULA AND MESES.SALDO &#62; 0 and MESES.VENCIMIENTO&#62;'&#34;& Date &&#34;' and ALUMNOS.MATRICULA='&#34; & ls_Matricula & &#34;'&#34;  
Suerte
Espero haberte ayudado

coriatj:
GRACIAS  F_Tanori
MIRA YA HICE LO QUE  ME SUGERISTE....  PERO AHORA NO ME ESTA DESPLEGANDO NADA  NOOOOOOOO!


TE VOY A MANDAR LOS ARCHIVOS DEL PSEUDO PROGRAMA QUE ESTOY TRATANDO DE HACER PARA VER SI ME ENCUENTRAS EL ERROR PLEASE....

Navegación

[0] Índice de Mensajes

[*] Página Anterior