Comments by sarfarazbhat (Top 84 by date)

I need to print a receipt where there are different details to be printed.
I am saving the details in a text file with the following code and Print the text file. Everything is going good but now i need to print an image (QR code) on the same paper where the text file is being printed.But when i try to print the image is being printed on a different page rather than on the page where the text file gets printed.
The code for text file is as under

Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("digimate.txt", False)

Dim x As Integer
Dim total As Integer
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.Write("{0,-9}", "Bill No:")
file.Write("{0,-25}", txtbillno.Text)
file.Write("{0,10}", "Dated :")
file.Write("{0,-22}", dtpick.Text.ToString)
file.WriteLine()
file.Write("{0,-9}", "Name :")
file.Write("{0,-25}", frmcustomer.lblname.Text)
file.Write("{0,10}", "Address:")
file.Write("{0,-22}", frmcustomer.lbladdress.Text)
file.WriteLine()
file.Write("{0,-9}", "Contact:")
file.Write("{0,-25}", frmcustomer.lblcontact.Text)
file.Write("{0,10}", "Email :")
file.WriteLine("{0,-22}", frmcustomer.lblemail.Text)
file.WriteLine("-----------------------------------------------------------------")
file.Write("{0,-7}", "S.NO")
file.Write("{0,-30}", "ITEMS ORDERED")
file.Write("{0,7}", "RATE")
file.Write("{0,7}", "LENGTH")
file.Write("{0,7}", "WIDTH")
file.WriteLine("{0,7}", "TOTAL")
file.WriteLine("-----------------------------------------------------------------") '66
For x = 0 To dgselecteditems.Rows.Count - 1
file.Write("{0,-7}", x + 1)
file.Write("{0,-30}", dgselecteditems.Rows(x).Cells("itemname").Value)
file.Write("{0,7}", dgselecteditems.Rows(x).Cells("rate").Value)
file.Write("{0,7}", dgselecteditems.Rows(x).Cells("length").Value)
file.Write("{0,7}", dgselecteditems.Rows(x).Cells("width").Value)
file.Write("{0,7}", dgselecteditems.Rows(x).Cells("amount").Value)
total += dgselecteditems.Rows(x).Cells("amount").Value
file.WriteLine()
Next
file.WriteLine("-----------------------------------------------------------------")
file.Write("{0,-7}", "")
file.Write("{0,-30}", "Total Amount =")
file.WriteLine("{0,28}", total)
file.WriteLine("-----------------------------------------------------------------")
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.WriteLine()
file.Write("{0,58}", "Sales Tax @ 13.5% due :")
file.WriteLine("{0,7}", txttaxdue.Text)
file.Write("{0,58}", "Sales Tax @ 13.5% charged:")
file.WriteLine("{0,7}", txttaxcharged.Text)
'file.WriteLine("------------------------------------------------------------------")
file.WriteLine()
file.Write("{0,-9}", "Total due:")
tc = total + Val(txttaxcharged.Text)
' qrtotal = tc
Dim temp As String = RupeesToWord(tc)
file.Write("{0,45}", temp)
file.Close()

Do i have to save the pic in a text file which i know can not be saved then how to print the image.
Thank you

Sir
After a response from you, I tried to deploy my VB.Net project on a client machine but this time using Click and deploy (Publish) method and i was able to install and run it successfully with a couple of small issues but I did not like that method reason being I was not able to find my database file etc.
I would like to install it with setup and deploy method using Visual studio 2010.
My code for connection string is

Imports System.Data.OleDb
Imports System.IO

Module connection

Public Con As New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\mydb.mdb")
Public Dad As OleDbDataAdapter
Public Drd As OleDbDataReader
Public Cmd As OleDbCommand
Public Dst = New DataSet

End Module

After creating setup i included the access database but while installing the setup on target machine there is no database and i had to manually copy and paste database file in the client computer.
Second issue is that while creating an account i am being prompted that unhandled exception has occurred.......operation must use an updateable query.
Please guide in this regard.
Thank you

Sir as for as VB.net is concerned, I have developed a small project but unfortunately I was not able to install it on client computer because that was throwing some database error and I do have some time for that to complete.

