Posts by Naveed_786

Thanks i would try and then would inform you about the situation

Can we make setup by using any other Software???????

When i try to install it gives me message some file are old version like 1999 reboot your system to update these files when i reboot my system it does nothing the problem is same.

When i mahe setup using setup and deployment wizard it make the setup perfectly but when i try to install it gives me error what is the best way to make a setup and run it perfectlly please help.

I have found the solution i have resolved the problem thanks for your help.

Can any body tell me how can i check that record already exists?

You can make a comprihensive project on Hospitality,resorts etc.......

Ok the code is now

On Error Resume Next
Set rs = db.OpenRecordset("select * from fee where Paydate = DateValue(" & "'" & txtdate1 & "') And Paydate = DateValue(" & "'" & txtdate2 & "')")
Dim xcount As Integer, xtotal As Integer
xtotal = 0
For xcount = 0 To rs.RecordCount
xtotal = xtotal + rs.Fields!totalfee
rs.MoveNext
Next xcount
txttotal.Text = xtotal

When i enter two dates it just calculate sum of first two value and without entering the two dates when i click on claculation button it calculate the sum of all values present in totalfee column please help me to resolve this problem.

You should choose such kind of project which include administration,Accounts,Customers,Staff these modules should be included in your project like in hospital or in Point of sale.

No body has any idea?????????

Dear i have tried thiscode for total fee calculation but i got error i think there is a problem with select statement i checked it by debuging this piece of code counts the total no of record but does not fetch record and make their sum please check it.
Thanks in advance for your greate help.

'On Error Resume Next
'Set rs = Nothing
Set rs = db.OpenRecordset("select * from fee where " & "'" & txtdate1 & "'" And "'" & txtdate2 & "'")
Dim xcount As Integer, xtotal As Integer
xtotal = 0
For xcount = 0 To rs.RecordCount
xtotal = xtotal + rs.Fields!totalfee
rs.MoveNext
Next xcount
txttotal.Text = xtotal

ok i got the solution just tell me how would i calculate the sum of paidfee column for specific month.

Should i try this code on click event of button or keypress of textbox

Ok i got it just my last question please tell me how can i calculate total fee paid by all studednts for example value of fee paied stored in databse column FeePaid how would i take sum of dues submit for a specific month like october 2010

Ok just a minut i tell you see let us suppose a teacher teaches 50 students ok we want to calculate its share
secondly how we will calculate how many students taught by this teacher?

Yes and for other students how can we do this??

Ok can we calculate it for one subject for a teacher then for second subjects then for third subject at the end we should have total amount or if you have any idea then please tell me??

Hi guys,

Can any help me i had a peoblem please just give me idea.

I want to calculate the share of a teacher let me explain how

1.if a teacher teaching three subjects in 10th class and three subjects in 9th
2.i have to calculate 50% of the fee paid by every student and want to calculate total share of teacher please help me.

Please use this link it is step by step guide line for crystal report

http://vb.net-informations.com/crystal-report/vb.net_crystal_reports_tutorials.htm

Hi guys,

I am new in web development how should i start developing web site in PHP???

Just tell me what do you want to do??????? What problem you are facing

Ok its very simple Use this code it would resolve your problem i hope it would help you

