ما هو الكود الذي يتأكد من وجود الإسم في قاعدة بيانات أكسيس

السلام عليكم اخي

قوم بعمل الاستعلام بأسم الشخص

"select Persons_N from Persons   where Persons_N = '" & Text1.Text & "'"

بعد ذلك تأكد انه موجود عن طريق الكود

If RS.EOF = False Then
msgbox "هذا الاسم تم تسجيله "
end if

بالتوفيق

جواد كتب:

السلام عليكم

عندما يصل الـ RS إلى أخر صف EOF فهذا يعني أنه لم يجد الأسم المطلوب

والكود هو

Rs.MoveFirst
Rs.Find "SName='" & Text1.Text & "'"
If Rs.EOF Then
	Msgbox "هذا الأسم غير موجود"
Else
	Msgbox "هذا الأسم موجود"
End If

أولاً ممكن سؤال بسيط ، ماذا تقصد بمعني هذا السؤال :

اقتباس

ما هو الكود الذي يتأكد من وجود الإسم في قاعدة بيانات أكسيس

هل تقصد أن لديك حقل (إسم) بجدول تريد البحث عن قيمة نصية مدرجة بين مجموعة سجلات ؟؟؟

أم تقصد البحث عن Object محدد داخل قاعدة البيانات Table Or Fields ???؟

إن كان طلبك هو الأول فالإجابة الشافية تم عرضها عليك من الأصدقاء ، وإليك الإجابة الشافية بجمل SQL

نفرض أن لدينا جدول يدعي Emp ، وبه حقل يدعي Emp_Name ، سيكون جملة الإستعلام كما يلي :

Sql = "Select Count(0) From Emp Where Emp_Name = '" & strFind & "'"

وما عليك بعد ذلك إختبار الحقل كما يلي :

If(Rs(0) = 0)Then
MsgBox "الإسم غير موجود"
Else
MsgBox "الإسم موجود"
End If

بالتوفيق

أخواني mr_mgm و Mady-AGC و MMA_EG_Cairo

الله يوفقكم ويبارك فيكم إن شاءالله

والله يرزقكم من واسع فضله

والله يرزقكم من حيث لا تعلموا ويخليكم لأهلكم

ولكن أخواني ممكن تضعو لي الكود كاملاً فضلاً من بعد أذنكم

لأني كل كل ما أستخدم كود من الأكواد التي وضعتوها يظهر لي خطأ

لازم يكون الكود كاملاً

مثل مثلاً rs إلى ماذا ترمز هذه

أنتظر إجابتكم الله يوفقكم

السلام عليكم

هذا مشروع بمكتبة الادو

به الاضافة والبحث والحذف

http://www.4shared.com/file/nv9Z9sSH/ado_cn.html

Dim Rs As New ADODB.Recordset

Sql = "Select Count(0) From Emp Where Emp_Name = '" & strFind & "'"
Rs.Open Sql, Cn
If(Rs(0) = 0)Then 
   MsgBox "الإسم غير موجود" 
Else 
   MsgBox "الإسم موجود" 
End If

بالتوفيق

With rs_find
If .State = adStateOpen Then .Close
.Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic
If .RecordCount <= 0 Then
MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight
.Close
Exit Sub
End If
End With

انا في عندي هذا الكود للبحث عن إسم وفي حال إذا كان الإسم غير موجود تظهر لي هذه الرسالة مثل مو مكتوب أعلاه غير موجود أما إذا كان موجود تظهر لي رسالة أنه موجود

ولكن انا اريد تحويل هذا الكود ليقول أن هذا الشخص موجود أو غير موجود

With rs_find
If .State = adStateOpen Then .Close
.Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic
If .RecordCount = 0 Then
MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight
Else
MsgBox "موجود"
End If
.Close
End With

أخي MMA_EG_Cairo جربت الكود اللي وضعته لي آخر واحد

ولكن يظهر لي فقط الرسالة الأولى اللي هي غير موجود

مع اني انا وضعت اسم في قاعدة البيانات ومع ذالك قالي لي غير موجود سواء الإسم موجود أو غير موجود تظهر لي الرسالة انه غير موجود

يعني دائماً الرسالة تظهر لي غير موجود

With rs_find 
If .State = adStateOpen Then .Close 
.Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic 
If .RecordCount = 0 Then 
MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight 
Else 
MsgBox "موجود" 
End If 
.Close 
End With

هذه الأيام أذاكر فيجوال دوت نيت !!! فوجودي بالمنتدي بقي دائم !!! فأرجو الدعاء لي

علي كل حال أنظر الي هذا التعديل البسيط

    Dim rs_find As New ADODB.Recordset
    With rs_find
        If .State = adStateOpen Then .Close
        .CursorLocation = adUseClient
        .Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic
        If .RecordCount = 0 Then
            MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight
        Else
            MsgBox "موجود", vbInformation + vbOKOnly + vbMsgBoxRight
        End If
        .Close
    End With

بالتوفيق

الله وفقك يا أخي MMA_EG_Cairo

ولكن أخي إلى لم تنحل المشكلة

انا واضع في قاعدة البيانات في ملف اكسيس

اسمين أحمد وإسم خالد

ولما اضع في حقل التكست الذي اسمه Text1.text

عند وضع مثلا اسم أحمد تظهر لي رسالة بعدم وجود هذا الإسم

ولما أضع خالد نفس الشي تظهر لي رسالة بعدم وجود هذا الإسم

وأي اسم آخر اضعه تظهر لي رسالة بعدم وجود هذا الإسم

يعني سواء الأسم موجود في قاعدة البيانات او غير موجود تظهر لي رسالة بعدم وجود هذا الإسم

