Visual Basic - error al editar registros con listview

Life is soft - evento anual de software empresarial
   
Vista:

error al editar registros con listview

Publicado por Javier (1 intervención) el 30/04/2010 11:51:47
Hola a todos,
tengo un problema al editar registros,seguro que es una chorrada pero no doy con la tecla.
Al editar un registro me da error "35600" en tiempo de ejecución, sólo da el error cuando algún campo está en blanco, es decir si edito un registro que tiene todos sus campos completos no salta.
If Trim(.Text1(1).Text) <> " " Then
.Text1(1).Text = LV.SelectedItem.ListSubItems(1).Text '
End If
If Trim(.Text1(2).Text) <> " " Then
.Text1(2).Text = LV.SelectedItem.ListSubItems(2).Text '
End If
If Trim(.Text1(3).Text) <> " " Then
.Text1(3).Text = LV.SelectedItem.ListSubItems(6).Text '
End If
If Trim(.Text1(0).Text) <> " " Then
.Text1(0).Text = LV.SelectedItem.ListSubItems(4).Text '
End If
If Trim(.Text1(5).Text) <> " " Then
.Text1(5).Text = LV.SelectedItem.ListSubItems(7).Text '
End If
If Trim(.Text1(6).Text) <> " " Then
.Text1(6).Text = LV.SelectedItem.ListSubItems(8).Text '
End If
If Trim(.Text1(7).Text) <> " " Then
.Text1(7).Text = LV.SelectedItem.ListSubItems(10).Text '
End If
If Trim(.Text1(8).Text) <> " " Then
.Text1(8).Text = LV.SelectedItem.ListSubItems(15).Text '
End If
If Trim(.Text1(9).Text) <> " " Then
.Text1(9).Text = LV.SelectedItem.ListSubItems(13).Text '
End If
If Trim(.Text1(4).Text) <> " " Then
.Text1(4).Text = LV.SelectedItem.ListSubItems(3).Text '
End If
If Trim(.Text1(10)) <> " " Then
.Text1(10).Text = LV.SelectedItem.ListSubItems(12).Text '
End If
.CmbSexo = LV.SelectedItem.ListSubItems(5).Text
.lblFecha = LV.SelectedItem.ListSubItems(9).Text
.CmbCristoVirgen = LV.SelectedItem.ListSubItems(11).Text
.CmbTraje = LV.SelectedItem.ListSubItems(14).Text
' .CmbCuota = LV.SelectedItem.ListSubItems(12).Text
.IdRegistro = LV.SelectedItem.Text
Luego tengo otro problema imaginemos que cargo un registro que está completo al guardar me da el siguiente error:
"No se han especificado valores para algunos de los parámetros requeridos"
Case EDITAR_REGISTRO
cnn.Execute "UPDATE Personas set Nombre = '" & Text1(1) & _
"', Apellido = '" & Text1(2) & _
"', Telefono = '" & Text1(3) & _
"', Direccion = '" & Text1(4) & _
"', Sexo = '" & CmbSexo.ListIndex & _
"', CP = '" & Text1(0) & _
"', Movil = '" & Text1(5) & _
"', FechaNacimiento = '" & Text1(6) & _
"', FechaDeBaja = '" & Text1(7) & _
"', MotivoBaja = '" & Text1(8) & _
"', NCuenta = '" & Text1(9) & _
"', TrajePropio = '" & CmbTraje.ListIndex & _
"', CristoVirgen = '" & CmbCristoVirgen.ListIndex & _
"', Cuota = '" & Text1(10) & _
"' where Id = " & IdRegistro & ""
Case AGREGAR_REGISTRO

Si necesitáis más código decidmelo
Gracias.
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- IPMask
- Figuras en 3D girando
- Regla de Cramer