שבת שלום לכולם,
אני נסיתי לבנות טופס פשוט שקשור לאיזה מערכת, ותפקידו או פשוט לבדוק אם השם משתמש והסיסמה שהוקלדו לו הם בתוך המאגר נתונים מקושר מאקסס.
בתוך התיבות טקסט הוגדרו ה Datasource ו ה- Datafields הנחוצים אך עדיין יש בעיה.

קוד:

 

Private Sub Comm_ok_Click()
'Tuser--> user id textbox
'Tpass--> user password textbox
If Tuser.Text = "" And Tpass.Text = "" Then GoTo errhendler
If Tuser.Text = "Select* FROM clients WHERE clientID==tuser.text " And Tpass.Text = "SELECT * FROM clients WHERE clientPASS==Tpass.text" Then
Me.Hide
frmmain.Show
Else: GoTo errhendler
End If
Exit Sub
errhendler:
MsgBox "Null input Error or wrong input, try again", vbMsgBoxRight, "sys_ error"
End Sub

הוא תמיד נכנס ל errhendler ולא מציג את הטופס הבא, למרות שאני מכניס לו נתונים מתוך הטבלאות של המסד (כביכול שם משתמש וסיסמה נכונים)

תודה רבה על העזרה !
שגיא קרן

הי.
בלי להעליב, מה שעשית ממש רחוק ממה שאתה (אני מניח) התכוונת לעשות.
התוכנה שעשית בודקת האם השדות האלה מכילים את הביטויים שרשמת שם. כלומר, כדי שהתוכנית תחזיר "אמת", אתה תצטרך להקליד (פיזית) את הביטוי "Select* FROM clients WHERE clientID==tuser.text " בתיבה הראשונה ואת הביטוי "SELECT * FROM clients WHERE clientPASS==Tpass.text" בתיבה השניה, שאני מניח שזו לא הייתה התוכנית המקורית שלך.
אני חושש שאובייקט הרקורדסט לא תומך בשאילתות SQL, בטח לא איך שאתה שמת אותן. מה שאני הייתי עושה זה לקשר את השדות במסד הנתונים לתיבות טקסט בלתי נראות (visible=false), לעבור על הרשומות אחת אחת, וכל פעם להשוות את השדות שהמשתמש הכניס לשדות הבלתי נראים שיצרנו. אין דרך אחרת שאני מכיר בVB6. אם תצטרך עזרה בקוד, אל תהסס לפנות אלי.
יום טוב.