Cum se utilizează ADODC în Visual Basic

ADO (Active Data Objects) din Controlul Datelor (ADODC) este o nouă metodă adăugată în Visual Basic 6.0.

Pasul 1

Faceți clic dreapta pe programul Visual Basic 6.0 și selectați "Run as Administrator". Începeți un nou proiect făcând clic pe "Fișier" și apoi pe "Proiect nou". Selectați șablonul "Date de proiect" din listă.

Pasul 2

Faceți dublu clic pe "frmDataEnv" care este afișat în lista "Data Project" din partea dreaptă. Plasați un control de date ADO pe formular, faceți dublu clic pe controlul ADODC din caseta de instrumente din partea stângă a ecranului.

Pasul 3

Configurați o conexiune la o bază de date existentă, faceți clic pe controlul ADODC aflat acum în formular selectând "Proprietăți ADODC". În pagina de proprietăți, asigurați-vă că este selectată opțiunea "Utilizare conexiune șir" și faceți clic pe "Construiți". Urmați pașii care apar, care vă vor ajuta să alegeți tipul de date pe care doriți să îl utilizați, unde să găsiți baza de date pe computer și dacă doriți sau nu să utilizați o parolă.

Pasul 4

Faceți clic pe "Testare conexiune" situat în dialogul "Conexiune" în proprietățile link-ului de date, atunci când toate informațiile de la pasul 3 a fost finalizată. Dacă conexiunea nu reușește, reveniți și revizuiți scenariile alese pentru a vă conecta la baza de date.

Pasul 5

Plasați două butoane de comandă pe fmDataEnv dând dublu clic pe butonul din cutia de instrumente și apoi făcând-o din nou. Schimbați numele unui buton la "cmdAddNewRecord" și subtitrarea la "Add New Record". Schimbați numele celuilalt buton la "cmdDeleteRecord" și titlul la "Ștergeți înregistrarea".

Pasul 6

Faceți dublu clic pe "cmdAddNewRecord" și introduceți codul între începutul și sfârșitul rutinei: "Adodc1.Recordset.AddNew". Faceți același lucru pentru butonul "cmdDeleteRecord" cu acest cod: "Adodc1.Recordset.Delete" (nu includeți perioada de la sfârșitul acestui cod).

Pasul 7

Scrieți codul pentru a avea grijă de ce ar trebui să se întâmple când utilizatorul face clic pe una din opțiunile de la pasul 6: Private Sub Form_Load () Adodc1.Recordset.ActiveConnection.BeginTrans Sfârșit Sub Sub Privat Sub Form_Unload (Anulare ca Integer) Dacă MsgBox ("Acceptați modificările de registru?", VbYesNo) = vbYes Apoi Adodc1.RecordSet.ActiveConnection.CommitTrans Else Adodc1.Recordsete.ActiveConnection.RollbackTrans Sfârșit Dacă Sfârșitul Sub

Pasul 8

Încheie configurația ADODC adăugând etichete și controale TextBox în formular pentru a crea un mecanism pentru ca un utilizator să poată adăuga sau șterge înregistrări. Controalele specifice vor depinde de nevoile bazei de date. Uită-te la imagine pentru a vedea un exemplu de cum va arăta.