Access på computere uden Access

Der findes en runtime viewer men ved ikke hvor du kan få fat i den.

Downloades fra ms' hjemmeside!

damn...

bccinlove >> prøver - ved du hvad den hedder?

Det kan sagtens bruges på en computer uden access.....
Men vil dog foreslå Access er installeret når du compiler og laver dit setup program, så tager VB nemlig de nødvendige DLL og OCX filer med i dit setup program, smidder lige lidt kode med på hvordan jeg bruger en access database med SQL.....
og det program kører uden at access er installeret :O)

--------------------------------------------------------------------------
'Du skal tilføje referencen Microsoft DAO 3.51 eller 3.6 for det virker.
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Private Sub Combo1_Click()
List1.Clear
List2.Clear
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\dataopsamling.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Hardware")
rs.MoveFirst
Do While rs.EOF = False
    If rs!ID = Combo1.ItemData(Combo1.ListIndex) Then
            List1.AddItem "IDE 00: " & rs!IDE00
            List1.AddItem "IDE 01: " & rs!IDE01
            List1.AddItem "IDE 10: " & rs!IDE10
            List1.AddItem "IDE 11: " & rs!IDE11
            List1.AddItem "Netkort: " & rs!Netkort
            List1.AddItem "RAM: " & rs!RAM
    End If
rs.MoveNext
Loop
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\dataopsamling.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Software")
rs.MoveFirst
Do While rs.EOF = False
    If rs!ID = Combo1.ItemData(Combo1.ListIndex) Then
            List2.AddItem "OS: " & rs!Styresystem
            List2.AddItem "IP: " & rs!IP
            List2.AddItem "Subnet: " & rs!IPMaske
            List2.AddItem "Domæne: " & rs!Domain
            List2.AddItem "NetBIOS: " & rs!NetBIOS
    End If
rs.MoveNext
Loop
End Sub
Private Sub Form_Load()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\dataopsamling.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Hardware")
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        Combo1.AddItem rs!ComputerID
        Combo1.ItemData(Combo1.NewIndex) = rs!ID
        Combo1.Text = rs!ComputerID
        rs.MoveNext
    Loop
End If
End Sub

hmm skulle være et svar :O)

tubber >> ok, det er nogenlunde samme måde jeg laver mine sql-strenge. Jeg har aldrig lavet et setup program før, har du et link til hvor jeg kan læse om hvordan jeg gør dette?

Package and deployment wizard!!!

Findes i Enterprise Edition af VB 6

Under alle omstændigheder er det en fordel med en Access Runtime' app. på maskinen!

Kan downloades her:
http://support.microsoft.com/default.aspx?scid=http://download.microsoft.com/download/office2000dev/art2kmin/1/WIN98/EN-US/ART2KMin.exe

bccinlove >>, ok ... tak for hjælpen, lægger du ikke lige et svar ;o)

yep!

kay