s3oodi

السؤال المهم هنا ..  ماذا تريد ان تعمل بالتاريخ ؟ ..   هل سيتم حفظه في قاعدة بيانات ام ستتم مقارنته مع تاريخ آخر ؟   يجب ان تعلم انك في قاعدة البيانات لايمكنك حفظ تاريخ هجري           عموماً هذه داله تقوم بتحويل التاريخ الهجري (حسب تقويم أم القرى) الى التاريخ الميلادي 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شخصياً هذا ما أقوم به في كل البرامج التي أعمل عليها

ضع هذا الكود في ملف (app.config)  .. داخل <configuration> <startup useLegacyV2RuntimeActivationPolicy="true"> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/> </startup>

طلبك لا زال غير واضح   إذا كنت تقصد انه عند إضافة (سجل جديد) يتم إضافته إلى السجلات المعروضه على الشاشه   فيمكنك ذلك بوضع نفس كود عرض الاقسام بعد عملية الحفظ مباشره

حاول تلغي التشييك عن وجود الملف دعه يبدأ بالقراءه مباشره وإذا مامشى الحال فيه طريقه نلتف فيها على المشكله وهي قراءة اسم السيرفر فقط ... وهو مايهمنا بهذه الطريقه 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;")

عليكم السلام ورحمة الله يبدو أن المشكله في قراءة ملف الـ xml جرب connstring = sr.ReadToEnd بدلاً من ( ReadLine )

على بركة الله .. أعانك الله أخي صائب وعساك على القوه

يجب أن يتطابق نوع البيانات في الفورم مع نوع البيانات في القاعده وأعتقد أخي ان الخطأ لديك هنا هو ارسال الحقل ( Number ) إلى قاعدة البيانات على أنه نص وهو هناك تم تحديده برقم ... غير نوعه من String إلى Integer ولاحظ أنك لن تحتاج إلى علامة التنصيص له في جملة الـ Insert نفس الوضع بالنسبه لبقية الحقول إذا وجد تعارض

روعه تسلم يمينك اخوي

الصوره غير واضحه يا إخوان يعني ماذا تقصد ياأخي رومانتك بهذا الكلام : شكراً لكم ..

3- تصميم شاشات البرنامج 4- تصميم قاعدة البيانات ملاحظه : ليس لدي 2008 اشتغل الآن على 2005

السلام عليكم .. انا أختار : شكراً لمن أعاد الحياة لهذه الفكره

عليكم السلام ورحمة الله سؤالك يدل على التباس لديك في كلمة الـ VB وهي اختصار لـ vBulletin << الشركه المنتجه للبرنامج وجميع أكواد هذا النوع من المنتديات معموله بلغة الـ php أي لايمكن استخدام أكواد الفيجوال بيسك فيها

تحويل لغة لوحة المفاتيح باستخدام الداله (SendKeys) SendKeys.Send("%" & "+") '[Shift] = "+" '[Alt] = "%" فكره حلوه يعطيك العافيه

السلام عليكم .. أي تكرار في الجدول يمكن تفاديه بإضافة كلمة 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

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