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 16 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