منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

   Public Sub adddin(cod1 As String, cod2 As String, qimaloh As String, qimaalih As String, infor As String, mol As String, dat1 As String, dat2 As String, halas As String)

        Try

            opdbsql()

            Class1.cmsq.Connection = Class1.cnsq

            Class1.cmsq.CommandType = CommandType.Text

            Class1.cmsq.CommandText = "insert into harka  ([cod],[qimaloh],[qimaalih],[info],[mol],[dat],[datsdad],[halatsada],[codhark]) values ('" + cod1 + "','" + qimaloh + "','" + qimaalih + "','" + infor + "','" + mol + "','" & dat1 & "','" & dat2 & "','" + halas + "','" + cod2 + "')"

            Class1.cmsq.ExecuteNonQuery()

            MsgBox("تمت عملية الاضافة")

            Class1.cnsq.Close()

            Class1.savcomp = True

        Catch ex As Exception

            MsgBox(ex.Message)

            Class1.savcomp = False

        End Try

    End Sub

End Module

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

ولا اعلم نوع كلاً من الاخري

لكن ما شاء الله كله عندك String السؤال هنا هل هم ايضاً بقاعدة البيانات String 

اللى اقصده ما يخص الارقام اجعله تحت نوع رقم وما يخص التاريخ اجعله من نوع التاريخ وطبقاً لما هو موجود بقاعدة البيانات

ناتى للجزء التالى وهو بعد معالجة كل من تلك الامور كيف يتم اضافة التاريخ

بعد المعالجة لما تم شرحه مسبقاً والتاكد من انه فى قاعدة البيانات ايضاً من نوع تاريخ

اى استبدال علامة ' بعلامة # وبكده سيتم الاضافة بدون اى مشكلة

اتمنى ان تكون الصورة وضحت لك كاملاً

تحياتى لك

وتمنياتى لك التوفيق