Hola Amigos aqui les traigo mi primer proyecto..! Espero que les ayude y les guste..!
Bueno me precento Soy José Chen de la ciudad de Panamá tengo 19 años y curso el primer año de Ing. Sistemas Informaticos. Me gusta la programacion ya que es mas que nada saber conocimientos y saber pensar un poco...!!
Aqui les dejo mi primer programa..!
Lo que hace este programa es Agregar un nombre y una edad y mostrarla en un ColumnView..!
Requisitos
- gambas 2 "Obviamente"
- Base de Datos MySql ( pueden crearla desde www.freesql.org )
Instrucciones
Creamos un nuevo proyecto en gambas y agregamos:
textbox con el nombre "nombre"
Combobox con el nombre "edad"
Button con el nombre "Agregar"
ColumnView lo dejamos con su mismo nombre "ColumnView1"
Les Agregan tambien si decean label para saber lo que la persona debe poner..! Quedaria asi
Codigo
PUBLIC cn AS Connection ''Declaracion de Variable para la coneccion
PRIVATE FUNCTION coneccion(query AS String) AS Result ''Funcion para conectar base de dato y ejecutar una sentencia
DIM res AS Result
cn = NEW Connection
cn.close
cn.Type = "mysql"
cn.Host = "FreeSQL.org"
cn.User = "gambas"
cn.Password = "gambas"
cn.Name = "nombreyedad"
cn.Open
res = cn.Exec(query)
RETURN res
END
PRIVATE SUB colvie() ''es un tipo de funcion pero no retorna valor es para cargar los datos a la ColumnView
DIM res AS Result
DIM i AS Integer
ColumnView1.Clear ''Borra todos los datos de ColumnView1
ColumnView1.Columns.Count = 2 ''Creo dos Columnas
ColumnView1.Columns[0].Text = "Nombres" ''Le Agrego un nombre a la columna 0
ColumnView1.Columns[0].Width = 200 '' Ancho de la Columna
ColumnView1.Columns[0].Alignment = 3 ''Aliniamiento al Centro
ColumnView1.Columns[1].Text = "Edad"
ColumnView1.Columns[1].Width = 50
ColumnView1.Columns[1].Alignment = 3
res = coneccion("select * from nombreyedades order by edad") ''Llamo a la funcion coneccion y envio la sentencia
FOR i = 0 TO res.Count - 1 STEP +1 ''Sistema de repeticion para agregar los datos a la columna
ColumnView1.Add(i, res!nombre)
ColumnView1[i][1] = res!edad
res.MoveNext
NEXT
cn.Close ''Cierro la coneccion
END
PUBLIC SUB Form_Open()
DIM i AS Integer
colvie() ''Cargo los datos a la ColumnView1
FOR i = 10 TO 90 STEP +1 ''Ciclo para la edad del 10 al 90
edad.Add(i)
NEXT
END
PUBLIC SUB Agregar_Click() ''Boton de Agregar el Nombre y la Edad
DIM query AS String
DIM valor AS Boolean
query = "insert into nombreyedades value('" & nombre.text & "','" & edad.text & "')"
coneccion(query)
Message.Info("El Nombre y La Edad Fueron Agregados Correctamente ", "Aceptar")
nombre.Text = ""
edad.text = ""
colvie()
END
Aqui les dejo el Proyecto con la Base de datos ya Conectada
Bajar Codigo
Espero que les Ayude y Mucha Suerte....!!