elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  La Operacion en varios pasos genero errores... AYUDA AQUI"""""
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: La Operacion en varios pasos genero errores... AYUDA AQUI"""""  (Leído 7,340 veces)
JoseCheO

Desconectado Desconectado

Mensajes: 13


Ver Perfil
La Operacion en varios pasos genero errores... AYUDA AQUI"""""
« en: 23 Diciembre 2011, 16:53 pm »

Dim con As DataEnvironment1
Dim Modo, cadena

Private Sub Guardar_Click()
If Modo = "Nuevo" Then
con.rsvehiculos.Close
    con.rsvehiculos.Open "Select * From vehiculos where placa = 000"
    con.rsvehiculos.AddNew
   con.rsvehiculos.Fields("placa") = t1.Text
    con.rsvehiculos.Fields("tipo") = t2.Text
    con.rsvehiculos.Fields("marca") = t3.Text
    con.rsvehiculos.Fields("modelo") = t4.Text
    con.rsvehiculos.Fields("color") = t5.Text
    con.rsvehiculos.Fields("ano") = t6.Text
    con.rsvehiculos.Fields("fechaing") = t7.Text
    con.rsvehiculos.Fields("descripcion") = t8.Text
    con.rsvehiculos.UpdateBatch adAffectAllChapters
    con.rsvehiculos.Close
    con.rsvehiculos.Open "Select * From vehiculos"
    cadena = t1.Text
    Buscar1 cadena
    End If
If Modo = "Modificar" Then
        con.rsvehiculos.Find "placa ='" & Trim(cadena) & "'"
  con.rsvehiculos.Fields("placa") = t1
 con.rsvehiculos.Fields("tipo") = t2
 con.rsvehiculos.Fields("marca") = t3
 con.rsvehiculos.Fields("modelo") = t4
 con.rsvehiculos.Fields("color") = t5
 con.rsvehiculos.Fields("ano") = t6
 con.rsvehiculos.Fields("fechaing") = t7
 con.rsvehiculos.Fields("descripcion") = t8
        con.rsvehiculos.Update
End If
Modo = ""
ApagarCajas Me
t7.Enabled = False
End Sub


ME DI CUENTA QUE SI SOLO INTRODUZCO DATOS DE DOS CARACTERES EJEMPLO "AA" EN TODOS LOS CAMPOS ME ACEPTA TODO..!! PERO SI ESCRIBO ALGO COMO "PPP" ME MANDA ESE ERROR..!! AYUDA PORFAVOR


En línea

JoseCheO

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Re: La Operacion en varios pasos genero errores... AYUDA AQUI"""""
« Respuesta #1 en: 23 Diciembre 2011, 16:57 pm »

Ya lo resolvi...

solo tube que ponerle '000' .... con.rsvehiculos.Open "Select * From vehiculos where placa = '000' "


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines