¿Como solucionar el error 37069 en Visual Basic 6.0?
Publicado por Alexander (1 intervención) el 29/10/2019 17:01:55
Hola, por favor, alguien me ayuda en programación en visual Basic? Al ejecutar mi Formulario Login me aparece el Error '3709' Que dice " No se puede utilizar la conexión para realizar esta operación. Esta cerrada o no es válida" Tengo un formulario Login que estoy validando datos con una Base de Datos de SQL Server y de ser los nombres de usuario y contraseña , abrir un nuevo formulario
He creado 2 módulos en el Programa uno llamado Sentencias y otro llamado Declaraciones.
Adjuntaré El código de mi formulario y el de los módulos.
Estoy siguiendo un turorial de Youtube y ya me habia funcionado normal antes solo que se me trabo la PC y perdí el proyecto. Asi que no creo que esté mal el codigo, sino que puede ser un error de sintaxis.
Codigo del Módulo Declaraciones
Código del Módulo Sentencias
y por ultimo código de mi formulario Login:
He creado 2 módulos en el Programa uno llamado Sentencias y otro llamado Declaraciones.
Adjuntaré El código de mi formulario y el de los módulos.
Estoy siguiendo un turorial de Youtube y ya me habia funcionado normal antes solo que se me trabo la PC y perdí el proyecto. Asi que no creo que esté mal el codigo, sino que puede ser un error de sintaxis.
Codigo del Módulo Declaraciones
1
2
3
Global BD As New ADODB.ConnectionGlobal RsVendedor As New ADODB.RecordsetCódigo del Módulo Sentencias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub main()
With BD
.CursorLocation = adUseClient
.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BasePractice;Data Source=WINDOWS8"
frmLogin.ShowEnd With
End Sub
Sub AbrirTablaVendedor()
With RsVendedor
If .State = 1 Then .Close
.Open "Select * from Vendedor", BD, adOpenStatic, adLockOptimistic
End With
End Sub
y por ultimo código de mi formulario Login:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub btnIngresar_Click()
If txtUsuario.Text = "" Then MsgBox "Ingrese Usuario", vbInformation, "Aviso": txtUsuario.SetFocus: Exit Sub
If txtContraseña.Text = "" Then MsgBox "Ingrese Contraseña", vbInformation, "Aviso": txtContraseña.SetFocus: Exit Sub
With RsVendedor
.Requery.Find "user_name='" & Trim(txtUsuario.Text) & "'"
If .EOF ThenMsgBox "No se encontró el usuario", vbInformation, "Aviso"
txtUsuario.Text = ""
txtUsuario.SetFocusExit Sub
Else
If !contraseña = Trim(txtContraseña.Text) Then
frmMenu.ShowUnload Me
Else
MsgBox "La contraseña es incorreta", vbInformation, "Aviso"
txtContraseña.Text = ""
txtContraseña.SetFocusExit Sub
End If
End If
End With
End Sub
Private Sub Form_Load()
AbrirTablaVendedor
End Sub
Valora esta pregunta
0