I need to enter length and breadth manually and then save the item purchased, length,breadth and total amount in another table and later print the invoice.

Thank you dear
I will check both the options.
And I would like to thank you so much that you have given me so much of your valuable time to solve my problem.
May God bless you.

Once I will successfully install the project
on the client machine, i will get back to you.
Thank you
Sarfaraz

Thanks
I think this is going to solve the problem and right now i am creating a setup of this project and lastly what should I select as the default installation location. Should i select commonAppDataFolder as destination directory in the installshield.
Thank you

can i do something like

Dim dbPath = "C:\ProgramData\Digimate\digimate.accdb"

Because after checking show hidden files i find this folder on my system.

if i try like

Dim dbPath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & _
"\digimate.accdb"


i Get the following error
Could not find file 'C:\Users\COMPAQ\AppData\Roaming\digimate.accdb'.

Sorry for a late reply was out of town.
Sir i am not able to find the location of Program data with

Environment.SpecialFolder.ProgramFilesX86

Do i need to create the ProgramData folder manually and copy the database in it.

Thank you so much sir for your kind help.
After following your steps I am now able to view the reports on the target machine but one issue is there that the reports are empty because of the wrong database path.
How can I set the database path for the datasets as dynamic with environment. Getfolderpath as above.
Thank you sir

After installing the report viewer 2010 on the target machine and running the project,it is again displaying the same error on opening a report.

Sir
The project is working fine now after copying all files of bin folder to output files.but now it is displaying the following error during opening reports
Could not load the assembly Microsoft.report viewer.winform....... Or one of its dependencies. The system can not find the file specified.

Sir
After creating the setup i copy the database file to my documents folder of the target machine.

Sir could not get it. Is there some simple way. Or some sample code for VB.net.

Yes from the report Data i added a parameter with data type integer because account number is a number in access and then assign it to the ac_no in rdlc report and in the data set there is a query fill,getdata which displays all the records if i try like

SELECT bill_no AS Expr1, ac_no AS Expr2, items AS Expr3, length AS Expr4, breadth AS Expr5, amount AS Expr6, dated AS Expr7, bill_no, ac_no, items, length, breadth,
amount, dated
FROM purchases
WHERE (ac_no = ?)

still the code is not working.
Any idea sir
Thank you

No working and i tried the following code but still nothing happens displays data type mismatch in creteria:

Dim query As String
Dim credit, debit As Double
Dim dt As DateTime
dt = dtpicker1.Value.Date
credit = CDbl(txtcredit.Text)
debit = CDbl(txtdebit.Text)
query = "update invoice set [credit]='" & CDbl(txtcredit.Text) & " ' ,[debit]= ' " & CDbl(txtdebit.Text) & " ',[dated]=' " & dtpicker1.Value.Date & " ' where [ac_no]= ' " & Integer.Parse(txtacno.Text) & " '"
Dim cmd = New OleDbCommand
Con.Open()
cmd.CommandText = query
cmd.Connection = Con
cmd.ExecuteNonQuery()
Con.Close()
MsgBox("Successfully edited ")


Thank you for your kind help
I tried the following code and it worked nicely:
Try
Dim iCell2 As Integer
Dim icell3 As Integer
Dim icell4 As Integer
Dim icellResult As Integer
Dim i As Integer
For i = 0 To DataGridView2.Rows.Count - 1
'MsgBox(DataGridView1.SelectedRows.Count)
' Dim icellResult As Integer
iCell2 = DataGridView2.Rows(i).Cells(2).Value
icell3 = DataGridView2.Rows(i).Cells(3).Value
icell4 = DataGridView2.Rows(i).Cells(4).Value
If String.IsNullOrEmpty(iCell2) OrElse String.IsNullOrEmpty(icell3) OrElse String.IsNullOrEmpty(icell4) Then Exit Sub
If Not IsNumeric(iCell2) OrElse Not IsNumeric(icell3) OrElse Not IsNumeric(icell4) Then Exit Sub
icellResult = CDbl(iCell2) * CDbl(icell3) * CDbl(icell4)
DataGridView2.Rows(i).Cells(5).Value = icellResult
Next
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

