ياليت أحد يساعدني في الحصول على هذا الكود؟؟

أختي نجدية السلام عليكم إليك الطريقة كما تريدينها

Dim rsImport As New ADODB.Recordset

Dim rsExport As New ADODB.Recordset

Dim rsReciption As New ADODB.Recordset

Dim Import As String

Dim Export As String

Dim Reciption As String

Import = "select * from ImportTab"

Export = "select * from ExportTab"

Reciption = "Select * from ReciptionTab"

rsImport.Open Import, mydb, adOpenDynamic, adLockOptimistic

rsExport.Open Export, mydb, adOpenDynamic, adLockOptimistic

rsReciption.Open Reciption, mydb, adOpenDynamic, adLockOptimistic

لاحظي إنك ممكن تفكي أكتر وأكتر على حسب /ا إنتي تبغي وإن شاء الله تكوني أتحصاتي على مبتغاكي والإجابة اللي تدوري عليها ولو سمحتي لو واجهتك أي مشكله في الكود لا تترددي في السؤال والطلب علشان تستفيدي ولا تنسي إنه السؤال نصف العلم.....وموفقة

الله يجزاك ألف ألف خير أشكرك على التجاوب

والله من جد انبسطت لماشفت الرد .. لاني كنت متورطة ماني عارفة وش أكتب.. الحين أنا بجرب الكود .. وإن شاء الله يضبط معاي

شكراُ مرة ثانية

والله يعينك علي لان شكلي بتعبك معي شوي :)

مرحبا :)

معليش أخوي أنا قايلة اني بتعبك معاي:o

بس سويت الطريقة اللي قلتها لي، لكن طلعت لي مشكلة لان بعض الجداول فيها برايمري كي وفورين كي.. فصاير فيه مشكلة وتطلع لي مسج تقول

[Microsoft] [ODBC SQL Server Driver][sql Server]

Violation of PRIMARY KEY constraint 'PK-PATIENT'

cannot insert duplicate key in object 'PATIENT'

ياليت تساعدني..

وعموماً هذا الكود اذا تبي تشوف وش المشكلة ؟؟

وتحياتي لك :)

memr.zip

السلام عليكم

يا اختي الموضوع بسيط جدا إن شاء الله. بعد ما قريت رساله الخطأ اللي كتبتيها إنتي واللي مهناها هو التالي:

بالنسبة للجدول دا اللي طلع منه رساله الخطا والسبب هو إنه الجدول دا إنتي عملتي Primary key لواحد من الحقول تبع الجدول دا وإلى الاّن مافي عندنا اي مشكلة لكن ال Primary key له معنى ومهناه كالتالي:

1- إنه القيمة تبعة لاتكون Null (اي ليست فراغا ولا رقما ولا حرفا ولا اي شئ غير معروف).

2- ان لا تكون القيمة متكررة بمعنى أنه ما ينفع إنك تعطي المريض الأول رقم واحد والمريض التاني رقم واحد كمان علشان كدا أداكي رساله الخطأ اللي ظهرت .

وبإختصار المشكلة عندك إنك أدخلتي في ال Primary key بيانات متشابهه ومتكررة(Duplication date).

إن شاء الله تنحل معاكي المشكله وما تواجهي غيرها ولو لا سمح الله واجهتك غيرها ترى انا يسعدني جدا إني أساعدك إتني وكل من يبغى المساعدة، دا طبعا على قد ما اعرف واقدر ولو سمحتي لا تترددي ولا تخجلي من كترة الأسئله عليه المهم الله يوفقك إن شاء الله ............وشكرا

اشكرك اخوي .. وبالفعل المشكله كانت مثل ماقلت لي فيه تكرار في البرايمري كي وحليتها لكن طلعت لي مشكله ثانيه .. انا عارفه اني تعبتك معاي بس انا ماعندي احد يساعدني وانت عطيتني هذي الفرصه.. شكرا مرة ثانيه :o

لما كان عندي جدول واحد وبغيت اضيف عليه Record ما كان فيه مشكله يضيف بشكل طبيعي بعد اخر Record موجود

لكن ظهرت المشكله عندي اذا بغيت اضيف في جدولين في نفس الوقت واحد فيهم الــPatient_ID برايمري كي والثاني فورين كي يضيف بشكل خاطئ

السؤال هو كيف اقدر اضيف في نفس الجدولين record وتكون الاضافه بعد اخر record

Private Sub CmdSave_Click()

Me.Icon = Nothing



Dim objConn As New ADODB.Connection

Dim objRS As New ADODB.Recordset

Dim objRS1 As New ADODB.Recordset

Dim objErr As ADODB.Error

Dim Import As String

Dim Export As String



objConn.Open "DSN=LocalServer;UID=margie;PWD=margie"



If objConn.State = adStateOpen Then

