PC Toledo

Código: Selecionar todos

#require "rddsql"
#require "sddodbc"
#include "dbinfo.ch"

REQUEST SQLMIX, SDDODBC

PROCEDURE Main()

   LOCAL nConnection, nI, aI
   Set( _SET_DATEFORMAT, "dd-mm-yyyy" )
   rddSetDefault( "SQLMIX" )
   nConnection := rddInfo( RDDI_CONNECT, { "ODBC", "Server=DESKTOP-MP8Q5KH\SQLEXPRESS;Driver={SQL Server};dsn=;User=DESKTOP-MP8Q5KH\Itamar;database=SCN_101926;" } )
   IF nConnection == 0
      ? "Unable connect to server", rddInfo( RDDI_ERRORNO ), rddInfo( RDDI_ERROR )
      RETURN
   ENDIF
   ? nConnection
   ? dbUseArea( .T., , "SELECT * FROM TABCLI", "tabcli" )
   ? "LASTREC:", LastRec()
   DO WHILE ! Eof()
      aI := Array( FCount() )
      FOR nI := 1 TO FCount()
         aI[nI] := FieldGet( nI )
      NEXT
      ? RecNo(), hb_ValToExp( aI )
      dbSkip()
   ENDDO
   ? "LASTREC:", LastRec()
   dbCloseAll()

   RETURN