swallow.pa
جمعه 25 فروردین 1391, 17:24 عصر
سلام به همه
این کد مربوط به شناسائی رکوردهای تکراری می باشد که توسط آقای نجفلو توی سایت گذاشته شده و ار ایشون ممنون هستیم
اما دوستان می خواستم بدونم اگه حالت ویرایش پیش بیاد که بخوایم اون رکوردهای تکراری رو شناسائی کنیم چیکار کنیم
ممنون
Private Function CheckPersonExist(ByVal strName As String, ByVal strFamily As String) As Boolean
CheckPersonExist = True
Try
Dim TSQL As String = "SELECT ISNULL(COUNT(Family),0) FROM Person" & vbNewLine
TSQL &= String.Format(" WHERE Name = N'{0}' AND Family = N'{1}' AND CompanyRef={2}", strName, strFamily, Mid(intYearsRef, 5))
Dim Cmd As New SqlClient.SqlCommand(TSQL, Cn)
If Cn.State = ConnectionState.Closed Then Cn.Open()
Dim SqlRes As Integer = CInt(Cmd.ExecuteScalar)
Cn.Close()
Return SqlRes = 0
Catch ex As Exception
If Cn.State = ConnectionState.Open Then Cn.Close()
MsgBox(Err.Description _
, MsgBoxStyle.Critical, "خطا هنگام شناسايي رکورد جديد")
End Try
End Function
این کد مربوط به شناسائی رکوردهای تکراری می باشد که توسط آقای نجفلو توی سایت گذاشته شده و ار ایشون ممنون هستیم
اما دوستان می خواستم بدونم اگه حالت ویرایش پیش بیاد که بخوایم اون رکوردهای تکراری رو شناسائی کنیم چیکار کنیم
ممنون
Private Function CheckPersonExist(ByVal strName As String, ByVal strFamily As String) As Boolean
CheckPersonExist = True
Try
Dim TSQL As String = "SELECT ISNULL(COUNT(Family),0) FROM Person" & vbNewLine
TSQL &= String.Format(" WHERE Name = N'{0}' AND Family = N'{1}' AND CompanyRef={2}", strName, strFamily, Mid(intYearsRef, 5))
Dim Cmd As New SqlClient.SqlCommand(TSQL, Cn)
If Cn.State = ConnectionState.Closed Then Cn.Open()
Dim SqlRes As Integer = CInt(Cmd.ExecuteScalar)
Cn.Close()
Return SqlRes = 0
Catch ex As Exception
If Cn.State = ConnectionState.Open Then Cn.Close()
MsgBox(Err.Description _
, MsgBoxStyle.Critical, "خطا هنگام شناسايي رکورد جديد")
End Try
End Function