Hur skapar man en ODBC koppling från vb code?


Tacksam för hjälp och tipps!

Det finns en film jag gjorte om detta för länge sen. Gå till artiklar och vb-sektionen. De med filmkameror på är filmer. Fungerar inte filmen att spela upp så installera först http://www.pellesoft.se/login/video/tscc.exe

Därefter kollar du på filmen via http://www.pellesoft.se/login/video/vb/skapa_dsn.asp

Om du menar att du skall konstruera den på datorn så finns ett sådant exempel i tips & tricks.

Hälsningar
/Pelle

Nej inte så!
jag menar hur skapar man en ODBC koppling via programmet, koden skriven i vb och körs av en användare och en ODBC skapas automatiskt.

Se [Skapa eller ta bort en DSN via VB]

Försöker använda denna men lite frågeteken.

Till Visual FoxPro db.
Vet inte riktigt hur atributen skall se ut?

Kan någon visa?
Skapa en ODBC till Access eller VFoxPro Free table..
<code>
Dim nRet As Long
Dim sDriver As String
Dim sAttributes As String
Dim sPath As String

sPath = App.Path & "\CUSTOMERS.DBF"

'DSN=Visual FoxPro Tables
sDriver = "Microsoft Visual FoxPro Driver 6.01"
sAttributes = "DSN=xSPCS1" & Chr$(0)
sAttributes = sAttributes & "UID=" & Chr$(0)
sAttributes = sAttributes & "PWD=" & Chr$(0)
sAttributes = sAttributes & "SourceDB=" & sPath & Chr$(0)
sAttributes = sAttributes & "SourceType=DBF" & Chr$(0)
sAttributes = sAttributes & "Exclusive=No" & Chr$(0)
sAttributes = sAttributes & "BackgroundFetch=Yes" & Chr$(0)
sAttributes = sAttributes & "Collate=Machine" & Chr$(0)
sAttributes = sAttributes & "Null=Yes" & Chr$(0)
sAttributes = sAttributes & "Deleted=Yes" & Chr$(0)

'Denna blir fel, Variabel not defind
'DBEngine.RegisterDatabase "demodsn", "Microsoft Visual FoxPro Driver 6.01", True, sAttributes

nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, sDriver, sAttributes)
</code>