Conect til sql server

Public Sub SQLTest()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
    cn.ConnectionString = "driver={SQL Server};" & _
        "server=srv;uid=sa;pwd=pwd;database=Pubs"
    cn.Open
Set rs = New ADODB.Recordset
rs.Open "EnEllerAndenTabel", cn, adOpenKeyset, adLockOptimistic
MsgBox rs(1).Name & ": " & rs(1)
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Servernavn og database angives i denne sætning:

cn.ConnectionString = "driver={SQL Server};" & _
        "server=DinServer;uid=sa;pwd=DitPassword;database=DinDatabase"

Fungerer fint, men vorden kan man linke alle tabellerne til Access PROG.
lige som nor man bruger link tabele.

Du kan IKKE linke uden at bruge de indbyggede funktioner til sammenkædning. Hvad er der i vejen med DNS?

Ovenstående kode duer kun til at få adgang via VBA.

Du kan dog knytte en formular direkte til SQL serveren vha følgende linier:

    DoCmd.OpenForm "DinForm"
    Set Forms!DinForm.Recordset = rs

Derved ser hele koden sådan ud:
Public Sub SQLTest()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
    cn.ConnectionString = "driver={SQL Server};" & _
        "server=srv;uid=sa;pwd=pwd;database=Pubs"
    cn.Open
Set rs = New ADODB.Recordset
rs.Open "EnEllerAndenTabel", cn, adOpenKeyset, adLockOptimistic

    DoCmd.OpenForm "DinForm"
    Set Forms!DinForm.Recordset = rs

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Det er fin, det kan jeg godt bruge. Men vis jeg skal bruge  connection til  Forespørgsel?
kan man det.

Hmm, i forespørgsler kan du angive "Kilde" til hver tabel. I denne kilde kan du angive en connectionstring. Her kan du evt lege lidt med at sætte det samme ind:
driver={SQL Server};server=srv;uid=sa;pwd=pwd;database=Pubs

Faroe, kan du ikke sige hvorfor du ikke vil bruge alm. ODBC og DNS? Det gør det 100 gange lettere...?

Jeg har lavet et program som flere kunder  bruger , men de har forskellige navne på sql serveren  og password
so jeg har tænkt mej at første gang de starter programmet skal det komme en formular frem som de kan skrive navn på serveren, user og password ind.
Er det en fornuftigere løsning til det?

Hmm, jeg tror at det bliver svært for dig at styre. Jeg har selv brugt uger (!) på at lave en procedure, som gennemløber alle tabeller og forespørgsler og ændre connectionstrengen i henhold til hver enkelt brugers server og DNS osv.
Denne kode kan for det første ikke beskrives med ord her, da det bla. indvolverer 2 formulare som er designet til formålet samt omkring 100 liniers kode eller mere.
Endvidere er det den slags kode, som jeg lever af at sælge til mine kunder, så den får du ikke bare sådan uden videre, hehe :o)

Umiddelbart er din eneste løsning at du enten selv tager rundt til brugerne og sletter alle tabeller og genopretter dem. Eller at du instruerer dem i at kunne gøre det selv.

Alternativt, så kan du jo hyre mig til at komme ud og implementere min funktion hos dig :o)
www.makeiteasy.dk

faroe>have you thought about using NT Permissions?
You could make an NT Group then add the Group to SQL Server Logins. Then when you add users to the NT Group they automaitcally get permissions to the dB.
If ALL of your customers has the same NT Group then you would NOT need to alter anything!

Du kunne jo også lægge kundernes connection string i en lille, lokal Access base. Første gang, brugerne forsøger at logge på SQL serveren med en ny frontend, genopfrisker de bare alle link v.h.a. denne streng.

Hi Terry og FData,

Alt det duer vel ikke hvis man f.eks. skal distribuere en database til forskellige kunder, som har vidt forskellige SQL servere (altså navne på SQL serveren). I givet fald skal Faroe selv distribuere connectstring'en i en tabel, som systemet derefter kan bruge til at reattache med. Men han ved måske ikke altid hvordan kunden opsætning er.
Endvidere skal man også huske at ændre connectstring på eventuelle Pass-Through-queries, hvis der er sådanne.

Eller forstår jeg faroe's problem forkert?

Hi Thomas>faroe has to get involved with security on the customers SQL Server so I cant see it being a big matter to set up a NT group permission. Then again it may be me that hastnt understood the problem.

Er vi alle forvirrede?
Kundens parametre kan vel ligge hos kunden selv i f.eks. en Access base. De skal altså bare oprettes en gang for alle.
Første gang, der logges på med en ny frontend, genopfriskes alle link. Så langt så godt.
Alle Passthrough queries sendes gennem en lille rutine, der tilknytter den korrekte connection string (som dannes via de lokale parametre) inden selve kaldet.
Det funker fint hos en af vore kunder.

faroe, har du fået kigget på det, som jeg har sendt dig?

Ja :-)
Jeg har lige sent dej en mail

faroe>can we have status on this?

Jeg fik hjælp fra Thomas, han har laver en løsning til mej.
Men jeg takker for hjælpen og indsatsen, og deler point.

great, og tak :o)

"Thomas har lavet en løsning" - hvilken???
Er det en løsning, vi andre kan lære noget af?

fdata > Det kommer Thomas til at bestemme, han har jo lavet løsningen.

FData-> jeg har lavet en form for Wizard, som ved opstart af databasen kontrollerer om der er forbindelse til SQL serveren. Hvis der ikke er det, så bliver brugeren prompted med en dialogboks, hvor han kan indtaste servernavn og brugerinfo, hvorefter wizard'en selv sammensætter connectstrengen og reattacher alle tabeller og forespørgsler.
Alt sammen meget á la det, som du selv forslår. Bortset fra at brugeren her blot slipper for at oprette DNS (han har også muligheden for at vælge DNS, men behøver det ikke)
Denne løsning er velegnet hvis kunden ikke er IT-kyndig og/eller hvis kunden ikke skal have adgang bag om systemet. Det kan jo ikke forventes at Faroe altid kender brugerens opsætning, således at han kan distribuere connectstrengen i en Access-tabel sammen med applikationen.

Her er et pic af wizard'en: www.makeiteasy.dk/tj/wizard.jpg