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:
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
