alcapata
18 de Abril del 2005

hola tengo unos problemas con este error y no se porque. siempre me da en el mismo codigo. cuando intento añadir a la base de datos mediante un control adodc.

Adodc3.Recordset.AddNew
Adodc3.Recordset!mes = Combo1.Text
Adodc3.Recordset!Pago_real = Text2.Text
Adodc3.Recordset!socio = Text1.Text
Adodc3.Recordset.Update
A VER SI ALGUIEN ME PUEDE ECHAR UN CABLE
ESTOY DESESPERADO YA.

Alejandro Tello
18 de Abril del 2005

Hola, revisa que le estes mandando un Open antes de ocuparlo, si tienes algún problema en mi página, luego en foro tengo un tutorial de ado. www.kognos.com.mx

alcapata
18 de Abril del 2005

os muestro todo el codigo
porque aunke ponga la clausula open, el error me lo da cuando intento abrir el recordset.
o operar con el.


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD_lologym.mdb" & ";"
Adodc1.RecordSource = "select * from Socio"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD_lologym.mdb" & ";"
Adodc2.RecordSource = "select * from Servicios"
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BD_lologym.mdb" & ";"
Adodc3.RecordSource = "selet * from Pago"



Set DataCombo1.DataSource = Adodc1
Set DataCombo1.RowSource = Adodc2


meses = Format(Now(), "mmmm")







Combo1.Text = meses
Text1.DataField = "Codigo"
Text3.DataField = "Observaciones"
MaskEdBox1.DataField = "Nif"
MaskEdBox2.DataField = "Nombre"
MaskEdBox3.DataField = "Telefono"
MaskEdBox4.DataField = "Dia_pago"
MaskEdBox5.DataField = "Apellidos"
MaskEdBox6.DataField = "Direccion"
MaskEdBox7.DataField = "F_alta"
Text1.Locked = True
Text3.Locked = True
DataCombo1.DataField = "Servicio"
DataCombo1.BoundColumn = "Id_servicio"
DataCombo1.ListField = "Servicio"


Adodc1.Recordset.MoveLast

Text2.Text = Adodc2.Recordset!Total

'perror:
' errores

End Sub





Private Sub Toolbar2_ButtonClick(ByVal Button As ComctlLib.Button)
'On Error GoTo perror


Select Case Button.Index

Case 1


Adodc3.Recordset.AddNew
Adodc3.Recordset!mes = Combo1.Text
Adodc3.Recordset!Pago_real = Text2.Text
Adodc3.Recordset!socio = Text1.Text
Adodc3.Recordset.Update

End Select

'perror:

' errores


End Sub

Alcapata
18 de Abril del 2005

he hexo algunas comprovaciones
y el adodc se queda como deshabilitado como si la base de datos no tuviera nada
pero en realidad si lo tiene.

es de la conexion.
no se de que viene este error.

Alcapata
18 de Abril del 2005

he probao creando un objeto recortset
y otro conexion
y ya la conexion la establece.
pero no me inserta ningun registro

With rs_pago

.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Open "Pago", conexion, , , adCmdTable
End With

rs_pago.AddNew
rs_pago!mes = mes
rs_pago!Pago_real = rs_Servicio!Total
rs_pago!socio = rs_socio!codigo
rs_pago.Update

Gerardo
18 de Abril del 2005

Hola, mira creo que tu problema esta en la bariable que estas tomando del combo, no tengo a la mano las propiedades del objeto para decirte como le hagas, pero es por hay tu problema.

espero te sirva saludos y hasta pronto