Jag skulle vilja hämta data och skriv in data till en databas från excel

I ASP fungerar följande kopplingsrader

<code>
Set connPrognos = Server.CreateObject("ADODB.connection")
Set rsPrognos = Server.CreateObject("ADODB.Recordset")
connPrognos.Open "DSN=valda"
sqlPrognos = "SELECT * FROM tblPrognos T WHERE T.datumkod>=" & iDatekodStart & " And T.datumkod<=" & iDatekodStopp
rsPrognos.Open sqlPrognos, connPrognos

osv

rsPrognos.Close
connPrognos.Close
Set rsPrognos = Nothing
Set connPrognos = Nothing
</code>

men i Excel fungera det inte

Är det någon som vet hur man skriver i Excel?
Jag har testat mot en access databas men skall när det
är färdigt köra mot en SQL databas

Både Excel och Access är version 2000
En DSN är uppsatt på datorn

Thommy,

Hur har du satt referensen till ADO från XL?

Mvh
XL-Dennis

I VBE Verktyg/Referenser har jag
Microsoft ADO Ext. 2,5 for DLL and Security ibockad

Vad händer om du sätter en referens till Microsoft ActiveX Data Objects 2.5 Library?

Mvh
XL-Dennis

Hur skriver man kopplingen och frågan

Det funkar utmärkt i ASP

Ska vara likadant som ASP.
Men du kan instansiera(skapa) objekten med New istället om du lagt till referenser.

<code>
Dim sqlPrognos as string
Dim strDataBase as string
Dim connPrognos As ADODB.Connection
Dim rsPrognos As ADODB.Recordset
strDataBase = "C:\databas.mdb"

Set connPrognos New ADODB.connection
Set rsPrognos = Server.CreateObject("ADODB.Recordset")
connPrognos.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDataBase & ";" & _
"Persist Security Info=False"

sqlPrognos = "SELECT * FROM tblPrognos T WHERE T.datumkod>=" & iDatekodStart & " And T.datumkod<=" & iDatekodStopp
rsPrognos.Open sqlPrognos, connPrognos

'osv

rsPrognos.Close
Set rsPrognos = Nothing

connPrognos.Close
Set connPrognos = Nothing
</code>

Detta fungerade perfekt

Om jag nu skall koppla mot en SQL databas
skall Provider fortfarande vara
Microsoft.Jet.OLEDB.4.0; ?

I ASP skrev jag så här och det funkar

connPrognos.Open "DATABASE=xxxx;UID=yyyyy;PWD=zzzzz;DSN=qqqqq"