først vil det være en ide at forstå SQL!
http://www.w3schools.com/ - en rigtig god side!
more to come kl 16:00 skal lige have fri fra skole *g*
***
back
***
Opret en ganske almindelig database i Microsoft Access 2000 med
Navne Adresser og Tlf numre, og en med navnet ID
et lille tip lad alle cellerne være "text", (UNTAGEN ID denne skal sættes til automatisk nummerting) lad vær med at lave begrænsninger i databasen, det kan gøres i det kommende program. yderligere skal nævnes, at jeg har haft en del problemer med navne på "kolonerne" specielt med hvis der optræder mellem rum udgå dette ("Tlf numre" bør være, "TLF" eller Tlf_numre)
når du har lavet db’en (uden entry’s) så går du over i VB "højreklik" på objekt panelet og der kommer en menu frem med ”components” og ”add tab”, vælg ”components”.
en menu kommer frem og her skal du vælge "Microsoft ADO Data controle 6.0 (OLEDB)" nu skulle der meget gerne komme et "ekstra" ikon på "objekt panelet" træk dette ind på din form og og sæt "visibel = false" vi skal kun bruge det til at binde programmet til DB’en senere.
i "Properties" for ”Adodc1” skal du finde ”connection string” tryk på den og der kommer 3 ”…” frem tryk på dem og der kommer en menu frem tryk ”build” vælg ” Microsoft jet 4.0 OLE DB provider” tryk næste, nu vælger du stien hvor DB ligger! Af prøv evt tilslutningen tryk ”ok” og ”ok” og kopir nu den text der er kommet i ”connection string”
så nu er vi klar til koden:
command1 = command button med navnet “command1”
List1 = list box med navnet List1
Text1 = textbox med navnet Text1
Check1 = en check box med navnet Check1
*****************
‘reserver plads
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mystring As String
Dim mysql As String
Private Sub command1_Click()
‘ føder con og rs
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
List1.Clear ‘ ranser List1 list boxen
‘ benytter Microsoft.Jet.OLEDB.4.0 til at holde på data
' (gåseøjne skal være der)
mystring = "sæt det du har kopiret fra connection string in her mellem gåseøjnene "
‘Åbner tabel
con.Open (mystring)
‘SQL sætninger
mysql = "SELECT * FROM info WHERE fornavn = ‘" & Text1.Text & "‘"
‘ Hvis man ønsker at få hele DB vist
If Check1.Value = Checked Then
mysql = "SELECT * FROM info"
End If
rs.Open mysql, con, adOpenDynamic
‘*EOF* = end of file (sidste record i record sættet)
Do Until rs.EOF
List1.AddItem " Fornavn:" & " " & " " & (rs("fornavn"))
List1.AddItem " Efternavn:" & " " & " " & (rs("efternavn"))
List1.AddItem " Tlf:" & " " & " " & (rs("tlf"))
‘ Behøves kun hvis man ønsker at tilføje et mellem rum
List1.AddItem " "
List1.ItemData(List1.NewIndex) = rs("id") 'her bruger vi ID til at indexsere databasen
rs.MoveNext
Loop
‘ Rydder op så andre, har mulighed for at bruge databasen samtidig
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
End Sub
Du har du lavet en søge funktion i den DB. prøv at oprette nogen entry's direkte i DB'en, og brug dit nye program til at søge på de foreskellige entry's.
hvis du også vil bruge programmmet til at lave input's i DB'en så kan du på linket under SQL finde komandoen med eksempler på INSET INTO
Godfornøjelse
håber ikke jeg har formange stavefejl
[Redigeret d. 08/02-03 17:07:35 af composer][Redigeret d. 10/02-03 12:07:48 af composer]