Visual Basic - agregar registro

Life is soft - evento anual de software empresarial
   
Vista:

agregar registro

Publicado por Sergio (6 intervenciones) el 12/03/2009 13:32:05
Private Sub Form_Load()
Set RS_Pelicula = CreateObject("adodb.recordset")
Base.Open (MiDSN)
Rs_Tipo.CursorLocation = adUseClient
Rs_Tipo.CursorType = adOpenStatic
Rs_Tipo.Open "select * from tipo_disco", Base, adOpenDynamic, adLockOptimistic, adCmdText
Rs_Disco.Open "Select id_disco, nombre, tipo_disco.detalle as deta, disco.id_tipodisco from disco, tipo_disco where disco.id_tipodisco = tipo_disco.id_tipodisco ", Base, adOpenDynamic, adLockOptimistic
RS_Pelicula.Open "select id_pelicula, titulo, f_estreno, genero.detalle as gnro, id_disco from pelicula, genero where pelicula.id_genero = genero.id_genero", Base, adOpenDynamic, adLockOptimistic
end sub

Private Sub CmdAgregar_Click()
habilitar (True) ' habilita los botones y textbox
Borrar_txt ' borro los datos contenidos en los textbox, para ingresar nuevos
Rs_Disco.MoveLast
Rs_Disco.AddNew ' aca me da el error no me deja crear un nuevo registro
End Sub
Private Sub Cmdguardar_Click()
habilitar (False)
Rs_Disco.Update
end sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:agregar registro

Publicado por P3L30N2009 (701 intervenciones) el 12/03/2009 15:51:13
y que error te da?

que es lo que quieres agregar?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:agregar registro

Publicado por Sergio (6 intervenciones) el 18/03/2009 02:14:51
No me deja agregar nuevos registros, en la base de datos, me da el error
run time '-2147217842 (80040e4e)' justo cuando ago el addnew, que puede ser
y perdon por no ser muy especifico la primera vez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar