SoloCodigo

Lo que realmente necesito son ejemplos aplicados a Visual Basic 6 y la conexion con OOo
(OpenOffice base datos) que estoy aprendiendo y la mejor forma adicional a los manuales son los
ejemplos
Muchas gracias
Miguel, Caballito, Buenos Aires, Argentina

--------------------------------------------------------------------------------

Hola a todos, ante todo soy aficionado de Visual Basic, y mis limitaciones en este tema son importantes, ja ja: este codigo funciona perfectamente, para log_in, sucede que estoy desarrollando un ejecutable y necesito MODIFICAR este CODIGO para segun quien entra derivarlo a distintos formularios, ej form1, form2, . . . form8, solamente hay 8 usuarios registrados, desde ya muchas gracias...
Miguel

frmLogin:

Option Explicit
' Flag
Dim Ok As Boolean

Private Sub cmdEntrar_Click()

' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:Bd_MEJORASdatabdMejoras.mdb" & ";"

' Variable para el recordset
Dim Rst_Login As Recordset

' crea el recordset
Set Rst_Login = New Recordset

Dim SQL As String

' consulta SQL ( Campos: Nombre y Password) _
Textbox ( txt_Usuario y txt_Password) _
Tabla: Usuarios

SQL = "SELECT Nombre, Password " & _
"FROM Usuarios " & _
"WHERE Nombre = '" & txt_Nombre.Text & "'" _
& "AND Password = '" & txt_Password.Text & "'"

With Rst_Login
' Abre el recordset
.Open SQL, C_CADENA

' Si el recordset está vacío es por que es incorrecto
If .EOF Then
MsgBox " El usuario o Password es incorrecto ", _
vbCritical, " Login incorrecto "
' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing
Exit Sub
End If
End With

' Cierra y descarga el Recordset
Rst_Login.Close
Set Rst_Login = Nothing

'Cambia el Flag para que no cierre el programa con End
Ok = True

' Descarga el formulario y prosigue en el SubMain
Unload Me

End Sub

Private Sub cmdSalir_Click()
Ok = False
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set frmLogin = Nothing
If Ok = False Then
End
End If
End Sub


frmSubMain:

Option Explicit

Public Sub Main()
Dim Nombre As Variant
Dim dario As Variant
Dim edith As Variant
Dim txt_Nombre As Variant



' Abre el formulario para el ingreso _
del Usuario y la contraseña
frmLogin.Show vbModal

MsgBox " ..bienvenido al sistema de tickets ", vbInformation, " Login Correcto "
' Abre el formulario principal del programa

frmPrinc1.Show

End Sub