چك كردن رمز عبور ؟

[baharane]

با سلام و احترام

مي خواهم براي امانت دادن كتاب در پروژه ام كد عضويت ( را كه هنگام ثبت نام به داوطلب در فرم اعضا داده شده) را با كدي كه در فرم امانت دريافت مي كنم مقايسه كنم و درصورت تطابق،آن كتاب به امانت داده شود

در همان دكمه ثبت مقدار كد عضويت را در متغيري آرايه اي سراسري كه در ماكرو تعريف شده قرار دادم (a)

و در فرم امانت مقدار تكس باكس كد عضويت را با مقدار مقايسه كردم ولي هيچ عكس العملي از اين مقايسه انجام نمي شود.خطا در هنگام ثبت خطاي مي دهد و ثتب نمي كند.WRONG NUMBER OF DIAMANSION.

از راهنمايي شما ممنونم.


Public a(10, 3) As String
Public i, j As Integer


Private Sub sabt_Click()

Rs.AddNew

Rs("name").Value = Text1.Text

Rs("family").Value = Text5.Text

Rs("national code").Value = Text3.Text

Rs("member code").Value = Text6.Text

Rs("phone").Value = Text3.Text

Rs("email").Value = Text4.Text

Rs("postal code").Value = Text7.Text

Rs.Update

DataGrid1.Refresh



a(i)(j) = Rs("member code").Value

i = i + 1

j = j + 1





End Sub



Private Sub amanat_Click()
If Text1.Text = a(i)(j) Then
MsgBox "ÇãÇäÊ ÐÇÔÊå ÔÏ"
End If
End Sub

[mamad174]

با سلام می خوام بدونم شما کد عضویت رو در دیتا بیس ذخیره می کنید ؟
چون این کد رو اول برنامه از کاربر می گیرید باید یک جا ذخیره بشه اگر این طوره موضوع برمی گرده به دیتا بیس و جستجو در آن یعنی شما باید عمل مقایسه رو با جستجو در بانک انجام بدید که با یه شرط می تونید متوجه صحت کد وارد شده بشید
اگر بدردتون خورد بگید تا بیشتر توضیح بدم

[baharane]

با سلام می خوام بدونم شما کد عضویت رو در دیتا بیس ذخیره می کنید ؟
چون این کد رو اول برنامه از کاربر می گیرید باید یک جا ذخیره بشه اگر این طوره موضوع برمی گرده به دیتا بیس و جستجو در آن یعنی شما باید عمل مقایسه رو با جستجو در بانک انجام بدید که با یه شرط می تونید متوجه صحت کد وارد شده بشید
اگر بدردتون خورد بگید تا بیشتر توضیح بدم

با سلام از پاسخ شما ممنونم کد عضویت رو در دیتا بیس ذخیره كردم و يكي از فيلد هاي جدولم هستش جستجو توي ديتا بيس بلد اگه راهنمايي كنيد خيلي ممنون ميشم

[baharane]

با سلام می خوام بدونم شما کد عضویت رو در دیتا بیس ذخیره می کنید ؟
چون این کد رو اول برنامه از کاربر می گیرید باید یک جا ذخیره بشه اگر این طوره موضوع برمی گرده به دیتا بیس و جستجو در آن یعنی شما باید عمل مقایسه رو با جستجو در بانک انجام بدید که با یه شرط می تونید متوجه صحت کد وارد شده بشید
اگر بدردتون خورد بگید تا بیشتر توضیح بدم

با سلام از پاسخ شما ممنونم
بله کد عضویت رو در دیتا بیس ذخیره می کنم و يكي از فيلد هاي جدولم هست.
عمل مقایسه رو با جستجو در بانک رو بلد نيستم اگه بیشتر توضیح بدم ممنونم

[M.T.P]

سلام دوست عزیز:
الگوریتم خوبی برای برنامه تعریف نکردی.
متغیر نمیخواد ، در فرم امانت کتاب و کلید ثبت آن جدول اعضاء رو طبق شماره کد عضویت باز میکنید اگه رکوردی پیدا شد معلومه که کد عضویت معتبر هست در غیراینصورت پیغام میدید و عملیات ثبت امانت رو لغو میکنید.


Adodc1.RecordSource = "Select * From Users Where CodeOzviat = '" & Txtcode.Text & "'"
If Adodc1.Recordset.RecordCount <> 0 Then
MsgBox "code Ozviat Motabar nist.", vbCritical
Else
'Do...
End If

[baharane]

