Hvordan opretter jeg et program (*.exe) i VB, som kan bruges som database?
Det skal bl.a. bruges som et slags
- adressekartotek til Internet-udbydere, firmaer som vi køber hos, firmaer som vi sælger til - adressebog med navne, lokale tlf.numre, afdelinger m.m. - kartotek over ip-adresser, harddiskstørrelse, installeret RAM .... - og meget andet
Jeg vil også have menuer:
- de gængse \"Filer\" - \"Rediger\" \"Vis\" o.s.v. - en \"Adresser\"-menu, hvor jeg kan vælge de ovenstående kategorier
Der skal også være værktøslinier med de muligheder der er i visual basic:
Først skal man oprette en database i Access eller en andet program(i VB6 Datamaneger). bagefter kan man lave en interface i VB for at henter de forskelige recorder fra databasen. Du kan bruge Datakontrol.
Hvis du stadig er hook på en visualbasic løsning så gør dette:
1. Opret en tabel med de ønskede værdier, felter, osv. Dette kan evt. gøres i Access, eller et lign. database program. Der ligger et program med VB som hedder VisData.
Den nemme løsning er nu at vælge data-kontrollen. Med denne kan du bevæge dig rundt i databasen. Opret data-kontrol (vælg data-værktøjet i værktøjskassen og maker et omrids så kontrollen kommer frem)
Vælg data-kontrollens DATABASENAME-property og dobbeltklik på denne. Vælg din database som du har lavet (hedder DIN_DATABASE.mdb i den mappe hvor du har gemt tabelen) I propertien Recordsource kan du indstille hvor og hvad denne funktion skal køre imellem.
Her er den svære måde at få forbindelse til en database:
Dim db as DataBase Dim rs as Recordset Dim td as Tabledef Dim fl as Field
Set db = workspaces(0).OpenDatabase(STI & DATABASENAVN) Set rs = db.openrecord(\"TABELLENS RECORD\", dbOpenTable)
Nu har du fat i databasen og i en tabel.
Her er følgende kommandoer du kan bruge: AddNew - tilføjer ny, tom record som så kan udfyldes. Edit - Klargører en aktuel record til ændring Update - Opdaterer tabellen med de nye eller ændrede data. Delete - Sletter den aktuelle record MoveFirst - Går til den første record i tabellen. MoveLast - Går til den sidste record i tabellen. MovePrevious - Går til forige... MoveNext - Går til næste...
Hvis du ønsker at lave en søgning: Ved brug af den nemme måde: (Denne funktion kan lægges ned i en knap)
Dim soegenavn as String
soegenavn = Inputbox(\"Skriv hvad du søger\")
Data1.Recordset.MoveFirst Do While Data1.Recordset.EOF = False if Data1.Recordset(\"KUNDENSNAVN\") = soegenavn then Exit Sub Data1.recordset.movenext loop
msgbox (\"Intet blev fundet\")
Den svære:
soegenavn = Inputbox(\"Skriv hvad du søger\")
rs.MoveFirst
Do until rs.eof if rs!KUNDENSNAVN = soegenavn then Exit Sub rs.movenext loop
Visual basic 6.0 fra IDG skrevet af jakob kristiansen. ISBN: 87-7843-466-1
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
