• الإعلانات

    • فيصل الحربي

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

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

wardah

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

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

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

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

0 عادي

عن wardah

  • الرتبة
    عضو
  • تاريخ الميلاد 01/22/1980

طرق الإتصال

  • ICQ 0

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

  • الجنس أنثى
  1. مشكلة في جملة insert into

    لكم جزيل الشكر... فعلا أخوتي المشكلة كانت في الحقل الرقمي price. وما ننحرم منكم
  2. تحية طيبة للجميع... تظهر لي رسالة  Syntax error in INSERT INTO statement. If TextBox1.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then MsgBox("Some data required", MsgBoxStyle.Critical, "Error") : Exit Sub End If con.Close() Dim savein As New OleDbCommand savein.Connection = con savein.CommandType = CommandType.Text savein.CommandText = "INSERT INTO Suppliers2(Received_item,date2,company,price,note) values ('" & Trim(TextBox1.Text) & "' , '" & DateTimePicker1.Value.ToString("mm/dd/yyyy") & "' , '" & Trim(TextBox3.Text) & "' , '" & Trim(TextBox4.Text) & "' , '" & Trim(TextBox5.Text) & "')" con.Open() savein.ExecuteNonQuery() MsgBox("Done")ممكن توضيح سبب الخطأ. ومشكورين مقدماً.
  3. ألف شكر أخي جعفر... بصراحة عاد لي يومين وأنا محتارة شو أسوي ف هالمشكلة..كنت أفكر الأكسس أسهل من كذا بكثير لكن بين أنه يحتاج له علبة بندول لكل فورم.. بس حاولت أطبق الكود  : Me.price_text = DLookup("Price", "price_tab", "[المعرف]=" & 1)   عشان أظهر الأرقام المدنية بعد تحديد اسم الموظف يعني اختار اسم الموظف ويظهر تلقائيا في مربع النص الخاص بالرقم المدني..لكن تظهر رسالة عدم تطابق البيانات..
  4. شكرا أخي جعفر... يمكن أنا ما قدرت أوضح طلبي :اللي أريده أن النص -price_text- تكون قيمتة ثابتة غير قابلة للتغير ويقرأها البرنامج من الجدول price_tab  وهي في الواقع القيمة المالية للساعة التدريبية الواحدة التي يتحصل عليها المدرب. ولما أختار عدد الساعات من combo2 يتم ضرب عدد الساعات x القيمة الظاهرة في مربع النص price_text  ليعطي اجمالي المبلغ في مربع النص total بصراحة جربت الكود لكن لخبطني شوي.. أرفق المثال للتوضيح..والسموحة    training1.rar
  5. شكرا أخي جعفر... يمكن أنا ما قدرت أوضح طلبي :اللي أريده أن النص -price_text- تكون قيمتة ثابتة غير قابلة للتغير ويقرأها البرنامج من الجدول price_tab  وهي في الواقع القيمة المالية للساعة التدريبية الواحدة التي يتحصل عليها المدرب. ولما أختار عدد الساعات من combo2 يتم ضرب عدد الساعات x القيمة الظاهرة في مربع النص price_text  ليعطي اجمالي المبلغ في مربع النص total بصراحة جربت الكود لكن لخبطني شوي.. أرفق المثال للتوضيح..والسموحة    
  6. شكرا أخي جعفر... يمكن أنا ما قدرت أوضح طلبي :اللي أريده أن النص -price_text- تكون قيمتة ثابتة غير قابلة للتغير ويقرأها البرنامج من الجدول price_tab  وهي في الواقع القيمة المالية للساعة التدريبية الواحدة التي يتحصل عليها المدرب. ولما أختار عدد الساعات من combo2 يتم ضرب عدد الساعات x القيمة الظاهرة في مربع النص price_text  ليعطي اجمالي المبلغ في مربع النص total بصراحة جربت الكود لكن لخبطني شوي.. أرفق المثال للتوضيح..والسموحة    
  7. أسعد الله مساكم بكل خير... أتمنى تساعدوني ف هذي المشكلة اللي تعبت وأنا أبحث لها عن حل.. عندي نموذج مربوط بمصدر سجلات لكن أريد أربط مربع نص بجدول آخر (وجدت عدة طرق لربط كومبو لكن تكست ما حصلت للأسف) وأريد إجراء عملية ضرب وإظهار النتيجة في مربع نص آخر... أعتقد الصورة توضح المطلوب..    
  8. السلام عليكم جميعاً... عندي نموذجين وفي النموذج الثاني "ليست بوكس" أريد لما أحدد بيان معين وأضغط موافق ينغلق النوذج وينزل البيان المحدد في فورم أخر.. أتمنى مساعدتكم...
  9. السلام عليكم.. عندي مشكلة في عملية الإتصال بقاعدة بيانات sql server .والخطأ الظاهر: A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server) والكود المستخدم في عملية الاتصال: Dim moe As New SqlConnection() moe.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=HP-PC;Data Source=rus_email_db" moe.Open()
  10. شاكر لك ..لكن هل من توضيح لحل المشكلة؟؟
  11. السلام عليكم ورحمة الله وبركاته .. كان عندي برنامج ويعمل على الويندوز اكس بي بدون أيه مشاكل..ولما غيرت نظام التشغيل إلى ويندوز 7 ظهرت لي الرسالة التالية: The 'microsoft.jet.oledb.4.0' provider is not registered on the local machine. أرجو موافاتي بطريقة حل المشكلة وهل هناك مشاكل أخرى قد تواجهني بسب تغيير نظام التشغيل. لكم وافر الشكر
  12. جزاك الله خيرا.. جاري التجربة
  13. تحياتي أخي الكريم... الموضوع كالتالي: عندي قاعدة بيانات بها 7000 موظف ومسمياتهم الوظيفية غير موحدة مثلا (معلم عربي+معلم لغة عربية+معلم اللغة العربية) وعملية الدخول في كل موظف على حده وتغيير المسمى الوظيفي عملية متعبة فأنا فكرت أعمل برنامج أحدد من خلاله كافة المسميات الوظيفية المتشابهه في قائمة وأغيرهم دفعة واحدة.مرفق صورة توضح المطلوب. شاكر لك تواصلك
  14. السلام عليكم ... عندي مشكلة وأرجو منكم مساعدتي في حلها أريد تعديل جملة SQL بحيث يتم التعديل بناءاً على عناصر LIST BOX . Dim edit As New OleDbCommand edit.Connection = db edit.CommandType = CommandType.Text edit.CommandText = "UPDATE [e_tab] SET [employment]= '" & ComboBox1.Text & "' WHERE [EMPLOYMENT] LIKE '" & ListBox1.Items.Count & "'" edit.ExecuteNonQuery() db.Close() المشكلة في في هذا الشرط WHERE [EMPLOYMENT] LIKE '" & ListBox1.Items.Count