seguinte, tenho uma pesquisa em sql server...

estou abrindo o banco de dados:

 

dim db as new adodb.connection

dim rs as new adodb.recordset

 

db.open "string"

rs.open "select * from cad_clientes order by nome

 

seguinte, tenho varios campos dentro da tabela de clientes, mas nao estou conseguindo fazer com que um dbgrid ou o datagrid apresente estes dados depois de efetuada a pesquisa acima.

precisaria somente de alguns campos exibindo nesta tabela, nao todos os campos da tabela, tipo assim:

-------------------------------------------------------------------------------

codigo |   nome                          | telefone       |     data de nascimento

-------------------------------------------------------------------------------

 

estes sao apenas alguns campos da tabela, como eu faço para depois de efetuada a pesquisa acima, apresentar o resultando em um dbgrid ou em um datagrid...

 

se alguem souber eu agradeço...

valeu

Dê uma olhada:

 

ninguem sabe?????

pessoal, sera que alguem sabe pelo menos aonde acho um exemplo?????

gente nao consigo encontrar nada a respeito de abrir os dados em um datagrid....

alguem por favor, tem algum exemplo que pode me mostrar, ou alguem sabe como proceder neste caso...

 

uso vb6 e sql server 2000

Juninho,

Quanto aos campos vc pode escolher os campos que voce quer exibir no seu comando sql.

rs.open "select codigo, nome, telefone, data_de_nascimento from clientes"

Para preencher o grid vc precisara de uma rotina q faça isso pra vc.

segue exemplo.

 

Para esse exemplo estou usando o MSFlexGrid

 

Public Sub pPreencherGrid(pNomeGrid As MSFlexGrid, pSQL As String)
Dim linha As Long
Dim coluna As Long
Dim registro_mysql As New ADODB.Recordset

registro_mysql.CursorLocation = adUseClient
registro_mysql.Open pSQL, conexao_mysql, adOpenKeyset
'preencher titulo das colunas.
    pNomeGrid.Cols = registro_mysql.Fields.Count
    pNomeGrid.Rows = 1
    For coluna = 0 To (registro_mysql.Fields.Count - 1)
        pNomeGrid.TextMatrix(0, coluna) = registro_mysql.Fields(coluna).Name
    Next

If registro_mysql.RecordCount > 0 Then
        'preencher valores
        registro_mysql.MoveMin
            For linha = 1 To registro_mysql.RecordCount
            pNomeGrid.Rows = pNomeGrid.Rows + 1
                For coluna = 0 To (registro_mysql.Fields.Count - 1)
                pNomeGrid.TextMatrix(linha, coluna) = IIf(IsNull(registro_mysql.Fields(coluna).Value), "", registro_mysql.Fields(coluna).Value)
                Next

            registro_mysql.MoveNext
            Next
End If
registro_mysql.Close
End Sub