Miryam
شنبه 05 شهریور 1390, 14:37 عصر
میخوام وقتی دکمه جستجو رو می زنم عمل جستجو رو انجام بده و توی دیتا گرید ویو نشون بده ولی این کد قبل از اینکه جستجو رو انجام بدم وقتی فرم میاد بالا تمام رکوردارو روی دیتا نشون میده.:گریه:
لطفا راهنمایی کنید.:افسرده:
Private Sub BTNSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BTNSearch.Click
Dim strsql As String
Dim strcon As String
strcon = "Data source=VIRTUALXP-28481;Initial catalog=Foroshgah;Integrated security=True"
Dim con As New SqlConnection(strcon)
con.Open()
strsql = " select* from tblBankMoshtari where ID= '" & TxtID.Text & "'"
Dim da As New SqlDataAdapter(strsql, con)
Dim ds As New DataSet()
ds.Clear()
If da.Fill(ds, "TblBankMoshtari") Then
DataGridView1.DataSource = ds.Tables("TblBankMoshtari")
لطفا راهنمایی کنید.:افسرده:
Private Sub BTNSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BTNSearch.Click
Dim strsql As String
Dim strcon As String
strcon = "Data source=VIRTUALXP-28481;Initial catalog=Foroshgah;Integrated security=True"
Dim con As New SqlConnection(strcon)
con.Open()
strsql = " select* from tblBankMoshtari where ID= '" & TxtID.Text & "'"
Dim da As New SqlDataAdapter(strsql, con)
Dim ds As New DataSet()
ds.Clear()
If da.Fill(ds, "TblBankMoshtari") Then
DataGridView1.DataSource = ds.Tables("TblBankMoshtari")