| Criando aplicações da base de dados de VB usando o controle do ADO |
 |
 |
|
Entretanto, o controle de dados não é uma ferramenta muito flexível porque poderia trabalhar somente com tipos limitados dos dados e deve trabalhar estritamente no ambiente básico visual. Nós podemos usar um controle de dados muito mais poderoso em VB sabido como o controle do ADO para superar estas limitações. O ADO está para objetos dos dados de ActiveX e enquanto o ADO ActiveX-é baseado, poderia trabalhar em plataformas diferentes (sistemas computatorizados diferentes) e em línguas de programação diferentes. Adicionalmente, poderia alcançar muitos tipos diferentes dos dados tais como os dados indicados nos browsers do Internet, no texto do email e mesmo nos gráficos à excepção da informação usual da base de dados relacional e non relacional.
Usam o controle de dados do ADO, você necessita introduzi-lo no toolbox e para fazer isto, pressionar simplesmente Ctrl+T para abrir a caixa de diálogo dos componentes e para selecionar o controle de dados 6 de Microsoft ActiveX. Após este somente, você pode proseguir construir suas aplicações ADO-baseadas da base de dados de VB.
O seguinte exemplo ilustrará como construir uma aplicação relativamente poderosa da base de dados usando o controle de dados do ADO e primeiramente de tudo, nomear o formulário novo como o frmBookTitle e mudar seu subtítulo à aplicação do ADO das telhas do livro. Secondly, introduzir o controle de dados do ADO e nomeá-lo como adoBooks e mudar seu subtítulo ao livro e seguinte, introduzir as etiquetas, as caixas de texto e as teclas de comando necessárias. A relação runtime deste programa é mostrada no diagrama abaixo e reserva adicionar e apagamento as well as atualizar e browsing dos dados.
|
| Etapas para construir a aplicação da base de dados usando o ADO
|
| Step1: As propriedades de todos os controles são alistadas como seguem:
|
| Form Name |
frmBookTitle |
| Form Caption |
Book Titles -ADOApplication |
| ADO Name |
adoBooks |
| Label1 Name |
lblApp |
| Label1 Caption |
Book Titles |
| Label 2 Name |
lblTitle |
| Label2 Caption |
Title : |
| Label3 Name |
lblYear |
| Label3 Caption |
Year Published: |
| Label4 Name |
lblISBN |
| Label4 Caption |
ISBN: |
| Labe5 Name |
lblPubID |
| Label5 Caption |
Publisher's ID: |
| Label6 Name |
lblSubject |
| Label6 Caption |
Subject : |
| TextBox1 Name |
txtitle |
| TextBox1 DataField |
Title |
| TextBox1 DataSource |
adoBooks |
| TextBox2 Name |
txtPub |
| TextBox2 DataField |
Year Published |
| TextBox2 DataSource |
adoBooks |
| TextBox3 Name |
txtISBN |
| TextBox3 DataField |
ISBN |
| TextBox3 DataSource |
adoBooks |
| TextBox4 Name |
txtPubID |
| TextBox4 DataField |
PubID |
| TextBox4 DataSource |
adoBooks |
| TextBox5 Name |
txtSubject |
| TextBox5 DataField |
Subject |
| TextBox5 DataSource |
adoBooks |
| Command Button1 Name |
cmdSave |
| Command Button1 Caption |
&Save |
| Command Button2 Name |
cmdAdd |
| Command Button2 Caption |
&Add |
| Command Button3 Name |
cmdDelete |
| Command Button3 Caption |
&Delete |
| Command Button4 Name |
cmdCancel |
| Command Button4 Caption |
&Cancel |
| Command Button5 Name |
cmdPrev |
| Command Button5 Caption |
&< |
| Command Button6 Name |
cmdNext |
| Command Button6 Caption |
&> |
| Command Button7 Name |
cmdExit |
| Command Button7 Caption |
E&xit |
|
|
Step2:
Controlam e para alcançar uma base de dados, você necessita conectar o controle de dados do ADO a uma lima de base de dados. Nós estamos indo usar BIBLIO.MDB que vem com VB6 e para conectar o ADO a esta lima de base de dados, seguimos as etapas abaixo:
a) Estalar sobre o controle do ADO no formulário e abri-lo então acima da janela das propriedades.
b) Estalar sobre a propriedade de ConnectionString, a seguinte caixa de diálogo aparecerá.
|
|
step3:
quando a caixa de diálogo aparece, selecionar a opção da corda da conexão do uso e a configuração seguinte, do clique e na caixa de diálogo da ligação de dados, dobro-Clique a opção etiquetada fornecedor OLE do DB do jato 3.51 de Microsoft.
|
|
Step4:
Após o esse, estalar a tecla seguinte para selecionar a lima BIBLO.MDB e você pode estalar sobre a conexão do texto para assegurar a conexão apropriada da lima de base de dados. APROVAÇÃO do clique para terminar a conexão.
Finalmente, estalar sobre a propriedade de RecordSource e ajustar o tipo do comando à tabela do adCmd e nome da tabela aos títulos e agora você deve realmente usar a lima de base de dados.
|
|
Step5:
Agora, você necessita escrever o código para todas as teclas de comando e depois do qual, você pode fazer o controle do ADO invisível.
|
|
Para a tecla de salvaguarda, os códigos do programa são como seguem:
|
Private Sub cmdSave_Click()
adoBooks.Recordset.Fields("Title") = txtTitle.Text
adoBooks.Recordset.Fields("Year Published") = txtPub.Text
adoBooks.Recordset.Fields("ISBN") = txtISBN.Text
adoBooks.Recordset.Fields("PubID") = txtPubID.Text
adoBooks.Recordset.Fields("Subject") = txtSubject.Text
adoBooks.Recordset.Update
End Sub
|
|
|
Para a tecla da adição, os códigos do programa são como seguem:
|
Private Sub cmdAdd_Click()
adoBooks.Recordset.AddNew
End Sub
|
|
|
Para a tecla da supressão, os códigos do programa são como seguem:
|
Private Sub cmdDelete_Click()
Confirm = MsgBox("Are you sure you want to delete this record?", vbYesNo, "Deletion Confirmation")
If Confirm = vbYes Then
adoBooks.Recordset.Delete
MsgBox "Record Deleted!", , "Message"
Else
MsgBox "Record Not Deleted!", , "Message"
End If
End Sub
|
|
|
Para a tecla do cancelamento, os códigos do programa são como seguem:
|
Private Sub cmdCancel_Click()
txtTitle.Text = ""
txtPub.Text = ""
txtPubID.Text = ""
txtISBN.Text = ""
txtSubject.Text = ""
End Sub
|
|
|
Para o precedente (<>
cmdPrev_Click secundário confidencial ()
|
Private Sub cmdPrev_Click()
If Not adoBooks.Recordset.BOF Then
adoBooks.Recordset.MovePrevious
If adoBooks.Recordset.BOF Then
adoBooks.Recordset.MoveNext
End If
End If
End Sub
|
|
|
Para (>) a tecla seguinte, os códigos do programa são
|
Private Sub cmdNext_Click()
If Not adoBooks.Recordset.EOF Then
adoBooks.Recordset.MoveNext
If adoBooks.Recordset.EOF Then
adoBooks.Recordset.MovePrevious
End If
End If
End Sub
|
|
Keywords:
Creating VB database applications using ADO,
visual basic applications,
how to database,
visual basic database,
ado ms access,
ado asp net,
visual basic ado,
ado connection string,
vb ms access,
visual basic using,
microsoft access ado,
microsoft access database,
ms access database,
asp net database,
ado sql server,
ado visual basic 6,
sql server database,
vb source code,
visual basic net applications,
visual basic vb,
using sql server,
using source code
|
