Avatar billede eiland Nybegynder
02. september 1999 - 16:26 Der 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?
Avatar billede 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
Avatar billede eiland Nybegynder
02. september 1999 - 16:51 #2
Jeg har tænkt mig at lave den i Access.
Avatar billede joern Nybegynder
02. september 1999 - 21:30 #3
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
Avatar billede 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
Avatar billede 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
Avatar billede 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  
Avatar billede 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
Avatar billede eiland Nybegynder
03. september 1999 - 15:54 #8
Det var lige hvad jeg havde brugfor.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester