VB6 - DataGrid - Exibindo o conteúdo da célula selecionada.

Vou mostrar como exibir o contéudo de uma célula selecionada em um controle DataGrid . Lembre-se que o DataGrid é um controle da versão 6.0 do Visual Basic e deve ser usado vinculado com um controle ADO Data Control (ADODC).

Eu vou exibir os dados da tabela Authors do banco de dados Biblio.mdb que esta no diretório c:\teste. Quando o usuário clicar com o mouse em uma célula do grid o contéudo da mesma será exibido em um msgbox.

- Inicie um novo no projeto padrão EXE no VB e insira os componentes : Microsoft DataGrid Control e Microsoft ADO Data Control.

- No formulário padrão insira um controle DataGrid , um controle ADODC e um botão de comando , conforme abaixo:

O código do evento Load do formulário. Private Sub Form_Load() Dim database_file As String ' Realiza a conexão do ADODC ao banco de dados adodcAutores.ConnectionString = _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:\teste\biblio.mdb;" adodcAutores.RecordSource = "SELECT * FROM Authors _ ORDER BY Au_ID" ' vincula o ADODC ao Datagrid Set grdTeste.DataSource = adodcAutores End Sub

- O código do evento Load do formulário faz o seguinte :

• Define a String de conexão para o controle ADODC - adodcAutores.
• A seguir define o recordsource com a instrução SQL que seleciona todos os autores ordenados por codigo(Au_Id). Vinculando finalmente o recordsource ao DataGrid - grdTeste.

- O código associado ao botão de comando que exibe o contéudo da célula selecionada:

Private Sub cmdSeleciona_Click()
' exibe o valor da célula atual
  MsgBox "Celula(" & grdTeste.Row & ", " & grdTeste.Col & ") " & _
     vbCrLf & grdTeste.Text, vbInformation, "Exibindo o conteúdo da célula selecionada."
  grdTeste.SetFocus
End Sub

- Execute o projeto , selecione uma célula e clique no botão para exibir a célula e o seu conteúdo:

Até a próxima... Bye...