02. september 1999 - 16:26Der er
7 kommentarer og 1 løsning
SQL og VB hvordan?
Jeg er ved at lave et program i VB6 PRO, hvor jeg gerne vil have adgang til en database. Når jeg har fået adgang til databasen, vil jeg gerne kunne bruge SQL til at tilføje rette og søge i databasen. Hvordan gør jeg det?
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Slettet bruger
02. september 1999 - 16:39#1
Det afhænger af hvilken database der skal bruges.
Er det en ODBC database kan det klares med MS Remote dataobjects.
Er det Access kan bruges MS Jet Data Objects
Angiv hvilken database du skal kommunikere, så skal jeg give dig lidt eksempel kode
Hej Eiland. Det kunne jeg også godt tænke mig at vide. Første gang jeg spurgte (ikke her) fik jeg at vide, det var så nemt. Altså måtte jeg være dum, når jeg ikke kunne finde ud af det. Derfor laver jeg mine baser som ascii-filer, men da de ikke kan indexeres bliver søgninger lidt langsomme i store baser (8000 poster - 14 felter) med fritekstsøgning. Men kan fritekst overhovedet laves med SQL? Det er sikkert nemt !
M.v.h. Jørn
Synes godt om
Slettet bruger
03. september 1999 - 14:23#4
Dim ws as Workspace Dim db as database
Set ws = Workspaces(0) set db = ws.opendatabase("c:\test.mdb") db.execute "INSERT INTO ADRESSER (Fornavn, Efternavn, Adresse) VALUES ('Kurt','Thordsen','Villa Gitterly')
mvh Jordan
Synes godt om
Slettet bruger
03. september 1999 - 14:25#5
db.execute "INSERT INTO ADRESSER (Fornavn, Efternavn, Adresse) VALUES ('Kurt','Thordsen','Villa Gitterly')"
''''Jeg glemte lige gåseøjnene til sidst
Synes godt om
Slettet bruger
03. september 1999 - 14:28#6
Hvis du skal søge i databasen bør man bruge recordsets.
Dim ws as Workspace Dim db as database dim rs as recordset
Set ws = Workspaces(0) set db = ws.opendatabase("c:\test.mdb") set rs = db.openrecordset("SELECT * FROM ADRESSER WHERE (Fornavn = 'Kurt')" if not rs.eof then rs.movefirst do while rs.eof msgbox "Navn fundet : " & rs!fornavn & " " & rs!efternavn rs.movenext loop endif
mvh Jordan
Synes godt om
Slettet bruger
03. september 1999 - 14:31#7
Du skal iøvrigt huske at referere DAO i dit VB Projekt.
Dette gøres ved at vælge menupunktet projekt/references
Herefter sættes flueben i Microsoft DAO 3.x Object Library
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.