Lú998
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 02/12/2005 13:40 hs
Oi Galera ! Alguem sabe alguma rotina / comando que mostre a estrutura e nomes dos campos de 1 tabela ? (não conteudo dos campos e sim o nome) Valeu ! Lú |
|
|
|
|
|
|
|
Postada em 02/12/2005 14:54 hs
Oi lu, li algo a respeito no site do Macoratti, de uma procurada com calma que você encontrará. |
|
|
|
|
|
Postada em 02/12/2005 21:50 hs
Se for Access, tem realmente alguns artigos la no site do macoratti mto bons sobre isso... pesquisa la... Mas se for SQL Server, olha isso: é só adaptar... Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/12/2005 08:07 hs
Private Sub sub_LancaCampos() Dim rsCampos As ADODB.Recordset
Set rsCampos = dbPrincipal.OpenSchema(adSchemaColumns)
'Pega os campos da tabela atual
Dim bPrimeiroCampo As Boolean 'Para lançar o primeiro campo no text do cboCampos
bPrimeiroCampo = True
Do Until rsCampos.EOF
If rsCampos!TABLE_NAME = pub_sTabela Then
cboCampos.AddItem Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
cboOrdem.AddItem Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
If bPrimeiroCampo = True Then
cboCampos.Text = Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
cboOrdem.Text = Right(rsCampos!COLUMN_NAME, Len(rsCampos!COLUMN_NAME) - 4) & " "
bPrimeiroCampo = False
End If
End If
rsCampos.MoveNext
Loop
rsCampos.Close
Set rsCampos = Nothing
End Sub Esta é uma rotina que uso num dos meus programas. Veja outros exemplos. Isto para MDB. |
|
|
|
