VB 6 -  Dicionário de verbos ingleses

Diz um ditado popular que recordar é viver. Recordando os bons tempos do Visual Basic 6 apresento neste artigo uma aplicação básica que consiste de um dicionário de verbos ingleses em seus tempos mais usados e no plural com opção de busca.

Na verdade eu hesitei em publicar o artigo  pela simplicidade da aplicação mas ela já vale pelo banco de dados contendo os verbos no seus diversos tempos. Então aproveite...

A interface é bem simples mas bastante funcional. Ela apresenta os verbos e dá ao usuário a opção de selecionar um grupo de verbos começados por uma determinada letra ou por um verbo específico.

Este projeto usa a vinculação de dados entre o Ado Data Control - ADODC e o controle DataGrid; isto reduz muito o código que você precisa criar.

Basta configurar as propriedades a seguir para o controle de dados Adodc1:

A seguir devemos definir a propriedade DataSource do controle DataGrid1 como sendo igual a Adodc1 que é o nosso controle de dados.

O código usado para efetuar o filtro dos verbos por uma determinada letra é dado a seguir. Basta o usuário clicar em qualquer um dos botões de comando indicados de A a Z e do botão Todos para que ele entre em ação. Note que os botões foram incluídos usando um array de controles onde o botão A obteve o índice 0 e botão B o índice 1 e assim por diante.

Private Sub Command1_Click(Index As Integer)

Select Case Index
    Case 0 To 24 'clicou em um dos botões de A a Z
      strSQL = "Select * from verb where present like '" & command1(Index).Caption & "%' " & "order by present"
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = strSQL
      Adodc1.Refresh
    Case 25
      strSQL = "Select * from verb"
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = strSQL
      Adodc1.Refresh
End Select

'vincula o ADODC ao Datagrid
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

End Sub

O código do evento Click do botão Procurar Verbo é dado a seguir. Ele usa o método Find do controle de dados para procurar por um verbo.  Para poder selecionar a linha encontrada no DataGrid estamos usando a propriedade SelBookMarks.

Private Sub Command2_Click()

On Error GoTo trataerro

Dim criterio As String

' remove os bookmark salvos anteriormente da coleção
If (DataGrid1.SelBookmarks.Count <> 0) Then
   DataGrid1.SelBookmarks.Remove 0
End If


' Solicita o criterio para busca
criterio = InputBox("Informe o VERBO que deseja localizar ", "Localizar")
If criterio <> "" Then
   Adodc1.Recordset.Find "present = '" & criterio & "'", , , 1
Else
   MsgBox " Criterio inválido, verifique... "
   Exit Sub
End If

' anexa o seu bookmark a coleção de de linhas selecionadas
DataGrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark
Exit Sub

trataerro:
    MsgBox "Registro Não localizado..." & vbCrLf & Err.Description

End Sub

É tudo isto que você precisa para por o sistema para rodar. Bons tempos...

Pegue o código completo do projeto aqui: verbos.zip

Nota: lembre-se de alterar a string de conexão se você instalar em uma pasta diferente de c:\verbos.

Para consultar outros artigos sobre o DataGrid e o Adodc veja os links abaixo:

VB - Paginando registros em um DataGrid
VB6 - DataGrid, MSFlexGrid e alguns conceitos básicos
VB6 - Usando os Controles Vinculados
Selecionando e destacando uma linha de um DataGrid
VB - Carregando dados em um MSFlexGrid e DataGrid
ADO - Básico e Prático I
Criando um DataGrid Vinculado ao um DataList
DataGrid - Preenchendo com dados
Usando ADO na prática - Adodc, DataGrid , DataCombo e MsChart.
VB6 - Usando os Controles Vinculados
Acesso a banco de dados

Até o próximo artigo VB ...

José Carlos Macoratti