añadir registros - VB-MUNDO

javier · #1 (**permalink**) 27-11-2004, 10:30:38

Hola que tal estáis bueno a ver si me podéis ayudar
De esta forma hago para añadir registro en dos tablas diferente

añadir.Open " SELECT* from Tabla1,tabla2 where IdCliente like '" & TextId & " ' ", cn, adOpenDynamic, adLockOptimistic
If añadir.RecordCount = 1 Then
MsgBox "”
Else
añadir.AddNew
´´´´´´´´´´
´´´´´´´´´´
añadir.Update

End If

Bueno yo creo que esta bien pero no me funciona. No comprueba el IdCliente y me salta a añadir registro directamente

acalanto · #2 (**permalink**) 27-11-2004, 10:40:38

Verifica que el registro existe con EOF y no con RecordCount.

javier · #3 (**permalink**) 27-11-2004, 13:46:08

de esta forma:

if añadir.bof and añadir.eof then
msgbox

else

end if

acalanto · #4 (**permalink**) 27-11-2004, 14:05:40

Más bien añadir.EOF, aunque también se puede establecer como BOF.

Si la consulta alcanza el final sin encontrar coincidencias, EOF se establece a TRUE

imported_chiaravel · #5 (**permalink**) 27-11-2004, 17:41:18

El RecordCount de ADO es la GRAN ESTAFA !!! no funciona.

Gracias a Dios en ADO.NET funciona de maravillas.

Suerte

J.M.Movilla · #6 (**permalink**) 27-11-2004, 21:19:07

El RecordCount no da información real mientras no haya pasado el puntero por todos los registros del recordset. Eso quiere decir que si necesitamos información veraz sobre el recuento de registros, hemos de hacer previamente un Movelast... Si después de esto continúa dando información errónea, deberíamos descartarlo de nuestro vocabulario de programadores de VB 6.0...

MiguelPG · #7 (**permalink**) 28-11-2004, 00:03:46

Hola a todos.
Si abres el ecordset de esta manera, el resultado de recordcount es correcto:

añadir.Open " SELECT* from Tabla1,tabla2 where IdCliente like '" & TextId & " ' ", cn,1,3
msgbox añadir.recordcount
Este dato es bueno.
Saludos

javier · #8 (**permalink**) 28-11-2004, 11:49:43

Lo he sustituido por esto otro y ahora me va bien :

If RS.EOF Then

Muchas gracias