Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

443 - Crear dsn de usuario en sql server

Ejemplo para crear un dsn de usuario en sql server

código fuente en un formulario con los siguientes controles y referencias:

Textbox llamado txtDSNName para el nombre del dsn
Textbox llamado txtDescription para la descripción
Combobox llamado cmbServerName
Textbox txtUserID para el usuario
Textbox txtPassword para la contraseña
Un combo cmbDatabase para la base de datos
Un command1 para crear el dsn
La referencia a : Microsoft activex data object
La referencia a : Microsoft SQLDMO object library
La referencia a : Microsoft SQLNamespace Object Library
La referencia a : Microsoft remote data objects

Option Explicit Dim cn As ADODB.Connection Private Sub cmbDatabase_GotFocus() OpenConnection End Sub Private Sub Command1() Dim strAttribs As String On Error GoTo checkerr strAttribs = "Description=" _ & Trim(txtDescription) _ & Chr$(13) & "OemToAnsi=No" _ & Chr$(13) & "SERVER=" & Trim(cmbServerName) _ & Chr$(13) & "Network=TCP" _ & Chr$(13) & "Database=" & Trim(cmbDatabase) rdoEngine.rdoRegisterDataSource Trim(txtDSNName), _ "SQL Server", _ True, strAttribs If Err.Number = 0 Then MsgBox "Dsn creado", vbInformation End Sub Private Sub OpenConnection() On Error GoTo checkerr Set cn = New ADODB.Connection With cn .Provider = "SQLOLEDB" .ConnectionString = "Data Source=" & Trim(cmbServerName) & _ ";User ID=" & Trim(txtUserID) & "; Password =" & Trim(txtPassword) .Open End With Dim rs As ADODB.Recordset Set rs = cn.OpenSchema(adSchemaCatalogs) While Not rs.EOF cmbDatabase.AddItem rs!CATALOG_NAME rs.MoveNext Wend rs.Close Set rs = Nothing checkerr: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub Private Sub Form_Load() Dim i As Integer Dim objSQLDMO As SQLDMO.Application cmbServerName.Clear Set objSQLDMO = New SQLDMO.Application Dim namX As NameList Set namX = objSQLDMO.ListAvailableSQLServers For i = 1 To namX.Count cmbServerName.AddItem namX.Item(i) Next cmbServerName.ListIndex = 0 Set objSQLDMO = Nothing End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb