https://foro.gambas-es.org/viewtopic.php?f=3&t=6057&p=36486#p36486
-----------------------------------
SafeMango
Viernes, 30 Diciembre 2016, 01:57

Re: Crear Base De Datos SQL Desde Conexiones En Gambas 3
-----------------------------------
Ay pude crear la base de datos y ademas pude visualisarla en un GridView
1) Lo primero que hice fue crear dos variables xcon xresClientes en el modulo Var
Public xcon As Connection
Public xresclientes As Result

2) luego me conecte a la base de datos que cree en conecciones

Public Sub conectarBdClientes()
  
  Var.xcon = Connections["Connection1"]
  Var.xcon.Open() 
  If Var.xcon = Null Then 
     Message.error("Error al intentar conectarse a la base de datos")
  Endif
  
End

3) y por ultimo mostre los datos de la base de dato en un gridview

Public Sub MostrarClientes()
  Dim c As Integer
  Var.xresclientes = Var.xcon.Exec("select * from Clientes") [color=#00ff00]'Clientes es el nombre de mi tabla de datos en Connect[/color]ion1
  FMain.GvClientes.Rows.Count = Var.xres.Count
  For c = 0 To Var.xres.Count - 1
    With FMain
      
      .GvClientes[c, 0].Text = Var.xresclientes["Rubro"] 'Rubro, Nombre, Direccion, Celular son titulos de columnas de la tabla Clientes
      .GvClientes[c, 1].Text = Var.xresclientes["Nombre"]
      .GvClientes[c, 2].Text = Var.xresclientes["Direccion"]
      .GvClientes[c, 3].Text = Var.xresclientes["Celular"]
    End With
    Var.xres.MoveNext 'hace que se proceda a la siguiente fila en la tabla Clientes
  Next
   FMain.GvClientes.Refresh
        
End


