Visual Basic.NET - ayuda con codigo..

   
Vista:

ayuda con codigo..

Publicado por Lunnaticoo (17 intervenciones) el 02/10/2008 15:56:29
hola..

Me podrian dar una manito con este codigo que encontre en la web.. es para crear un DNS por codigo, el problema es q esta hecho en v6.0 , lo copie a v.net y no me funciona.. me podrian decir que tengo q modificar para q funcione..
Este es el codigo..

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 Command1_Click()
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

Const ODBC_ADD_SYS_DSN As Long = 4 ' Se creará un DSN de sistema
Const vbAPINull As Long = 0& ' Puntero NULL

' Establecemos los atributos necesarios
sDsnName = "Ejemplo_DSN_Sistema"
sDescription = "Nuevo DSN de sistema para SQL Server"
sDriver = "SQL Server"

' Los pares de cadenas acabarán en valor Null
sAttributes = "DSN=" & sDsnName & Chr(0)
sAttributes = sAttributes & " Server=(Local)" & Chr(0)
sAttributes = sAttributes & " Description=" & sDescription & Chr(0)
sAttributes = sAttributes & " Database=pubs" & 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.
MsgBox (sAttributes)
dl = SQLConfigDataSource(vbAPINull, ODBC_ADD_SYS_DSN, sDriver, sAttributes)

If dl Then
MsgBox ("Se ha creado el DSN de sistema.")
Else
MsgBox ("No se ha podido crear el DSN de sistema.")
End If
End Sub

' GRACIAS.......!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder