Imports System.Text
Imports System.Globalization
Imports System.IO
Imports System.Data.OleDb
Public Class rep_emp
Dim cn As New System.Data.OleDb.OleDbConnection
Dim cm As New System.Data.OleDb.OleDbCommand
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim dt As New DataTable
Dim lain As String = ""
Private Sub conn()
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\pesoli\db1.mdb;Jet OLEDB:Database Password=987;"
cm.Connection = cn
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
f_dgg()
End Sub
Private Sub fillCustom(query As String)
conn()
dt.Clear()
cm.CommandText = query
da.SelectCommand = cm
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.AutoResizeColumnHeadersHeight()
DataGridView1.AutoResizeColumns()
DataGridView1.AutoResizeRows()
DataGridView1.Refresh()
End Sub
Private Sub c_str()
lain = ""
If CheckBox0.Checked = True Then
lain += ",cod_meli as[کدملی]"
End If
If CheckBox1.Checked = True Then
lain += ",tavalod as[متولد]"
End If
If CheckBox2.Checked = True Then
lain += ",shenasnameh as[ش شناسنامه]"
End If
f_dgg()
End Sub
Private Sub f_dgg()
Dim lain2 As String = "select id_emp as[شناسه],fname as[نام],famili as[فامیل],pname as[نام پدر]"
Label20.Text = lain2 & lain & "from emp2 Order By famili"
fillCustom(lain2 & lain & "from emp2 Order By famili")
Label3.Text = DataGridView1.Rows.Count
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
c_str()
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
c_str()
End Sub
Private Sub CheckBox0_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox0.CheckedChanged
c_str()
End Sub
End Class
این هم کدهاش