Codigo dll proyecto 2



Descargar 7.18 Kb.
Fecha de conversión29.01.2017
Tamaño7.18 Kb.

Codigo DLL proyecto 2


Public cn As New ADODB.Connection

Public Function conexion(ByVal PCName, UserID, UserPass, DBName As String) As Connection

With cn

.CursorLocation = adUseClient



.CommandTimeout = 20

.ConnectionString = "provider=sqloledb.1;data source=" & PCName & ";user id=" & UserID & ";password=" & UserPass & ";initial catalog=" & DBName & ";persist security info=false"

.Open

End With


Set conexion = cn

Set cn = Nothing

End Function

Declaracion del form proyecto 1


Dim cm As New Proyecto2.CLSCONEXION

Dim rs As New ADODB.Recordset

Public goSQLServer As New SQLDMO.SQLServer ''//declaracion en referencia para sacar la db

Dim oDatabase As New SQLDMO.Database ''//declaracion en referencia para sacar la db



Private Sub Command1_Click()//Aki hace la consulta...

On Error GoTo erro

rs.Open TXTSQL.Text, cm.CONEXION(TXTPCNAME, txtuserid, txtuserpassword, cbdbname), adOpenKeyset, adLockReadOnly

If Not rs.BOF And Not rs.EOF Then

Set grilla.DataSource = rs

Else


MsgBox "Cadena de Sql no es valida o objeto" & Chr(13) & "no existe", vbCritical + vbDefaultButton1, "Aviso del sistema"

End If


Set rs = Nothing

Exit Sub


erro:

MsgBox "Error en la Consulta..." & Chr(13) & "Asegurece de escribir bien: PCName , UserID , [UserPassword]", vbExclamation + vbDefaultButton1, "Aviso del sistema"

End Sub

Private Sub Command2_Click()

''//conecta a sql y llena el combo de base de datos

On Error GoTo erro

cbdbname.Clear

goSQLServer.Connect TXTPCNAME.Text, txtuserid.Text, txtuserpassword.Text

For Each oDatabase In goSQLServer.Databases

If Not oDatabase.SystemObject Then

cbdbname.AddItem (oDatabase.Name)

End If

Next


Set goSQLServer = Nothing

Exit Sub


erro:

MsgBox "Error en la Conexion..." & Chr(13) & "Asegurece de escribir bien: PCName , UserID , [UserPassword]", vbExclamation + vbDefaultButton1, "Aviso del sistema"

End Sub

Private Sub Command3_Click()

End


End Sub

Private Sub grill_Click()

If grill.Value = True Then

grilla.RowDividerStyle = dbgDarkGrayLine

End If


End Sub

Private Sub lista_Click()

If lista.Value = True Then

grilla.RowDividerStyle = 0

End If


End Sub


Compartir con tus amigos:


La base de datos está protegida por derechos de autor ©bazica.org 2019
enviar mensaje

    Página principal