Criando aplicações da base de dados em VB |
|
|
Introdução breve aos usos de bases de dados do acesso
|
O que eu penso é a coisa compelindo sobre básico visual é ele é maneira fácil de modificar e de alcançar bases de dados. Este é o que eu penso que você deve aprender em seguida e você encontrará muitas aplicações para este conhecimento. Sem usar uma base de dados para o armazenamento de dados, eu quase nunca faço o programa.
Há muitas maneiras trabalhar com as bases de dados em básico visual, e eu pensaria que você pelo menos olhou de relance para o controle de dados e desde que é assim fácil se usar e limitado demasiado para ser interessante para um colaborador profissional, não mencionasse mesmo o controle de dados mais mais neste texto. (Aprovado, há algumas exceções a este.)
O que eu lhe ensinarei que se usar neste texto é DAO (dados alcança objetos) e você começará familiar com abrir uma base de dados e adicionar/recuperar/suprimir/que atualiza grava das tabelas. Eu usarei somente uma base de dados do acesso (*.mdb) em meus exemplos e desde que este é o DBMS o mais usado (sistema de gerência da base de dados) para as aplicações menores feitas em básico visual. Nós vontade no fim desta lição fizemos um simples no entanto funcional, aplicação do livro de telefone.
|
Objeto da base de dados
|
A primeira coisa que você deve fazer em sua aplicação é abrir uma base de dados onde suas tabelas sejam armazenadas e você necessite declarar uma variável para prender sua base de dados a fim fazer isto. Isto é feito com seguinte indicação:
|
|
Isto dá-lhe um objeto/variável que possam prender uma referência a sua base de dados. Para abrir uma base de dados simples do acesso nomeada “MyDatabase.mdb” e para fazer isto:
|
Set dbMyDB = OpenDatabase("MyDatabase.mdb")
|
|
Você deve realmente especificar o trajeto completo ao DB e se seu diretório atual for o diretório onde a base de dados situated, esta trabalhará.
Assim, você tem aberto agora uma base de dados e esta não lhe dará nenhuns dados. O que você necessita fazer é abrir uma tabela na base de dados própria. Você não é limitado para abrir uma única tabela e às vezes você tem dois ou mais tabelas que são relacionadas a se e às chaves extrangeiras junto ligadas do ith de w, e há umas maneiras segurar
|
Objeto de RecordSet
|
Para prender sua tabela, os usos básicos visuais um objeto chamaram RecordSet. Para declarar tal objeto e para abrir a tabela, escrever a seguinte indicação:
|
Dim rsMyRS As RecordSet
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)
|
|
Que aconteceu lá? Bem, eu declarei um objeto de RecordSet e usei o método de OpenRecordSet do objeto da base de dados abrir uma tabela do tipo Dynaset e você pode abrir um RecordSet em diversas modalidades. A lima em linha da ajuda de VB explica as modalidades diferentes e que elas o ar e para. A modalidade de Dynaset é a modalidade que eu me uso na maior parte e dá-lhe um RecordSet em que você possa adicionar, suprimir e modificar registros.
|
Registros de acesso
|
Agora que nós abrimos uma tabela (consultada como a RecordSet de agora sobre) que nós queremos alcançar os registros nele e o objeto de RecordSet permite que nós movam-se nele usando os métodos MoveFirst, MoveNext, MovePrevious, MoveLast (entre outros). Eu usarei alguma destes encher acima uma caixa de lista com os registros de nosso RecordSet.
Para começar este exemplo trabalhar, fazer uma base de dados (com acesso) “MyDatabase.mdb chamado” com a tabela “MyTable” nela e esta tabela deve ter os campos “ID” do tipo esse “contrário” você ajustado para ser a chave preliminar, o campo “nome” do tipo texto e um campo de “pedra de afiar P” do tipo texto. Adicionar-lhe alguns registros e pôr uma caixa de lista sobre um formulário e chamá-la “lstRecords”.
|
Dim dbMyDB As Database
Dim rsMyRS As RecordSet
Private Sub Form_Load()
Set dbMyDB = OpenDatabase("MyDatabase.mdb")
Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)
If Not rsMyRS.EOF Then rsMyRS.MoveFirst
Do While Not rsMyRS.EOF
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS.MoveNext
Loop
End Sub
|
|
Procurarando o RecordSet
|
Você pôde ter querido saber porque eu pus o valor do campo “ID” na propriedade de ItemData de caixa de lista e eu fiz este de modo que nós soubéssemos a chave preliminar para todos os registros a fim procurarar por um registro.
Pôr uma caixa de texto em algum lugar sobre o formulário e chamá-la “txtPhone”. Copí então o seguinte código ao projeto.
|
Private Sub lstRecords_Click()
rsMyRS.FindFirst "ID=" & Str(lstRecords.ItemData(lstRecords.ListIndex))
txtPhone.Text = rsMyRS!Phone
End Sub
|
|
Atualizando a base de dados
|
Ao fazer a base de dados que programa, você quererá provavelmente atualiza algum valor de algum campo. Isto é feito com edita e atualiza e nós tentaremos mudar o valor do campo do “telefone” editando o texto na caixa de texto e estalando uma tecla.
Pôr uma tecla de comando sobre o formulário e nomeá-la “cmdUpdate”. Copí então o seguinte código ao projeto
|
Private Sub cmdUpdate_Click()
rsMyRS.Edit
rsMyRS!Phone = txtPhone.Text
rsMyRS.Update
End Sub
|
|
Suprimindo e adicionando registros
|
Suprimir
|
Suprimir registros não poderia ser mais simples e suprimir o registro que atual você invoca apenas o método da supressão do objeto de RecordSet. Nós poremos esta característica em nosso projeto pequeno e fazer uma mais tecla de comando nomeada “cmdDelete” e o seguinte código fará o trabalho de suprimir nossa pessoa atualmente selecionada.
|
Private Sub cmdDelete_Click()
rsMyRS.Delete
lstRecords.RemoveItem lstRecords.ListIndex
End Sub
|
|
Adição
|
Adicionar registros é bem como updateing, a não ser que você use AddNew em vez de edite e vamos adicionar uma mais tecla de comando a nossa aplicação. Vamos chamá-la… o errh… deixou-me ver… o yea! “cmdNew” =). Está aqui o código que adiciona um registro novo.
|
Private Sub cmdNew_Click()
rsMyRS.AddNew
rsMyRS!Name = "A New Person"
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS!Phone = "Person's Phone Number"
rsMyRS.Update
End Sub
|
|
Keywords:
Creating database applications in VB,
visual basic applications,
visual basic database,
how to database,
vb source code,
visual basic vb,
vb ms access,
visual basic net applications,
microsoft access database,
ms access database,
asp net database,
sql server database,
connect to database,
vb asp net,
vb array,
database tutorial,
text creating,
xml database,
asp database,
php database,
c# database
|