22-03-17, 03:28 PM
(آخر تعديل لهذه المشاركة : 22-03-17, 03:32 PM {2} بواسطة عزوز هزازي.)
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اسعد الله مساكم
يالغالين عندي مشكلة في ادخال التاريخ من الفيجوال بيسك الى السكول سيرفر
يقولي خطا التاريخ المعتمد من 1900 بالميلادي
وهذا كود الادخال انا طبقته ومشى معي لكن غيرت في التاريخ ومدري وش جاه
هذي الاكواد اذا في خطا يا شباب ياريت تفيدوني
ككود الاضافة
كود التحديث
كود البحث
السلام عليكم ورحمة الله وبركاته
اسعد الله مساكم
يالغالين عندي مشكلة في ادخال التاريخ من الفيجوال بيسك الى السكول سيرفر
يقولي خطا التاريخ المعتمد من 1900 بالميلادي
وهذا كود الادخال انا طبقته ومشى معي لكن غيرت في التاريخ ومدري وش جاه
هذي الاكواد اذا في خطا يا شباب ياريت تفيدوني
ككود الاضافة
PHP كود :
If tn1.Text = "" Or rn1.Text = "" Or nmbr1.Text = "" Or nmbr2.Text = "" Or idnam.Text = "" Then
MsgBox("لا يمكن ترك حقل فارغ", MsgBoxStyle.Critical, "خطا")
Exit Sub
End If
Try
Dim strinsert As String = "INSERT INTO tbl1 (nam,range,n1,n2,id_nam,st_work,en_ran,up_ran,fll,why,steat) " _
& "VALUES('" & tn1.Text & "','" & rn1.Text & "'," & nmbr1.Text & "," & nmbr2.Text & "," & idnam.Text & ",'" & DateTimePicker1.Value.ToString("yyyy-MM-dd") & "','" & DateTimePicker2.Value.ToString("yyyy-MM-dd") & "','" & DateTimePicker3.Value.ToString("yyyy-MM-dd") & "'," & file.Text & ",'" & why.Text & "','" & stname.Text & "')"
Dim cmd As New SqlCommand(strinsert, sqlcon)
sqlcon.Open()
cmd.ExecuteNonQuery()
MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "الاضافة")
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
كود التحديث
PHP كود :
Try
Dim cmd As New SqlCommand
If MsgBox("هل تريد تاكيد عمليةالتحديث ؟", MsgBoxStyle.YesNo, "التاكيد") = DialogResult.Yes Then
Dim strUpdate As String = "Update tbl1 set nam='" & tn1.Text & "', range='" & rn1.Text & "', n1=" & nmbr1.Text & ", n2= " & nmbr2.Text & ", id_nam=" & idnam.Text & ", st_work='" & DateTimePicker1.Value.ToString("yyyy-MM-dd") & "', en_ran='" & DateTimePicker1.Value.ToString("yyyy-MM-dd") & "', up_ran='" & DateTimePicker1.Value.ToString("yyyy-MM-dd") & "', fll=" & file.Text & ", why= '" & why.Text & "', steat='" & stname.Text & "'"
cmd = New SqlCommand(strUpdate, sqlcon)
sqlcon.Open()
cmd.ExecuteNonQuery()
MsgBox("تم التحديث بنجاح", MsgBoxStyle.Information, "التحديث")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
كود البحث
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox12.Text = "" Then
MsgBox("لم يتم كتابة بيانات الفرد", MsgBoxStyle.Critical, "خطا")
Exit Sub
End If
Try
Dim delstring As String = "SELECT * FROM tbl1 WHERE id_nam=" & TextBox12.Text
Dim cmd As New SqlCommand(delstring, sqlcon)
sqlcon.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
tn1.Text = dr(0)
rn1.Text = dr(1)
nmbr1.Text = dr(2)
nmbr2.Text = dr(3)
DateTimePicker1.Value = dr(5)
DateTimePicker2.Value = dr(6)
DateTimePicker3.Value = dr(67)
file.Text = dr(8)
why.Text = dr(9)
stname.Text = dr(10)
Else
MsgBox("لا يوجد بيانات للفرد", MsgBoxStyle.Critical, "البحث")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try