Quieros Plantearles un Problema que me Ocurre y Quiero Presentarle la mayor fuente de Detalles para que puedan ayudarme con mas Facilidad, Primero dare los Detalles del Sistema Operativo y de mas.
Utilizo como sistema Operativo, Debian 5.0.1
gambas 2.1
Soy Nuevo en gambas Estoy Realizando un proyecto donde Guardo, Elimino, Consulto, Modifico, y otras cosas mas en Una base de datos Mysql.
La cuestion es que el proyecto me presenta el siguiente Error al Guardar.
Como ya he dicho antes soy Nuevo en gambas vengo de Visual Basic. Y Pues conocimientos basicos yo creo que el Error se debe a que la Linea donde coloco los datos que deseo Guardar es muy larga, porque en verdad la tabla es extensa.
Por eso Trate de Cortar un poco el codigo de esa Linea identificando a cada TextBox con una letra o Numero. pero aun asi sigue siendo demasiado largo.
entonces quiero Saber Otro metodo que Pueda utilizar para guardar Datos que me permita continuar progrmando en la siguiente linea. O bueno no c si este mismo metodo me permite programar en la siguiente linea.
Estuve buscando en el foro pero la info no era muy Completa.
El metodo que uso para Guardar es el Siguiente.
PRIVATE hResul AS Result
PRIVATE db AS Connection
PUBLIC SUB Form_Open()
ModConexion.conexion
END
PUBLIC SUB Button1_Click() '<-----------Boton de Guardar
DIM query AS String
DIM a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, a1, a2, a3, a4, a5, a6, a7, a8, a9, b1 AS String
a = TextBox24.Text
b = TextBox1.Text
c = TextBox2.Text
d = TextBox3.Text
e = TextBox4.Text
f = TextBox44.Text
g = TextBox45.Text
h = TextBox46.Text
i = TextBox11.Text
j = TextBox7.Text
k = TextBox17.Text
l = TextBox9.Text
m = TextBox13.Text
n = TextBox15.Text
o = TextBox18.Text
p = TextBox19.Text
q = Textbox20.Text
r = TextBox21.Text
s = TextBox28.Text
t = TextBox42.Text
u = TextBox47.Text
v = TextBox48.Text
w = TextBox49.Text
x = TextBox50.Text
y = TextBox25.Text
z = TextBox26.Text
a1 = TextBox27.Text
a2 = ComboBox1.Text
a3 = TextBox43.Text
a4 = TextBox29.Text
a5 = TextBox31.Text
a6 = TextBox32.Text
a7 = TextBox30.Text
a8 = TextBox33.Text
a9 = TextBox34.Text
b1 = TextBox35.Text
query = "INSERT INTO SIET.movimiento set TipoMovimiento='" & Trim(UCase(Textbox)) & "', o1='" & UCase(Trim(b)) & "', CedulaCODP='" & Trim(UCase(c)) & "', ApeyNombreDP='" & Trim(UCase(d)) & "', FechaIngresoDP='" & Trim(UCase(e)) & "', GeneroDP='" & Trim(UCase(f)) & "', EstadoCivilDP='" & Trim(UCase(g)) & "', NivelAcadeDP='" & Trim(UCase(h)) & "', DepenDA='" & Trim(UCase(i)) & "', CodigoDA='" & Trim(UCase(j)) & "', CargoDA='" & Trim(UCase(k)) & "', CargoHoraDA='" & Trim(UCase(l)) & "', SueldoDA='" & Trim(UCase(m)) & "', CodigoDepenDP='" & Trim(UCase(n)) & "', NombreDepenDP='" & Trim(UCase(o)) & "', CodigoCargoDP='" & Trim(UCase(p)) & "', DenominacionCarDP='" & Trim(UCase(q)) & "', UbicacionDepenDP='" & Trim(UCase(r)) & "', AsignaturaDP='" & Trim(UCase(s)) & "', HorasDP='" & Trim(UCase(t)) & "', TipoNombramientoDP='" & Trim(UCase(u)) & "', TurnoDiurnoDP='" & Trim(UCase(v)) & "', TurnoNocturnoDP='" & Trim(UCase(w)) & "', BolivarianoDP='" & Trim(UCase(x)) & "', NumeroCuentaDB='" & Trim(UCase(y)) & "', CodigoDB='" & Trim(UCase(z)) & "', BancoDB='" & Trim(UCase(a1)) & "', TipoCuentaDB='" & Trim(UCase(a2)) & "', DatoRetroactivoDB='" & Trim(UCase(a3)) & "', CedulaDB='" & Trim(UCase(a4)) & "', CodigoDepenDB='" & Trim(UCase(a5)) & "', CodigoCargoDB='" & Trim(UCase(a6)) & "', ApeyNombreDB='" & Trim(UCase(a7)) & "', DestinoSalienteDB='" & Trim(UCase(a8)) & "', ObservacionesDB='" & Trim(UCase(a9)) & "', ApeyNombreAnalisDB='" & Trim(UCase(b1)) & "'"
ModConexion.consulta(query)
IF ModConexion.conexion() THEN
Message.Info("Los Datos Se Han Guardado Correctamente")
TextBox1.SetFocus
ENDIF
ELSE
Message.Error("Ocurrio un Error Mientras se Intentaban Guardar los Datos")
END
PRIVATE db AS Connection
PUBLIC SUB Form_Open()
ModConexion.conexion
END
PUBLIC SUB Button1_Click() '<-----------Boton de Guardar
DIM query AS String
DIM a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, a1, a2, a3, a4, a5, a6, a7, a8, a9, b1 AS String
a = TextBox24.Text
b = TextBox1.Text
c = TextBox2.Text
d = TextBox3.Text
e = TextBox4.Text
f = TextBox44.Text
g = TextBox45.Text
h = TextBox46.Text
i = TextBox11.Text
j = TextBox7.Text
k = TextBox17.Text
l = TextBox9.Text
m = TextBox13.Text
n = TextBox15.Text
o = TextBox18.Text
p = TextBox19.Text
q = Textbox20.Text
r = TextBox21.Text
s = TextBox28.Text
t = TextBox42.Text
u = TextBox47.Text
v = TextBox48.Text
w = TextBox49.Text
x = TextBox50.Text
y = TextBox25.Text
z = TextBox26.Text
a1 = TextBox27.Text
a2 = ComboBox1.Text
a3 = TextBox43.Text
a4 = TextBox29.Text
a5 = TextBox31.Text
a6 = TextBox32.Text
a7 = TextBox30.Text
a8 = TextBox33.Text
a9 = TextBox34.Text
b1 = TextBox35.Text
query = "INSERT INTO SIET.movimiento set TipoMovimiento='" & Trim(UCase(Textbox)) & "', o1='" & UCase(Trim(b)) & "', CedulaCODP='" & Trim(UCase(c)) & "', ApeyNombreDP='" & Trim(UCase(d)) & "', FechaIngresoDP='" & Trim(UCase(e)) & "', GeneroDP='" & Trim(UCase(f)) & "', EstadoCivilDP='" & Trim(UCase(g)) & "', NivelAcadeDP='" & Trim(UCase(h)) & "', DepenDA='" & Trim(UCase(i)) & "', CodigoDA='" & Trim(UCase(j)) & "', CargoDA='" & Trim(UCase(k)) & "', CargoHoraDA='" & Trim(UCase(l)) & "', SueldoDA='" & Trim(UCase(m)) & "', CodigoDepenDP='" & Trim(UCase(n)) & "', NombreDepenDP='" & Trim(UCase(o)) & "', CodigoCargoDP='" & Trim(UCase(p)) & "', DenominacionCarDP='" & Trim(UCase(q)) & "', UbicacionDepenDP='" & Trim(UCase(r)) & "', AsignaturaDP='" & Trim(UCase(s)) & "', HorasDP='" & Trim(UCase(t)) & "', TipoNombramientoDP='" & Trim(UCase(u)) & "', TurnoDiurnoDP='" & Trim(UCase(v)) & "', TurnoNocturnoDP='" & Trim(UCase(w)) & "', BolivarianoDP='" & Trim(UCase(x)) & "', NumeroCuentaDB='" & Trim(UCase(y)) & "', CodigoDB='" & Trim(UCase(z)) & "', BancoDB='" & Trim(UCase(a1)) & "', TipoCuentaDB='" & Trim(UCase(a2)) & "', DatoRetroactivoDB='" & Trim(UCase(a3)) & "', CedulaDB='" & Trim(UCase(a4)) & "', CodigoDepenDB='" & Trim(UCase(a5)) & "', CodigoCargoDB='" & Trim(UCase(a6)) & "', ApeyNombreDB='" & Trim(UCase(a7)) & "', DestinoSalienteDB='" & Trim(UCase(a8)) & "', ObservacionesDB='" & Trim(UCase(a9)) & "', ApeyNombreAnalisDB='" & Trim(UCase(b1)) & "'"
ModConexion.consulta(query)
IF ModConexion.conexion() THEN
Message.Info("Los Datos Se Han Guardado Correctamente")
TextBox1.SetFocus
ENDIF
ELSE
Message.Error("Ocurrio un Error Mientras se Intentaban Guardar los Datos")
END
Una Pregunta sencilla a lo antes Expuesto creo que seria:
¿Como Continuar Programando en la Siguiente Linea, que signo coloco o algo parecido que me permita seguir programando en la siguiente linea?
creo que eso es lo que deseo saber. "Si es que es ese mi Problema"
O si Existe Otro metodo para Guardar datos.
Gracias de Antemano, Espero Pronta Respuestas... Gracias de verdad, y disculpa si el Planteamiento del tema no es Muy Bueno.. Acepto Concejos...