Avatar billede nissetec Nybegynder
29. april 2003 - 12:07 Der er 1 løsning

Forsøger at hente database fra lokalt drev ?!?

Hvis jeg hygger mig lidt med:
--------------
Sub testExtr()
Dim db As Database
Dim rs As Recordset
Dim plnConn As String

    plnConn = "DSN=Mite;UID=mite;PWD=miteadmin;SERVER=liverod;"
    Set db = OpenDatabase("", False, True, plnConn)
    Set rs = db.OpenRecordset("SELECT TURBOCHG.NAVN  FROM MITE.TURBOCHG TURBOCHG  WHERE (TURBOCHG.NAVN Like 'T%')")
   
' En eller anden form for output

rs.Close
db.Close
End Sub
--------------
...så vil den hente en database (.mdb) fra min lokale disk. Men jeg beder den jo om at bruge DSN-navnet Mite. Jeg har også prøvet at skrive "ODBC;" foran DSN, men uden resultat.

Referencen er til "Microsoft DAO 3.6 Object Library". Skal jeg bruge en anden ref. for at få fat i en db på serveren (Oracle)?

MVH
Per
Avatar billede somaliomar Praktikant
29. april 2003 - 13:14 #1
Skal du absolut bruge DAO og DNS? Hvis ikke, kan du lave en database-forbindelse ved brug af ADO og DNS-less connection. Eks:

Sub testExtr()
    Dim oRs As Object
    Dim oConn As Object
    Dim sConn As String
    Dim sSQL As String
   
    Set oConn = CreateObject("ADODB.Connection")
    Set oRs = CreateObject("ADODB.Recordset")
   
    sConn = "CONNECTION STRING" 'Find din connection string på http://www.able-consulting.com/ADO_Conn.htm
    sSQL = "SELECT TURBOCHG.NAVN  FROM MITE.TURBOCHG TURBOCHG  WHERE (TURBOCHG.NAVN Like 'T%')"
   
    oRs.Open sSQL, oConn
   
    ' En eller anden form for output
   
    oRs.Close
    oConn.Close
    Set oRs = Nothing
    Set oConn = Nothing
End Sub
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