Problema para updatear una tabla

Hola a todos,

tengo un problema a la hora de acceder a una tabla de Oracle, dejo el trozo
de código y explico donde falla:
'Reservas
Dim cnn1 As ADODB.Connection
Dim rsPlatos As ADODB.Recordset
Dim strCnn As String
'Vbles para obtener el código de personal y la tarjeta
Dim strCodigo, strTarjeta As String
Dim intNombre, intCodigo, intTarjeta As Integer
'Vble para hacer la conversión de fecha dd/mm/yyyy -> yyyymmdd
Dim strFecha As String

strCnn = "Provider=OraOLEDB.Oracle;User ID=system;Password=pwd000;Data
Source=ssst1"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

MsgBox "5"

' Abre la tabla zitacomedor
Set rsPlatos = New ADODB.Recordset
With rsPlatos
Set .ActiveConnection = cnn1
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "ssst1.zitacomedor", cnn1, , , adCmdTable
End With

MsgBox "6"

strFecha = Right(TextFecha, 4) & Right(Left(TextFecha, 5), 2) &
Left(TextFecha, 2)
With rsPlatos
.AddNew
.Fields("Mandt").Value = 300
.Fields("Sociedad").Value = 1100
.Fields("Fecha").Value = strFecha
.Fields("Plato11").Value = TextPlato11.Text
.Fields("Plato12").Value = TextPlato12.Text
.Fields("Plato21").Value = TextPlato21.Text
.Fields("Plato22").Value = TextPlato22.Text
.Update
End With

.
Me pasa que después del msgbox 6 me dice que la tabla no existe pero sin
embargo sí que me guarda el registro
Si alguien se le puede ocurrir algún error que esté comentiendo me sería de
mucha ayuda.

Muchísimas gracias por vuestra ayuda.

Le recomiendo que pregunte en los foros de programación .NET o en los de
Oracle, allí hay más colegas especializados en esos temas.

Gustavo Larriera, Microsoft MVP
http://www.linkedin.com/in/gustavolarriera
Este mensaje se proporciona tal como es, sin garantías de ninguna clase.



"davidr" wrote:

> Hola a todos,
>
> tengo un problema a la hora de acceder a una tabla de Oracle, dejo el trozo
> de código y explico donde falla:
> 'Reservas
> Dim cnn1 As ADODB.Connection
> Dim rsPlatos As ADODB.Recordset
> Dim strCnn As String
> 'Vbles para obtener el código de personal y la tarjeta
> Dim strCodigo, strTarjeta As String
> Dim intNombre, intCodigo, intTarjeta As Integer
> 'Vble para hacer la conversión de fecha dd/mm/yyyy -> yyyymmdd
> Dim strFecha As String
>
> strCnn = "Provider=OraOLEDB.Oracle;User ID=system;Password=pwd000;Data
> Source=ssst1"
> Set cnn1 = New ADODB.Connection
> cnn1.Open strCnn
>
> MsgBox "5"
>
> ' Abre la tabla zitacomedor
> Set rsPlatos = New ADODB.Recordset
> With rsPlatos
> Set .ActiveConnection = cnn1
> .CursorType = adOpenKeyset
> .LockType = adLockOptimistic
> .Open "ssst1.zitacomedor", cnn1, , , adCmdTable
> End With
>
> MsgBox "6"
>
> strFecha = Right(TextFecha, 4) & Right(Left(TextFecha, 5), 2) &
> Left(TextFecha, 2)
> With rsPlatos
> .AddNew
> .Fields("Mandt").Value = 300
> .Fields("Sociedad").Value = 1100
> .Fields("Fecha").Value = strFecha
> .Fields("Plato11").Value = TextPlato11.Text
> .Fields("Plato12").Value = TextPlato12.Text
> .Fields("Plato21").Value = TextPlato21.Text
> .Fields("Plato22").Value = TextPlato22.Text
> .Update
> End With
>
> .
> Me pasa que después del msgbox 6 me dice que la tabla no existe pero sin
> embargo sí que me guarda el registro
> Si alguien se le puede ocurrir algún error que esté comentiendo me sería de
> mucha ayuda.
>
> Muchísimas gracias por vuestra ayuda.