sh2007
چهارشنبه 17 تیر 1388, 12:46 عصر
با سلام خدمت دوستان
من يه برنامه نوشتم كه در يه قسمت اجازه ثبت كدها تكراري رو طبق فانكشن زير نمي دهد
Function Check_Tekrary() As Boolean
Dim Cn As New SqlClient.SqlConnection(My.MySettings.Default.PayP aperConnectionString)
If Cn.State = ConnectionState.Closed Then Cn.Open()
Dim Cmd As New SqlClient.SqlCommand("SELECT * FROM Table1 WHERE Code=" & txtCode.Text, Cn)
Return (Cmd.ExecuteScalar > 0)
Check_Tekrary = True
End Function
توي دكمه ذخيره اين كد هست
If Check_Tekrary() Then
MsgBox("كاربر گرامي كد تكراري است", MsgBoxStyle.Exclamation, Title)
txtCode.Focus()
Exit Sub
End If
كه در هنگام ذخيره كردن اگه فانكش فالس بود اجازه ثبت نمي دهد
اما دوستان مشكل من اينه كه اگه توي اصلاح كد تكراري تايپ بشه من چكار كنم كه بتونم تكراري بودن اونو حل كنم يعني اجازه ثبت كد تكراري در هنگام اصلاح ندم
من يه برنامه نوشتم كه در يه قسمت اجازه ثبت كدها تكراري رو طبق فانكشن زير نمي دهد
Function Check_Tekrary() As Boolean
Dim Cn As New SqlClient.SqlConnection(My.MySettings.Default.PayP aperConnectionString)
If Cn.State = ConnectionState.Closed Then Cn.Open()
Dim Cmd As New SqlClient.SqlCommand("SELECT * FROM Table1 WHERE Code=" & txtCode.Text, Cn)
Return (Cmd.ExecuteScalar > 0)
Check_Tekrary = True
End Function
توي دكمه ذخيره اين كد هست
If Check_Tekrary() Then
MsgBox("كاربر گرامي كد تكراري است", MsgBoxStyle.Exclamation, Title)
txtCode.Focus()
Exit Sub
End If
كه در هنگام ذخيره كردن اگه فانكش فالس بود اجازه ثبت نمي دهد
اما دوستان مشكل من اينه كه اگه توي اصلاح كد تكراري تايپ بشه من چكار كنم كه بتونم تكراري بودن اونو حل كنم يعني اجازه ثبت كد تكراري در هنگام اصلاح ندم