I tried little further with below code and it is doing exactly what i wanted but the problem is that it is calculating the selected row and i wanted all the calculations for all the rows.
Try

Dim iCell2 As Integer
Dim icell3 As Integer
Dim icell4 As Integer
Dim icellResult As Integer
' Dim icellResult As Integer
iCell2 = DataGridView2.CurrentRow.Cells(2).Value
icell3 = DataGridView2.CurrentRow.Cells(3).Value
icell4 = DataGridView2.CurrentRow.Cells(4).Value
If String.IsNullOrEmpty(iCell2) OrElse String.IsNullOrEmpty(icell3) OrElse String.IsNullOrEmpty(icell4) Then Exit Sub
If Not IsNumeric(iCell2) OrElse Not IsNumeric(icell3) OrElse Not IsNumeric(icell4) Then Exit Sub
icellResult = CDbl(iCell2) * CDbl(icell3) * CDbl(icell4)
DataGridView2.CurrentRow.Cells(5).Value = icellResult

Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
I think it needs a loop to count the number of datagridview rows.
pls give some guidance.
Thank you

Thank you mudgilsks for your kind help, I did that and now i have a small issue in that I just wanted to enter length and breadth and amount (that is length * breadth * rate) should be displayed on the last cell of gridview. The code is like
If DataGridView1.Rows.Count > 0 Then
DataGridView2.Rows.Add(DataGridView1.CurrentRow.Cells(0).Value, DataGridView1.CurrentRow.Cells(1).Value, DataGridView1.CurrentRow.Cells(2).Value)
End If
Than you

Yes absolutely. I have checked it

Thank you<br><br><br><br>
I more query, I am trying to save the records to database which is working just fine but at the same time i need to print that record (actually a receipt) I am writing the details in a text file But:<br><br><br><br>
I am not able to write the text at proper positions in that text file as a result printing is not properly aligned on a paper:<br><br><br><br>
I am using the code as:<br><br><br><br>
<br><br><br><br>
Dim file As System.IO.StreamWriter<br><br><br><br>
file = My.Computer.FileSystem.OpenTextFileWriter("text.txt", False)<br><br><br><br>
file.Write(lbldate.Text & vbTab & vbTab & vbTab)<br><br><br><br>
file.Write(lbltime.Text)<br><br><br><br>
file.WriteLine()<br><br><br><br>
file.Write(txtreceiptno.Text & vbTab & vbTab & vbTab)<br><br><br><br>
file.Write(txtopd.Text)<br><br><br><br>
file.WriteLine()<br><br><br><br>
file.Write(txtname.Text & vbTab & vbTab & vbTab)<br><br><br><br>
file.WriteLine()<br><br><br><br>
file.Write("______________________________________")<br><br>
file.WriteLine()<br><br>
file.Close()<br><br>
Dim p As New Process<br>
Dim info As New ProcessStartInfo<br>
info.FileName = "text.txt"<br>
info.Verb = "print"<br>
p.StartInfo = info<br>
p.Start()<br>
<br><br><br><br>
Also when i print the receipt the name of the text file also gets printed. I do not know why.
Thank you

I have figured the answer of select the rate of the individual investigations and save the rate for the corresponding investigation. Here is my code

Con.Open()
For l_index = 0 To ListBox2.Items.Count - 1

query = ("select Investigation.rate " & _
"from Investigation WHERE (((Investigation.Investigation) = '" & ListBox2.Items(l_index) & "'));")

Dim cmd2 As New OleDbCommand(query, Con)
'Con.Open()

Dim reader As OleDbDataReader = cmd2.ExecuteReader

reader.Read()
'Console.WriteLine(reader(0))
txtrate.Text = reader.GetString(0)


reader.Close()
'Con.Close()





' Con.Close()

'End If

