20-10-18, 08:14 PM
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
ده الموديول الي عاملة عشان أحفظ بيه سجل داخل قاعة بيانات أكسس وبتظهر رسالة تفيد
Conversion failed when converting date and/or time from character string
أيه الخطأ .. وأيه الحل
ولكم مني فائق الاحترام والتقدير