سلام دوست عزیز:
الگوریتم خوبی برای برنامه تعریف نکردی.
متغیر نمیخواد ، در فرم امانت کتاب و کلید ثبت آن جدول اعضاء رو طبق شماره کد عضویت باز میکنید اگه رکوردی پیدا شد معلومه که کد عضویت معتبر هست در غیراینصورت پیغام میدید و عملیات ثبت امانت رو لغو میکنید.


Adodc1.RecordSource = "Select * From Users Where CodeOzviat = '" & Txtcode.Text & "'"




If Adodc1.Recordset.RecordCount = 0 Then

MsgBox "code Ozviat Motabar nist.", vbCritical
Else
'Do...

End If







با سلام و احترام

در پروژه ام از adodbاستفاده كرده ام(فرم ثبت ) و در فرم امانت كتاب من 4 تا تكس باكس دارم كه كد عضويت و كد كتاب و تاريخ امانت و تاريخ برگشت است طبق خواسته شما از adodc استفاده كنم و اينها را به adodcارتباط بدم بعد شما در خط اولتان Adodc1.RecordSource را جدول اعضا معرفي كرديد خوب حالا تكس هارا به جدول اعضا يا به جدول امانت ارتباط بدم ?

درثبت مشكلي ندارد ولي كد هاي عضويت را بررسي نمي كند

در خصيصه ايRecordSource دي او دي سي من جدول اعضا را قرار دادم



از راهنمايي شما ممنونم.

[baharane]

[/left]


با سلام و احترام


در پروژه ام از adodbاستفاده كرده ام(فرم ثبت ) و در فرم امانت كتاب من 4 تا تكس باكس دارم كه كد عضويت و كد كتاب و تاريخ امانت و تاريخ برگشت است طبق خواسته شما از adodc استفاده كنم و اينها را به adodcارتباط بدم بعد شما در خط اولتان Adodc1.RecordSource را جدول اعضا معرفي كرديد خوب حالا تكس هارا به جدول اعضا يا به جدول امانت ارتباط بدم ?


درثبت مشكلي ندارد ولي كد هاي عضويت را بررسي نمي كند


در خصيصه ايRecordSource دي او دي سي من جدول اعضا را قرار دادم




از راهنمايي شما ممنونم.



خيلي سخته !
يعني نميشه از adodb استفاده كرد !

[M.T.P]

خيلي سخته !
يعني نميشه از adodb استفاده كرد !

سلام :
فرقی نداره ، به جای Adodc اسم متغیر رکوردست رو بنویسید.


Rs.Open "Select * From Users Where CodeOzviat = '" & Txtcode.Text & "'"
If Rs.RecordCount <> 0 Then
MsgBox "code Ozviat Motabar nist.", vbCritical
Else
'Do...
End If

[baharane]

سلام :
فرقی نداره ، به جای Adodc اسم متغیر رکوردست رو بنویسید.


Rs.Open "Select * From Users Where CodeOzviat = '" & Txtcode.Text & "'"




If Rs.RecordCount <> 0 Then

MsgBox "code Ozviat Motabar nist.", vbCritical
Else
'Do...

End If





سلام

دوست عزيز باز هم خطا گرفت از خط اول آن

در ضمن من فيلد هاي امانت را در جدول امانت ذخيره كردم .

كد امانت از فرم ثبت نام با كد امانت در فرم جاري چك نمي شود.

از راهنمايي شما ممنونم.

Opration is not allowed when the object is open خطاي
Rs.Open "Select * From Users Where CodeOzviat = '" & Txtcode.Text & "'"




اين هم تمام كد فرم امانت
Private Sub Command1_Click()
Rs.AddNew
Rs("mem cod").Value = Text1.Text
Rs("book cod").Value = Text2.Text
Rs("bdat").Value = Text3.Text
Rs("rdat").Value = Text4.Text
Rs.Update
Rs.Open "select * from members where member code='" & Text1.Text & " ' "
If Rs.RecordCount <> 0 Then
MsgBox "not credit"
Else
MsgBox "be credit"
End If
End Sub

Private Sub Form_Load()
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\LIB.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password = 1"
Cn.Open
Rs.CursorLocation = adUseClient
Rs.Open "borrow", Cn, adOpenStatic, adLockPessimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
End Sub

[M.T.P]

کد Command رو اینطوری بنویسید:



If Rs.State = 1 Then Rs.Close
Rs.Open "select * from members where member code = '" & Text1.Text & "'"
If Rs.RecordCount <> 0 Then
MsgBox "Code Azviat Motabar nist.", vbCritical
Else
Rs.AddNew
Rs("mem cod").Value = Text1.Text
Rs("book cod").Value = Text2.Text
Rs("bdat").Value = Text3.Text
Rs("rdat").Value = Text4.Text
Rs.Update
MsgBox "Ok."
End If