If TextBox1.Text = "" Then
            MessageBox.Show("Please enter Required Field!", "Your Project Name", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
        TextBox1.Visible = False
        Button1.Visible = False
        Dim cryRpt As New ReportDocument
        cryRpt.Load(Application.StartupPath & "\Rpt1.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("Your Criteria Column Name")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
        Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo

        For Each tbCurrent In cryRpt.Database.Tables
            tliCurrent = tbCurrent.LogOnInfo
            With tliCurrent.ConnectionInfo
                .ServerName = Application.StartupPath & "\DB.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = Application.StartupPath & "\DB.mdb"
            End With
            tbCurrent.ApplyLogOnInfo(tliCurrent)
        Next tbCurrent


        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()

Please use this code to add new record and establish connection with access.

Imports System.Data.OleDb

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
            MessageBox.Show("Please enter the required field", "Project Name", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        Dim cnString As String

        cnString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DB.mdb;")


        Dim sqlQRY As String = "SELECT * FROM CustomerInformation"

        '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)

            'create command builder
            Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

            'create dataset
            Dim ds As DataSet = New DataSet

            'fill dataset
            da.Fill(ds, "CustomerInformation")

            'get data table
            Dim dt As DataTable = ds.Tables("CustomerInformation")

            Dim newRow As DataRow = dt.NewRow()
            newRow("CustomerName") = TextBox1.Text
            newRow("FName") = TextBox2.Text
            newRow("IdCardNo") = TextBox3.Text
            newRow("Address") = TextBox4.Text
            dt.Rows.Add(newRow)

            'update customers table
            da.Update(ds, "CustomerInformation")

            MsgBox("Record successfully saved...", MsgBoxStyle.Information)
        Catch ex As OleDbException
            MsgBox("Error: " & ex.ToString & vbCrLf)
        Finally
            ' Close connection
            conn.Close()
        End Try
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        a = MessageBox.Show("Are you sure you want to exit????", "Project Name", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

        If a = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

You must post this question in right section.

Please click on this link i hope it would help this site would provide you step by step guaidline please mark thread solved if it helps

http://vb.net-informations.com/crystal-report/vb.net_crystal_reports_tutorials.htm

You can download .Net framwork 3.5 it would resolve your problem otherwise you can also get it from your visual studio CD or DVD explore it please mark thread as solved if it helps.
http://www.microsoft.com/downloads/en/details.aspx?FamilyId=333325fd-ae52-4e35-b531-508d977d32a6&displaylang=en

This link would be help full to you please mark thread as solved if it helps you if you have any problem let me know

http://msdn.microsoft.com/en-us/library/tw8kdk75(VS.71).aspx

Waht do you mean i didn't understand do you want to generate autonumber on your form and then want to store in database??????????

No problem be happy i can help

If you have any problem in crystal reports you can ask

Dear Noorul Arrif

You can follow this link to make a crystal report step by step just click on link

http://vb.net-informations.com/crystal-report/vb.net_crystal_reports_tutorials.htm

Please mark thread as solved if it helped you.

If it doesn't displaying data then it sounds me your report didn't find database did you create connection for your databse?????? or did you provide connecting string??????

You can use setup factory to create installer for your application.

In my previous post i have provided you a link if you check this link it is very comprihensive for crystal reports.

First of all open Visual syudio>Then click file>add new project>choose other projects>here you can chose setup wizard>type your project name instead of setup1>specify location where you want to save your setup>Then click next>click on add button from here choose the project location>go to debug folder>choose your projrct exe file and add it>Then one by one add your crystal reports>also your database file>you must include run time of crystall report click next to comple it then goto bulid menu and click on build solution now you have done.

Please mark the thread as solved if it helped if you have any query let me know.

Here is you can find step by step guide line for your peramter report.

http://vb.net-informations.com/crystal-report/vb.net_crystal_reports_tutorials.htm

Do you want to show value of column from database??

Dear,

Here is your problem just correct it i hope it would help you

Dim sqlQRY As String = "SELECT * FROM Purchse WHERE(" + Me.ComboBox1.SelectedItem + ")LIKE('%" + Me.TextBox1.Text + "%');"

Just write this line and follow my instruction

1.You have one combobox its name would be combobox1
2.Just left click on combobox then goto its properties
3.Get item property here you should add Code column or any other column which you want to search.
4.When you select a column from combobox and enter criteria in textbox then click om search button it would populate record against your query hope this would help and would resolve your problem let me know if you have any problem.

Ok let me ask some questions

Dim sqlQRY As String = "SELECT * FROM YourTable Name WHERE(" + Me.ComboBox1.SelectedItem + ")LIKE('%" + Me.TextBox1.Text + "%');"

1. Just tell me what is your table name?
2. Did you made changes in the code which i have provide you?
3. It sounds me like you didn't modify code just copy and paste.
4. ok just simply copy whole the code and paste it here i will check whats the problem.

First of all for your kind information access db is not for client server application you must choose sql server or mysql or oracle as database. Ok to insert a new record in access databse first of all you ahould declare this library

Imports System.Data.OleDb

Then here the code to insert new record in your database table please make changes as required by you here is the code

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
            MessageBox.Show("Please enter the required field", " You Software name", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If

        Dim cnString As String

        cnString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DB.mdb;")


        Dim sqlQRY As String = "SELECT * FROM Table1"

        '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)

            'create command builder
            Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

            'create dataset
            Dim ds As DataSet = New DataSet

            'fill dataset
            da.Fill(ds, "Table1Name")

            'get data table
            Dim dt As DataTable = ds.Tables("Table1Name")

            Dim newRow As DataRow = dt.NewRow()
            newRow("C1Name") = TextBox1.Text
            newRow("C2Name") = TextBox2.Text
            newRow("C3Name") = TextBox3.Text
            newRow("C4Name") = TextBox4.Text
            dt.Rows.Add(newRow)

            'update customers table
            da.Update(ds, "Table1Name")

            MsgBox("Record successfully saved...", MsgBoxStyle.Information)
        Catch ex As OleDbException
            MsgBox("Error: " & ex.ToString & vbCrLf)
        Finally
            ' Close connection
            conn.Close()
        End Try
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""

If you have any problem …

firs of all you should add these libraries in your form

Imports System
Imports System.Data
Imports System.Data.OleDb

Then copy and pase this code hope this would help you.

If ComboBox1.Text = "" Then
            MessageBox.Show("Please Select a Search Field From Combobox!", " You Software name ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf TextBox5.Text = "" Then
            MessageBox.Show("Please Enter Search Criteria To Search Record!", "You Software name", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Try
                'Set up connection string
                Dim cnString As String

                cnString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DB.mdb;")

                'Create connection
                Dim conn As OleDbConnection = New OleDbConnection(cnString)
                'Try
                ' Open connection
                conn.Open()
                Dim sqlQRY As String = "SELECT * FROM YourTable Name WHERE(" + Me.ComboBox1.SelectedItem + ")LIKE('%" + Me.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, "YourTableName")

                'get data table
                Dim dt As DataTable = ds.Tables("YourTable Name")

                'display data
                Dim row As DataRow

                For Each row In dt.Rows
                    TextBox1.Text = row("C1Name")
                    TextBox2.Text = row("C2Name")
                    TextBox3.Text = row("C3Name")
                    TextBox4.Text = row("C5Name")
                Next row
                If ds.Tables("YourTableName").Rows.Count = 0 Then
                    MessageBox.Show("Sorry No Record Found Please Try Again!", " You Software name ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
                ' Close connection
                conn.Close()
            Catch ex As OleDbException
                MessageBox.Show("Customer Not found" + ex.Message)
            End Try
        End If

I hope this would help pleae mark thrad solved if it help.

Its not VB6 forum please post yuor query on VB6 foum.

Please follow the link below hope it would help

http://www.daniweb.com/forums/thread306639.html

Please mark the thread as solved if it helped you.

Dear markdean you can use this link to create your crystal report step by step i hope it would be help full. Please click the following link and enjoy and if you have any problem let me know.

http://vb.net-informations.com/crystal-report/vb.net_crystal_reports_tutorials.htm

Thanks alot for your response please tell me in connecting string should i pass UID and PASSWORD for ever user

Like "PMS.My.MySettings.ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=ITS;Integrated Security=SSPI;Initial Catalog=Payment;UID=xxusername;pwd=xxpassword""PMS.My.MySettings.ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=ITS;Integrated Security=SSPI;Initial Catalog=Payment;UID=USER1;pwd=PWD1"

and

"PMS.My.MySettings.ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=ITS;Integrated Security=SSPI;Initial Catalog=Payment;UID=xxusername;pwd=xxpassword""PMS.My.MySettings.ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=ITS;Integrated Security=SSPI;Initial Catalog=Payment;UID=User2;pwd=PWD2"

Hi guys,
Please help me when i install my application on clients it only connect with one user like Naveed/Password on domain but when i login on domain by using other user it gives me connection error what should i modify in my connecting string.

"PMS.My.MySettings.ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=ITS;Integrated Security=SSPI;Initial Catalog=Payment"

I mean i want to be able to connect sql server2008 through my VB.NET by any user.

Please help me,
Thanks in advance.

Dear Please could explain which changes should i make in app.exe.confg and how please give me example.

How to make clients on sql server i mean when i will install my application on clients how i will connect it with sql server?

i have visted this site before some days but it does not resolve my problem.

Hi guys,

I want to retrieve a report between two dates i want to sort out report by passing the values for one column i.e PaymentDate.

Please please help.

No body has any idea about images.