Iniciar Sess�o

Select the product you need help with

PROBLEMA: Colunas est�o ordenadas alfabeticamente ao utilizar ADOX para obter colunas da tabela do Access

Artigo: 299484 - Ver produtos para os quais este artigo se aplica.

Ver isen��o de responsabilidades para tradu��o autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Expandir tudo | Reduzir tudo

Sintomas

Se utilizar a colec��o de ADOX cat�logos e o Microsoft OLE DB Provider for Jet para obter as colunas de uma tabela do Microsoft Access, as colunas s�o ordenadas alfabeticamente.

Voltar ao topo | Submeter coment�rios

Causa

OLE DB Provider 4.0 para o Jet obt�m colunas em ordem alfab�tica em vez de ordem de posi��o ordinal da coluna.

Voltar ao topo | Submeter coment�rios

Para contornar este problema, utilize controlador de ODBC para Microsoft Access em conjunto com OLE DB Provider para ODBC. Outros OLE DB fornecedores, tal como o fornecedor de OLE DB para SQL Server, n�o representar este problema.

Se tiver de utilizar OLE DB Provider for Jet, utilize o m�todo OpenSchema do objecto ADODB liga��o e ordenar o conjunto de registos resultante no campo ORDINAL_POSITION.

Voltar ao topo | Submeter coment�rios

Mais Informa��o

Passos para reproduzir o comportamento

Crie um novo projecto EXE padr�o no Visual Basic. � criado o Form1 por predefini��o.
No menu Project , clique em References e, em seguida, clique em Microsoft ActiveX Data Objects 2.1 e Microsoft ADO Ext. 2.1 for DDL and Security .
Adicione tr�s controlos CommandButton ao Form1.

Cole o seguinte c�digo para a sec��o Declarations do Form1:

Option Explicit

Dim cnn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column


Private Sub Command1_Click()
   Set cnn = New ADODB.Connection
   With cnn
      .Provider = "Microsoft.Jet.OLEDB.4.0;"
      .Open "Data Source=D:\Nwind.mdb;"
   End With
   Set cat = New ADOX.Catalog
   cat.ActiveConnection = cnn
   Set tbl = cat.Tables("Products")
   Debug.Print "Results using the OLEDB Provider and ADOX"
   For Each col In tbl.Columns
      Debug.Print col.Name
   Next
End Sub

Private Sub Command2_Click()
   Set cnn = New ADODB.Connection
   With cnn
      .Provider = "MSDASQL.1;"
      .Open "Driver={Microsoft Access Driver (*.mdb)};" & _
       "DBQ=D:\Nwind.mdb;"
   End With
   Set cat = New ADOX.Catalog
   cat.ActiveConnection = cnn
   Set tbl = cat.Tables("Products")
   Debug.Print "Results using the ODBC Driver and ADOX"
   For Each col In tbl.Columns
      Debug.Print col.Name
   Next
End Sub


Private Sub Command3_Click()
   Dim rsSchema As ADODB.Recordset
   Dim fld As ADODB.Field
   Dim rCriteria As Variant

   Set cnn = New ADODB.Connection
   With cnn
      .CursorLocation = adUseClient
      .Provider = "Microsoft.Jet.OLEDB.4.0;"
      .Open "Data Source=D:\Nwind.mdb;"
   
   End With

   Set rsSchema = cnn.OpenSchema(adSchemaColumns, _
        Array(Empty, Empty, "Products"))
   rsSchema.Sort = "ORDINAL_POSITION"
   Debug.Print "Results using the OpenSchema method"
   While Not rsSchema.EOF
      Debug.Print rsSchema!COLUMN_NAME
      rsSchema.MoveNext
   Wend
End Sub

Modificar as declara��es cnn.Open para apontar para um ficheiro de base de dados v�lido do Microsoft Access.
Execute o projecto e clique em Command1 . Tenha em aten��o que os nomes dos campos s�o ordenados por ordem alfab�tica quando utiliza o fornecedor de OLE DB.
Clique em Command2 . Note que os nomes dos campos aparecem na respectiva posi��o ordinal quando utiliza o controlador de ODBC.
Clique em Command3 . Note que os nomes dos campos aparecem na respectiva posi��o ordinal quando utiliza o fornecedor de OLE DB com o m�todo OpenSchema .

Voltar ao topo | Submeter coment�rios

Refer�ncias

Para mais informa��es, consulte os seguintes artigos da MSDN:

M�todo OpenSchema
http://msdn.microsoft.com/en-us/library/ms676705.aspx

(http://msdn.microsoft.com/en-us/library/ms676705.aspx)

objecto de tabela ADOX
http://msdn.microsoft.com/en-us/library/ms677529.aspx

(http://msdn.microsoft.com/en-us/library/ms677529.aspx)

Voltar ao topo | Submeter coment�rios

Propriedades

Artigo: 299484 - �ltima revis�o: quarta-feira, 3 de Dezembro de 2003 - Revis�o: 3.2

A informa��o contida neste artigo aplica-se a:

Microsoft Data Access Components 2.0
Microsoft Data Access Components 2.1
Microsoft Data Access Components 2.1 Service Pack 2
Microsoft Data Access Components 2.1 Service Pack 1
Microsoft Data Access Components 2.1 Service Pack 2
Microsoft Data Access Components 2.5
Microsoft Data Access Components 2.5 Service Pack 1
Microsoft Data Access Components 2.6

kbmt kbjet kbprb KB299484 KbMtpt

Tradu��o autom�tica

IMPORTANTE: Este artigo foi traduzido por um sistema de tradu��o autom�tica (tamb�m designado por Machine translation ou MT), n�o tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplica��es (MT) e artigos traduzidos por tradutores profissionais. O objectivo � simples: oferecer em Portugu�s a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradu��o autom�tica n�o � sempre perfeita. Esta pode conter erros de vocabul�rio, sintaxe ou gram�tica? erros semelhantes aos que um estrangeiro realiza ao falar em Portugu�s. A Microsoft n�o � respons�vel por incoer�ncias, erros ou estragos realizados na sequ�ncia da utiliza��o dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualiza��es frequentes ao software de tradu��o autom�tica (MT). Obrigado.

Clique aqui para ver a vers�o em Ingl�s deste artigo: 299484

(http://support.microsoft.com/kb/299484/en-us/ )

Voltar ao topo | Submeter coment�rios