es una aplicación sencilla pero efectivo para las facturación le falta para cumpla es funcione mejor
y también cumplo lo prometido en otra parte del foro que comente algo sobre esto
ha tiene que cambiar la ruta la de base de dato
' gambas class file
PUBLIC conexion AS Connection
PUBLIC registro AS Result
PUBLIC SUB Form_Open()
ME.Center
'ME.Show
conexion = NEW Connection
conexion.Type = "sqlite3"
conexion.Host = "/home/alejandro/base2"
conexion.Name = "pru"
TRY conexion.Open()
IF ERROR THEN
Message.Error("Error al conectar a la base de datos.")
Conexion = NULL
END IF
END
PUBLIC SUB Button2_Click()
registro = conexion.Create("prut")
registro["producto"] = TextBox2.Text
registro["codigo"] = TextBox3.Text
registro.Update
registro = conexion.Exec("select * from prut")
Message("dato guardado")
TextBox2.Clear
TextBox3.Clear
END
PUBLIC SUB TextBox1_Change()
DIM clave AS String
IF Len(TextBox1.Text) = 0 THEN
ListBox1.Clear
ListBox1.Visible = FALSE
ELSE
registro = conexion.Exec("SELECT * FROM prut where producto like" & "'" & TextBox1.Text & "%" & "'")
IF registro.Available = FALSE
Message.Info("No hay producto")
ELSE
ListBox1.Visible = TRUE
ListBox1.Clear
DO WHILE registro.Available
clave = registro["producto"]
ListBox1.Add(clave)
registro.MoveNext
LOOP
ENDIF
ENDIF
END
PUBLIC conexion AS Connection
PUBLIC registro AS Result
PUBLIC SUB Form_Open()
ME.Center
'ME.Show
conexion = NEW Connection
conexion.Type = "sqlite3"
conexion.Host = "/home/alejandro/base2"
conexion.Name = "pru"
TRY conexion.Open()
IF ERROR THEN
Message.Error("Error al conectar a la base de datos.")
Conexion = NULL
END IF
END
PUBLIC SUB Button2_Click()
registro = conexion.Create("prut")
registro["producto"] = TextBox2.Text
registro["codigo"] = TextBox3.Text
registro.Update
registro = conexion.Exec("select * from prut")
Message("dato guardado")
TextBox2.Clear
TextBox3.Clear
END
PUBLIC SUB TextBox1_Change()
DIM clave AS String
IF Len(TextBox1.Text) = 0 THEN
ListBox1.Clear
ListBox1.Visible = FALSE
ELSE
registro = conexion.Exec("SELECT * FROM prut where producto like" & "'" & TextBox1.Text & "%" & "'")
IF registro.Available = FALSE
Message.Info("No hay producto")
ELSE
ListBox1.Visible = TRUE
ListBox1.Clear
DO WHILE registro.Available
clave = registro["producto"]
ListBox1.Add(clave)
registro.MoveNext
LOOP
ENDIF
ENDIF
END
http://www.mediafire.com/?mjnjkmcfwme
haciendo caso del administrador buscador hosting externo para subir archivos
bueno espero que lo disfruten