johnnara
23 de Julio del 2004

Como Se inserta un nuevo registro en una tabla ?
Yo lo realizo de la siguiente forma pero no me funciona. Soy Nobato con ado.

Dim SqlA As String = \"SELECT Count(Accesos.IdAcceso) AS CuentaAcceso, Accesos.Fecha,\" _
& \"Accesos.Hora, Accesos.IdSocio, Accesos.IdActividad, Accesos.Permitido, \" _
& \"Accesos.IdAcceso, Max(Accesos.IdAcceso) as DMax \" _
& \"FROM Accesos \" _
& \"GROUP BY Accesos.Fecha, Accesos.Hora, Accesos.IdSocio, Accesos.IdActividad,\" _
& \"Accesos.Permitido,Accesos.IdAcceso;\"


With TablaAccesos
.ActiveConnection = Conexion
.Open(SqlA, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
End With



TablaAccesos.AddNew(\"Nota\", \"Juan\") \\' TablaAccesos.Fields(\"DMax\").Value)

\\'TablaAccesos.Fields(\"IdAcceso\").Value = TablaAccesos.Fields(\"DMax\").Value
\\'TablaAccesos.Fields(\"Fecha\").Value = Today
\\'TablaAccesos.Fields(\"Hora\").Value = Now
\\'TablaAccesos.Fields(\"IdActividad\").Value = Cliente.Fields(\"IdActividad\").Value
\\'TablaAccesos.Fields(\"Permitido\").Value = False
\\'TablaAccesos.Fields(\"Nota\").Value = \"Inactivo\"
MsgBox(\" antes de actualizar\")

\\'TablaAccesos.Update( )