SQL para toda una tabla, registro a registro

[Juan Fco.]

Quiero realizar una consulta a toda una tabla completa registro a registro, pero no me funciona la siguiente instruccion que hago:

Do while not eof
...
SQL="..."
...
End do

¿Alguien podría decirme que instruccion pongo?

[lucasiramos]

Mmmm. No entiendo, ¿Lo que queres es que te devuelva todos los registros de la tabla? O sea ¿un Select * From Tabla? ¿Sera eso?

Saludos. Lucas

[Juan Fco.]

No, quiero que se ejecute una SQL en toda la tabla, pero registro a registro, por eso obligo al programa a pasar uno a uno por todos los registros. Lo que me falla es la intruccion Do While not EOF/Loop

[lucasiramos]

Aaah! Pero el error esta entonces en el do while, yo creí que en el select. Tal vez si colocas el código se te puede ayudar mejor.

Saludos. Lucas

[Juan Fco.]

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Do While Not EOF
N_1 = (E1 + 2 * E2) / 3
NF_1 = N_1 * 0.8 + H1 / T1 + (I1 + G1) / 2 * 0.1

strSQL = "UPDATE ..."
CurrentDb.Execute strSQL
Loop
End sub

[lucasiramos]

Iniciado por Juan Fco.

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Do While Not EOF
N_1 = (E1 + 2 * E2) / 3
NF_1 = N_1 * 0.8 + H1 / T1 + (I1 + G1) / 2 * 0.1

strSQL = "UPDATE ..."
CurrentDb.Execute strSQL
Loop
End sub

Bueno, los numeritos mucho no los entiendo, je. Pero el Do while sería asi:

Código:

Do While RecordSet.EOF <> True
				'Código
				RecordSet.MoveNext
			Loop

Te falta el nombre del recordset en el do while y el movenext ¿Sera ese el problema?

Saludos. Lucas

[GeoAvila]

no si ya te respondieron esta pregunta con este mismo post..

http://www.forosdelweb.com/f21/contar-registros-tabla-318635/

nos vemos..

[Juan Fco.]

El código que no da error es:

Do While Not RecordSet.EOF

...Código...

Loop

pero poniendo Movenext, me da el error: "Esta acción fue cancelada por el objeto asociado", y sin poner movenext, entra en un ciclo cerrado que no acaba nunca, es como si no reconociese cuando llega al final de la tabla (cuando Not EOF es false). No entiendo que puede pasar.

[Civic]

Buenos dias ante todo, y ante manos le doy las gracias al que me pueda ayudar. Hice una consulta de una tabla llamada clientes, para que se muestren los datos que tengo, en un MSFlexGrid pero no me funciona la siguiente instruccion que hago: ¿Me sale un Error en la parte? While Not ("clientes.EOF")

Private Sub Command1_Click()
Dim Rcli As New ADODB.Recordset
sql = "select IdCliente,Nombre,Direccion from clientes "
Rcli.Open sql, db
If Rcli.EOF And Rcli.BOF Then
MsgBox "No hay registro"
Else
Fila = 1
Rcli.MoveFirst
While Not ("clientes.EOF")
Fila = Fila + 1
Flex.Rows = Fila
Flex.Row = Fila - 1
Flex.Col = 0
Flex.Text = Rcli.Fields("IdCliente")
Flex.Col = 1
Flex.Text = Rcli.Fields("Nombre")
Flex.Col = 2
Flex.Text = Rcli(2)
Rcli.MoveNext
Wend
End If
End Sub

[Civic]

Buenos dias ante todo, y ante mano le doy las gracias al que me pueda ayudar. Hice una consulta de una tabla llamada clientes, para que se muestren los datos que tengo, en un MSFlexGrid pero no me funciona la siguiente instruccion que hago: ¿Me sale un Error en la parte? While Not ("clientes.EOF")

Private Sub Command1_Click()
Dim Rcli As New ADODB.Recordset
sql = "select IdCliente,Nombre,Direccion from clientes "
Rcli.Open sql, db
If Rcli.EOF And Rcli.BOF Then
MsgBox "No hay registro"
Else
Fila = 1
Rcli.MoveFirst
While Not ("clientes.EOF")
Fila = Fila + 1
Flex.Rows = Fila
Flex.Row = Fila - 1
Flex.Col = 0
Flex.Text = Rcli.Fields("IdCliente")
Flex.Col = 1
Flex.Text = Rcli.Fields("Nombre")
Flex.Col = 2
Flex.Text = Rcli(2)
Rcli.MoveNext
Wend
End If
End Sub

[seba123neo]

sacale las comillas y los parentesis,es una propiedad no puede ir como si fuera un simple String...

saludos.

[Avellaneda]

Iniciado por Civic

Buenos dias ante todo, y ante mano le doy las gracias al que me pueda ayudar. Hice una consulta de una tabla llamada clientes, para que se muestren los datos que tengo, en un MSFlexGrid pero no me funciona la siguiente instruccion que hago: ¿Me sale un Error en la parte? While Not ("clientes.EOF")

Private Sub Command1_Click()
Dim Rcli As New ADODB.Recordset
sql = "select IdCliente,Nombre,Direccion from clientes "
Rcli.Open sql, db
If Rcli.EOF And Rcli.BOF Then
MsgBox "No hay registro"
Else
Fila = 1
Rcli.MoveFirst
While Not ("clientes.EOF")
Fila = Fila + 1
Flex.Rows = Fila
Flex.Row = Fila - 1
Flex.Col = 0
Flex.Text = Rcli.Fields("IdCliente")
Flex.Col = 1
Flex.Text = Rcli.Fields("Nombre")
Flex.Col = 2
Flex.Text = Rcli(2)
Rcli.MoveNext
Wend
End If
End Sub

Sustituye la línea marcada en rojo por esta otra:

While Not Rcli.EOF