2002-07-11 06:37

'by: "edamian919" <edamian919@yahoo.com.ar> Wed, 10 Jul 2002 17:55:15 -0000
' example of using qodbc(qodbc.bas) and qmysql
'I want to share this example for anyone who needs it.
     $INCLUDE "rapidq.inc"
     $INCLUDE "mysql.inc"
     $INCLUDE "qodbc.inc"
     DIM pagos0102 AS QMYSQL
     DIM juicios AS qodbc
     juicios.odbcinit
     scon$ = "DSN=Visual Foxpro Tables; DBQ=C:\geltex"
     juicios.connect(scon$)
     pagos0102.connect("192.168.0.1","root","laky")
     IF pagos0102.connected THEN
   'showmessage "Se conecto"
     ELSE
      SHOWMESSAGE "No se puede conectar a la base de datos111"
      juicios.closedb
      juicios.closeodbc
      END
     END IF
     pagos0102.selectdb("estudio")
     pagos0102.query("select bd,titulo,anio,razon_social from pagos0102")
     WHILE pagos0102.fetchrow
      pagos0102.fieldseek(0)
   'messagebox(format$("%10d",val(pagos0102.row(0))) & format$("%-2.2d",val(pagos0102.row(1))),"debug",1)
      juicios.query("select juicio,anio,final,etapa,caratula from juicio where anio = " & format$("%4d",VAL(pagos0102.row(2))) & _
       " and juicio = " & format$("%10d",VAL(pagos0102.row(0))) & format$("%-2.2d",VAL(pagos0102.row(1))) & _
       " and final <> '250'")
      IF juicios.getrecord = 1 THEN
       actual$ = juicios.field.DATA(1) & "/" & juicios.field.DATA(2) & "/" & juicios.field.DATA(3) & "  --  " & juicios.field.DATA(4) & " " & MID$(juicios.field.DATA(5),1,40)
       IF  actual$ <> anterior$ THEN
        LPRINT actual$
       END IF
       anterior = actual$
      END IF
      juicios.closequery
     WEND
     pagos0102.CLOSE
     juicios.closedb
     juicios.closeodbc
     LFLUSH

2002-07-11 06:37