Conect til sql server

ADO

dim cnn as adodb.connection

set cnn = new connection
' SQL Authentication
cnn.connectionstring = "Provider=SQLOLEDB;User ID=sa;Initial Catalog=<Database>;Data Source=<SQLServer>"

' NT Authentication
cnn.connectionstring = "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=<Database>;Data Source=<SQLServer>"

cnn.open

Du bruger kun en af connection strengene.

Men vorden bruger man det.
jeg har tænkt mej, at første gang man starter prog. skal man skrive server navn, user id , pass i en form, og så bliver det gemt lokalt?

Jeg ser først nu, at det er Access-kategorien :-/

Hvis du opretter en adp-fil, så har den oplysningerne til connect til databasen gemt allerede.

Prøv denne:

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

Det ser godt ud, men vor skal jeg skrive navnet på sql serveren og databasen.