Quase todos os programas de computador útil requerem um banco de dados de algum tipo. Microsoft reconheceu este fato desde o início e fez o motor de banco de dados Microsoft Access disponíveis para uso com programas desenvolvidos em Visual Basic , começando com VB 3. Um programa de VB 6 pode usar o Mecanismo de banco de dados Access através de um componente chamado de " Microsoft Data Access Objects " ou DAO . Utilizando este componente, você pode consultar , inserir, atualizar e excluir do banco de dados de acesso. Coisas que você precisa
Visual Basic 6.0
Microsoft Access ( Office 97 ou posterior)
Microsoft Data Access Objects (download gratuito em Microsoft.com )
Mostrar Mais instruções
1
Inicie um novo projeto standard EXE no Visual Basic 6 ( VB) , iniciando VB e selecionando " standard EXE " na janela novo projeto que aparece. Sob o menu Project , selecione "Referências ". Na lista de referências disponíveis , localize a entrada "Microsoft DAO Object Library xxx ", onde xxx é o número da versão ( 3.6 por exemplo). Clique na caixa de seleção ao lado da entrada e clique em OK.
2
Abra o banco de dados Access. Para fazer isso, dimensionar um objeto do tipo de banco de dados . Por exemplo :
Dim db como Database
Em seguida, use o espaço de trabalho padrão para abrir um arquivo de banco de dados. Por exemplo :
Set db = Workspaces (0) OpenDatabase . ("C: \\ temp \\ congress.mdb " )
O objeto db é agora um banco de dados totalmente inicializado pronto para ser consultado ou atualizado.
3
Abra um conjunto de registros do banco de dados e percorrer os registros. Para fazer isso, dimensionar um objeto Recordset e use o objeto de banco de dados para inicializar ele :
Dim rs como RecordsetSet rs = DB.OpenRecordSet ( " Cong105 " , dbOpenDynaset )
Neste exemplo, o mesa " Cong105 " está sendo aberto como um Dynaset . A Dynaset neste caso significa que o conjunto de registros será atualizável - os registros podem ser adicionados, atualizados e excluídos. Um conjunto de registros também pode ser aberto como dsOpenReadOnly , tornando o conjunto de registros de leitura only.The registros sendo aberto não tem que ser a tabela inteira. Uma instrução SQL (Structured Query Language) pode ser usado para abrir apenas um subconjunto da tabela . Por exemplo :
Set rs = DB.OpenRecordSet ( "SELECT * FROM cong105 onde home_state = 'NEW YORK ' " , dbOpenDynaset )
Isto irá consultar a tabela de Cong105 apenas para os registros com uma estado natal, o "New York ". Percorrer o conjunto de registros e ler os valores usando os métodos do conjunto de registros MoveNext e EOF . Por exemplo, se o formulário tem uma caixa de texto chamada Text1 (com o conjunto de propriedades de várias linhas para verdadeiro e barras de rolagem para definir Vertical ) :
Text1.Text = "" While Not rs.EOFText1.Text = Text1.Text & ; ! rs Título & "" ! & rs Fname & "" & rs LName & vbCrLfrs.MoveNextWend
4
Adicionar um registro de um conjunto de registros usando os métodos AddNew e atualização . Chame o método AddNew para criar um registro vazio no conjunto de registros . Defina os valores para os campos do registro vazio e , em seguida, chamar o método Update para salvar esses novos valores. Por exemplo : !
Rs.AddNewrs FNAME = rs "Teste" LName = " último teste " rs Atualização
5
Atualizar um registro existente usando os editar e atualizar métodos. Chame o método Edit para colocar o registro atual em modo de edição. Defina os valores dos campos e , em seguida, chamar o método Update para salvar as alterações . Por exemplo : !
Rs.Editrs LName = rs LName & " . Jr " rs Atualização
