I am using this code please can you modify it to check duplicate record.
Try
'Set up connection string
Dim cnString As String
cnString =("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application.StartupPath &"\Payment.mdb;")'Dim sqlQRY As String = "SELECT * FROM CustomerInformation WHERE CustomerName = '" & TextBox5.Text & "'"
'Create connection
Dim conn As OleDbConnection = New OleDbConnection(cnString)
'Try
' Open connection
conn.Open()
Dim sqlQRY As String ="SELECT * FROM CustomerInformation WHERE CustomerName = '"& TextBox1.Text &"'"
'create data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, conn)
'create dataset
Dim ds As DataSet = New DataSet
'fill dataset
da.Fill(ds,"CustomerInformation")
'get data table
Dim dt As DataTable = ds.Tables("CustomerInformation")
'display data
'Dim row As DataRow
'For Each row In dt.Rows
'TextBox1.Text =row("CustomerName")
'Next row
If ds.Tables("CustomerInformation").Rows.Count =0 Then
MessageBox.Show("Already Exists!","ALI ENTERPRISES", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
If Asc(e.KeyChar)=13 Then
TextBox2.Focus()
End If
' Close connection
conn.Close()
Catch ex As OleDbException
MessageBox.Show("Customer Not found"+ ex.Message)
End Try
Dim cryRpt As New ReportDocument
cryRpt.Load("C:\PaymentSystem\PaymentSystem\Inst1.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = TextBox1.Text
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields()
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("PlotNo")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
And for permetor field i use this code
view sourceprint?1{instalment.PlotNo }={?PlotNo}
How can i pass multiple peremeter please help thanks in advance.
I have made report with one date perameter it works fine but it didn't work with two peramets.I want to pass two dates and want to get result between two dates from same table. Code i am using for single table is
I am calling a perameter crstal report which i have made in visual studio when i enter criteria in textbox it does not compare and prompt all the record how to resolve it please help.
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim cryRpt As New ReportDocument
cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = TextBox1.Text
crParameterFieldDefinitions =-
cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("Customername")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
End Sub
End Class
When i run the report there comes an error "Invalid data source i am using this code
Dim cryRpt As New ReportDocument
cryRpt.Load("C:\PaymentSystem\PaymentSystem\Instalment.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = TextBox1.Text
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields()
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("Customername")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
Can i set margins if so then please tell me how? I am using this code but pagesetup dilog does not effect the print.
With PageSetupDialog1
.PageSettings = PrintDocument1.DefaultPageSettings
End With
If PageSetupDialog1.ShowDialog = DialogResult.OK Then
PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings
PrintForm1.Print()
Ok you can 1. add datareport by opning the project you have made 2. Right click on Your project name for example project1 then click on add it will populate another list then choose datareport from there now the datareport would included in your project.
I have problem in printing i send the print but the blank page comes code i am using as follows:
Dim linesPerPage As Single =0
Dim yPosition As Single =0
Dim count As Integer =0
Dim leftMargin As Single = e.MarginBounds.Left
Dim topMargin As Single = e.MarginBounds.Top
Dim printFont As Font = Me.Font
Dim myBrush As New SolidBrush(Color.Black)
'Dim text() As String = TextBox1.Lines
Dim text() As String = New String(){TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text}
linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
Try
For i As Integer =0 To text.Length -1
If count < linesPerPage Then
yPosition = topMargin +(count * printFont.GetHeight(e.Graphics))
e.Graphics.DrawString(text(i), printFont, myBrush, leftMargin, yPosition, New StringFormat())
count +=1
Else
Exit For
End If
Next
Catch ex As Exception
End Try
e.HasMorePages = True
e.HasMorePages = False
myBrush = Nothing
Please help me i want to take print of my form in a short slip please give me some code to fit the print siza on the short page i am usin LQ+ 300 printer for this purpose please please help me.
i am using this code but it does not generate the preview of window form in vb.net code is as follows:
Dim printDialog1 As PrintDialog = New PrintDialog
Dim printPreviewDialog1 As New PrintPreviewDialog()
printPreviewDialog1.ShowDialog()
printDialog1.Document = PrintDocument1
Dim result As DialogResult = printDialog1.ShowDialog
If (result = DialogResult.OK) Then
PrintDocument1.Print()
End If
I hope you all would be fine please help me in printing i want to take print preview of window form and after taking print preview want to take print of form how can i do this please provide me example.
I have designed a form for a table Instalment from this form i am trying to update a column in other table which is hiring table please guide me how can i do this the code is as folloes thanks in advance.
Dim cnString As String
cnString =("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\PaymentSystem\PaymentSystem\bin\Debug\Pa yment.mdb;")
Dim sqlQRY As String ="SELECT * FROM Instalment"
'Dim sqlQRY1 As String ="UPDATE hiring(TotalAmount)SET"& _
'" TotalAmount = "& TextBox7.Text &"WHERE PlotNo = & TextBox1.Text"
'Dim sqlQRY1 As String ="Select * from hiring"
'Create connection
Dim conn As OleDbConnection = New OleDbConnection(cnString)
Try
' Open connection
conn.Open()
'create data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, conn)
Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY1, conn)
'create command builder
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
Dim cb1 As OleDbCommandBuilder = New OleDbCommandBuilder(da1)
'create dataset
Dim ds As DataSet = New DataSet
Dim ds1 As DataSet = New DataSet
'fill dataset
da.Fill(ds,"Instalment")
da1.Fill(ds1,"Hiring")
'get data table
Dim dt As DataTable = ds.Tables("Instalment")
Dim dt1 As DataTable = ds1.Tables("Hiring")
Dim newRow As DataRow = dt.NewRow()
Dim newrow1 As DataRow = dt1.NewRow()newRow("PlotNo")= TextBox1.Text
newRow("CustomerName")= TextBox2.Text
newRow("Fname")= TextBox3.Text
newRow("Area")= TextBox4.Text
newRow("TotalAmount")= TextBox5.Text
newRow("RecivedAmount")= TextBox6.Text
newRow("RemainingAmount")= TextBox7.Text
newRow("PaymentDate")= TextBox8.Text
newRow("PaymentReciverName")= TextBox9.Text
newrow1("TotalAmount")= TextBox7.Text
dt.Rows.Add(newRow)
'dt1.Rows.Add(newrow1)
'updat Instalment and Hiring table
If TextBox1.Text = ds.Tables("Instalment").Rows(1).Item(1) Then
Dim sqlQRY1 As String ="UPDATE hiring(TotalAmount)SET"& _
" TotalAmount = "& …
