Estoy tratando de crear un ODBC por codigo desde VB a una base de datos
FoxPro (*.dbc) y talvez el driver no es el adecuado y no crea el DSN.
Les agradezco si detectan algún error, el código:
Dim lcAttributes As String
Dim lcDriver As String
Dim intRet As Long
Const ODBC_ADD_DSN = 1
lcDriver = "Microsoft Visual FoxPro Driver"
lcAttributes = lcAttributes & "DSN=Nombre;" & Chr$(0)
lcAttributes = lcAttributes & "Description=Descrip de Base de datos;" &
Chr$(0)
lcAttributes = lcAttributes & "SourceTypeÛC;" & Chr$(0)
lcAttributes = lcAttributes & "SourceDB=C:\temp\datos.dbc;" & Chr$(0)
lcAttributes = lcAttributes & "Collate=SPANISH;" & Chr$(0)
lcAttributes = lcAttributes & "Exclusive=No;" & Chr$(0)
lcAttributes = lcAttributes & "BackgroundFetch=Sí" & Chr$(0)
lcAttributes = lcAttributes & "SetNoCountOn=No;" & Chr$(0)
lcAttributes = lcAttributes & "Deleted=Sí;" & Chr$(0)
lcAttributes = lcAttributes & "Null=No;"
intRet = SQLConfigDataSource(0, ODBC_ADD_DSN, lcDriver, lcAttributes)
If intRet Then
MsgBox "Se ha creado el DSN"
Else
MsgBox "No se ha podido crear el DSN"
End If
Leer las respuestas