Visual Basic - ¿Como solucionar el error 37069 en Visual Basic 6.0?

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

¿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
1
2
3
Global BD As New ADODB.Connection
 
Global RsVendedor As New ADODB.Recordset


Có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.Show
 End 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 Then
      MsgBox "No se encontró el usuario", vbInformation, "Aviso"
      txtUsuario.Text = ""
      txtUsuario.SetFocus
      Exit Sub
 Else
     If !contraseña = Trim(txtContraseña.Text) Then
     frmMenu.Show
     Unload Me
     Else
     MsgBox "La contraseña es incorreta", vbInformation, "Aviso"
     txtContraseña.Text = ""
     txtContraseña.SetFocus
     Exit Sub
  End If
  End If
 End With
End Sub
 
Private Sub Form_Load()
AbrirTablaVendedor
End Sub
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