[baharane]

کد Command رو اینطوری بنویسید:



If Rs.State = 1 Then Rs.Close




Rs.Open "select * from members where member code = '" & Text1.Text & "'"

If Rs.RecordCount <> 0 Then
MsgBox "Code Azviat Motabar nist.", vbCritical
Else
Rs.AddNew
Rs("mem cod").Value = Text1.Text
Rs("book cod").Value = Text2.Text
Rs("bdat").Value = Text3.Text
Rs("rdat").Value = Text4.Text
Rs.Update
MsgBox "Ok."
End If








با سلام و احترام

هر چي كد عضويت درست وارد مي كنم پيغام عدم اعتبار مي دهد و اگر كد عضويت نادرست وارد مي كنم

خطاي زمان اجراي 3265 را ميدهد

Item cannot found in the collection corresponding to the requested name or ordinal

اگر شرط If Rs.RecordCount = 0 Then قرار بدهم

و كد عضويت نادرست وارد مي كنم پيغام عدم اعتبار مي دهد و اگر كد عضويت درست وارد مي كنم

خطاي زمان اجراي 3265

Item cannot found in the collection corresponding to the requested name or ordinal
از راهنمايي شما ممنونم.

[M.T.P]

سلام ، ببینید این کد الان هیچ ایرادی نداره ، و اروری که میگین از اشتباه وارد کردن نام فیلد هست ، بررسی کنید ببینید کدوم فیلد اسمش رو اشتباه نوشتید.


If Rs.State = 1 Then Rs.Close
Rs.Open "select * from members where member code = '" & Text1.Text & "'"
If Rs.RecordCount = 0 Then
MsgBox "Code Azviat Motabar nist.", vbCritical
Else
Rs.AddNew
Rs("mem cod").Value = Text1.Text
Rs("book cod").Value = Text2.Text
Rs("bdat").Value = Text3.Text
Rs("rdat").Value = Text4.Text
Rs.Update
MsgBox "Ok."
End If

[M.T.P]

یه چیز دیگه....
اگه اسم فیلدهاتون درسته به نظرم مشکل در شکل نامگذاری هست ، یعنی ایجاد فاصله بین حروف مثل فیلد (mem cod) فاصلش رو بردارید. تو دستورات SQL به مشکل برمیخورید.

[baharane]

یه چیز دیگه....
اگه اسم فیلدهاتون درسته به نظرم مشکل در شکل نامگذاری هست ، یعنی ایجاد فاصله بین حروف مثل فیلد (mem cod) فاصلش رو بردارید. تو دستورات SQL به مشکل برمیخورید.






با سلام و احترام

راستش من با رعايت فاصله فیلدها و نام جدول به اين نتيجه رسيدم و اين تاپيك راخدمت شما زدم.

خيلي سخته واقعا نميدونم ديگه چه كار كنم.:افسرده:
از راهنمايي شما ممنونم.

[M.T.P]

سلام
این پیغام خطا:

Item cannot found in the collection corresponding to the requested name or ordinal
در خصوص اشتباه وارد کردن اسم فیلد هست ، جدول رو بررسی کنید.

[baharane]

سلام
این پیغام خطا:

در خصوص اشتباه وارد کردن اسم فیلد هست ، جدول رو بررسی کنید.
سلام
والا من از اول جدول ساختم اسم فيلدها دقيق در جدول و فرم بررسي كردم عينا هم است
باز هم همين پيغام ميده
يعني مشكل از جاي ديگه نمي تونه باشه

[M.T.P]

بخشی از پروژه رو اگه ممکنه آپلود کنید.

[baharane]

بخشی از پروژه رو اگه ممکنه آپلود کنید.





با سلام و احترام

حالا من يه نظر دارم

يه نظر شما لازم نيست يه متغير ديگه تعريف كنيم .

از راهنمايي شما ممنونم.
Dim Cmd As ADODB.Command
Cmd.ActivatedConnetion = Conn
cmd.CommandType = adCmdText
Cmd.CommandText = "Select * From…

[M.T.P]

If Rs.State = 1 Then Rs.Close
Rs.Open "select * from members where membercode = '" & Text1.Text & " ' "
If Rs.RecordCount = 0 Then
MsgBox "not credit", vbCritical
Else
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from borrow"
Rs.AddNew
Rs("memcod").Value = Text1.Text
Rs("borcod").Value = Text2.Text
Rs("bordat").Value = Text3.Text
Rs("recdat").Value = Text4.Text
Rs.Update
MsgBox "ok"
End If

[baharane]

