Tengo problemas con este programita - VB-MUNDO

ikki_26 · #1 (**permalink**) 11-07-2005, 04:52:52

ESto lo tengo en el evento LOAD de mi formulario:

Dim rs3 As ADODB.Recordset
Set rs3 = New ADODB.Recordset

sql3 = "SELECT cod_oper,hor_ini,hor_fin from horario where dia= '" & Lunes & "'"
rs3.Open sql3, cn_tups, adOpenKeyset, adLockOptimistic, adCmdText
For i = 0 To rs3.EOF
listado.TextMatrix(i, 0) = rs3.Fields("cod_oper")
listado.Rows = i + 1
Next i

Lo que quiero hacer con esto es q en un MSHFLEXGRID llamado LISTADO colocar en la primera columna de mi grid todos los codigos del dia lunes

ESta bien hecho?

acalanto · #2 (**permalink**) 11-07-2005, 07:21:41

Me parece que tienes algún error de concepto pues EOF no devuelve el número de registros del resulset.

Código:

Dim rs3 As ADODB.Recordset 
Set rs3 = New ADODB.Recordset 

sql3 = "SELECT cod_oper,hor_ini,hor_fin from horario where dia= '" & Lunes & "'" 
rs3.Open sql3, cn_tups, adOpenKeyset, adLockOptimistic, adCmdText 
'Iniciamos nñumero de columnas y nos posicionamos en el primer registro.
listado.rows = 2 
rs3.Movefirst
do until (rs3.EOF OR rs3.BOF OR rs3.Nomatch)
    i = Listado.rows-1
    listado.TextMatrix(i, 0) = rs3.Fields("cod_oper") 
    listado.Rows = listado.rows+1
    'Movemos al siguiente registro del resultset
    rs3.movenext 
    'Liberamos procesador
    DoEvents
loop
listado.refresh

No hagas Copiar y Pegar con este código, estudia su comportamiento yajusta todo lo necesario para que funcione como deseas pues lo he escrito 'al vuelo' y puedo haber cometido errores sintácticos.