Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
¿Como Continuar Programando En La Siguiente Linea?(SOLUCIONADO)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Re: ¿Como Continuar Programando En La Siguiente Linea? 
 
Prueba esto. Es lo mismo que te puse arriba, pero con tus nombres de campos, a ver si así lo entiendes.
Como ves, mucho más claro y sencillo que la cadena sql.

PRIVATE db AS NEW Connection

PUBLIC FUNCTION conexion() AS Boolean
 db.close()
 db.type = "mysql"
 db.host = "10.5.225.24"
 db.login = "laraujo"
 db.password = "*********"
 db.open()
 RETURN TRUE
 CATCH
 message.error(Error.text)
 RETURN FALSE
 END
 
PUBLIC SUB Button2_Click()  '<<<---------Boton Guardar

dim rs as result
dim contrl as object

rs=db.create("SIET.datos")

rs!Titulo= Trim(UCase(TextBox1.Text))  
rs!Autor= UCase(Trim(TextBox2.Text))
rs!Fecha=Trim(UCase(TextBox3.Text))
rs!Precio=Trim(UCase(TextBox4.Text))
rs!Descripcion=Trim(UCase(TextBox5.Text))
rs!Genero=Trim(UCase(TextBox6.Text))

rs.update

for each contrl in me.controls
   if contrl is textbox then
        contrl.Clear()
   endif
next

    TextBox1.SetFocus
  
END

 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: ¿Como Continuar Programando En La Siguiente Linea? 
 
Lo que es a mi esta forma me parece mucho mas adecuada, incluso para debuggear que estás metiendo pero bueno ... para gustos los colores.
 



 
soplo - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: ¿Como Continuar Programando En La Siguiente Linea? 
 
shordi escribió: [Ver mensaje]
Prueba esto. Es lo mismo que te puse arriba, pero con tus nombres de campos, a ver si así lo entiendes.
Como ves, mucho más claro y sencillo que la cadena sql.

PRIVATE db AS NEW Connection

PUBLIC FUNCTION conexion() AS Boolean
 db.close()
 db.type = "mysql"
 db.host = "10.5.225.24"
 db.login = "laraujo"
 db.password = "*********"
 db.open()
 RETURN TRUE
 CATCH
 message.error(Error.text)
 RETURN FALSE
 END
 
PUBLIC SUB Button2_Click()  '<<<---------Boton Guardar

dim rs as result
dim contrl as object

rs=db.create("SIET.datos")

rs!Titulo= Trim(UCase(TextBox1.Text))  
rs!Autor= UCase(Trim(TextBox2.Text))
rs!Fecha=Trim(UCase(TextBox3.Text))
rs!Precio=Trim(UCase(TextBox4.Text))
rs!Descripcion=Trim(UCase(TextBox5.Text))
rs!Genero=Trim(UCase(TextBox6.Text))

rs.update

for each contrl in me.controls
   if contrl is textbox then
        contrl.Clear()
   endif
next

    TextBox1.SetFocus
  
END


MUCHISIMAS GRACIASSS ESTE ME FUNCIONO DE MARAVILLA
GRACIAS POR LA PACIENCIA DE VERDAD ESTUVE VARIOS DIAS ALLANDO LA FORMA PERO ERA POR QUE SOLO SABIA ESE METODO PARA GUARDAR, HASTA QUE ME TOPE CON ESTE SISTEMA QUE NECESITABA GUARDAR VARIOS DATOS
               
GRACIAS POR LA PACIENCIA.
 



 
skaterleopoldo12 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Seguir En Siguiente Linea De Codigo stongench General 8 Domingo, 14 Junio 2015, 11:33 Ver último mensaje
Shell
No hay nuevos mensajes ¿Como Formateo La Siguiente Fecha? gambafeliz General 9 Lunes, 26 Agosto 2019, 09:35 Ver último mensaje
Shell
No hay nuevos mensajes Insertar Una Linea En Un Archivo De Texto.... datobinario General 6 Jueves, 14 Marzo 2013, 14:00 Ver último mensaje
datobinario
No hay nuevos mensajes Cambiar Espacio Por Salto De Linea En Arra... Pablo-GNU General 1 Miercoles, 18 Agosto 2010, 19:00 Ver último mensaje
Pablo-GNU
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario