Hej!

Varför fungerar inte den här databaskopplingen?

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "INSERT INTO temp SELECT ruber, prova, nr FROM produkter WHERE nr = '" & nr & "' "

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("sid") = sid
RecSet("nr") = RecSet("nr")
RecSet("antal") = antal
RecSet("ruber") = RecSet("ruber")
RecSet("prova") = RecSet("prova")

RecSet.Update
RecSet.Close
Connect.Close

Om vi kan någon bättre lösning så är jag öppen för förslag.
/Danne

Hej hej

Så här gjorde jag (allt ligger i knappen cmdUppkoppling)

Något jag upptäckte var att din connection-string inte kan innehålla
mellanslag vid =-tecknet. Jag brukar skriva det eftersom det under-
lättar läsligheten - men i detta fallet gjorde det bara att det inte
fungerade...

//Emma

<code>
Private Sub cmdUppkoppling_Click()
Dim conStr As String
Dim con As adodb.Connection
Screen.MousePointer = 11

'anger de data som jag behöver skicka som inparameter för att kunna koppla
'upp mig mot databasen
conStr = "Provider=SQLOLEDB.1; Server=" & txtServernamn.Text & _
";User ID=" & txtAnvId.Text & ";PWD=" & txtPw.Text


'skapar en ny connection
Set con = New adodb.Connection

'öppnar min connection och anger en defaultdatabas
On Error Resume Next
Call con.Open(conStr)
If Err.Number = 0 Then
con.DefaultDatabase = txtDatabas.Text
con.Execute ("SET LANGUAGE 'Svenska'")
con.CommandTimeout = 45
con.ConnectionTimeout = 30
Call MsgBox("Du är nu uppkopplad mot " & txtDatabas.Text, , "Uppkopplingsstatus")
Else
Call MsgBox("Uppkopplingen misslyckades pga " & Err.description & _
"Kontrollera dina värden och försök igen.", , "Uppkopplingsstatus")
End If

Screen.MousePointer = 0
End Sub
</code>

Tyvärr jag förstod inte riktigt det där....

men tack ändå..
/Danne