LISTANDO TODOS OS FIELDS DO MYSQL
Olá para todos. Estou tendo problemas, preciso carregar todos os FIELDS de uma tabela do mysql. Só os fileds em um combo para poder efetuar uma busca, do campo que selecionar. Isto é possÃvel?
Sim é.
Se vc utilizar um loop no objeto Recordset...
Acredito que funcione independente da forma de acesso (ADO,DAO)
Se vc utilizar um loop no objeto Recordset...
For x = 0 To UBound(rs.Fields)
Combo1.AddItem rs.Fields(x).Name
Next x
Acredito que funcione independente da forma de acesso (ADO,DAO)
Olá, CLINS, mas porque ele exibe erro, na área do UBound, expect array?
Pergunta besta...
O recordset está configurado e povoado registros, ou seja , aberto ?
O recordset está configurado e povoado registros, ou seja , aberto ?
Claro. Ele não está close
OK!
Neste caso tente :
Estou sem o VB aqui agora mas creio que funcionará
Neste caso tente :
For x = 0 To rs.Fields.Count
Combo1.AddItem rs.Fields(x).Name
Next xEstou sem o VB aqui agora mas creio que funcionará
Po cara desculpe ai mas mude o código de :
para :
senão vai dar um erro.
Foi mal.
Citação:For x = 0 To rs.Fields.Count
Combo1.AddItem rs.Fields(x).Name
Next x
para :
For x = 0 To rs.Fields.Count -1
Combo1.AddItem rs.Fields(x).Name
Next xsenão vai dar um erro.
Foi mal.
é agora eu vi as mudanças, funciona perfeitamente
Obrigado. Ponto para você.
Obrigado. Ponto para você.
Tópico encerrado , respostas não são mais permitidas