[اللورد محمود]

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

PHP كود :

Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As String, ByVal EVENTS1 As String)
       Dim cmd As New SqlCommand("Insert into FllowUp_Tble (USERNAME1,EVENTS1,DATETIME1, DATETIME2)
                                   values (@USERNAME1,@EVENTS1,@date,@time)", connSQL)
       cmd.Parameters.Add("USERNAME1", SqlDbType.NVarChar).Value = USERNAME1
       cmd.Parameters.Add("EVENTS1", SqlDbType.NVarChar).Value = EVENTS1
       cmd.Parameters.Add("date", SqlDbType.Date).Value = Date.Now.Date
       cmd.Parameters.Add("time", SqlDbType.DateTime).Value = Date.Now
       If connSQL.State = 1 Then connSQL.Close()
       connSQL.Open()
       cmd.ExecuteNonQuery()
       connSQL.Close()
       cmd = Nothing