HelloData: um aplicativo ADO simples
Esse aplicativo simples percorre cada uma das quatro principais operações do ADO: obtenção, exame, edição e atualização de dados. Essas operações são realizadas com o banco de dados de exemplo da Northwind incluído no SQL Server. Para se concentrar nos conceitos básicos do ADO e evitar bagunça no código, o tratamento de erros no exemplo é mínimo.
Para executar HelloData
Crie um novo projeto Standard EXE Visual Basic que referencie a biblioteca ADO. Para saber mais, confira Referenciando as bibliotecas ADO.
Crie quatro botões de comando na parte superior do formulário, definindo as propriedades Name e Caption com os valores mostrados na tabela no final deste tópico.
Abaixo dos botões, adicione um Controle Microsoft DataGrid (Msdatgrd.ocx). O arquivo Msdatgrd.ocx está incluído no Visual Basic e está localizado no diretório \windows\system32 ou \winnt\system32. Para adicionar o controle DataGrid ao painel de caixas de ferramentas do Visual Basic, selecione Componentes... no menu Projeto. Em seguida, marque a caixa ao lado de "Microsoft DataGrid Control 6.0 (SP3) (OLEDB)" e clique em OK. Para adicionar o controle ao projeto, arraste o controle DataGrid da Caixa de Ferramentas para o formulário do Visual Basic.
Crie uma TextBox no formulário abaixo da grade e defina suas propriedades conforme mostrado na tabela. O formulário deve ser semelhante à figura a seguir quando você terminar.
Por fim, copie o código listado no Código HelloDatae cole-o na janela do editor de código do formulário. Pressione F5 para executar o código.
Observação
No exemplo a seguir e em todo o guia, a ID de usuário "MyId" com a senha "123aBc" é usada para autenticar no servidor. Você deve substituir esses valores por credenciais de logon válidas para o servidor. Além disso, substitua o valor "MySQLServer" pelo nome do servidor.
Para obter uma descrição detalhada do código, confira Comentários no HelloData.
| Tipo de Controle | Propriedade | Valor |
|---|---|---|
| Formulário | Nome | Form1 |
| Altura | 6500 | |
| Width | 6500 | |
| MS DataGrid | Nome | grdDisplay1 |
| TextBox | Nome | txtDisplay1 |
| Várias linhas | true | |
| Botão de comando | Nome | cmdGetData |
| Legenda | Obter dados | |
| Botão de comando | Nome | cmdExamineData |
| Legenda | Examinar dados | |
| Botão de comando | Nome | cmdEditData |
| Legenda | Editar Dados | |
| Botão de comando | Nome | cmdUpdateData |
| Legenda | Atualizar dados |