Dim SqlString As String = "Insert Into patients (Receipt_No, OPD_MRD,Patientname,Investigation,Receipt_date,Receipt_time,rate) Values (?,?,?,?,?,?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(SqlString, Con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("Receipt_No", txtreceiptno.Text.Trim())
cmd.Parameters.AddWithValue("OPD_MRD", txtopd.Text.Trim())
cmd.Parameters.AddWithValue("Patientname", txtname.Text.Trim())
cmd.Parameters.AddWithValue("Investigation", CStr(ListBox2.Items(l_index)).ToString())
cmd.Parameters.AddWithValue("Receipt_date", lbldate.Text)
cmd.Parameters.AddWithValue("Receipt_time", lbltime.Text)
cmd.Parameters.AddWithValue("rate", txtrate.Text.Trim())
'Con.Open()
cmd.ExecuteNonQuery()

Next
Con.Close()

But it is taking a very long time to perform the task and my system is going in a busy mode for almost 10 seconds. Is there anything wrong in this code Please have a look
Thank you

What is the VB.Net equivalent of VB6 code of the following:

For i = 0 To List2.ListCount - 1
sql = "patients"
query = "select Investigation.rate " & _
"from Investigation WHERE (((Investigation.Investigation) = '" & List2.List(i) & "'));"

rs2.Open query, Con, adOpenDynamic
If Not rs2.EOF Then



'Text2.Text = rs!Investigation
Text5.Text = rs2!Rate


End If
'rs2.Close

Set rs = New ADODB.Recordset

rs.Open sql, Con, adOpenDynamic, adLockOptimistic

' Dim X As Long
'For X = 0 To List2.ListCount - 1
With rs
.AddNew
!Receipt_No = Trim(text1.Text)
!OPD_MRD = Trim(text2.Text)
!Patientname = Trim(Text3.Text)

!Investigation = List2.List(i)


!Receipt_date = Label6.Caption
!Receipt_time = Label7.Caption
!Rate = Trim(Text5.Text)

.Update

End With
rs2.Close
rs.Close
Next

Actually I need to save the rate of all the items of a listbox. I am able to do it in vb6 as shown above but not in VB.net
Please guide me in this
Thank you

Thanks for your kind help.

Please guide me as how to select the rate of the individual investigations and save the rate for the corresponding investigation.
My code is like

For l_index As Integer = 0 To ListBox2.Items.Count - 1
query = "select Investigation.rate " & _
"from Investigation WHERE (((Investigation.Investigation) = '" & ListBox2.Items(i) & "'));"
cmd = New OleDbCommand(query, Con)
cmd.CommandType = CommandType.Text
/here is the problem i do not know how to get the rate


please help
Thank you

Yes if I try to insert name as Bhat's it is giving me an error.Missing operator in query.

Yes if I try to insert name as Bhat's it is giving me an error.Missing operator in query:::

Dear Akbar Bhai
Please elaborate I am new to VB.net actually i am able to write the values to a text file like

Private Sub btnnew_Click(sender As Object, e As EventArgs) Handles btnnew.Click
Try
Dim file_name As String = Application.StartupPath() & "/text.dat"
Dim stream_writer As New IO.StreamWriter(file_name, False)
Try
stream_writer.WriteLine(txtname.Text)
stream_writer.WriteLine(txtopd.Text)
Finally
stream_writer.Close()
End Try
Catch exc As Exception
' Report all errors.
MsgBox(exc.Message, MsgBoxStyle.Exclamation, "Read " & "Error")
End Try

But I need an example for help for printing like you mentioned type "filename.txt" > prn
Thank you

Actually i have a master page with a feedback form at the bottom.
I have also a page named placeorder where i am also having an order form on that page. Since this placeorder page has now two forms one that of master page at the bottom in the footer and another form of its own.
When i am deleting master page form i am able to send email from placeorder form. But not otherwise.
The code is as under both codes are working correctly but only if i remove form from master page.
Placeorder email button:

