• الإعلانات

    • فيصل الحربي

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

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

s3oodi

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

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

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

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

0 عادي

عن s3oodi

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 03/15/1979

طرق الإتصال

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

  • الجنس ذكر
  1. السؤال المهم هنا ..  ماذا تريد ان تعمل بالتاريخ ؟ ..   هل سيتم حفظه في قاعدة بيانات ام ستتم مقارنته مع تاريخ آخر ؟   يجب ان تعلم انك في قاعدة البيانات لايمكنك حفظ تاريخ هجري           عموماً هذه داله تقوم بتحويل التاريخ الهجري (حسب تقويم أم القرى) الى التاريخ الميلادي Public Function UmAlQuraToMelady(ByVal DateStr As String) As Date 'داله لتحويل التاريخ الهجري حسب تقويم أم القرى إلى التاريخ الميلادي Try Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-SA") System.Threading.Thread.CurrentThread.CurrentCulture = Ar Ar.DateTimeFormat.Calendar = New Globalization.UmAlQuraCalendar UmAlQuraToMelady = New DateTime(CDate(DateStr).Year, CDate(DateStr).Month, CDate(DateStr).Day) Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar Catch ex As Exception 'MsgBox("التاريخ غير مطابق لتقويم أم القرى", MsgBoxStyle.MsgBoxRight, "خطأ") 'UmAlQuraToMelady = Nothing End Try End Function      وهنا العكس .. من الميلادي الى الهجري (ام القرى) Public Function GregorianToUmAlQura(ByVal DateString As String) As String 'داله لتحويل التاريخ الميلادي إلى التاريخ الهجري حسب تقويم أم القرى Try Dim UmAlQuraDT As New System.Globalization.UmAlQuraCalendar Dim GregorianDT As Date = DateString Dim hijDay As String = UmAlQuraDT.GetDayOfMonth(DateString) Dim hijMonth As String = UmAlQuraDT.GetMonth(DateString) Dim hijYear As String = UmAlQuraDT.GetYear(DateString) If Val(hijDay) < 10 Then hijDay = "0" & hijDay End If If Val(hijMonth) < 10 Then hijMonth = "0" & hijMonth End If GregorianToUmAlQura = hijYear.ToString + "/" + hijMonth.ToString + "/" + hijDay.ToString Catch ex As Exception GregorianToUmAlQura = Nothing 'MsgBox("التاريخ غير مطابق لتقويم أم القرى", MsgBoxStyle.MsgBoxRight, "خطأ") End Try End Functionشخصياً هذا ما أقوم به في كل البرامج التي أعمل عليها
  2. ضع هذا الكود في ملف (app.config)  .. داخل <configuration> <startup useLegacyV2RuntimeActivationPolicy="true"> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/> </startup>
  3. طلبك لا زال غير واضح   إذا كنت تقصد انه عند إضافة (سجل جديد) يتم إضافته إلى السجلات المعروضه على الشاشه   فيمكنك ذلك بوضع نفس كود عرض الاقسام بعد عملية الحفظ مباشره
  4. خطأ في البرنامج وذلك عند تشغيلة

    حاول تلغي التشييك عن وجود الملف دعه يبدأ بالقراءه مباشره وإذا مامشى الحال فيه طريقه نلتف فيها على المشكله وهي قراءة اسم السيرفر فقط ... وهو مايهمنا بهذه الطريقه Imports System.IO Public Function Get_ServerName() As String Dim ServerName As String If My.Computer.FileSystem.FileExists("C:MyServerName.txt") Then Dim sr As New StreamReader("C:MyServerName.txt") ServerName = sr.ReadLine Return ServerName End If End Function Public sqlcon As New SqlClient.SqlConnection("Server=" & Get_ServerName() & "SQLEXPRESS;Database=index;Trusted_connection=yes;")
  5. خطأ في البرنامج وذلك عند تشغيلة

    عليكم السلام ورحمة الله يبدو أن المشكله في قراءة ملف الـ xml جرب connstring = sr.ReadToEnd بدلاً من ( ReadLine )
  6. على بركة الله .. أعانك الله أخي صائب وعساك على القوه
  7. يجب أن يتطابق نوع البيانات في الفورم مع نوع البيانات في القاعده وأعتقد أخي ان الخطأ لديك هنا هو ارسال الحقل ( Number ) إلى قاعدة البيانات على أنه نص وهو هناك تم تحديده برقم ... غير نوعه من String إلى Integer ولاحظ أنك لن تحتاج إلى علامة التنصيص له في جملة الـ Insert نفس الوضع بالنسبه لبقية الحقول إذا وجد تعارض
  8. الصوره غير واضحه يا إخوان يعني ماذا تقصد ياأخي رومانتك بهذا الكلام : شكراً لكم ..
  9. 3- تصميم شاشات البرنامج 4- تصميم قاعدة البيانات ملاحظه : ليس لدي 2008 اشتغل الآن على 2005
  10. السلام عليكم .. انا أختار : شكراً لمن أعاد الحياة لهذه الفكره
  11. عليكم السلام ورحمة الله سؤالك يدل على التباس لديك في كلمة الـ VB وهي اختصار لـ vBulletin << الشركه المنتجه للبرنامج وجميع أكواد هذا النوع من المنتديات معموله بلغة الـ php أي لايمكن استخدام أكواد الفيجوال بيسك فيها
  12. تحويل لغة لوحة المفاتيح باستخدام الداله (SendKeys) SendKeys.Send("%" & "+") '[Shift] = "+" '[Alt] = "%" فكره حلوه يعطيك العافيه
  13. التكرار في الكومبوبوكس

    السلام عليكم .. أي تكرار في الجدول يمكن تفاديه بإضافة كلمة DISTINCT إلى جملة الاستعلام التي ستكون مصدراً للكومبو Dim dt As New DataTable Dim strSQL As String strSQL = "SELECT DISTINCT MyField FROM MyTable" Dim da As New SqlDataAdapter(strSQL, CnStr) da.Fill(dt) MYComboBox.DataSource = dt وإذا كانت قاعدة البيانات أكسس تغير الأدبتر إلى OleDbDataAdapter
  14. مشكلة عند التعامل مع ملف اكسل

    عليكم السلام ورحمة الله وبركاته أخي ماهي المشكلة التي واجهتك بالضبط بالنسبه لأسماء الأعمدة لورقة الإكسل فإنها تكون ( F1 ,F2 ,F3 ) عند التعامل معها في الـ VB.Net وليست ( A,B,C )