جستجو در Datagrade View

[djhooman]

سلام

من یه فرمی دارم که اطلاعات رو توش پر می کنم ....
یه فرم دیگه دارم که بوسیله datagrade view اطلاعات بانک اطلاعاتی که در فرم اول وارد می کنیم رو نشون میده ....

حالا میخوام در فرم datagrade view جستجو بزارم ....
یعنی در textbox عدد یا text وارد میشه رو در سطر ها بگرده و اگه پیدا کرد سطر ها رو نشون بده ...
یعنی اگه در بانک اطلاعاتی شماره پرونده 11111 بود و در تکست باکس عدد 1 یا 11 یا 111 یا 1111 یا 11111 وارد شد و روی botton جستجو کلیک شد بگرده و اون و تو اول دیتاگرید ویو نشون بده ....

مثل عکس که اتچ کردم

خیلی گشتم اما چیزی متوجه نشدم ....

اگه میشه بگید step by step چیکار کنم ...
یعنی فلان کد رو تو کجای فرم یا botton و یا ..... بنویسم .....
مرسی

[juza66]

سلام دوست عزیز

از این سورس استفاده کن، نوشته استاد Alimanam هستش:

http://www.mediafire.com/?pdydp4it4ud3q51

[djhooman]

سورس کلا برام مبهم بود ....

اگه میشه یه توضیح بدید چیکار کنم ....

عکسی که گذاشتم گویا هست چی میخوام ......

ممنون از راهنماییتون

[djhooman]

سورس کلا برام مبهم بود ....

اگه میشه یه توضیح بدید چیکار کنم ....

عکسی که گذاشتم گویا هست چی میخوام ......

ممنون از راهنماییتون

............................

[djhooman]

کسی نیست راهنمایی بیشتر کنه ؟؟؟؟

[djhooman]

کسی نیست راهنمایی بیشتر کنه ؟؟؟؟




............................

[juza66]

سلام دوست من

کجایی این سورس برات مبهم بود؟!
خیلی ساده بودش که!!

[barbodsoft.com]

شما باید عمل پر کردن دیتاگرید رو با یک دستور select که سرچ مورد نظر شما رو انجام می ده مجدد پر کنی.

برای مثال دستور select رو به این شکل تغییر بده


"Select * from tableName where shomarehParvandeh like N'%" & Textbox1.Text & "%'"

[djhooman]

دوستای گل ..........
مرسی ....
اما مشکلم حل نشد ...

راستی دیتابیس من Access هستش !!!!!

فقظ یکم نیاز یه توضیح دارم که یاد بگیرم ......
پیشاپیش ممنون

[djhooman]

دوستای گل ..........
مرسی ....
اما مشکلم حل نشد ...

راستی دیتابیس من Access هستش !!!!!

فقظ یکم نیاز یه توضیح دارم که یاد بگیرم ......
پیشاپیش ممنون

کسی نیست برای کمک ؟؟؟

[roze_abi-r]

دوست عزیز شما دو تا راه دارین از هر کدوم که دوست داشتی میتونی استفاده کنی

اولیش اینکه وقتی داری اطلاعات دیتا بیس رو میخونی یه شرط بزاری تا فقط اون فیلدهایی رو که مد نظرت هست انتخاب بشن .

راه دوم اینه که یه حلقه بنویسی و توش مقدار موجود در textbox1 رو با مقدار موجود در ستون مورد نظر چک بکنی اگه درست بود اون خط انتخاب بشه مثل این کدی که براتون میزارم








PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged



Dim i AsInteger



For i = 0 To DataGridView1.Rows.Count - 1



Application.DoEvents()




If InStr(DataGridView1.Rows(i).Cells("نام ستون یا شماره ایندکس ستون").Value.ToString, TextBox1.Text) Then


DataGridView1.Rows(i).Selected=true


EndIf



Next



EndSub



منظور از نام و یا شماره ایندکس ستون، نام یا شماره همون ستونی هستش که قراره جدول بر اساس اون فیلتر بشه

امیدوارم که به کارتون بیاد


یا حق

[djhooman]

من تو کل فرم از کد زیر استفاده کردم و یه datagradeview کشیدم و متصل کردمش به تیبل مورد نظرم ...


Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

Dim i As Integer