protected void btnsendorder_Click(object sender, EventArgs e)
{
MailMessage message = new MailMessage();
SmtpClient smtpClient = new SmtpClient();
string msg = string.Empty;
try
{
MailAddress fromAddress = new MailAddress(txtemail.Text);
message.From = fromAddress;
message.To.Add("mymail@gmail.com");

message.Subject = txtname.Text;
message.IsBodyHtml = true;
message.Body = "" + txtname.Text + "<br/>" + txtaddress.Text + "<br/>" + txtcontact.Text + "" + "<br/>" + txtorderdetails.Text;
smtpClient.Host = "smtp.gmail.com"; // We use gmail as our smtp client
smtpClient.Port = 587;
smtpClient.EnableSsl = true;
smtpClient.UseDefaultCredentials = true;
smtpClient.Credentials = new System.Net.NetworkCredential("mymail@gmail.com", "12345");

smtpClient.Send(message);
msg = "Successful<BR>";

Response.Redirect("~/Default.aspx");
clear();
}
catch (Exception ex)
{
msg = ex.Message;
}
}

Masterpage form email:

protected void btnsend_Click(object sender, EventArgs e)
{


MailMessage message = new MailMessage();
SmtpClient smtpClient = new SmtpClient();
string msg = string.Empty;
try
{
MailAddress fromAddress = new MailAddress(txtemail.Text);
message.From = fromAddress;
message.To.Add("mymail@gmail.com");

message.Subject = txtname.Text;
message.IsBodyHtml = true;
message.Body = "" + txtname.Text + "<br/>" + txtemail.Text + "<br/>" + txtphone.Text + "" + "<br/>" + txtmessage.Text;
smtpClient.Host = "smtp.gmail.com"; // We use gmail as our smtp client
smtpClient.Port = 587;
smtpClient.EnableSsl = true;
smtpClient.UseDefaultCredentials = true;
smtpClient.Credentials = new System.Net.NetworkCredential("mymail@gmail.com", "12345");

smtpClient.Send(message);
msg = "Successful<BR>";

Response.Redirect("~/Default.aspx");
clear();
}
catch (Exception ex)
{
msg = ex.Message;
}




}


Thank you sir for your help. One last thing about this tutorial is that when i search any keyword it displays thw whole content how to restrict to display only first 2 lines and then after clicking the title it should display the whole content(full text) on our show.aspx page .
Thank you

Keywords are stored in Article table with ArticleID, Title, Keywords, Image and Contents as columns. And I want to show title, image and contents to be displayed but after clicking the read more link.

sure!

Thank you very much sir for your kind help.
Thank you.

Thank you sir
I got the answer. But now after commenting session_Start(); My counter counts when visiting from one page to other.
My code is

<!--?php session_start();
$counter_name = "counter.txt";
if (!file_exists($counter_name)) {
$f = fopen($counter_name, "w");
fwrite($f,"0");
fclose($f);
}
$f = fopen($counter_name,"r");
$counterVal = fread($f, filesize($counter_name));
fclose($f);
if(!isset($_SESSION['hasVisited'])){
$_SESSION['hasVisited']="yes";
$counterVal++;
$f = fopen($counter_name, "w");
fwrite($f, $counterVal);
fclose($f);
}
echo "visitor number $counterVal";
??-->

Please help in how to include this file in header.php.
Thank you

Thank you so much for your help. the 3rd one is good one.
But actually i just wanted a full dummy website to try my hands on. Do you have any link where i can download the site to make it from scratch.
Thanks
Sarfaraz

Yes sir exactly

Sir the iframe code is:

<iframe id="myIframe" src="default.aspx" height="400" width="100%"></iframe>

Thank you for your help and i am trying that but i am getting an error which is "Server Error in '/' Application."
do i need any other setting actually i copy contact.aspx , contact.aspx.cs and web.xml file on the same direcvtory as that of my html files.
Thank you

Friends the problem for calculating the sum of two fields is resolved. Thanks to you all but there is one more problem in that:
actually i need to display the sum of these two fields(refund and sub) on a VB6 data report using MS Access database. If there is only one record based on the cretaria (select * from employees where Designation='" & cmbodesig.Text & "') then it is displaying the sum but if there are two or more employees with a particular designation it loops through all but displays the total sum on the report which is creating a problem.
I want like
name designation ref sub total(sum of ref+sub of each employee)

and under these columns i want the individual records
The code which i am trying is

