Reply to thread

Message

<blockquote data-quote="sapna21" data-source="post: 117598" data-attributes="member: 27973">I want to filter department wise from following database (MS Access)..S_NO&nbsp; &nbsp; EMP_NAME&nbsp; &nbsp; E_CODE&nbsp; &nbsp; DEPARTMENT&nbsp; &nbsp; COMPANY&nbsp; &nbsp; DIVISION&nbsp; &nbsp; S_DATE&nbsp; &nbsp; E_DATE&nbsp; &nbsp; TOPIC1&nbsp; &nbsp; ANAND&nbsp; &nbsp; 1112&nbsp; &nbsp; HR&nbsp; &nbsp; abcd&nbsp; &nbsp; ghjk&nbsp; &nbsp; 25-Nov-09&nbsp; &nbsp; 11/25/2009&nbsp; &nbsp; QA2&nbsp; &nbsp; PANKAJ&nbsp; &nbsp; 3223&nbsp; &nbsp; QA&nbsp; &nbsp; abcd&nbsp; &nbsp; ghjk&nbsp; &nbsp; 25-Nov-09&nbsp; &nbsp; 11/25/2009&nbsp; &nbsp; L.F.T3&nbsp; &nbsp; AMITABH&nbsp; &nbsp; 1231&nbsp; &nbsp; MECHANICAL&nbsp; &nbsp; abcd&nbsp; &nbsp; ghjk&nbsp; &nbsp; 25-Nov-09&nbsp; &nbsp; 11/25/2009&nbsp; &nbsp; L.F.T4&nbsp; &nbsp; GIRJA SHANKAR&nbsp; &nbsp; 5117&nbsp; &nbsp; HR&nbsp; &nbsp; abcd&nbsp; &nbsp; ghjk&nbsp; &nbsp; 25-Nov-09&nbsp; &nbsp; 11/25/2009&nbsp; &nbsp; L.F.TAlso i am not able to insert, update <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite3" alt=":(" title="Frown&nbsp; &nbsp; :(" loading="lazy" data-shortname=":(" /> data through insert query but i can update through following coding:Imports CrystalDecisions.CrystalReports.EnginePublic Class Form1&nbsp; &nbsp; Dim inc As Integer&nbsp; &nbsp; Dim MaxRows As Integer&nbsp; &nbsp; Dim con As New OleDb.OleDbConnection&nbsp; &nbsp; Dim Command As OleDb.OleDbCommand&nbsp; &nbsp; Dim sql As String&nbsp; &nbsp; Dim ds As New DataSet&nbsp; &nbsp; Dim da As OleDb.OleDbDataAdapter&nbsp; &nbsp; Dim datagrid1 As New DataGrid&nbsp; &nbsp; Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load&nbsp; &nbsp; &nbsp; &nbsp; con.ConnectionString = &quot;PROVIDER = Microsoft.Jet.OLEDB.4.0;Data source = C:\Users\sapna.sharma\Documents\Training.mdb&quot;&nbsp; &nbsp; &nbsp; &nbsp; con.Open()&nbsp; &nbsp; &nbsp; &nbsp; sql = &quot;SELECT * FROM tblContacts&quot;&nbsp; &nbsp; &nbsp; &nbsp; da = New OleDb.OleDbDataAdapter(sql, con)&nbsp; &nbsp; &nbsp; &nbsp; da.Fill(ds, &quot;Training&quot;)&nbsp; &nbsp; &nbsp; &nbsp; datagrid1.DataSource = ds.DefaultViewManager&nbsp; &nbsp; &nbsp; &nbsp; con.Close()&nbsp; &nbsp; &nbsp; &nbsp; MaxRows = ds.Tables(&quot;Training&quot;).Rows.Count&nbsp; &nbsp; &nbsp; &nbsp; inc = -1&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub NavigateRecords()&nbsp; &nbsp; &nbsp; &nbsp; txtEmp_Name.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(1)&nbsp; &nbsp; &nbsp; &nbsp; txtE_code.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(2)&nbsp; &nbsp; &nbsp; &nbsp; txtDepartment.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(3)&nbsp; &nbsp; &nbsp; &nbsp; txtCompany.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(4)&nbsp; &nbsp; &nbsp; &nbsp; txtDivision.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(5)&nbsp; &nbsp; &nbsp; &nbsp; txtS_Date.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(6)&nbsp; &nbsp; &nbsp; &nbsp; txtE_Date.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(7)&nbsp; &nbsp; &nbsp; &nbsp; txtTopic.Text = ds.Tables(&quot;Training&quot;).Rows(inc).Item(8)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click&nbsp; &nbsp; &nbsp; &nbsp; If inc &lt;&gt; MaxRows - 1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc = inc + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NavigateRecords()&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;No More Rows&quot;)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click&nbsp; &nbsp; &nbsp; &nbsp; If inc &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc = inc - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NavigateRecords()&nbsp; &nbsp; &nbsp; &nbsp; ElseIf inc = -1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;No Records Yet&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ElseIf inc = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;First Record&quot;)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim cb As New OleDb.OleDbCommandBuilder(da)&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(1) = txtEmp_Name.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(2) = txtE_code.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(3) = txtDepartment.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(4) = txtCompany.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(5) = txtDivision.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(6) = txtS_Date.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(7) = txtE_Date.Text&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Item(8) = txtTopic.Text&nbsp; &nbsp; &nbsp; &nbsp; da.Update(ds, &quot;Training&quot;)&nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Data updated&quot;)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click&nbsp; &nbsp; &nbsp; &nbsp; btnCommit.Enabled = True&nbsp; &nbsp; &nbsp; &nbsp; btnAdd.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; btnUpdate.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; btnDelete.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; txtEmp_Name.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtE_code.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtDepartment.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtCompany.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtDivision.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtS_Date.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtE_Date.Clear()&nbsp; &nbsp; &nbsp; &nbsp; txtTopic.Clear()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If inc &lt;&gt; -1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim cb As New OleDb.OleDbCommandBuilder(da)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim dsNewRow As DataRow&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow = ds.Tables(&quot;Training&quot;).NewRow()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(1) = txtEmp_Name.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(2) = txtE_code.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(3) = txtDepartment.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(4) = txtCompany.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(5) = txtDivision.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(6) = txtS_Date.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(7) = txtE_Date.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dsNewRow.Item(8) = txtTopic.Text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows.Add(dsNewRow)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;New Record added to the Database&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; da.Update(ds, &quot;Training&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;New Record added to the Database&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; btnCommit.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; btnAdd.Enabled = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; btnUpdate.Enabled = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; btnDelete.Enabled = True&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim cb As New OleDb.OleDbCommandBuilder(da)&nbsp; &nbsp; &nbsp; &nbsp; ds.Tables(&quot;Training&quot;).Rows(inc).Delete()&nbsp; &nbsp; &nbsp; &nbsp; MaxRows = MaxRows - 1&nbsp; &nbsp; &nbsp; &nbsp; inc = 0&nbsp; &nbsp; &nbsp; &nbsp; NavigateRecords()&nbsp; &nbsp; &nbsp; &nbsp; da.Update(ds, &quot;Training&quot;)&nbsp; &nbsp; &nbsp; &nbsp; If MessageBox.Show(&quot;Do you really want to Delete this Record?&quot;, _&nbsp; &nbsp; &nbsp; &nbsp; &quot;Delete&quot;, MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.No Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Operation Cancelled&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim cr As New ReportDocument&nbsp; &nbsp; &nbsp; &nbsp; cr.Load(&quot;C:\Users\sapna.sharma\Documents\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1\CrystalReport2.rpt&quot;)&nbsp; &nbsp; &nbsp; &nbsp; CrystalReportViewer1.ReportSource = cr&nbsp; &nbsp; &nbsp; &nbsp; CrystalReportViewer1.Refresh()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load&nbsp; &nbsp; End Suband also i am not able to update Access database through following code:<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite3" alt=":(" title="Frown&nbsp; &nbsp; :(" loading="lazy" data-shortname=":(" />&nbsp; &nbsp; Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click&nbsp; &nbsp; &nbsp; &nbsp; Dim icount As Integer&nbsp; &nbsp; &nbsp; &nbsp; con.ConnectionString = &quot;PROVIDER = Microsoft.Jet.OLEDB.4.0;Data source = C:\Users\sapna.sharma\Documents\Training.mdb&quot;&nbsp; &nbsp; &nbsp; &nbsp; con.Open()&nbsp; &nbsp; &nbsp; &nbsp; sql = &quot;UPDATE tblContacts SET COMPANY='CAPGEMINI' WHERE EMP_NAME='PANKAJ'&quot;&nbsp; &nbsp; &nbsp; &nbsp; da = New OleDb.OleDbDataAdapter(sql, con)&nbsp; &nbsp; &nbsp; &nbsp; Command = New OleDb.OleDbCommand(sql, con)&nbsp; &nbsp; &nbsp; &nbsp; da.Fill(ds, &quot;Training&quot;)&nbsp; &nbsp; &nbsp; &nbsp; icount = Command.ExecuteNonQuery&nbsp; &nbsp; &nbsp; &nbsp; con.Close()&nbsp; &nbsp; End SubEnd ClassPLZZZZZZZZZZZZZZZZZZZZZZZZZZZ help meeeeeeeeee<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite3" alt=":(" title="Frown&nbsp; &nbsp; :(" loading="lazy" data-shortname=":(" /></blockquote>

[QUOTE="sapna21, post: 117598, member: 27973"] I want to filter department wise from following database (MS Access).. S_NO EMP_NAME E_CODE DEPARTMENT COMPANY DIVISION S_DATE E_DATE TOPIC 1 ANAND 1112 HR abcd ghjk 25-Nov-09 11/25/2009 QA 2 PANKAJ 3223 QA abcd ghjk 25-Nov-09 11/25/2009 L.F.T 3 AMITABH 1231 MECHANICAL abcd ghjk 25-Nov-09 11/25/2009 L.F.T 4 GIRJA SHANKAR 5117 HR abcd ghjk 25-Nov-09 11/25/2009 L.F.T [COLOR="Blue"]Also i am not able to insert, update :( data through insert query but i can update through following coding: Imports CrystalDecisions.CrystalReports.Engine[/COLOR] Public Class Form1 Dim inc As Integer Dim MaxRows As Integer Dim con As New OleDb.OleDbConnection Dim Command As OleDb.OleDbCommand Dim sql As String Dim ds As New DataSet Dim da As OleDb.OleDbDataAdapter Dim datagrid1 As New DataGrid Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load con.ConnectionString = "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data source = C:\Users\sapna.sharma\Documents\Training.mdb" con.Open() sql = "SELECT * FROM tblContacts" da = New OleDb.OleDbDataAdapter(sql, con) da.Fill(ds, "Training") datagrid1.DataSource = ds.DefaultViewManager con.Close() MaxRows = ds.Tables("Training").Rows.Count inc = -1 End Sub Private Sub NavigateRecords() txtEmp_Name.Text = ds.Tables("Training").Rows(inc).Item(1) txtE_code.Text = ds.Tables("Training").Rows(inc).Item(2) txtDepartment.Text = ds.Tables("Training").Rows(inc).Item(3) txtCompany.Text = ds.Tables("Training").Rows(inc).Item(4) txtDivision.Text = ds.Tables("Training").Rows(inc).Item(5) txtS_Date.Text = ds.Tables("Training").Rows(inc).Item(6) txtE_Date.Text = ds.Tables("Training").Rows(inc).Item(7) txtTopic.Text = ds.Tables("Training").Rows(inc).Item(8) End Sub Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click If inc <> MaxRows - 1 Then inc = inc + 1 NavigateRecords() Else MsgBox("No More Rows") End If End Sub Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click If inc > 0 Then inc = inc - 1 NavigateRecords() ElseIf inc = -1 Then MsgBox("No Records Yet") ElseIf inc = 0 Then MsgBox("First Record") End If End Sub Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim cb As New OleDb.OleDbCommandBuilder(da) ds.Tables("Training").Rows(inc).Item(1) = txtEmp_Name.Text ds.Tables("Training").Rows(inc).Item(2) = txtE_code.Text ds.Tables("Training").Rows(inc).Item(3) = txtDepartment.Text ds.Tables("Training").Rows(inc).Item(4) = txtCompany.Text ds.Tables("Training").Rows(inc).Item(5) = txtDivision.Text ds.Tables("Training").Rows(inc).Item(6) = txtS_Date.Text ds.Tables("Training").Rows(inc).Item(7) = txtE_Date.Text ds.Tables("Training").Rows(inc).Item(8) = txtTopic.Text da.Update(ds, "Training") MsgBox("Data updated") End Sub Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click btnCommit.Enabled = True btnAdd.Enabled = False btnUpdate.Enabled = False btnDelete.Enabled = False txtEmp_Name.Clear() txtE_code.Clear() txtDepartment.Clear() txtCompany.Clear() txtDivision.Clear() txtS_Date.Clear() txtE_Date.Clear() txtTopic.Clear() End Sub Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click If inc <> -1 Then Dim cb As New OleDb.OleDbCommandBuilder(da) Dim dsNewRow As DataRow dsNewRow = ds.Tables("Training").NewRow() dsNewRow.Item(1) = txtEmp_Name.Text dsNewRow.Item(2) = txtE_code.Text dsNewRow.Item(3) = txtDepartment.Text dsNewRow.Item(4) = txtCompany.Text dsNewRow.Item(5) = txtDivision.Text dsNewRow.Item(6) = txtS_Date.Text dsNewRow.Item(7) = txtE_Date.Text dsNewRow.Item(8) = txtTopic.Text ds.Tables("Training").Rows.Add(dsNewRow) MsgBox("New Record added to the Database") da.Update(ds, "Training") MsgBox("New Record added to the Database") btnCommit.Enabled = False btnAdd.Enabled = True btnUpdate.Enabled = True btnDelete.Enabled = True End If End Sub Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim cb As New OleDb.OleDbCommandBuilder(da) ds.Tables("Training").Rows(inc).Delete() MaxRows = MaxRows - 1 inc = 0 NavigateRecords() da.Update(ds, "Training") If MessageBox.Show("Do you really want to Delete this Record?", _ "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.No Then MsgBox("Operation Cancelled") Exit Sub End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cr As New ReportDocument cr.Load("C:\Users\sapna.sharma\Documents\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1\CrystalReport2.rpt") CrystalReportViewer1.ReportSource = cr CrystalReportViewer1.Refresh() End Sub Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load End Sub[COLOR="Red"] and also i am not able to update Access database through following code::([/COLOR] Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim icount As Integer con.ConnectionString = "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data source = C:\Users\sapna.sharma\Documents\Training.mdb" con.Open() sql = "UPDATE tblContacts SET COMPANY='CAPGEMINI' WHERE EMP_NAME='PANKAJ'" da = New OleDb.OleDbDataAdapter(sql, con) Command = New OleDb.OleDbCommand(sql, con) da.Fill(ds, "Training") icount = Command.ExecuteNonQuery con.Close() End Sub End Class PLZZZZZZZZZZZZZZZZZZZZZZZZZZZ help meeeeeeeeee:( [/QUOTE]

Verification