Bertdecode's Profile User Rating: -----

Reputation: 0 Apprentice
Group:
New Members
Active Posts:
10 (0.01 per day)
Joined:
06-September 12
Profile Views:
1,005
Last Active:
User is offline Oct 02 2012 01:34 AM
Currently:
Offline

Previous Fields

Country:
Who Cares
OS Preference:
Windows
Favorite Browser:
Who Cares
Favorite Processor:
Who Cares
Favorite Gaming Platform:
Who Cares
Your Car:
Who Cares
Dream Kudos:
0
Icon   Bertdecode has not set their status

Posts I've Made

  1. In Topic: run time error 3709

    Posted 20 Sep 2012

    Try This.

    Dim strUserName As String, strPassword As String
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    
     
    
     
    
    Public Sub OpenCon()
        Set con=new ADODB.Connection
        if con.state = 0 then
    
        con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\database\enrollment.mdb"
    
        end if
    
    End Sub
    
     
    
    Private Sub cmdlogin_Click()
    Set rs=new ADODB.Recordset
    OpenCon
    
    rs.Open "SELECT * FROM [tbladmin] WHERE [username]= '" & txtUsername.Text & "'", con, adOpenStatic, adLockOptimistic
    
     
    
            If rs.RecordCount <> 0 Then
    
                If rs![Password] = txtPassword.Text Then
    
                    If rs![user_type] = "Principal" Then
    
                              
    
                        MsgBox "The Principal has login", vbOKOnly + vbInformation, "LOGIN"
    
                            frmMain.Transaction.Visible = True
    
                            frmMain.Maintenance.Visible = True
    
                            frmMain.Reports.Visible = True
    
                            frmMain.Exit.Visible = True
    
                            frmMain.Others.Visible = True
    
                            frmMain.Files.Visible = True
    
                            Login1 = 1
    
                            'frmMain.Text3 = Text1.Text
    
                            'frmMain.Text4 = TimeValue(Now)
    
                        End If
    
               End If
    
          End If
    
    End Sub
    
    
    
  2. In Topic: Newbie Areas to focus on

    Posted 20 Sep 2012

    make a simple Inventory System that has SQL database!
    and make it in WPF or Silverlight platform.
  3. In Topic: Setup Wizard, build app

    Posted 20 Sep 2012

    DO you include the text file in your setup?
    Or make sure the path of the text file is valid so that the textfield can see it.

My Information

Member Title:
New D.I.C Head
Age:
Age Unknown
Birthday:
Birthday Unknown
Gender:
Programming Languages:
VB6,VB.NET,C#,PHP

Contact Information

E-mail:
Click here to e-mail me

Friends

Bertdecode hasn't added any friends yet.

Comments

Bertdecode has no profile comments yet. Why not say hello?