مساعدة في عرض بيانات من الداتابيز وتخزين بيانات اليها

مرحبا

لتخزين التاريخ

Imports System.Data.OracleClient
Imports System.Data

Public Class EmpStatusNew

dim DA0, D0, DA02, D02, D1, D2, D3 As String

	Private Sub update_Expiredate()
			Try
'السطر التالي هو للتأكد من الادخال هل هو هجري أو ميلادي
				If CInt(D0) < 18001122 Then
					Dim Dt As New DateTime
'السطر التالي هو لتحويل الادخال من هجري لميلادي
					Dt = HijriToGregorian(Me.txtID_Is_yyyy.Text, Me.txtID_Is_mm.Text, Me.txtID_Is_dd.Text)
					D1 = Dt.ToString("yyyy")
					D2 = Dt.ToString("MM")
					D3 = Dt.ToString("dd")
					DA0 = D1 & D2 & D3
				Else
					DA0 = D0
				End If
			Catch ex As Exception
				If D0.Trim.Equals("") Then
					DA0 = ""
				Else
					MsgBox("الرجاء التأكد من إدخال التاريخ بشكل صحيح قد يكون الشهر من السنه المحددة لايكمل الثلاثين يوم في تقويم أم القرى أو أن التاريخ مدخل بشكل غير صحيح أو غير كامل", MsgBoxStyle.MsgBoxRight, "رسالة خطأ تخص التاريخ المدخل")
					txtID_Is_dd.Focus()
					Exit Sub
				End If
			End Try


		cn = New OracleConnection(DBConnection.conStr)
		Try
			cn.Open()
			Dim Cmd As New OracleCommand
			Cmd.CommandType = CommandType.Text

			Dim trans As OracleTransaction
			Cmd.Connection = cn
			trans = cn.BeginTransaction

			Cmd.Transaction = trans

			Cmd.CommandText = "update hr_EmpStatus set Status_EXPIRY_DATE = to_date(:Status_EXPIRY_DATE,'yyyymmdd'), Status_EXPIRY_text = :Status_EXPIRY_text WHERE (EmpStatus_ID = :EmpStatus_ID)"

'Status_EXPIRY_DATE نوعه تاريخ
'Status_EXPIRY_text نوعه فاركار

			Dim paramEmpStatus_ID As New OracleParameter("EmpStatus_ID", OracleType.Number)
			paramEmpStatus_ID.Direction = ParameterDirection.Input
			paramEmpStatus_ID.Value = maxstatus


			Dim paramStatus_EXPIRY_DATE As New OracleParameter("Status_EXPIRY_DATE", OracleType.VarChar)
			paramStatus_EXPIRY_DATE.Direction = ParameterDirection.Input
			paramStatus_EXPIRY_DATE.Value = DA0

			Dim paramStatus_EXPIRY_text As New OracleParameter("Status_EXPIRY_text", OracleType.VarChar)
			paramStatus_EXPIRY_text.Direction = ParameterDirection.Input
			paramStatus_EXPIRY_text.Value = D0

			Cmd.Parameters.Add(paramEmpStatus_ID)
			Cmd.Parameters.Add(paramStatus_EXPIRY_DATE)
			Cmd.Parameters.Add(paramStatus_EXPIRY_text)


			Try
				'Cmd.Prepare()
				Cmd.ExecuteNonQuery()
				trans.Commit()
				'='=MsgBox("...تم التعديل...")
			Catch ex As Exception
				trans.Rollback()
				MsgBox(" لم يتم التعديل الرجاء التأكد من الإدخال بشكل صحيح أو قم بالاتصال بمسؤول النظام")
			End Try

			'Console.WriteLine("تم الإضافة بنجاح2")
		Catch ex As Exception
			Console.WriteLine(ex.Message)
		Finally
			cn.Close()
		End Try
	End Sub

end class

لاتنسين ترفعين الكلاس الموجود في المرفقات بمشروعك

إذا في عندك مشكلة اعطيني خبر

والكومبو بوكس بوقت ثاني اعملها لكي

لأني لازم اعمل مشوار مهم

في أقرب فرصة اعمل لكي الحل

تحياتي

General.zip

السلام عليكم

الى الاخ

qaher

شكراااااا لك جدا على تفاعلك المستمر معي في حل مشاكلي

ارجوا من الله عزوجل ان يضعها في ميزان حسناتك ويفرج همك

كما فرجت همي

اما بالنسبة للكومبوبوكس فاني و الحمدلله وجدتوا الحل لها في تعبئتها

شكرا

آمين يارب

بشري.. هل أشتغل كود ادخال التاريخ؟؟؟؟

الكود السابق يعالج مشكلة التقويم الهجري كذلك

ان شاء الله تكوني استفدتي منه

اذا في مشكلة خبريني

وبالتوفيق