For i = 0 To DataGridView1.Rows.Count - 1

Application.DoEvents()


If InStr(DataGridView1.Rows(i).Cells("Sh-Parvandeh").Value.ToString, TextBox3.Text) Then
DataGridView1.Rows(i).Selected = True
End If

Next

End Sub

72332

[djhooman]

دوست عزیز شما دو تا راه دارین از هر کدوم که دوست داشتی میتونی استفاده کنی

اولیش اینکه وقتی داری اطلاعات دیتا بیس رو میخونی یه شرط بزاری تا فقط اون فیلدهایی رو که مد نظرت هست انتخاب بشن .

راه دوم اینه که یه حلقه بنویسی و توش مقدار موجود در textbox1 رو با مقدار موجود در ستون مورد نظر چک بکنی اگه درست بود اون خط انتخاب بشه مثل این کدی که براتون میزارم








PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged



Dim i AsInteger



For i = 0 To DataGridView1.Rows.Count - 1



Application.DoEvents()




If InStr(DataGridView1.Rows(i).Cells("نام ستون یا شماره ایندکس ستون").Value.ToString, TextBox1.Text) Then


DataGridView1.Rows(i).Selected=true


EndIf



Next



EndSub



منظور از نام و یا شماره ایندکس ستون، نام یا شماره همون ستونی هستش که قراره جدول بر اساس اون فیلتر بشه

امیدوارم که به کارتون بیاد


یا حق

من از کد استفاده کردم ( توی عکس پست قبلیم هم هستش )
اما اررور میده ....
اررور رو عکسش رو ضمیمه کردم ...

[djhooman]

چی شد پسسسسس ؟ :D:D:D:D

[djhooman]

کسی نیست مارو یاری بده ؟؟؟

[djhooman]

کسی نیست کمک کنههه ؟

[ahmad-65]

سلام دوست عزيز.
پاسخ سوال شما خيلي راحته! شما بايد در رويداد كليك دكمه ي جست و جو اين كد رو بنويسيد:


if (txtSearch.Text.Length > 0)
{
string s1 = "select * from TableName where " + fild + " like'" + txtSearch.Text + "%'";
md.connect();
DataTable dt = md.select(s1);
md.Disconnect();
dataGridView1.DataSource = dt;
}

در كد بالا متغير fild نمايانگر فيلدي از جدول است كه قرار است با مقدار txtSearch برابر باشد.
در ضمن متغير md هم متغيري از كلاس پايگاه ما خواهد بود كه توابع آن را در زير ذكر ميكنم:


public void connect()
{
string cs = "Data source=.\\SQLEXPRESS;Attachdbfilename=|DataDirecto ry|\\{0};Integrated security=true;user Instance=true";
cs = string.Format(cs, this.DBName);
con.ConnectionString = cs;
con.Open();
}




public void Disconnect()
{
con.Close();
}




public DataTable select(string sql)
{
DataTable dt = new DataTable();
cmd.CommandText = sql;
da.Fill(dt);
return dt;
}

اميدوارم متوجه شده باشي.

[djhooman]

زبان برنامه نویسی من VB هست

اینی که شما نوشتید C# هست ....

لطفا کد هاشو به زبان VB بدید بم ....

[djhooman]

و بصورت کلی بگید با جزئیات چیکار کنم ...

مرسی

[minaforotan]

در رویداد لود فرم




ad.SelectCommand = New SqlCommand

ad.SelectCommand.Connection = cn

ad.SelectCommand.Parameters.Add(("@n"), SqlDbType.NVarChar)



و در TextBox1_TextChanged




ad.SelectCommand.CommandText = "select nam from ashkhas where nam like @n "

ad.SelectCommand.Parameters("@n").Value = TextBox1.Text + "%"

Dim ds As New DataSet

ad.Fill(ds, "k")

DataGridView1.AutoGenerateColumns = True

DataGridView1.DataSource = ds

DataGridView1.DataMember = "k"

[djhooman]

این کدم زدم کار نمیکنه ...
مثل بالا اررور میده ........

دیتابیس من Access هست و زیان بزنامه نویسی VB.Net .....

[vb341]

Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If

Con.Open()
DA = New SqlDataAdapter("select * from PersonelQuery where FirstName like '" & "%" & TextBox6.Text.Trim & "%" & "'", Con)
DS.Clear()
DA.Fill(DS, "Tbl_Personel")
Con.Close()

