Programación General > Visual Basic 6.0 e inferiores

[Artículo] Crear ODBC o DSN por codigos maximo nivel

<< < (5/7) > >>

Anónimo:
"Recopilado" está bien dicho: lo encontraste por ahi y lo usaste.

Pero quitar la firma del autor original y poner la tuya es un descaro descomunal.

Balurdo!

SoftJaén:
Te digo que eres un mal falsificador, porque al menos nos ha eliminado del documento htm, el comentario que indica la url de procedencia del documento, es decir, desde dónde lo descargastes:

<!-- saved from url=(0062)http://www.mvp-access.com/softjaen/vb6/api/odbc/sjtodbc002.htm -->

¡Por favor! ¡Si has copiado hasta la misma hoja de estilos que yo utilizo en mis documentos!

Está bien que recopiles documentos, pero ¡hombre de Dios! Indica al menos la procedencia.

--
Enrique Martínez
[MS MVP - VB]

josafat:
Y del moderador ni sus luces para quitar el link al archivo que ofrece el tío este...

kbza52:
El codigo esta bueno pero no puede hacer una conexion con Mysql me pueden ayudar
Gracias

Anónimo:
'declaracion de constantes
Private Const ODBC_ADD_SYS_DSN = 4 ' Add data source
Private Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3 ' Remove data source
Private Const vbAPINull As Long = 0& ' NULL Pointer



Public Function CreaDSN() As Integer

Dim dl As Long                                 ' Valor devuelto por la función API
Dim sAttributes As String                  ' Aributos
Dim sDriver As String                       ' Nombre del controlador
Dim sDescription As String                ' Descripción del DSN
Dim sDsnName As String                   ' Nombre del DSN


On Error GoTo errorDSN

' Establecemos los atributos necesarios
sDsnName = "DSNCadillac2"
sDescription = "DSN de sistema para MySQL "
sDriver = "MySQL ODBC 3.51 Driver"


' Los pares de cadenas acabarán en valor Null
sAttributes = "DSN=" & sDsnName & Chr(0)
sAttributes = sAttributes & "Server=" & "localhost" & Chr$(0)
sAttributes = sAttributes & "User=" & "UserCompras" & Chr$(0)
sAttributes = sAttributes & "Password=" & "avon" & Chr$(0)
sAttributes = sAttributes & "Description=" & sDescription & Chr(0)
sAttributes = sAttributes & "Database=" & Trim(DB_Source) & Chr(0)

' Si deseamos utilizar la autenticación de Windows NT, deberemos de
' especificarlo en la cadena de atributos
'sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)

' Creamos el nuevo origen de datos de usuario especificado.
' Si deseamos que aparezca el cuadro de diálogo, tendremos que
' especificar la propiedad «hWnd» del formulario donde se realiza
' la llamada a la función API.
dl = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAttributes)

If Not dl Then
   MsgBox "Ha ocurrido un error mientras se creaba el DSN de Sistema para MySQL. Posiblemente necesite tener permisos de Aministrador en su máquina." & vbCrLf & "Consulte con el Aministrador de su equipo", vbCritical, "Error"
   End
End If

Exit Function

'ERROR
errorDSN:
MsgBox "Ha ocurrido un error mientras se creaba el DSN de Sistema para MySQL. Posiblemente necesite tener permisos de Aministrador en su máquina." & vbCrLf & "Consulte con el Aministrador de su equipo", vbCritical, "Error"
End

End Function
Sub DELETEDSN()
Dim strDriver As String
Dim strAttributes As String
'usamos el driver de access
strDriver = "MySQL ODBC 3.51 Driver"
'Asignamos los parametros separados por null.
strAttributes = "DSN=DSNCadillac" & Chr$(0)
'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, strDriver, strAttributes)
End Sub


eppero te sirva

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior