Forums Últimos mensajes - Powered by IBM
 

Problema para updatear una tabla

04/07/2008 - 18:30 por davidr | Informe spam
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.
 

Leer las respuestas

#1 Gux (MVP)
04/07/2008 - 19:24 | Informe spam
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.

Preguntas similares