I mitt lilla project, så vill jag kunna ansluta via Access eller SQL2000, beroende på vilken databasfil jag pekar på.

Access-filen går bra, men det sk-r sig när det gäller SQL200(SQLServer2000)

Så här försöker jag.
Där jag skall änvända filen:
<code>
dcon ((File1.Path) & File1)

If Err.Number <> 0 Then
felhanterare
Else
con.Open ConStr
End If
</code>

I min modul så finns följande:

<code>
Public Function dcon(strCon As String) As String
Set con = CreateObject("adodb.connection")
If Right(frmDatabasSökning.File1.fileName, 3) = "mdb" Then
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & NormalizePath(frmDatabasSökning.File1.Path) & frmDatabasSökning.File1 & ";" & _
"Persist Security Info=False"

ElseIf Right(frmDatabasSökning.File1.fileName, 3) = "mdf" Then
ConStr = "Provider=sqloledb;Server=sawdata;Database=" & Replace(NormalizePath(frmDatabasSökning.File1.Path) & frmDatabasSökning.File1, ".mdf", "") & ";Trusted_Connection=yes"
End If
MsgBox ConStr
End Function
</code>
När jag kollar ConStr via MsgBox:en så ser allt OK ut.
Vad tror ni?

Hej.

Kolla denna tråd.
[s&#246;kv&#228;g till databas]

Detta tycker jag är ett bra sätt att hantera sina connectionsträngar.

//fredda

Eftersom min app bygger på att jag snabbt skall kunna kolla på en massa olika databaser, så är nog inte den tråden någon hjälp

Jag hittade felet:
<code>
ConStr = "Provider=sqloledb;Server=sawdata;Database=" & Replace(frmDatabasSökning.File1, ".mdf", "") & ";Trusted_Connection=yes"
</code>
Jag hade fått med hela söksträngen, och det var ju inteså bra...