Excel og MS SQL

Din connection string ser ikke rigtig ud. Kig på følgende link for at se eksempler på connection strings for sorskellige databaser. Nedenstende link peger på OleDB Provider for SQL Server:
http://www.able-consulting.com/MDAC/ADO/Connection/OLEDB_Providers.htm#OLEDBProviderForSQLServer

Eksempelvis kunne din connection string se således ud:
Conn =  "Provider=sqloledb;" & _
          "Data Source=NavnPåDinSQLServer;" & _
          "Initial Catalog=pubs;" & _
          "Integrated Security=SSPI"


Din sql server har et kortere navn end det du har brugt. Det er servernavnet som skal stå som Data Source.

Se eventuelt også:
http://eksperten.dk/spm/197973

Ja jeg ved godt at Connection string er forkert. Jeg har prøvet nedenstående men får fejl ved connection string:

Dim adoConn As ADODB.Connection
Dim RS As ADODB.Recordset

Set adoConn = New ADODB.Connection
Set RS = New ADODB.Recordset

    adoConn.Open "Provider=sqloledb;" & _
          "Data Source=Server;" & _
          "Initial Catalog=Patientregisteret1CS.adp;" & _
          "Integrated Security=SSPI;"
   
    RS.Open "\\server\faelles\Lotte og Susanne\Registre\Patientregisteret1CS.adp", adoConn

Du skal vel åbne dit recorset med en SQL. Hvad er det du refererer til med "\\server\faelles\Lotte og Susanne\Registre\Patientregisteret1CS.adp"? På SQL server referere du til databasenavnet, og ikke til databasefilen som i access. Du har angivet DataSource til 'Server'. Heder din SQL Server 'Server'? Hvis IIS ligger på samme server som SQL Server/MSDE, kan du referere til 'localhost'

Jeg vil mene du skal have din SQL med i åbningen af recorsettet:

Private Sub TxtFNavn_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Conn As String
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim Cprnr As String
Dim FNavn As String
Cprnr = Me.txtCPR.Text
FNavn = Me.txtFNavn.Text

Conn = "Provider=sqloledb;" & _
          "Data Source=Server;" & _
          "Initial Catalog=Patientregisteret1CS.adp;" & _
          "Integrated Security=SSPI;"

strSQL = "UPDATE EKKO SET [Fornavn] = ('" & FNavn & "') WHERE [CPR nr] = ('" & Cprnr & "')"
   
    Set rs = New ADODB.Recordset
    rs.Open strSQL, Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
Set rs = Nothing

End Sub

Ovenstående kode er et uddrag så den oprindelige kode og indeholder naturligvis sql - beklager forvirringen! Men uagtet stopper koden ved Conn (adoConn)(og når adrig ned til RS.Open) så fejlen må vel ligge et andet sted. Min SQL server hedder server og er anbragt på en anden maskine (server). Fejlen er:  "Cannot open database requested in login 'Patientregisteret1CS.adp'. Login fails.

Jeg ser nu at din Initial Catalog ikke er rigtig, det skal ikke være Patientregisteret1CS.adp. Dette er vel filnavnet på databasen i MSDE. Når du oprætter en database, giver du den et navn, og det er dette navn du skal bruge som Initial Catalog

Ellers skal du være opmærksom på at du logger rigtig på databasen Du har angivet Trusted connection, og i så fald skal IIS-brugere være oprættet i databasen med rigtige rettigheder.

Måske skulle du i stedet logge dig på med en bestemt bruger som du ved findes i databasen med fornødne rettigheder. Så skal din connectionstring se således ud:
Conn = "Provider=sqloledb;" & _
          "Data Source=Server;" & _
          "Initial Catalog=myDatabaseName;" & _
          "User Id=myUsername;" & _
          "Password=myPassword"

Hej igen
Du må undskylde at der går så lang tid mellem mine svar - der har været en del at se til lige nu. Jeg har imidlertid også fået installeret SQL server på min lokale PC'er (Navn på SQL: STEENS). Jeg kom derved lidt nærmere med følgende kode:

    adoConn.Open "Provider=sqloledb;" & _
          "Data Source=STEENS;" & _
          "Initial Catalog=PatientregisteretSQL;" & _
          "Integrated Security=SSPI;"
   
    RS.Open adoConn

Nu fejler den ved RS.Open med ordene: "Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.

Du må angive en sql i din RS.Open.

I koden du viser har du kun RS.Open adoConn.

Typisk vil du først definere en sql, og derefter åbne dit recordset med denne sql:

    adoConn.Open "Provider=sqloledb;" & _
          "Data Source=STEENS;" & _
          "Initial Catalog=PatientregisteretSQL;" & _
          "Integrated Security=SSPI;"
    SQL = "Select * from TabelX"
       
    RS.Open SQl, adoConn

Hej
Det var da "bare" det:

    adoConn.Open "Provider=sqloledb;" & _
          "Data Source=STEENS;" & _
          "Initial Catalog=PatientregisteretSQL;" & _
          "Integrated Security=SSPI;"
   
    strSQL = "SELECT * FROM [Kartotek] WHERE [Patient nr] ='" & HCVno & "';"
    RS.Open strSQL, adoConn

Nu fungerer det tilsyneladende - tak for hjælpen.

vh Steen