Hola buenas tardes a todos los programadores un gran saludo y en pie de lucha sacando adelante a gambas en sus proyectos y gestiones de ayuda.

Quiero comentarles que estoy probando el gambas 3 de lleno y me he topado con algunos detalles y diferencias, pero la que me esta dando problemas ahorita son las pruebas de agregar registros de un determinado personal por ejemplo:

Para agregar un registro sea en sqlite o mysql usamos este comando:

Try coneccion.asiscon.EXEC("insert into administrador values(&1,&2,&3,&4,&5,&6,&7,&8,&9)",
TextBox6.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, ComboBox2.Current.Text, TextBox5.Text, ComboBox1.Current.Text, TextBox7.Text)
If Error Then
 Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")
 Else
 Message.Info("SU REGISTRO SE HA AGREGADO EXITOSAMENTE")

  
Como pueden observar arriba tiene 9 campos mi tabla y agrega los datos muy bien sean en sqlite o mysql. pero cuando le coloco un campo mas sean 10 campos en la tabla me da error!!

Try coneccion.asiscon.EXEC("insert into asesores values(&1,&2,&3,&4,&5,&6,&7,&8,&9,&10)",
TextBox6.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, ComboBox3.Current.Text, TextBox5.Text, ComboBox2.Current.Text, ComboBox1.Current.Text, TextBox7.Text)
If Error Then
 Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")

Sera porque las sentencias sql no soportan 10  campos   no creo suena ilogico y estupido

 

Amigo, ¿qué error te marca en el ide de gambas al ejecutar esa sentencia?
No me suena ese límite de 9 campos en la tabla.
Saludos

===================
Migrando desde visual basic, el Gambas de Ms
Mi blog gambero

Osea yo reviso y repaso la sentencia de agregar registro y no veo nada fuera d elo normal y esto me esta es sucediendo en gambas 3 porque en gambas 2 no ocurria por ejemplo si dejo 9 campos me agrega el registro pero cuando lo intento con 10 no me deja y nose que carajos sera me tiene pero con dolor de cabeza no le veo sentido trate de verificar si eran las text o combo que estaban mal y estan bien la verdad nose que estara ocurriendo y lo ejecute con sqlite y mysql y sucede lo mismo!!

Lo que preguntais, ya esta resuelto en el foro, lo comentó  jguardon en este post:
http://foro.gambas-es.org/viewtopic...highlight=subst

Citar:

En concreto, cuando usamos los comodines en la consulta sql: &1, &2, &3, etc, a partir del 10º hay que encerrarlo entre llaves: &{10}, &{11}, etc....

Saludos

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

Hayyy siiii señor JSBSAN funciono excelente muchas gracias!!   pero porque se necesitarian esas llaves? bueno debe ser algo unico y especifico en este lenguaje   pero gracias observen lo que hace mi formulario junto con las funciones para algun otro que este en aprietos porque para eso estamos aqui en comunidad gracias

Formulario de agregar registro con funciones:

 

codigo:
Public Sub Button1_Click()
Message.Warning("USTED ESTA INTENTANDO ACCEDER A PRIVILEGIOS DE ADMINISTRADOR, SI USTED LO ES, INTRODUZCA LA CONTRASEÑA")
contrasenaAD.Show


End

Public Sub Form_Open()
TextBox1.SetFocus
TextBox7.text = Date
If coneccion.conectarbase()
Endif
End

Public Sub Button2_Click()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or ComboBox1.Text = ""
 Message.Info("DEBE LLENAR LOS CAMPOS REQUERIDOS ")
 Else
Try coneccion.asiscon.EXEC("insert into asesores values(&1,&2,&3,&4,&5,&6,&7,&8,&9,&{10})",
TextBox6.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, ComboBox3.Current.Text, TextBox5.Text, ComboBox2.Current.Text, ComboBox2.Current.Text, TextBox7.Text)
If Error Then
 Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")
 Message.Info("EL CÓDIGO ASIGNADO NO PUEDE SER IGUAL AL DE LOS OTROS YA REGISTRADOS, POR FAVOR SI TIENE DUDAS SOBRE EL CÓDIGO CONSULTE VER REGISTRO")
 Else
 Message.Info("SU REGISTRO SE HA AGREGADO EXITOSAMENTE")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
Endif
Endif
End
  



Public Sub Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
  

End

Public Sub Button4_Click()

  Me.Close

End

Public Sub MovieBox1_MouseDown()
Message.Info("BIENVENIDO AQUÍ PODRÁ VER EL REGISTRO COMPLETO DE ASESORES")
verregistrosAS.Show

End





Public Sub PictureBox6_MouseDown()
Message.Info("UPS CUIDADO SE HA HABILITADO EL BOTÓN VOLVER")
  Button1.Enabled = True
  

End

Public Sub PictureBox7_MouseDown()
Button1.Enabled = False
  

End

Public Sub Label11_MouseDown()

  

End

Public Sub PictureBox2_MouseDown()

  

End

Public Sub TextBox6_change()

  CInt(TextBox6.Text) 'Convierte el numero en entero
  
