Consulta SQL

[kemazonico]

Tengo una duda al consultar una base de datos SQL, segun yo el codigo esta bien (eso digo yo) pero no logro obtener cada registro de una tabla...}
Base:SoporteTec
Tabla: Actparametros
Columnas: Modulo, Version, Status

La consulta la realizo de la siguiente manera

Código: Seleccionar todo

$oMyError = ObjEvent("AutoIt.Error","oErrorConnect")
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("DRIVER={SQL Server};SERVER=10.0.1.243;DATABASE=SoporteTec;UID=admin;PWD=123;")

If @error Then
	MsgBox (0, "Actualizador", "La conexion a la base de datos fallo.", 10)
Else
	MsgBox (0, "Actualizador", "la conexion fue realizada", 3)
EndIf

Func oErrorConnect()
	;Funcion en caso de error
   Endfunc

$rs = ObjCreate("ADODB.RecordSet")
$dBaseUpdates = $rs.open ("SELECT * from Actparametros", $sqlCon)

  for $rsupdate in $dBaseUpdates
	ConsoleWrite ("Nombre: " & $rsupdate.Fields('Modulo').Value & @CRLF)
  next

El problema es que no me imprime ningun valor en el mensaje de la consola, seguro que es un simple detalle que no logro encontrar.
Mucho agradecere su apoyo.

[Chefito]

Recupera los registros así:

Código: Seleccionar todo

while not $rs.eof     ;hasta que no llege a la posición de después del último registro continua el bucle (último registro + 1 = eof)
   ConsoleWrite ("Nombre: " & $rs.Fields('Modulo').Value & @CRLF)
   rs.movenext    ;se mueve al siguiente registro
wend

Si la conexión y la consulta a la bbdd está bien hecha, lo anterior te debe funcionar.

Por cierto, intenta meter las funciones al final y no en medio del código. Eso hará un código más claro y limpio.

Saludos.