Me.DataGridView1.DataBindings.Clear()
Me.DataGridView1.DataBindings.Add("datasource", DS, "Tbl_Personel")


TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox9.DataBindings.Clear()


ComboBox1.DataSource = Nothing
ComboBox2.DataSource = Nothing

Me.TextBox1.DataBindings.Add("text", Me.DataGridView1.DataSource, ".PerId")
Me.TextBox2.DataBindings.Add("text", Me.DataGridView1.DataSource, ".FirstName")
Me.TextBox3.DataBindings.Add("text", Me.DataGridView1.DataSource, ".LastName")
Me.TextBox9.DataBindings.Add("text", Me.DataGridView1.DataSource, ".DateStart")

Catch ex As SqlClient.SqlException
MessageBox.Show(ex.Message.ToString)
End Try

End Sub

[vb341]

در ضمن اینکه بانک اطلاعاتی شما Access یا Sql باشه فرقی در دستورات نداره

[roze_abi-r]

ببینید دوست عزیز اون قسمت از از کدی که من نوشتم "نام ستون جدول یا شماره ایندکس ستون جدول" منظورم نام و یا شماره ایندکس DataGridView بود

حالا یه مثال با سورس کد آماده کردم تو ضمیمه میزارم




Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim i As Integer

For i = 0 To DataGridView1.Rows.Count - 1

Application.DoEvents()

If InStr(DataGridView1.Rows(i).Cells(1).Value.ToStrin g, TextBox1.Text) And TextBox1.TextLength > 0 Then
DataGridView1.Rows(i).Selected = True
Else
DataGridView1.Rows(i).Selected = False
End If

Next




من خودم اینو تست کردم نتیجه رو هم با عکش نشون میدم


1.اینجا همونطور که میبینید هیچ متنی تو textbox1 یا همون کادر جستجو هی متنی نوشته نشده
در نتیجه هیچ خطی از جدول انتخاب نشده

72499


2.اینجا فقط حرف g درون کادر جستجو نوشته شده و برنامه سطرهایی که توش حرف g وجود داره رو انتخاب کرده

72500


3.اینجا هم بعد از حرف g حرف f هم به درون کادر جستجو اضافه شده، و چون فقط یک سطر وجود داره که توش کلمه یا حروف gf وجود داره انتخاب شده. و سطرهای دیگه که این حروف رو نداره از حالت انتخاب در اومدن

72501


و اما نکته قابل ذکر اینکه : اگه تو کادر جستجو همون حروف gf پشت سر هم نوشته بشن دیگه سطرهایی که حروف gf رو دارن ولی بینشون حرف یا حروف دیگه مثلا glf یا grlrlrlrf دارن انتخاب نمیشن.

امدوارم که مشکلتون با این روش حل بشه

یا حق

[djhooman]

من سورس شما رو اوردم تو برنامم اما 54 تا خط اررور میگیره ....

ببینید عکس ضمیمه رو ....

[djhooman]

دو تا کلاس توی مثال زو هم اضافه کزدم اما اررور میگیره ....
تصویر و ببینید

[djhooman]

چی شد ؟؟؟؟

[/URL] (http://barnamenevis.org/member.php?46468-roze_abi-r) (http://barnamenevis.org/member.php?46468-roze_abi-r)

[URL="http://barnamenevis.org/member.php?46468-roze_abi-r"]roze_abi-r (http://barnamenevis.org/member.php?46468-roze_abi-r) جان چیکار کنم ؟؟؟

[djhooman]

دوستای گل کسی نمیتونه کمکم کنه ؟؟؟

این همه استاد تو این فروم هست ....

خواهش

[alimanam]

با سلام

دیگه از این ساده تر نمیتونستم براتون مثال بزنم اگه براتون مبهمه !!!!! فکر میکنم باید کمی بیشتر مطالعه داشته باشین چون خیلی ساده نوشتم .

موفق باشید ./

[roze_abi-r]

من سورس شما رو اوردم تو برنامم اما 54 تا خط اررور میگیره ....

ببینید عکس ضمیمه رو ....


داخل کلاس clsDataBase

تابع public sub new رو به این شکل تغییر بدین



Public Sub New()
oledbconn = New OleDbConnection(oledbconnstring)
End Sub 'New



و در اولین خط کد داخل کلاس یعنی این خط

'Dim oledbconnstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;"

این تغییرات رو انجام بدین
1. کاما ' رو از اول خط پاک کنید
2. قسمت ُData Source=db.mdb رو هم به این شکل تغییر بدین


Data Source=" & Application.StartupPath & "\db.mdb;"



در آخر به این صورت درمیاد

Dim oledbconnstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db.mdb;"

تا یادم نرفته بگم

تو این قسمت

Application.StartupPath & "\db.mdb;"

db.mdb نام دیتابیس با فرمت فایل هست که باید نام دیتابیستون رو بجای حروف db بزارین

در آخر هم فایل دیتابیستون رو باید در این مسیر قرار بدین
پوشه اصلی پروژه\bin\Debug

امیدوارم مشکلتون حل شده باشه

یا حق

[djhooman]

بازم نشد و همون اررور رو داد ....

[roze_abi-r]

بازم نشد و همون اررور رو داد ....


یک نمایه از محیطی که خطا رخ میده رو بزارین تا بیشتر کمکتون کنم

[djhooman]

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.NullReferenceException: Object reference not set to an instance of an object.
at Electronic_Office.Gavahi_Report.TextBox3_TextChang ed(Object sender, EventArgs e) in C:\Users\Hooman\Desktop\New Version\E-Office\Electronic Office\Gavahi-Report.vb:line 27
at System.Windows.Forms.Control.OnTextChanged(EventAr gs e)
at System.Windows.Forms.TextBoxBase.OnTextChanged(Eve ntArgs e)
at System.Windows.Forms.TextBoxBase.WmReflectCommand( Message& m)
at System.Windows.Forms.TextBoxBase.WndProc(Message& m)
at System.Windows.Forms.TextBox.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Loaded Assemblies **************
mscorlib
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.225 (RTMGDR.030319-2200)
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Electronic Office
Assembly Version: 0.0.0.0
Win32 Version: 0.0.0.0
CodeBase: file:///C:/Users/Hooman/Desktop/New%20Version/E-Office/Electronic%20Office/bin/Debug/Electronic%20Office.exe
----------------------------------------
System.Windows.Forms
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Configuration
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Data
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Core
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Data.DataSetExtensions
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Data.DataSetExtensions/v4.0_4.0.0.0__b77a5c561934e089/System.Data.DataSetExtensions.dll
----------------------------------------
System.Numerics
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
----------------------------------------
Accessibility
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 10.0.0.0
Win32 Version: 10.0.30319.1 built by: RTMRel
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System.Transactions
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
System.EnterpriseServices
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.1 (RTMRel.030319-0100)
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.




73015

[alimanam]

با سلام

کدهای فرم Gavahi_Report خودت رو طبق کدهای زیر تغییر بده مشکلت حل میشه .


Imports System.Data.OleDb

Public Class Gavahi_Report

Private cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb")
Private Function SearchByID(ByVal fieldname As String, ByVal Searchfor As Object) As DataTable
Dim ad As New OleDbDataAdapter("Select * from Gavahi Where " & fieldname & " like '%" & Searchfor & "%'", cnn)
Dim dt As New DataTable
ad.Fill(dt)
Return dt
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox3.Text.Length > 0 Then
Select Case ComboBox2.SelectedIndex
Case Is = 0
DataGridView1.DataSource = SearchByID("ShParvandeh", TextBox3.Text)
Case Is = 1
DataGridView1.DataSource = SearchByID("MalekVakil", TextBox3.Text)
Case Is = 2
DataGridView1.DataSource = SearchByID("MalekVakil", TextBox3.Text)
End Select
End If

End Sub

Private Sub Gavahi_Report_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = SearchByID("ShParvandeh", 1)
End Sub


End Class


موفق باشید ./

[djhooman]

ممنون

مشکلم حل شد ....

یکدنیا ممنونمممممممممممممممممممم مممممم

[ahmadreza517]

سلام دوست عزیز به ادرس زیر سری بزن
http://howprg.blogfa.com/post-8.aspx

[ZENDAR]

سلام میشه کد سی شارپ جستجو در دیتا گرید رو برام بزارین.