Catch
TextBox6.Text = Mid$(TextBox6.Text, 1, -1) 'Si no es un numero borra el caracter

Stop Event


End

Public Sub TextBox1_Change()
CInt(TextBox1.Text) 'Convierte el numero en entero
  
Catch
TextBox1.Text = Mid$(TextBox1.Text, 1, -1) 'Si no es un numero borra el caracter

Stop Event

  

End

Public Sub TextBox2_Keypress()
If Key.Text >= "0" And Key.Text <= "9" Then
Stop Event
Endif
End

Public Sub Label7_MouseDown()

  

End

Public Sub TextBox1_KeyPress()

  

End

Public Sub TextBox5_Change()
CInt(TextBox5.Text) 'Convierte el numero en entero
  
Catch
TextBox5.Text = Mid$(TextBox5.Text, 1, -1) 'Si no es un numero borra el caracter
Stop Event

End


Public Sub TextBox3_Keypress()
If Key.Text >= "0" And Key.Text <= "9" Then
Stop Event
Endif
End

Imagen del registro guardado en tableview observen:



Codigo:

Public Sub Form_Open()
 Dim i As Integer
 tabla.Header = True
Me.Center
If coneccion.conectarbase() Then Return
tabla.Clear()
tabla.Columns.Count = 10
tabla.Columns[0].Text = "codigo"
tabla.Columns[1].Text = "cedula"
tabla.Columns[2].Text = "nombre"
tabla.Columns[3].Text = "apellido"
tabla.Columns[4].Text = "direccion"
tabla.Columns[5].Text = "codigo_cel"
tabla.Columns[6].Text = "telefono"
tabla.Columns[7].Text = "sexo"
tabla.Columns[8].Text = "programa"
tabla.Columns[9].Text = "fecha_ingreso"
End



Public Sub Button2_Click()

  Me.Close

End

Public Sub Button1_Click()
Dim fila As Integer
coneccion.asisresul = coneccion.asiscon.Exec("Select *from asesores")
fila = 0
Do While coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["programa"]
tabla[fila, 9].Text = coneccion.asisresul["fecha_ingreso"]
coneccion.asisresul.MoveNext()
fila = fila + 1
Loop
tabla.Refresh
Button1.Enabled = False

End


Public Sub Button3_Click()
Dim ruta As String
  Dim archivo As File
  Dim i, j As Integer
  ruta = User.Home &/ "Reporte de Asesores.html"
   Message.Warning("RECUERDE GUARDAR CADA REPORTE APARTE, DEBIDO A QUE SOBRECRIBE EL ANTERIOR!")
  If Message.Question(" ¿DESEA GUARDAR UN REPORTE DE ASERORES?", "SI", "NO") = 1 Then
  ' [GB2:OPEN] OPEN ruta FOR WRITE CREATE AS #archivo
  archivo = Open ruta For Write Create
  Print #archivo, "<html>"
  Print #archivo, "<head><title>Reporte en HTML de Asesores</title></head>"
  Print #archivo, "<body topmargin='0' leftmargin='0'"
  Print #archivo, ">"
  Print #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='2'>"
  Print #archivo, "  <tr>"
  Print #archivo, "    <td colspan='20' align='center'>"
  Print #archivo, "      <h3>Listado de Asesores</h3>"
  Print #archivo, "  <tr>"
  Print #archivo, "    <td align ='center'>Codigo</td>"
  Print #archivo, "    <td align='center'>Cedula</td>"
  Print #archivo, "    <td align='center'>Nombres</td>"
  Print #archivo, "    <td align='center'>Apellidos</td>"
  Print #archivo, "    <td align='center'>Direccion</td>"
  Print #archivo, "    <td align='center'>Codigo de telefono</td>"
  Print #archivo, "    <td align='center'>Telefono</td>"
  Print #archivo, "    <td align='center'>Sexo</td>"
  Print #archivo, "    <td align='center'>Programa</td>"
  Print #archivo, "    <td align='center'>Fecha de Ingreso</td>"
  Print #archivo, "  </tr>"
  For i = 0 To tabla.rows.Count - 1
      Print #archivo, "  <tr>"
       For j = 0 To tabla.Columns.Count - 1
       Print #archivo, "    <td>" & tabla[i, j].Text & "</td>"
      Next
     Print #archivo, "  </tr>"
    Next
  Print #archivo, "</table>"
  Print #archivo, "</body>"
  Print #archivo, "</html>"
  Close #archivo
  Message.Info("SE HA CREADO UN REPORTE EN MODO HTML CON ÉXITO (GUARDADO EN DIRECTORIO PRINCIPAL)")
Endif
End
Public Sub Button4_Click()

Me.Close
verregistrosAS.Show
End
---------------------------------------------
GRACIAS POR SUS AYUDAS    UN GRAN ABRAZO Y SALUDOS

jousseph:

Citar:

pero porque se necesitarian esas llaves?

Lo mejor es usar siempre las llaves, asi sabes que funciona bien siempre.

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!