Crear código para ejemplares

[Lalybs]

Hola, me encuentro trabajando con un sist de videoclub y no se como manejar en tema de los alquileres para cual me requieren usar una etiqueta de pelicula y sus ejemplares.. hice algo así:
For i = 1 To numeroejemplares
SQL = "Select * from Ejemplares"
rs.Open SQL, con, adOpenKeyset, adLockOptimistic, adCmdText
rs.AddNew
rs!IdPelicula = Text1.Text
rs!IdEjemplar = i
rs!IdEstado = 2
rs!Etiqueta = Text1.Text & "-" & i
rs.Update
rs.Close
Next
pero no me los esta guardando en la tabla .. por favor necesito ayuda, desd ya muchas gracias!

[Avellaneda]

Iniciado por Lalybs

Hola, me encuentro trabajando con un sist de videoclub y no se como manejar en tema de los alquileres para cual me requieren usar una etiqueta de pelicula y sus ejemplares.. hice algo así:
For i = 1 To numeroejemplares
SQL = "Select * from Ejemplares"
rs.Open SQL, con, adOpenKeyset, adLockOptimistic, adCmdText
rs.AddNew
rs!IdPelicula = Text1.Text
rs!IdEjemplar = i
rs!IdEstado = 2
rs!Etiqueta = Text1.Text & "-" & i
rs.Update
rs.Close
Next
pero no me los esta guardando en la tabla .. por favor necesito ayuda, desd ya muchas gracias!

Hola,
¿No dá ningún error, simplemente no guarda los datos?

Fíjate (aunque esto no tiene que ver) que estás abriendo y cerrando continuamente el recordset dentro del bucle, sería mas correcto así:

Código:

sql = "Select * from Ejemplares"
rs.Open sql, con, adOpenKeyset, adLockOptimistic, adCmdText
For i = 1 To numeroejemplares
    rs.AddNew
    rs!IdPelicula = Text1.Text
    rs!IdEjemplar = i
    rs!IdEstado = 2
    rs!Etiqueta = Text1.Text & "-" & i
    rs.Update
Next
rs.Close

[Lalybs]

Buenos días .. lo eh intentado de esa manera pero sigue sin gusrdar los datos en la tabla ..

[David]

Y... ¿da algún error o algo así?

[Lalybs]

No, no me da ningún error .. Simplemente no me guarda los datos en la tabla ..
acá te paso el código completo para orientarte ..
Private Sub Guardar_Click()
If Trim(Text1) <> "" And Trim(Text2) <> "" And Trim(Text3) <> "" Then
Dim rg As New ADODB.Recordset
If editar Then
rg.Open "select * from peliculas where idpelicula=" & Text1, con, adOpenKeyset, adLockOptimistic, adCmdText
If Not (rg.EOF And rg.BOF) Then
rg!IdPelicula = Text1
rg!titulo = Text2
rg!idgenero = Text4
rg!idsoporte = Text5
rg!idcategoria = Text6
rg!director = Text3
rg!duracion = Text7
rg!IdEstado = Text8
rg!fecha = fecha
rg.Update
grilla1
alta_pelicula
editar = False
Text2 = ""
Text1.SetFocus
Else
MsgBox "Error al editar, no se encontro la Pelicula"
End If
rg.Close

Else
rg.Open "select * from peliculas where idpelicula=" & Text1.Text, con, adOpenKeyset, adLockOptimistic, adCmdText

If (rg.EOF And rg.BOF) Then
rg.AddNew
rg!IdPelicula = Text1
rg!titulo = Text2
rg!idgenero = Text4
rg!idsoporte = Text5
rg!idcategoria = Text6
rg!director = Text3
rg!duración = Text7
rg!IdEstado = Text8
rg!fecha = fecha
rg.Update
grilla1
alta_pelicula
Text2.Text = ""
Text2.SetFocus

Else
MsgBox "El número de pelicula ya se esta usando"
End If

End If


Else
MsgBox "Debe completar todos los datos"

rg.Open "select * from ejemplares", con, adOpenKeyset, adLockOptimistic, adCmdText
For i = 1 To numeroejemplares
rg.AddNew
rg!IdPelicula = Text1.Text
rg!IdEjemplar = i
rg!IdEstado = 2
rg!Etiqueta = Text1.Text & "-" & i
rg.Update
Next
rg.Close
'For i = 1 To numeroejemplares
'sql = "Select * from Ejemplares"
'rs.Open sql, con, adOpenKeyset, adLockOptimistic, adCmdText
'rs.AddNew
'rs!IdPelicula = Text1.Text
'rs!IdEjemplar = i
'rs!IdEstado = 2
'rs!etiqueta = Text1.Text & "-" & i
'rs.Update
'rs.Close
'Next
End If
End Sub

[culd]

Antes de hacer un addnew move el recorset a lo ultimo...

Y abrilo asi
rs.Open SQL, con, adOpenDynamic, adLockOptimistic, adCmdText

Fijate si estas escribiendo todos los campos que tenes en la tabla y si los tipos de valores que estas ingresando corresponden el tipo de campo de la tabla, por ahi ese puede ser el error

[Avellaneda]

Iniciado por Lalybs

No, no me da ningún error .. Simplemente no me guarda los datos en la tabla ..
acá te paso el código completo para orientarte ..
...

Bueno, el código está bastante enredado, creo que se podría hacer lo que quieres con la cuarta parte de líneas.

Ejecuta el procedimiento paso a paso y verifica si cumple las condiciones de 'editar' y (BOF And EOF).

Si 'editar' es True, creo que lo que quieres es que muestre los datos en los TextBox, entonces lo tienes que hacer así:

Text1 = rg!IdPelicula
Text2 = rg!titulo

y no al revés como lo estás haciendo.

[Lalybs]

Si.. es verdad .. esta complicado pero con respecto al editar funciona bien y lo hago en el evento DblClick dentro de la grilla de la misma forma .. pero mi problema esta en for, para asignarle una etiqueta a la pelicula y a sus respectivos ejemplares.. No se guardan los datos en la tabla!