ما الحل بارك الله فيك ويخليك لأهلك

جواد كتب:

الله وفقك يا أخي MMA_EG_Cairo

ولكن أخي إلى لم تنحل المشكلة

انا واضع في قاعدة البيانات في ملف اكسيس

اسمين أحمد وإسم خالد

ولما اضع في حقل التكست الذي اسمه Text1.text

عند وضع مثلا اسم أحمد تظهر لي رسالة بعدم وجود هذا الإسم

ولما أضع خالد نفس الشي تظهر لي رسالة بعدم وجود هذا الإسم

وأي اسم آخر اضعه تظهر لي رسالة بعدم وجود هذا الإسم

يعني سواء الأسم موجود في قاعدة البيانات او غير موجود تظهر لي رسالة بعدم وجود هذا الإسم

ما الحل بارك الله فيك ويخليك لأهلك

السلام عليكم

الكود يقوم بالبحث بدلالة رقم البطاقة لجعله بقوم بالبحث بالاسم قم بتغيير الحقل user_id بالحقل الدال على الأسم

Dim rs_find As New ADODB.Recordset 
	With rs_find 
    	If .State = adStateOpen Then .Close 
    	.CursorLocation = adUseClient 
    	.Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic 
    	If .RecordCount = 0 Then 
        	MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight 
    	Else 
        	MsgBox "موجود", vbInformation + vbOKOnly + vbMsgBoxRight 
    	End If 
    	.Close 
	End With

أخي العزيز Mady-AGC هل تقصد أن أجعل حقل user_id بقاعدة اليبانات حقل تكست

هو أصلاً حقل تكست

ممكن توضيح أخي Mady-AGC

أو ممكن تعدل الكود ليصبح يبحث عن الإسم

Dim rs_find As New ADODB.Recordset  
        With rs_find  
        If .State = adStateOpen Then .Close  
        .CursorLocation = adUseClient  
        .Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic  
        If .RecordCount = 0 Then  
                MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight  
        Else  
                MsgBox "موجود", vbInformation + vbOKOnly + vbMsgBoxRight  
        End If  
        .Close  
        End With

السلام عليكم اخي

من الافضل ان ترفق مثال حتي نستطيع مساعدتك

مع تحديد ما تريد بالضبط

أخي انا واضع في قاعدة البيانات في ملف اكسيس

اسمين أحمد و خالد

ولما اضع في حقل التكست الذي اسمه Text1.text

عند وضع مثلا اسم أحمد تظهر لي رسالة بعدم وجود هذا الإسم

ولما أضع خالد نفس الشي تظهر لي رسالة بعدم وجود هذا الإسم

وأي اسم آخر اضعه تظهر لي رسالة بعدم وجود هذا الإسم

يعني سواء الأسم موجود في قاعدة البيانات او غير موجود تظهر لي رسالة بعدم وجود هذا الإسم

انا اريد الكود الذي يتأكد إذا كان هذا الإسم موجود أم لا

من خلال تعديل هذا الكود

Dim rs_find As New ADODB.Recordset   
        With rs_find   
        If .State = adStateOpen Then .Close   
        .CursorLocation = adUseClient   
        .Open "select * from Table1 where user_id = " & Val(Text1.Text), con, adOpenDynamic, adLockPessimistic   
        If .RecordCount = 0 Then   
                MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight   
        Else   
                MsgBox "موجود", vbInformation + vbOKOnly + vbMsgBoxRight   
        End If   
        .Close   
        End With

ارسل مثال مع قاعدة البيانات

وسأعدله لك

جواد كتب:

أخي انا واضع في قاعدة البيانات في ملف اكسيس

اسمين أحمد و خالد

ولما اضع في حقل التكست الذي اسمه Text1.text

عند وضع مثلا اسم أحمد تظهر لي رسالة بعدم وجود هذا الإسم

ولما أضع خالد نفس الشي تظهر لي رسالة بعدم وجود هذا الإسم

وأي اسم آخر اضعه تظهر لي رسالة بعدم وجود هذا الإسم

يعني سواء الأسم موجود في قاعدة البيانات او غير موجود تظهر لي رسالة بعدم وجود هذا الإسم

انا اريد الكود الذي يتأكد إذا كان هذا الإسم موجود أم لا

من خلال تعديل هذا الكود

جرب هذا .

كودك السابق صحيح ولكنك كنت تبحث عن قيمة رقيمة ولاتبحث عن قيمة نصية

للبحث عن قيمة نصيبة يجب وضع النص داخل علامة النتصيص المفردة (') اي ان كودك يجب ان يصبح هكذا

Dim rs_find As New ADODB.Recordset   
        With rs_find   
        If .State = adStateOpen Then .Close   
        .CursorLocation = adUseClient   
        .Open "select * from Table1 where user_name= '" & Text1.Text & "' ", con, adOpenStatic, adLockPessimistic   
        If .RecordCount = 0 Then   
                MsgBox "غير موجود", vbInformation + vbOKOnly + vbMsgBoxRight   
        Else   
                MsgBox "موجود", vbInformation + vbOKOnly + vbMsgBoxRight   
        End If   
        .Close   
        End With

الله يوفقك أخي omani والله يجزاك الخير وأخيراً زبط معي

ألف شكرا لك الله يوفقك دنيا وآخرة

والله يوفق جميع اللي ساعدني بهذا الموضوع

مثل أخواني

mr_mgm و Mady-AGC و MMA_EG_Cairo

الله يوفقكم جميعاً والله يرزقكم من حيث لا تعلموا

آمين يا رب العالمين

شكراً للجميع