RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  20830 - CREAR DSN PARA VISUAL FOX PRO (*.DBF)
Autor:  Gaston Selvaggi
Necesito crear un DSN similar pero con el controlador :
Microsoft Visual FoxPro driver (*.dbf)

Sub CrearDSN(sRuta As String, sNombre As String, Optional sDescripcion As String, _
Optional sUserID As String, Optional sPWD As String)

Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String

'Crea la cadena.
strAttribs = "DefaultDir=" & sRuta & vbCr
strAttribs = strAttribs & "Description=" & sDescripcion & vbCr
strAttribs = strAttribs & "OemToAnsi=No" & vbCr
strAttribs = strAttribs & "UID=" & sUserID & vbCr
strAttribs = strAttribs & "PWD=" & sPWD & vbCr

' Crea un nuevo DSN.
rdoEngine.rdoRegisterDataSource sNombre, "Microsoft dBase driver (*.dbf)", True, strAttribs

End Sub


Nombre
Apellidos
Correo
Comentarios