Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Global cn As ADODB.Connection
Global cmd1 As ADODB.Command
Global rsset As ADODB.Recordset
Private Sub Command1_Click()
If Command1.Caption = "Connect" Then
With cn
.ConnectionString "DSN=MyDSN;UID=MyUser;PWD=MyPassword;DATABASE=MyDB"
.Open
.CursorLocation = adUseClient
End With
Set rsset.ActiveConnection = cn
Command2.Enabled = True
Command1.Caption = "Disconnect"
Label1.Caption = "ON"
Else
Command2.Enabled = False
Command1.Caption = "Connect"
Label1.Caption = "Off"
Set rsset.ActiveConnection = Nothing
cn.Close
End If
End Sub
Private Sub Command2_Click()
rsset.Open "EXEC " & Text1.Text
If rsset(0) <> -1 Then
Print rsset(0)
Label2.Caption = "Sucessfull"
Else
Label2.Caption = "Wrong Execute"
End If
rsset.Close
End Sub
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rsset = New ADODB.Recordset
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Desconecto y cierro mi conexion.
Set rsset.ActiveConnection = Nothing
cn.Close
End Sub