Hej Kim
Når jeg bruger din kode melder den fejl ved: connIndkoeb.Open
"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("../DB/Shop.mdb")
Den siger at object required og når man fjerne DBQ tingen siger den Handling
afsluttet elle sådanne noget! ved du hvad der er galt
"Kim Pedersen [vbCode Magician]" <codemagician@nospam.get2net.dk> skrev i en
meddelelse news:9fl8sc$2a6$1@sunsite.dk...
> Hej Martin
>
> Først vælger du Project > References i VB og sætter flueben i Microsoft
> ActiveX Data Objects. Herefter følger koden..
>
> > Set connIndkoeb = Server.CreateObject("ADODB.Connection")
> > connIndkoeb.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> > Server.MapPath("../DB/Shop.mdb")
>
> Oversættes til:
>
> Dim connIndkoeb As ADODB.Connection
> Set connIndkoeb = New ADODB.Connection
> connIndkoeb.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("../DB/Shop.mdb")
>
> > Set IndkoebVarer = Server.CreateObject("ADODB.RecordSet")
> > SQLIndkoebVarer = "SELECT * FROM " & Session("Konto")
> > IndkoebVarer.Open SQLIndkoebVarer, connIndkoeb, 1, 3
>
> Oversættes til (Session variabler findes ikke i VB så du er nødt til at
> finde på noget andet.
>
> Dim IndkoebVarer As ADODB.RecordSet
> Dim SQLIndkoebVarer As String
> Set IndkoebVarer = New ADODB.RecordSet
> SQLIndkoebVarer = "SELECT * FROM " & ???????
> IndkoebVarer.Open SQLIndkoebVarer, connIndkoeb, 1, 3
>
> Det var såmend det... Du har sikkert allerede set den røde tråd.
>
> Hilsen/Best Regards
> Kim Pedersen, vbCode Magician
>
http://hjem.get2net.dk/vcoders/cm
> ICQ: 62990889
>
>