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 :

- 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...