• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Rinada

اعضاء جدد
  • عدد المشاركات

    42
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن Rinada

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس أنثى
  1. السلام عليكم ورحمة الله وبركاته لدي سؤال في Managing Data مع لغة البرولوغ عرفي لائحة التسوق التالية باستخدام المعلن item : chocolate milk coffee apple juice صممي برنامج يقوم بالعمليات التالية عن طريق ادخال رمز العملية : i. Display a. Add d. Delete عند اختيار حذف: يتـم عـرض قـائمة بالأصـناف المـوجودة > تحـديـد الـصنف المراد حذفه > اظهار رسالة تأكيد الحـذف ضعي قاعدة للحروف الغير معرفة. كيف يمكنني عمله ؟؟ وكل الشكر لمن سيقوم بمساعدتي
  2. السلام عليكم ورحمة الله وبركاته لدي برنامج أحتاج فيه إلى البحث عن قيمة معينة string داخل أكثر من جدول في قاعدة البيانات بحيث أن البحث يكون على الشكل التالي : يبحث في الجدول الأول فإذا كانت القيمة موجوده تزدادا قيمة عداد مخصص لهذا الجدول وإذا لم تكن موجودة يذهب للجدول الثاني ويبحث عن القيمه فيه إذا كانت موجوده يزداد عداد هذا الجدول وإن لم تكن موجوده يحفظ هذه القيمة الأساسية في جدول ثالث أتمنى منكم مساعدتي
  3. قمت بوضع try لكن لم تحل المشكلة أرجوك ساعدني لا يظهر لي الخطأ لكن الأمر لا يعمل
  4. هنا حل المشكلة لكن ام أفهمه http://msdn.microsoft.com/en-us/library/system.exception.innerexception(VS.71).aspx
  5. مشكلة في الـ dataset

    شكرا لك
  6. السلام عليكم ورحمة الله وبركاته لدي برنامج يقوم بإنشاء ملفات تحمل اسم يتم ادخاله من قبل المستخدم لذلك يجب التعريف عنها في الموديول لكن عندما اقوم بتشغيل البرنامج يظهر لدي الخطأ التالي {"An error occurred creating the form. See Exception.InnerException for details. The error is: The type initializer for 'The_Pharmacy.Module1' threw an exception."} كيف أستطيع حل هذه المشكلة أرجوكم أن تساعدوني بأسرع وقت
  7. مشكلة في الـ dataset

    وضعت .. dataset1.clear في بداية كود فورم العرض وانحلت المشكلة لكن اصبحت هناك مشكلة غبيه لا اعلم كيف عندما اعمل debug مرة تعمل عندي الاضافه بشكل صحيح ومرة لا تعمل وتظهر لي ايرور في السطر newConnection.Open() وهذا هو الايرور {"The connection was not closed. The connection's current state is open."}
  8. مشكلة في الـ dataset

    السلام عليكم ورحمة الله وبركاته لدي مشكلة بسيطة ولكن لا أعرف كيف أحلها لدي برنامج تعامل مع قواعد بيانات اكسس اضافه ، عرض ، بحث ، تعديل ، .... عندما اقوم بالاضافه ومن ثم عمل عرض مباشرة تتكرر لدي سجلات البيانات ، اي يعرض السجل اكثر من مرا مع انه في قاعدة البيانات الاصلية يوجد سجل واحد لهذا البيان اتوقع ان المشكلة في الداتا ست لكن لا اعرف كيف احلها هذا هو الكود Dim SQLStatment As String Dim RCount As Integer Dim addInto As New OleDb.OleDbCommand If TextBox1.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox9.Text = "" Or TextBox10.Text = "" Then MsgBox("There are empty boxes must be completed ", MsgBoxStyle.Exclamation) Exit Sub End If addInto.Connection = newConnection addInto.CommandType = CommandType.Text SQLStatment = "SELECT COUNT(*) FROM ph_database Where medicine_name='" & TextBox1.Text & "'" addInto.CommandText = SQLStatment newConnection.Open() RCount = addInto.ExecuteScalar() If RCount > 0 Then MessageBox.Show("This Medicine already exists", "Add Medicine ", MessageBoxButtons.OK, MessageBoxIcon.Error) newConnection.Close() Exit Sub End If Try addInto.CommandText = "INSERT INTO ph_database(medicine_number,medicine_name,Presentation,Main_Use,Manufacturer,Man_month,Man_year,Exp_month,Exp_year,Price,Quantity)" & _ "values ('" & TextBox2.Text & "','" & TextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & TextBox10.Text & "','" & ComboBox3.Text & "','" & TextBox9.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "') " addInto.ExecuteNonQuery() dataset1.Clear() dataadapter1.Fill(dataset1, "ph_database") newConnection.Close() MsgBox("This medicine has been added to the system successfully", MsgBoxStyle.Information) view.showlistnumber() view.Show() Me.Hide() Catch ex As Exception Exit Sub End Try
  9. هو لا يظهر لي الا بعدما أقوم بعمل debug في الـ immediate window
  10. لا يظهر لي سطر محدد والبرنامج يقوم بالتنفيذ لكنه فقط يعرض الفورم بدون إظهار بيانات القاعدة وهذا هو الكود .. Imports System.Data Imports System.Data.OleDb Public Class Form3 Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\Pharmacy.mdb" Dim newConnection As New OleDbConnection(connectionstring) Dim sqlstr As String = " select * from ph_database " Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load newConnection.Open() Dim dataadapter1 As New OleDbDataAdapter(sqlstr, connectionstring) dataadapter1.Fill(dataset1, "ph_database") newConnection.Open() TextBox1.DataBindings.Add("Text", dataset1, "ph_database.Medicine name ") TextBox2.DataBindings.Add("Text", dataset1, "ph_database.Presentation ") TextBox3.DataBindings.Add("Text", dataset1, "ph_database.Main Use ") TextBox4.DataBindings.Add("Text", dataset1, "ph_database.Manufacturer ") TextBox5.DataBindings.Add("Text", dataset1, "ph_database.Price ") TextBox6.DataBindings.Add("Text", dataset1, "ph_database.Quantity ") TextBox7.DataBindings.Add("Text", dataset1, "ph_database.Exp_month ") TextBox8.DataBindings.Add("Text", dataset1, "ph_database.Man_month ") TextBox9.DataBindings.Add("Text", dataset1, "ph_database.Exp_year ") TextBox10.DataBindings.Add("Text", dataset1, "ph_database.Man_year ") showlistnumber() End Sub Public Sub showlistnumber() Label13.Text = Me.BindingContext(dataset1, "ph_database").Position + 1 Label14.Text = Me.BindingContext(dataset1, "ph_database").Count End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.BindingContext(dataset1, "ph_database").Position += 1 showlistnumber() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.BindingContext(dataset1, "ph_database").Position -= 1 showlistnumber() End Sub End Class
  11. لدي برنامج مصمم بفيجوال بيسك 2008 يحتوي على ربط مع قاعدة بيانات اكسس أثناء عمل run للبرنامج تظهر لي الرساله الآتية A first chance exception of type 'System.InvalidOperationException' occurred in System.Data.dll كيف أستطيع حلها ؟؟ مع العلم بعدم وجود اي خطأ في الكود نظام التشغيل بجهازي windows 7 - 64 bit
  12. السلام عليكم ورحمة الله وبركاته لو سمحتم لدي مشروع عن برنامج إدارة صيــــــدلية ، وأبحث عن قاعدة بيانات جاهزة بمجموعة من الأدوية مع معلوماتها لتسهل العمل علي هل هناك من يستطيع تزويدي بها ؟ ويفضل أن تكون باللغه الانجيزية ......
  13. لكن عندما افتح الكومبايل لا تظهر لي Advanced Compile Options
  14. السلام عليكم ورحمة الله وبركاته أعاني من مشكلة واتمنى منكم مساعدتي فيها وهي ربط الفيجوال بيسك 2005 بقاعدة بيانات بالأكسس على ويندوز 7 - 64 بت حيث تفتح لدي المشاريع على الاجهزة الاخرى وبشكل صحيح لكن على ويندوز 7 لا تعمل فما الحل لهذه المشكلة ؟