 |
ADO i VB6
Man kan med fördel använda ADO i VB 6.0 istället för DAO.
Följande förberedelser behövs för exemplet:
Databasen
- Skapa en databas i Access 97 eller (helst) 2000
| Namn: | C:\adotest.mdb | |
| Tabell: | ado | |
| Fälten | ID | AutoNumber (primary key) |
| | EnText | Text, 50 |
| | EttDatum | Date/Time |
| | EttNummer | Number, Long Integer |
| | EnMemo | Memo |
- Skriv in minst fem rader i denna tabell
Skapa VB programmet
- Skapa ett program i VB 6.0
| Programtyp | Standard Exe | |
| Project Name | prjADO |
| Form | Name | frmADO |
| | Caption | Ado Databaser |
- Sätt in fyra TextBoxar i formen
| Första textboxen | Name | txtEnText |
| Andra textboxen | Name | txtEttDatum |
| Tredje textboxen | Name | txtEttNummer |
| Fjärde textboxen | Name | txtEnMemo |
| | MultiLine | True |
- Sätt in en Command Button i formen
| | Name | cmdNavigera |
| | Caption | Först |
- Välj cmdNavigera knappen och tag en kopia med t.ex. Ctrl+C
- Tryck Ctrl+V
- När VB frågar "Do You want to create a control Array" svarar du Ja
- Kopiera in tre kopior av knappen. Se till att dessa placeras in på formen från vänster till höger
- Sätt Caption på knapparna till "Först", "Föregående", "Nästa" och "Sist" med början från vänster
- Sätt in en Label på formen och ge den namnet lblStatus
- Välj sedan i menyn: Project, References och se
till att Microsoft ActiveX Data Objects 2.x Libray är valt. Bäst fungerar
programmen om man installerat VB:s servicepack 4.
Versionsnumret är då 2.5 på ADO. Version 2.1 duger dock.
(Finns det bara 2.0 som senaste version borde du fundera på att uppdatera systemet.
En nyare version av ADO kan fås på adressen http://www.microsoft.com/data/download.htm)
- Spara programmet på lämpligt ställe
|
|
ADO
Top
ADO