piter11
پنج شنبه 20 شهریور 1393, 17:26 عصر
من می خوام قبل از ویرایش کردن چک کنم ببینم آیا تلفن وارد شده تکراری نیست این قطعه کدم ممنون میشم بگید مشکلش کجاش
Try
'این کد میاد چک میکنه که اگه کانکشن بسته بود اونو باز میکنه
If con.State = ConnectionState.Closed Then
con.Open()
End If
'find that user is not registered before
con = New SqlConnection(My.Settings.Conn)
cmd = New SqlCommand()
cmd.Connection = con
Dim dt As New DataTable
cmd.CommandText = "SELECT * FROM Tbvip WHERE tell=@tell"
cmd.Parameters.Add("@tell", SqlDbType.NVarChar, 50).Value = txttell.Text
Dim DA As New SqlDataAdapter
DA.SelectCommand = cmd
dt.Clear()
DA.Fill(dt)
If dt.Rows.Count <> 0 Then
MsgBox("این شماره تلفن قبلا ثبت شده است")
Else
cmd.Parameters.Clear()
cmd.CommandText = "UPDATE Tbvip SET Name=@Name,family=@family,tell=@tell,tarikh=@tarik h,adres=@adres,inf=@inf WHERE(id=@id)"
cmd.Parameters.Add("@id", SqlDbType.Int).Value = txtcode
cmd.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = TextBox4.Text
cmd.Parameters.Add("@family", SqlDbType.NVarChar, 50).Value = TextBox5.Text
cmd.Parameters.Add("@tell", SqlDbType.NVarChar, 50).Value = txttell.Text
cmd.Parameters.Add("@tarikh", SqlDbType.NVarChar, 50).Value = HM_FarsiCalendar3.Text
cmd.Parameters.Add("@adres", SqlDbType.NVarChar, 350).Value = TextBox7.Text
cmd.Parameters.Add("@inf", SqlDbType.Text).Value = txtinf.Text
Dim count As Integer
If con.State = ConnectionState.Open Then
count = cmd.ExecuteNonQuery()
con.Close()
If count > 0 Then
MessageBox.Show("تغییرات جدید اعمال شد")
Else : MessageBox.Show("مشتری مورد نظر پیدا نشد")
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Try
'این کد میاد چک میکنه که اگه کانکشن بسته بود اونو باز میکنه
If con.State = ConnectionState.Closed Then
con.Open()
End If
'find that user is not registered before
con = New SqlConnection(My.Settings.Conn)
cmd = New SqlCommand()
cmd.Connection = con
Dim dt As New DataTable
cmd.CommandText = "SELECT * FROM Tbvip WHERE tell=@tell"
cmd.Parameters.Add("@tell", SqlDbType.NVarChar, 50).Value = txttell.Text
Dim DA As New SqlDataAdapter
DA.SelectCommand = cmd
dt.Clear()
DA.Fill(dt)
If dt.Rows.Count <> 0 Then
MsgBox("این شماره تلفن قبلا ثبت شده است")
Else
cmd.Parameters.Clear()
cmd.CommandText = "UPDATE Tbvip SET Name=@Name,family=@family,tell=@tell,tarikh=@tarik h,adres=@adres,inf=@inf WHERE(id=@id)"
cmd.Parameters.Add("@id", SqlDbType.Int).Value = txtcode
cmd.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = TextBox4.Text
cmd.Parameters.Add("@family", SqlDbType.NVarChar, 50).Value = TextBox5.Text
cmd.Parameters.Add("@tell", SqlDbType.NVarChar, 50).Value = txttell.Text
cmd.Parameters.Add("@tarikh", SqlDbType.NVarChar, 50).Value = HM_FarsiCalendar3.Text
cmd.Parameters.Add("@adres", SqlDbType.NVarChar, 350).Value = TextBox7.Text
cmd.Parameters.Add("@inf", SqlDbType.Text).Value = txtinf.Text
Dim count As Integer
If con.State = ConnectionState.Open Then
count = cmd.ExecuteNonQuery()
con.Close()
If count > 0 Then
MessageBox.Show("تغییرات جدید اعمال شد")
Else : MessageBox.Show("مشتری مورد نظر پیدا نشد")
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try