Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Como Bajar Una Linea De Codigo Larga En Gambas

Responder al tema

Ir a la página Anterior  1, 2

shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Miercoles, 13 Febrero 2013, 09:38
Objetivo: Re: Como Bajar Una Linea De Codigo Larga En Gambas
Haseo:
Ahorras algunas pulsaciones si escribes:
sql = "insert into contactos(cedula,nhistoria,nombre,apellido,sino,estadocivil,estudios,analfabeta,"
sql &= "aprobados,lnacimiento,fnacimiento,estado,pais,direccion,telefono,religion,establecimiento,"
sql &= "municipio,parroquia,comunidad,etnias,madre,ocupacion,padres,ocupacion1,representante)"
sql &= "values('" & TxtCedula.Text & "','" & Txthistoria.Text & "','" & TxtNombre.Text & "',"
sql &= "'" & TxtApellido.Text & "','" & CombSexo.Text & "','" & CombEstadoCivil.Text & "','" & CombEstudios.Text & "',"
sql &= "'" & CombAnalfabeta.Text & "',"
sql &= "'" & Txtanosaprobados.Text & "','" & Txtnacimiento.Text & "','" & Txtfnacimiento.Text & "',"
sql &= "'" & Txtestado.Text & "','" & Txtpais.Text & "','" & Txtdireccion.Text & "','" & Txttelefono.Text & "',"
sql &= "'" & Txtreligion.Text & "','" & Txtestablecimiento.Text & "','" & Txtmuninicipio.Text & "','" & Txtparroquia.Text & "',"
sql &= "'" & Txtcomunidad.Text & "','" & Txtetnias.Text & "','" & Txtmadre.Text & "','" & Txtocupacion.Text & "','" & Txtpadre.Text & "',"
sql &= "'" & Txtocupacion1.Text & "','" & CombRepresentante.Text & "')"
agregar = conexion.$Con.Exec(sql)

última edición por shordi el Miercoles, 13 Febrero 2013, 09:38; editado 1 vez
Perfil MP  
jguardon
Citar
Mensajes: 2708 Ubicación: Granada
Miercoles, 13 Febrero 2013, 17:59
Objetivo: Re: Como Bajar Una Linea De Codigo Larga En Gambas
Este es más elegante, si cabe, ya que prescindimos de tanto operador de concatenación y comillas, siempre tan proclives a confusiones.

Además no tenemos que preocuparnos de los tipos de campos (si son cadenas, fechas o números) ya que gambas se encarga de construir la consulta correctamente.
Los argumentos de Con.Exec() a partir del segundo, funcionan como en el método Subst(). Todavía no entiendo cómo algunos siguen usando el rollo de las comillas y los ampersand para concatenar o construir consultas como ésta.

Y sí, si... funciona sin problemas

sql = "insert into contactos(cedula,nhistoria,nombre,apellido,sino,estadocivil,estudios,analfabeta,"
"aprobados,lnacimiento,fnacimiento,estado,pais,direccion,telefono,religion,establecimiento,"
"municipio,parroquia,comunidad,etnias,madre,ocupacion,padres,ocupacion1,representante) "
"values(&1,&2,&3,&4,&5,&6,&7,&8,&9,&{10},&{11},&{12},&{13},&{14},&{15},&{16},&{17},&{18},&{19},&{20},"
"&{21},&{22},&{23},&{24},&{25},&{26});"

agregar = conexion.$Con.Exec(sql, TxtCedula.Text, Txthistoria.Text, TxtNombre.Text, TxtApellido.Text,
CombSexo.Text, CombEstadoCivil.Text, CombEstudios.Text, CombAnalfabeta.Text, Txtanosaprobados.Text,
Txtnacimiento.Text, Txtfnacimiento.Text, Txtestado.Text, Txtpais.Text, Txtdireccion.Text, Txttelefono.Text,
Txtreligion.Text, Txtestablecimiento.Text, Txtmuninicipio.Text, Txtparroquia.Text, Txtcomunidad.Text,
Txtetnias.Text, Txtmadre.Text, Txtocupacion.Text, Txtpadre.Text, Txtocupacion1.Text, CombRepresentante.Text)



Saludos

Perfil MP  
Responder al tema
Ir a la página Anterior  1, 2

Página 2 de 2


  
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
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.3839s (PHP: -74% SQL: 174%)
Consultas SQL: 46 - Debug off - GZIP Activado