https://foro.gambas-es.org/viewtopic.php?f=3&t=4618&p=26479#p26479
-----------------------------------
v3ctor
Viernes, 15 May 2015, 22:17

Re: Como Detectar Primary Key En Tabla?
-----------------------------------
al final quedo asi mostrando un icono cuando es primary key


Public Sub RegistrosCampos()
  Dim campo As Field
  Dim tabla As Table
  [b][color=#00FF7F]Dim CamposPK As String[]
  Dim NomCampo As String[/color][/b]
  
  QueTablas = ListaCampos.Current.Text
  SentenciaSQL = "select " & QueTablas & " from " & NombreTabla 
  txtSql.Text = SentenciaSQL
  
  For Each tabla In Conexion.Tables
       If tabla.Name = NombreTabla Then
         [b][color=#00FF72]CamposPK = tabla.PrimaryKey[/color][/b]
         For Each campo In tabla.Fields
           If campo.Name = ListaCampos.Current.Text Then
              [b][color=#00FF3F] For Each NomCampo In CamposPK
                 If NomCampo = campo.Name Then
                    PicbPK.Visible = True
                 Else
                    PicbPK.Visible = False
                 Endif[/color][/b]
               Next
              LabLargo.Text = "Largo: " & campo.Length
              typeEs(campo.Type)
              
           Endif
        Next
     Endif
  Next
  
End


 [img]http://foro.gambas-es.org/files/images/2261/9988.png[/img]

Print tabla.PrimaryKey   cuando puse esto y me dio este resultado:

([b][color=#E50000]String[][/color][/b] 0xa405fa4)

era obvio que retornaba un string[]  y no un string  (un array de cadena y no una cadena)

pero no me daba cuenta jajaj :roll:


