Advanced Search

Return to Snippet

Revision: 49731
at July 28, 2011 23:03 by alimanam
Initial Code 
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.SqlClient
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
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
این یک تست است

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
تست شماره1

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
VB.NET