03-06-14, 03:51 PM
.....
هذا الكود لتحديث السجلات القديمة التي لا يحتوي العمود JobNo في بدايته على '/F'
.....
هذا الكود لتحديث السجلات القديمة التي لا يحتوي العمود JobNo في بدايته على '/F'
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String = " UPDATE [Warrinty] SET [JobNo]= 'F/'+[JobNo] WHERE MID([JobNo],1,2)<>'F/' "
Dim comm As New OleDb.OleDbCommand(sql, conn)
conn.Open()
Dim result As Integer = comm.ExecuteNonQuery()
conn.Close()
MsgBox("تم تحديث سجلات عدد: " & result)
End Sub
.....