rs.MoveFirst
Dim cc, xx, tt As Long
cc = rs.Fields(16)
xx = rs.Fields(17)
tt = cc + xx
Do While Not rs.EOF

DataReport2.Sections("Section1").Controls("label16").Caption = tt
rs.MoveNext
Loop

please help

Sir it is visual basic 6.0 inbuilt data report not crystal reports and it is vb6 not vb.net and database is Ms access.

Yes sir, MS Access as back end with VB 6.0 as front end

I am using Access database with ado.
i was using like

temp = "select count(*) from employees where designation='" & cmbodesig.Text & "'", Con, adOpenDynamic, adLockPessimistic

Ok guys thank you.
Need some good prog videos or links for VB.net and Mysql

eg.
<form name="aspnetForm" method="post" action="default.aspx" önsubmit="javascript:return WebForm_OnSubmit();" id="aspnetForm">
where can i come to know whether C# or VB.net has been used with asp.net

I know that but i just wanted to know only if there is a way to check whether C# or vb.net has been used with asp.net not the code which is obviously the server side scripting language.

what is that

But there is only .aspx code not whether used with C# or VB.net

Thank you so much!have a great time Aarti.

I finally got the problem solved by using the text file and also using the correct setting of the Dot matrix printer.

Thank you so much! I will let u know.

I tried this solution too but unfortunately did not work. I tried online for the last so many days but could not get any solution for this problem. I do not know what to do now. I have consulted to a person through a friend of mine in New Delhi and he will be looking if he can help. In the mean while can I have your email id so that i can send the code which I have been tried so that you may get any idea how to fix this problem.
Sorry that I am may be wasting your time if it is so I am soory and pls let me know about that.
Thank you.
Email id :sarfarazbhat@gmail.com

Thank you for your kind reply. I tried that also but no success. Actually i want to print the text of 4 text boxes on the form to a dot matrix printer. Now i tried to save the data of all the text boxes to a text file and try to print from text file but first page is ok but 2nd page is not printing at the specified position.
I am very badly stuck on it . Please if you can help me out.
Thank you
Sarfaraz

Thank you so much for your help!
Now only one thing I need to check is whether it will print on dotmatrix printer. Previously i was printing text boxes like
Printer.Print textbox1.text
Printer.EndDoc
directly on the paper which was working fine on laserjet but when i was printing on dot matrix printer the first page was being printed out fine but second was not being printed at the proper place instead on the middle of the page which was the problem.

Anyways thank you so much


Sarfaraz

Thank you soooo much sir.
Wish you a very happy and prosperous new year 2013.

Sir Pls Reply and help me in this regard!

Connection

Set rs = New ADODB.Recordset
rs.Open "select * from login where Username='" & Text1.Text & "'" _
& " and Password='" & Text2.Text & "'", Con, adOpenDynamic, adLockOptimistic
Text1.SetFocus

If Not rs.EOF Then

MsgBox "OK"


Else
MsgBox "Invalid username or password", vbInformation, "Login..."
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

rs.Close
End If
I tried this the following function also but no success
StrComp(strVal1, strVal2, vbTextCompare)
StrComp(strVal1, strVal2, vbBinaryCompare)
StrComp(strVal1, strVal2, vbDatabaseCompare)

No success. Since i need to check the username and password from the access database table.
Please if you can give some code as how to check the textbox(username) and textbox(password) and compare the values from login table in Access 2007.
Thanks

Thank you so much sir for your kind help.
Sarfaraz

Access 2007. Actually i want exactly on my data report as you mentioned at You Get Results like,(above). But instead of Expr1 i want Totalpatients. I am getting that with
SELECT Department, Sex, COUNT(*) FROM patients GROUP BY Department,sex ORDER BY SEX DESC;

But after placing fields on data report it shows error for Expr1 field which is not in my table.

Hello sir
I have an issue now . How to write Expr1 field in my data report vb6 as it says that expr1 field does not exist. This query is not working unless you write
SELECT Department, Sex, COUNT(*) FROM patients GROUP BY Department,sex ORDER BY SEX DESC;

Please
Help.
Thanks
Sarfaraz

