USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pegar nome/numero de campo de tabela
Vity
CANOAS
RS - BRASIL
Postada em 15/03/2007 02:02 hs            
Ola!

Como pegar o numero de uma campo(dando o nome do campo) da tabela e como pegar o nome do campo dando o indice?

Valeu!

     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 15/03/2007 20:28 hs            
Bom, se vc passar o index do campo vc pega o nome assim:
 
Recordset(1).Name = Nome_do_campo
 
O inverso pelo q eu conheço é um pouco + difícil...pega esta dica:
 
 
e para saber o index por meio do nome do campo modifique para este jeito só pra vc ver:
 
...
Do While Not .EOF
  Set rs2 = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "" & rs!table_name & ""))
Do While Not rs2.EOF
  IF Recordset(rs2!COLUMN_NAME) = "NOME_CAMPO" Then
      Debug.Print "" & rs2!ORDINAL_POSITION 'INDEX DO CAMPO
  ENDIF
   'Debug.Print "" & rs2!Description
   'Debug.Print "" & rs2!ORDINAL_POSITION
   rs2.MoveNext
  Loop
  .MoveNext
Loop
...
 
 
qq dúvida postae
 
at+
TÓPICO EDITADO
   
Vity
CANOAS
RS - BRASIL
Postada em 16/03/2007 13:32 hs            
Já consegui. Abaixo o meu jeito...
'Pegar o campo tendo o ID
Dim Id As Integer
Dim Campo As String
'Informe o ID
Id = 1
'Abre o recordset somente com os campos, nenhum registro
rst.Open "SELECT * FROM TABELA WHERE 1 = 0"
'Pega o nome do campo
Campo = rst.Fields(Id - 1).Name
MsgBox "O campo de ID = " & Id & " é " & Campo
'==========================================


'Pega o ID tendo o nome
Dim i As integer, ID As integer
Dim Campo as string
'Informe o campo
campo = "SEU_CAMPO"
'Abre o recordset somente com os campos, nenhum registro
rst.Open "SELECT * FROM TABELA WHERE 1 = 0"
'Loop para ler os campos
For i = 1 To rst.Fields.Count
  'Verifica se o nome do campo é igual
  If rst.Fields(i - 1).Name = Campo Then
    ID = i
    Exit For
  End If
Next i
MsgBox "O ID do campo " & Campo & " é " & ID

Valeu
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página