objRS.Open "PATIENT", objConn, adOpenDynamic, adLockOptimistic

objRS1.Open "NATION", objConn, adOpenDynamic, adLockOptimistic

objRS.AddNew

objRS1.AddNew



'''''''''''''''''''''''

' patient information '

'''''''''''''''''''''''

txtFName.SetFocus



txtPatientNo.Text = (objRS.RecordCount + 1)

objRS!Pat_No = objRS.RecordCount + 1

objRS!Fname = txtFName.Text

objRS!Mname = txtMName.Text

objRS!Lname = txtLName.Text

If optFemale.Value = True Then

objRS!Sex = "Female"

Else

objRS!Sex = "Male"

End If

objRS!DOB = txtBOD.Text

objRS!phone_No = txtPhone.Text

objRS!occupation = txtOccupation.Text

objRS!address = txtAddress.Text

''''''''''''''''''''''

'Nationaltiy info'

''''''''''''''''''''''





objRS1!Pat_No = objRS1.RecordCount + 1



 If optSaudi.Value = True Then

objRS1!ID = txtID.Text

objRS1!city = txtCity.Text

objRS1!IDdate = txtDate.Text

Else

objRS1!ID = txtIqamah.Text

 objRS1!Fname = txtSponsorFName.Text

 objRS1!Mname = txtSponsorMName.Text

 objRS1!Lname = txtSponsorLName.Text

 objRS1!phone_No = txtSponsorPhone.Text

 End If







objRS.Update

objRS1.Update



Else



For Each objErr In objConn.Errors

Debug.Print objErr.Description

Next



End If



Set objRS = Nothing

objConn.Close

Set objConn = Nothing



End Sub

تحياتي لك:)

check the relation between the primary key and the forign key and make sure that you are using the primary key when inputting the data

أشكركم جميعا على المساعدة .. عرفت الخطأ وين .. كنت حاطة dynamic بدل static في الستيتمنت اللي تحت

objRS.Open "PATIENT", objConn, adOpenStatic, adLockOptimistic

فلما غيرتها ..انحلت العقدة

أشكر كل من رد على ويعطيكم ألف عافية .. وماقصرتوا :)

ألف شكر مرة ثانية ..

وتحياتي للجميع :)

السلام عليكم مبروك عليكي معرفة المشكلة وحلها كمان ايش الشطارة دي:P المهم انتي تقولي إنك غيرتي حاجة ممكن توضحي اكتر ايش كانت هي بالتمام يعني هل كانت Dynamic وإانتي حولتيها Static ولا العكس ياليت تقولي تكرما لا امرا يعني مو علشان يعني صرتي خبيرة ما تردي علية خلاص....وشكرا

مرحبا

الله يبارك فيك ويسلمك أخوي هذي من مساعداتك لي .. فشكرا ً وماقصرت ..

انتظرني في أسئلة جاية بالطريق:P .. بتعبك معاي :)

أما بالنسبة للخطأ

أنا كنت كاتبة

objRS.Open "PATIENT", objConn, adOpenDynamic, adLockOptimistic

ولما غيرتها الى الكود هذا

objRS.Open "PATIENT", objConn, adOpenStatic, adLockOptimistic

انحلت المشكلة ..

تحياتي لك :)

السلام عليكم

أولا انا يسعدني جدا إني أجاوب على كل الأسئله ومستعد لها والله يستر;) المهم ترى يا أختي في فرق مابين الDynamic والStaticعلشان كدا الفرق دا يأثر لو إنتي شغاله على شبكة او لأ فإنتي لو عارفة الفرق يصير إنتي عامله حسابك أما لو منتي عارفه يصير وقفي إلا ان تعرفي الفرق ولو كمان ما تعرفي قولي علشان أديكي الفروقات بينها لأنها بسيطة بس مهمه جدا...........وشكرا

ملاحظه مهمة/ ال close connection ما تصير إلا في نهاية البرنامج بالكامل مش في نهاية روتين معين ترى دي كمان ممكن تسوي مشاكل كتير وتضيع الوقت معليش انا أدخلت في الكود حقت بس دا اللي انا انتبهت له من خلال نظرتي علية ومن خلال خبرتي في العمل على الDataBase المهم لا تخافي من كل دي الأمور لأنها بسيطه جدا بس قولي لو واجهتك أي مشكله.

مشكور اخوي .. واكيد اذا واجهتني اي مشكله رح اسألك واستفيد من خبرتك..

وصراحه ما أعرف الفرق بين الداينمك والستاتيك .. ياليت توضحها لي..

وشكرا :)

أختي إن شاء الله أديكي الفرق قريب علشان تفهمية بس المهم كملي اللي عندك ولا توقفي لأنه التغيير بين الداينمين والإستاتيك ما يوجب معاة اي تغيير جديد في الكود حقك بس لازم نعرف ايش المفهوم من البرنامج حقك