piter11
جمعه 21 شهریور 1393, 13:23 عصر
سلام من جستجو رو گذاشتم بر پایه شماره id یا tell حالا مشکلی تو جستجو هر دو نداره بجز وقتی که شماره تلفن بیتشر از 10 رقم باشه که میره تو حالت Try catch نوع tell هم nvarcar,50 این کد جستجوم باید چی کار کنم شماره تلفن ها که 11 رقمی ان!
Try
If TextBox2.Text = String.Empty Then
MsgBox("کد اشتراک شخص را وارد کنید", vbExclamation + vbOKOnly, "پيام")
TextBox2.Focus()
Exit Sub
End If
If TextBox2.TextLength > 0 Then
If con.State = ConnectionState.Closed Then
con.Open()
End If
cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "SELECT inf FROM Tbvip WHERE(id=@iid or tell=@ttell)"
cmd.Parameters.Add("@iid", SqlDbType.Int).Value = TextBox2.Text
cmd.Parameters.Add("@ttell", SqlDbType.NVarChar, 50).Value = TextBox2.Text
'con.Open()
If con.State = ConnectionState.Open Then
Dim sReader As SqlDataReader = cmd.ExecuteReader()
'sreader برای خواندن دیتا از اس کیو ال توسط دیتا ریدر می باشد
If sReader.Read() Then
'اینجا داده هایی مه توس Sreader خوندیم رو توی تکس باکس ها فراخوانی میکنیم
TextBox1.Text = sReader.GetValue(0).ToString()
con.Close()
Else : MessageBox.Show("پیدا نشد")
End If
End If
End If
Catch ex As Exception
MsgBox("یک خطای منطقی از سوی شما اتفاق افتاده !")
End Try
End Sub
Try
If TextBox2.Text = String.Empty Then
MsgBox("کد اشتراک شخص را وارد کنید", vbExclamation + vbOKOnly, "پيام")
TextBox2.Focus()
Exit Sub
End If
If TextBox2.TextLength > 0 Then
If con.State = ConnectionState.Closed Then
con.Open()
End If
cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "SELECT inf FROM Tbvip WHERE(id=@iid or tell=@ttell)"
cmd.Parameters.Add("@iid", SqlDbType.Int).Value = TextBox2.Text
cmd.Parameters.Add("@ttell", SqlDbType.NVarChar, 50).Value = TextBox2.Text
'con.Open()
If con.State = ConnectionState.Open Then
Dim sReader As SqlDataReader = cmd.ExecuteReader()
'sreader برای خواندن دیتا از اس کیو ال توسط دیتا ریدر می باشد
If sReader.Read() Then
'اینجا داده هایی مه توس Sreader خوندیم رو توی تکس باکس ها فراخوانی میکنیم
TextBox1.Text = sReader.GetValue(0).ToString()
con.Close()
Else : MessageBox.Show("پیدا نشد")
End If
End If
End If
Catch ex As Exception
MsgBox("یک خطای منطقی از سوی شما اتفاق افتاده !")
End Try
End Sub