[RESOLVED]Can you help me solve my problem ? Thanks you

VB Code:

Private Sub cmdLogin_Click()
Dim pStrLoginWhere As String
Dim rSLogin As Recordset
Dim DecryptedPass As String
    Call ValidateEmptyField(frmlogin)
 
            pStrLoginWhere = " WHERE User_ID = '" & txtUname.Text & "'"
            
            Set rSLogin = SQLSELECT("*", "UserControl", pStrLoginWhere, "", "", "Maintenance")
            If Not (rSLogin.BOF = True Or rSLogin.EOF = True) Then
                DecryptedPass = RndCrypt(rSLogin!Password, "Password")
                    If txtPassword.Text = DecryptedPass Then
                        gstrUserGroup = rSLogin!Position
                        gstrUserID = rSLogin!User_ID
                        Me.Hide
                        MDIMaintenance.Show
                    Else
                        MsgBox "Invalid Password, Please Try again", vbOKOnly, "Invalid Login"
                        Call HighLight(txtPassword)
                    End If
            Else
                MsgBox "Invalid User Name Login.try again!", vbOKOnly, "Login!!"
                Call HighLight(txtUname)
            End If
End Sub
 
Public Sub SQLExecute(pstrDBName As String)
    
    Set conn = New ADODB.Connection
    
    conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
    "Persist Security Info=true;" & _
    "Initial Catalog=Maintenance;User Id=;Password=;Data Source=SHLIM\SQLEXPRESS;"
    
    conn.Open
End Sub
 
Public Function SQLSELECT(pstrFIELD As String, pstrTABLE As String, pstrWHERE As String, pstrGROUPBY As String, pstrOrderBy As String, pstrDBName As String) As ADODB.Recordset
    Dim pstrSELECT As String
   
 
    pstrSELECT = " SELECT " & pstrFIELD & " FROM " & pstrTABLE & pstrWHERE & _
        pstrGROUPBY & pstrOrderBy
    
    Call SQLExecute(pstrDBName)
[U][I]    SQLSELECT.Open pstrSELECT, conn, adOpenKeyset, adLockPessimistic, adCmdText [/I][/U]
    
End Function

Please help me check my code contains any problem because i obtain error of -- > Object variable or with block variable not set.

Thanks !!!

where have u declared conn?

Sorry Sir,
i had declared it in my project
i forgot to attach it together

VB Code:

Private conn as ADODB.Connection

In your code the function SQLSELECT return the recordset.

You need to declare one local recordset and then open it and return it as the function value

vb Code:

Public Function SQLSELECT(pstrFIELD As String, pstrTABLE As String, pstrWHERE As String, pstrGROUPBY As String, pstrOrderBy As String, pstrDBName As String) As ADODB.Recordset
 
    Dim pstrSELECT As String
    pstrSELECT = " SELECT " & pstrFIELD & " FROM " & pstrTABLE & pstrWHERE & _
    pstrGROUPBY & pstrOrderBy
    Call SQLExecute(pstrDBName)
     Dim x as ADODB.RECORDSET
     SET x=new ADODB.RECORDSET
     x.Open pstrSELECT, conn, adOpenKeyset, adLockPessimistic, adCmdText
    SQLSELECT=x
End Function

Quote:

---

Originally Posted by vksingh24

In your code the function SQLSELECT return the recordset.

You need to declare one local recordset and then open it and return it as the function value

vb Code:

Public Function SQLSELECT(pstrFIELD As String, pstrTABLE As String, pstrWHERE As String, pstrGROUPBY As String, pstrOrderBy As String, pstrDBName As String) As ADODB.Recordset
 
    Dim pstrSELECT As String
    pstrSELECT = " SELECT " & pstrFIELD & " FROM " & pstrTABLE & pstrWHERE & _
    pstrGROUPBY & pstrOrderBy
    Call SQLExecute(pstrDBName)
     Dim x as ADODB.RECORDSET
     SET x=new ADODB.RECORDSET
     x.Open pstrSELECT, conn, adOpenKeyset, adLockPessimistic, adCmdText
    SQLSELECT=x
End Function

---

Thank Sir

I had tried your method, but i used

VB Code:

Set SQLSELECT = X

else it prompt me an error message.

How ever my rslogin always return NOTHING
and Prompt me an error message Type mismatch.

:(

Oppss !! I solved the problem
i must declare

vb Code:

Dim rSLogin As adodb.Recordset

Instead of

vb Code:

Dim rSLogin As Recordset

Thanks sir , you help me a lot.