farhad85
پنج شنبه 12 دی 1392, 11:24 صبح
سلام دوستان
این کد رو برای تشخیص کدملی تکراری نوشتم ولی کار نمیکنه لطفا کــــــــــــــــ:گریه:ـــ ــــــــــــــــــــک کنید؟
Dim cm As New SqlCommand("Select * From moshakhasat where code_meli=" & TextBox1.Text.Trim & ") ", my_cn)
Dim dr As SqlDataReader
If my_cn.State = ConnectionState.Closed Then
my_cn.Open()
End If
dr = cm.ExecuteReader
If dr.HasRows Then
MsgBox("این مقدار قبلا ثبت شده")
Else
MsgBox("این مقدار ثبت نشده")
End If
dr.Close()
این کد رو برای تشخیص کدملی تکراری نوشتم ولی کار نمیکنه لطفا کــــــــــــــــ:گریه:ـــ ــــــــــــــــــــک کنید؟
Dim cm As New SqlCommand("Select * From moshakhasat where code_meli=" & TextBox1.Text.Trim & ") ", my_cn)
Dim dr As SqlDataReader
If my_cn.State = ConnectionState.Closed Then
my_cn.Open()
End If
dr = cm.ExecuteReader
If dr.HasRows Then
MsgBox("این مقدار قبلا ثبت شده")
Else
MsgBox("این مقدار ثبت نشده")
End If
dr.Close()