| Pregunta: | 63754 - DSN DESDE VISUAL BASIC |
| Autor: | Elier Lora B |
| Saludo a Todos: Mi Problema es que he creado un DSN por Código, de la siguiente Manera Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _ ByVal hwndParent As Long, _ ByVal Frequest As Long, _ ByVal LpszDriver As String, _ ByVal lpszAttributes As String) As Long Private Sub CreaDSN() Dim CadAtrb As String Dim Dl As Boolean CadAtrb = "DSN=dsnPlantilla" & Chr(0) CadAtrb = CadAtrb & "Server=Hanuman" & Chr(0) CadAtrb = CadAtrb & "Trusted_Connection=True" & Chr(0) CadAtrb = CadAtrb & "Database=Plantilla" & Chr(0) If SQLConfigDataSource(0&, 4, "SQL Server", CadAtrb) Then MsgBox "DSN Creado correctamente" Else MsgBox "DSN No Fué Creado" End If End Sub El DSN se crea sin dificultad... Pero al ejecutar los programas que lo utilizan (para visualizar Reportes de Crystal Report) no se logra la coneccion con el servidor en el momento de ejecutar el Reporte... sin embargo, sin hacer nada mas... voy por el panel de control Origenes de Datos, localizo el DSN creado... lo edito sin realizarle ningun cambio... al llegar al final pruebo la coneccion y resulta satisfactoria la prueba. y desde ese momento funcionan los progrmas que antes no funcionaban, es como si el DSN necesitara algún Detalle en los atributos. que por supuesto no sé cómo realizarlo desde el código. Alguien podría Ayudarme? Gracias | |
| Respuesta: | Laubrisa Orellana |
| Por lo que veo en tu codigo te falta indicar usuario y clave aunque no tenga el usuario una clave debes identificar el usuario con que tienes acceso | |