sajjad etemadfar
جمعه 02 اردیبهشت 1390, 13:06 عصر
با عرض سلام
من در یک ماژول طراحی کردم وبانکم را در ماژول به وی بی متصل کردم
کد های اتصال بانک من به اس کیو ال را ماژول در زیر ببینید:
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection
Public ds As New DataSet
Public da As SqlDataAdapter
Public cmd As New SqlCommand
Public str As String
Public dr As SqlDataReader
Public Function exereader(ByVal str As String) As SqlDataReader
con = New SqlConnection("Data Source=.;Initial Catalog=Bimarestan;Integrated Security=True")
con.Open()
cmd.CommandText = str
cmd.Connection = con
exereader = cmd.ExecuteReader()
End Function
Public Sub execmd(ByVal str As String)
con = New SqlConnection("Data Source=.;Initial Catalog=Bimarestan;Integrated Security=True")
con.Open()
cmd.CommandText = str
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Sub DataGr(ByVal tabelname As String, ByVal Datagrid As DataGridView)
con = New SqlConnection("Data Source=.;Initial Catalog=Bimarestan;Integrated Security=True")
con.Open()
str = "Select * from " + tabelname
da = New SqlDataAdapter(str, con)
ds.Clear()
da.Fill(ds, tabelname)
Datagrid.DataSource = ds.Tables(tabelname)
con.Close()
End Sub
End Module
حالا می خواهم با استفاده از دستورات زیر در دکمه ی جستجو، اطلاعات مربوط به شخص یافته شده را نمایش دهد.
str = "Select * from bimar where Code='" + TextBox1.Text + "'"
dr = exereader(str)
If dr.Read Then
DataGr("Bimar", DataGridView1)
Else
MsgBox("چنین بیماری وجود ندارد", MsgBoxStyle.Critical, "یافت نشد")
End If
con.Close()
با زدن این دکمه بیمارانی که قبلا ثبت شده اند جستجو می شوند
مشکل من اینجاست که می خواهم فقط اطلاعات بیماری را که جستجو کرده ام نمایش داده شود ولی اینطور نیست وهمه ی بیماران را نمایش میدهد
چه کنم؟
در تصویر زیر فرم مربوطه را ببینید که من با جستجوی کد 1 تمامی افراد ظاهر شده اند در حالی که نمی خواهم اینگونه باشد وفقط می خواهم اطلاعات حمید رضا بافنده زاده که کدش 1 است نمایش داده شود یعنی بقیه فیلتر شوند.
http://tehranpic.net/download.php?img=530646
من در یک ماژول طراحی کردم وبانکم را در ماژول به وی بی متصل کردم
کد های اتصال بانک من به اس کیو ال را ماژول در زیر ببینید:
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Public con As SqlConnection
Public ds As New DataSet
Public da As SqlDataAdapter
Public cmd As New SqlCommand
Public str As String
Public dr As SqlDataReader
Public Function exereader(ByVal str As String) As SqlDataReader
con = New SqlConnection("Data Source=.;Initial Catalog=Bimarestan;Integrated Security=True")
con.Open()
cmd.CommandText = str
cmd.Connection = con
exereader = cmd.ExecuteReader()
End Function
Public Sub execmd(ByVal str As String)
con = New SqlConnection("Data Source=.;Initial Catalog=Bimarestan;Integrated Security=True")
con.Open()
cmd.CommandText = str
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Sub DataGr(ByVal tabelname As String, ByVal Datagrid As DataGridView)
con = New SqlConnection("Data Source=.;Initial Catalog=Bimarestan;Integrated Security=True")
con.Open()
str = "Select * from " + tabelname
da = New SqlDataAdapter(str, con)
ds.Clear()
da.Fill(ds, tabelname)
Datagrid.DataSource = ds.Tables(tabelname)
con.Close()
End Sub
End Module
حالا می خواهم با استفاده از دستورات زیر در دکمه ی جستجو، اطلاعات مربوط به شخص یافته شده را نمایش دهد.
str = "Select * from bimar where Code='" + TextBox1.Text + "'"
dr = exereader(str)
If dr.Read Then
DataGr("Bimar", DataGridView1)
Else
MsgBox("چنین بیماری وجود ندارد", MsgBoxStyle.Critical, "یافت نشد")
End If
con.Close()
با زدن این دکمه بیمارانی که قبلا ثبت شده اند جستجو می شوند
مشکل من اینجاست که می خواهم فقط اطلاعات بیماری را که جستجو کرده ام نمایش داده شود ولی اینطور نیست وهمه ی بیماران را نمایش میدهد
چه کنم؟
در تصویر زیر فرم مربوطه را ببینید که من با جستجوی کد 1 تمامی افراد ظاهر شده اند در حالی که نمی خواهم اینگونه باشد وفقط می خواهم اطلاعات حمید رضا بافنده زاده که کدش 1 است نمایش داده شود یعنی بقیه فیلتر شوند.
http://tehranpic.net/download.php?img=530646