Thanks bro your piece of code helped me in my problem. Thanks

Actually i am printing a report by selecting a date and the report is being printed for all the records on that date.
Now i have a field Rate of items and i want to calculate the sum of that rate field based on the criteria (on that date).
My report is being printed without any problem using the below code:-
rs.Open "select * from patients where Receipt_date=#" & Label3.Caption & "#", Con, adOpenDynamic, adLockPessimistic
Set DataReport1.DataSource = rs
DataReport1.Show
but i want to calculate the sum of that rate field based on the criteria (on that date)

Hello Sir
I have a problem in Data report in vb6 with access 2007. Actually I want to calculate the sum of rate field of selected records and show the sum on label in section 5 of the data report.
I did try but no success. I am using the following code.
Collapse | Copy Code
rs.Open "select * from patients where Receipt_date=#" & Label3.Caption & "#and investigation= '" & Combo1.Text & "'", Con, adOpenDynamic, adLockPessimistic

' DataReport1.Show



DataReport1.Sections(5).Controls("label17").Caption = ("select sum(rate) from patientswhere Receipt_date=#" & Label3.Caption & "#and investigation= '" & Combo1.Text & "'" & "")
Set DataReport1.DataSource = rs
DataReport1.Refresh
DataReport1.Show

Thank you very much sir.
Sarfaraz

Actually i want to calculate the sum of rate of all products on page 1 of report using sum function but without using data environment i.e without using data field and data source.
My report is like
customer id Item Quantity Price
__________________________________________________________
1 Soap 3 30
2 Brush 2 20
i want to calculate the sum of price i,e 50 using function

Sir, is there any way i can prevent my setup saving my database file in
C:\Users\<your_user_account>\AppData\Local\VirtualStore\Program Files\My folder\
if yes how/what is the vb6 code.

Thank you very much It solved my problem.

Sir
I have my vb 6 project and all the files including database in a folder in drive C: I created a setup of my project using setup & deployment in vb6 and i have included the databhase file in that setup. After i install the setup in the target computer everything is working fine except that whenever i try to see the records which have been store in the database table from the front end of my project but i can see no records in the table. It is actually being opened in read only mode but still i should see the records in the database table.
My OS is WIn 7 and access 2007 as DB
Thank you

I have searched in windows but finds only one database which is stored in C:\program files\My folder\xxxx.mdb. But when i open it there are no records but application front end shows all records and create reports of all records.

Windows 7. User rights full. Admin (a data entry operator) computer literate.

Sir gow to make setup vb6 to uninstall data. thank you

Sir I have attached the database with the setup. And it is being installed with the setup itself.

Sir I have attached the database with the setup. And it is being installed with the setup itself.

I tried order by but no success.any other idea sir

The following code fetches the records from database with Investigation and Rate fields.
Now I want to select a row from listview and save investigation and corresponding rate to another table which has patient name receipt_no investigation and rate.
How to save INVESTIGATION and RATE from listview to patient table using VB6 and MS access 2007.
Thank you.
With list1
.View = lvwReport
.Appearance = ccFlat
.FullRowSelect = True
.GridLines = False
.HotTracking = True
.HoverSelection = True
.HideSelection = False
.ColumnHeaders.Add 1, "d1", "Investigation"
.ColumnHeaders.Add 2, "d2", "Rate"

End With
Connection
Dim lst As ListItem
list1.ListItems.Clear

Set rs = New ADODB.Recordset
rs.Open "select * from investigation order by investigation desc", Con, adOpenDynamic, adLockBatchOptimistic
If rs.RecordCount <> 0 Then

Do While Not rs.EOF
Set lst = list1.ListItems.Add(1)
lst.Text = rs.Fields!investigation
lst.SubItems(1) = rs.Fields!Rate
rs.MoveNext
Loop

Set rs = Nothing
End If

Both of these sir
Actually i have atable which has field A,field B and Field C. I have all fields in combo box and once i select any field name from combo box list box should display Fields C based on combo box text.

Thank u sir for ur help and support. Thank u

Thanks u sir. I have installed sql server. Thanks once again