codenew

كلك يمين على المشروع وأختيار ....Add New Item ثم اختيار ثم ثم

العفو ،،،،، بالتوفيق

المشكلة في قاعدة البيانات الحقول لا تقبل تكون فارغه ، والمثال بعد التعديل مرفق WebSite14.rar

في حالة لم يتم حل المشكلة كما أشارو لها الأخوان الخطأ هذا = Data type mismatch in criteria expression يدل على أنه مشكله في نوع الحقل يعني رقمي أو نصي مثال للحقل الرقمي insert into table1 (f1,f2) values ( " & textbox1.text & " , " & textbox2.text & ") مثال للحق…

العفو اخوي طيب تمام الوضع حتى الآن جملة الإستعلام تكون كالتالي : where mid(date_prs,1,2) & mid(date_prs,6,5)='" & Mid(DateTimePicker1.Text, 1, 2) & Mid(DateTimePicker1.Text, 6, 5) & "' بالتوفيق ، ، ، تحياتي

فاهم اخوي ورق التاريخ عندك في الجدول يسجل كالتالي 05/12/2012 بالصيغة هذي "MM/dd/yyyy" وانا جاوبتك على كذا جرب انته كذا وشوف ايش يصير معك تقول عندك اداة تعرض فيها التاريخ المراد البحث عنه : طيب السؤال هنا كيف صيغة التاريخ يكون في الأداة ؟ انتظر اجابتك .

اها ،، الله يجزاك خير اخوي حسان

من قال لك عندي مشكله ؟ انا قمت بحل مشكلة الأخ ورق خسرانه فقط .

مرحبا أخي قمت بعمل مثال لتجربة النتيجة where mid(date_prs,1,2) & mid(date_prs,6,5)='" & ComboBox1.Text & "' بإفتراض ان combobox1 يحمل الشهر والسنة المراد البحث عنها بهذي الطريقة 05/2012 أو 12/2009 او ممكن تستبدلها بالأداة المستخدمة عندك شوف أي طريقة من الطريقت…

بالتوفيق اخوي

ماتفرق اخوي يعني المطلوب الخانتين الأولى where Mid(date_prs,1,2)='" & ComboBox1.Text & "' قمنا بقص بداية من الخانة (1) الأولى وطول القص المطلوب (2) اي خانتين

وعليكم السلام ورحمة الله وبركاته أولاً لو كان الحقل من نوع تاريخ يختلف . هنا الحقل نوعه نص وانته بتقول تخزن التاريخ بالصيغة هذي (05/12/2012) الشهر هنا =12 الدالة Mid تقطع جزء معين من جملة بمعنى نريد قطع من اليسار ابتداء من الخانة الرابعة بطول خانتين الصفر الخا…

الكود سليم قف على الداتا بيز ومن الخصائص اختر

جرب Nvarchar

العفو اخوي

Private Sub Command1_Click() Set RS = New Recordset RS.Open "SELECT sum(net) FROM all_inv_stat WHERE kind='" & "Invoice" & _ "' and cust_code='" & Trim(Text1.Text) & "' or kind='" & "Statement" & _ "' and cust_code='" & Trim(Text1.Text) & "' or left(kind,11)='…

Report.rdlc مجانية وخاصة بالفيجوال أستوديو

كوماند 3 استبدال الكود القديم بالجديد الجديد If rs.State = adStateOpen Then rs.Close rs.Open "select a2.ID,a2.name,a2.address,a2.date,a3.money,a3.number,a3.idname from a2,a3 where a2.date=#" & Format(Text3, "mm/dd/yyyy") & "# And a2.id=a3.idname", db, adOpenDy…

العفو ، فيه حل ممتاز عند النقر على اداة التاريخ الكالندر يوضع التاريخ المحدد في تكست3 الكود يصبح كالتالي : كان : Private Sub C3_DblClick(ByVal DateValue As String, ByVal PeriodValue As String, ByVal Row As Integer, ByVal Col As Integer) Text3.Text = C3.DateVal…

لنفرض لدينا جدولين الأول بأسم (tb1) والثاني بإسم (tb2) جدول tb1 id f1 f2 جدول tb2 b1 b2 b3 نريد عرض السجلات (id+f1) من الجدول الأول وعرض أيضاً (b2+b3) من الجدول الثاني الكود يكون كالتالي : cn = جملة الاتصال بالداتا بيز rs.open "select tb1.id,tb1.f1,tb2.b2,tb2.…