If Rs.State = 1 Then Rs.Close



Rs.Open "select * from members where membercode = '" & Text1.Text & " ' "
If Rs.RecordCount = 0 Then
MsgBox "not credit", vbCritical
Else
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from borrow"
Rs.AddNew
Rs("memcod").Value = Text1.Text
Rs("borcod").Value = Text2.Text
Rs("bordat").Value = Text3.Text
Rs("recdat").Value = Text4.Text
Rs.Update
MsgBox "ok"

End If




با سلام و احترام

باز هم يه سوال مي خوام چك كنم كه كد كتاب معتبر است يا نه ؟

اگر نام جدول كتاب را توي خطselect بنويسم و با كما نا م دو جدول را از هم جدا كنم خطاي سينتكس مي دهد و اگر هم

به جاي انتخاب همه ستون هاي جدول.. خطاي سينتكس از كما مي دهد
Rs.Open "select members.membercode ,book.bcod from members,book where membercode = '" & Text1.Text & " ' ,bcod= ' " & Text2.Text & " ' "



با گذاشتن علامت & و يا كما بين نام جداول باز هم خطا مي دهد
Rs.Open "select * from members & book where membercode = '" & Text1.Text & " ' & bcod= ' " & Text2.Text & " ' "


جستجو بر اساس نا م كتاب بر اساس حروف فارسي ممكن است؟

با وجود اينكه در قسمت dynaset حروف فارسي را قبول نمي كند

از راهنمايي شما ممنونم.

[baharane]

با سلام و احترام






باز هم يه سوال مي خوام چك كنم كه كد كتاب معتبر است يا نه ؟



اگر نام جدول كتاب را توي خطselect بنويسم و با كما نا م دو جدول را از هم جدا كنم خطاي سينتكس مي دهد و اگر هم



به جاي انتخاب همه ستون هاي جدول.. خطاي سينتكس از كما مي دهد

Rs.Open "select members.membercode ,book.bcod from members,book where membercode = '" & Text1.Text & " ' ,bcod= ' " & Text2.Text & " ' "



با گذاشتن علامت & و يا كما بين نام جداول باز هم خطا مي دهد

Rs.Open "select * from members & book where membercode = '" & Text1.Text & " ' & bcod= ' " & Text2.Text & " ' "


جستجو بر اساس نا م كتاب بر اساس حروف فارسي ممكن است؟



با وجود اينكه در قسمت dynaset حروف فارسي را قبول نمي كند




از راهنمايي شما ممنونم.









با سلام و احترام

اين جور تغييرش دادم
If Rs.State = 1 Then Rs.Close
Rs.Open "select members.membercode , book.bcod from members,book where membercode = '" & Text1.Text & " ' & bcod= ' " & Text2.Text & " ' "
If Rs.RecordCount = 0 Then
MsgBox "not credit", vbCritical
Else
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from borrow"
Rs.AddNew
Rs("memcod").Value = Text1.Text
Rs("borcod").Value = Text2.Text
Rs("bordat").Value = Text3.Text
Rs("recdat").Value = Text4.Text
Rs.Update
MsgBox "ok"
End If


هر چي كد عضويت و كد كتاب درست و يا نادرست وارد مي كنم پيغام عدم اعتبار مي دهد

از راهنمايي شما ممنونم.

[baharane]

با سلام و احترام




اين جور تغييرش دادم


If Rs.State = 1 Then Rs.Close
Rs.Open "select members.membercode , book.bcod from members,book where membercode = '" & Text1.Text & " ' & bcod= ' " & Text2.Text & " ' "
If Rs.RecordCount = 0 Then
MsgBox "not credit", vbCritical
Else
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from borrow"
Rs.AddNew
Rs("memcod").Value = Text1.Text
Rs("borcod").Value = Text2.Text
Rs("bordat").Value = Text3.Text
Rs("recdat").Value = Text4.Text
Rs.Update
MsgBox "ok"
End If



هر چي كد عضويت و كد كتاب درست و يا نادرست وارد مي كنم پيغام عدم اعتبار مي دهد



از راهنمايي شما ممنونم.










با سلام و احترام

چيز ديگه اي به ذهنم نميرسه

شما هم كه پيداتون نيست.اگه براي شما هم پيچيده اس ، لطفا پاسخ دهيد.


از راهنمايي شما ممنونم.

[kh-fighter]

سلام كسي سورس يه برنامه بانك اطلاعاتي كامل رو داره برام به اشتراك بزاره ممنون ميشم

[baharane]

سلام به دوستان
حسابی نا امیدم کردید واقعا کسی بلد نیست مقایسه دو تا جدول !