עזרה בסיס נתונים

[cohea15]

עזרה בסיס נתונים

Private Sub Command1_Click() Dim sConnection As String num = num + 100 Set Conn = New ADODB.Connection Set RS = New ADODB.Recordset sConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=userdata.mdb; DefaultDir=t:/" & ";" Conn.Open sConnection ProgressBar1.Value = num If Conn.State = adStateOpen Then RS.CursorLocation = adUseClient RS.Open "Select * FROM USER;", Conn, adOpenDynamic, adLockPessimistic If Text1.Text <> RS!User And Text2.Text <> RS!Password Then MsgBox "ääúçáøåú ìáñéñ äðúåðéí ìà äöìéçä." & vbCrLf & _ "àðà áéã÷å àí äå÷ìãä ñéñîà ðëåðä.", vbMsgBoxRight + vbMsgBoxRtlReading Conn.Close Else MsgBox "ääúçáøåú ìáñéñ äðúåðéí äöìéçä" ConnComplete = True Conn.Close Conn.Open sConnection RS.Open "Select * FROM USER;", Conn, adOpenDynamic, adLockPessimistic Set Form4.DataGrid1.DataSource = RS!User End If End If End Sub הבעיה שלי היא פה Set Form4.DataGrid1.DataSource = RS לאחר שההתחברות הצליחה אמרתי ש בפורם 4 בטבלה יהיה את הפרטים שלי מי שיתחבר הבעיה היא שזה מציג את כל הפרטים של מי שיתחבר בטבלה ואני רוצה שזה יציג בטבלה רק את השם של אותו בן אדם שיתחבר ניסיתי כך לא עובד לי Set Form4.DataGrid1.DataSource = RS!User אשמח לעצות תודה על העזרה

 

[rotemNO1]

לא עשית בשום מקום where

המשפט שלך לוקח את כולם, ולא את מי שהתחבר, בשביל זה אתה צריך לעשות משפט בסגנון: Select * FROM USER WHERE user='" & me.text1 & "'" x" בהצלחה.

 

[cohea15]

עובד אם אפשר עוד שאלה

תודה אחי על העזרה הוספתי את המשפט הבא ועובד RS.Open "Select * FROM USER where User = '" & Text1.Text & "' and Password = '" & Text2.Text & "'", Conn, adOpenDynamic, adLockPessimistic אבל בטופס 4 בשורה הראשונה של הטבלה הוא מציג לי את כל הפרטים של המשתמש מציג בטבלה את השם משתמש של מי שיתחבר וגם את הסיסמא שלו וגם את כתובת האיימייל ואני רוצה שיציג רק את השם של מי שיתחבר נגיד יתחבר יוזר בשם QQQQQ אז בטבלה בטופס 4 יוצג רק היוזר של אותו בן אדם QQQQQ בלי הסיסמא שלו וכתובת המייל תודה על העזרה מראש ניסיתי ככה לא עובד If Conn.State = adStateOpen Then RS.CursorLocation = adUseClient RS.Open "Select * FROM USER where User = '" & Text1.Text & "' and Password = '" & Text2.Text & "'", Conn, adOpenDynamic, adLockPessimistic If RS.EOF Then msgbox "not good" Else MsgBox "good" Set Form4.DataGrid1.DataSource = RS!User End If End If Conn.Close RS.CLOSE ניסיתי גם ככה לא עובד If Conn.State = adStateOpen Then RS.CursorLocation = adUseClient RS.Open "Select * FROM USER;", Conn, adOpenDynamic, adLockPessimistic If Text1.Text <> RS.Fields("USER") Then If Text2.Text <> RS.Fields("PASSWORD") Then MsgBox "ääúçáøåú ìáñéñ äðúåðéí ìà äöìéçä." & vbCrLf & _ "àðà áéã÷å àí äå÷ìãä ñéñîà ðëåðä.", vbMsgBoxRight + vbMsgBoxRtlReading Conn.Close Else MsgBox "ääúçáøåú ìáñéñ äðúåðéí äöìéçä" ConnComplete = True Conn.Close Conn.Open sConnection RS.Open "Select * FROM USER where User = '" & Text1.Text & "' and Password = '" & Text2.Text & "'", Conn, adOpenDynamic, adLockPessimistic Set Form4.DataGrid1.DataSource = RS End If End If End If

 

[rotemNO1]

פשוט מאוד,

תעשה select userName from USER userName הוא שם השדה של שם המשתמש, אם אתה רוצה שיופיעו עוד שדות תוסיף אותם עם פסיק בין שדה לשדה (userName,userTelephone) וכו' כאשר אתה עושה select * From אתה בוחר את כל השדות לפי הסדר שהם מופיעים בטבלה. נראה שמומלץ לך ללמוד קצת על שאילתות SQL. הנה לינק למדריך ב W3SCHOOLS, מדריך אינטרנט שכדאי להכיר, אם יש לך בעיה עם אנגלית, תשאל פה מי מכיר מדריכים בעברית. בהצלחה!

 

[cohea15]

תודה רבה על העזרה אחי

יש מצב רק לקבל את הלינק עוד הפעם כי בהודעה הקודמת הוא לא עבד תודה

 

[rotemNO1]

קיבלת

http://www.w3schools.com/sql/sql_where.asp