|
I think your missing more than 1 line of code.........what are you trying to open it with? In your app, or fire off an external process.
|
|
|
|
|
This can be closed.
Found out another way. Copy to ListBox, select a file and then do what I want with that file.
|
|
|
|
|
Ok, i will remember that for the future.
|
|
|
|
|
I wouldn't know where to "file" that "information", so please remember it for me too.
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Hello everyone, I'm new to this forum. I turn to you because unfortunately I can not find a solution to my problem, now I'll explain: I created a report with crystal report, works fine, except that when the pages of the report to print more than one, the values in the footer are repeated on every page. I would like to make that information should go in the footer, to be written until the last page footer. You can do all this? Thanks to all in advance!
PS: Sorry for my English, but I'm Italian and I'm using google translator
|
|
|
|
|
By definition, a footer will print on every page. If you want it appearing only once, move everything from the Footer section to the Report Footer section.
HTH
|
|
|
|
|
sorry but I can not solve, when I put everything in the report footer, in the press does not appear. you could not do a test project? Thanks to all
EDIT: I managed to bring up the sections on the last page, but if I wanted to make the text appear on all pages except the last thing I do? thanks again ...
modified on Friday, January 28, 2011 10:02 AM
|
|
|
|
|
OK, you wanted the report printing on all pages BUT the last one... I mis-understood.
You can make the section hidden for the last page - check the OnLastRecord variable and in the Section expert, write a formula to suppress the Report Footer if that variable is true.
|
|
|
|
|
Could I have a code example? DO difficult to understand
|
|
|
|
|
|
nothing yet ... but if you'd be so kind send the report (you or anyone else) to change it so that what is in the footer is repeated until the last page, and on all pages except the last, to remove all starting with field boxes in the footer?? thank you very much
|
|
|
|
|
It would not be feasible for me to create a report just for this... however, I am sure that what you seek is available within the first few links of the google search I sent you. Did you try looking there?
|
|
|
|
|
I solved !!!!!!!!!!!!!!! ChandraRam thanks!
|
|
|
|
|
dario Gogliandolo wrote: I solved !!!!!!!!!!!!!!! ChandraRam thanks!
I'm glad you did... You are welcome
|
|
|
|
|
Why my program "sleep" when I use this code for export data from one Database to another
Public Sub uchenici_DataU()
If Exists(strAcessFilePath11 & "\Update.mdb") Or Exists(strAcessFilePath11 & "\Update.accdb") Then
Dim selectdata2 As String
selectdata2 = "SELECT Students.[ID number], Students.[Name 1], Students.[Name 2], Students.[Name 3], [Code Class].[Class No], [Code Paralell class].[Paralell class Name], Students.Address FROM (([C<ode Paralell class] INNER JOIN [Code Class] ON [Code Paralell class].[Paralell class ID] = [Code Class].[Paralell class]) INNER JOIN [Class Details] ON [Code Class].[Class ID] = [Class Details].Class) INNER JOIN (Students INNER JOIN StudentClass ON Students.[ID number] = StudentClass.[ID number]) ON ([Class Details].BasicClass = StudentClass.BasicClass) AND ([Class Details].Group = StudentClass.Group) AND ([Class Details].Class = StudentClass.Class) WHERE (((StudentClass.[Position])=1)) ORDER BY [Code Class].[Class No], [Code Paralell class].[Paralell class Name]"
Dim strConn As String
Dim reader1 As OleDbDataReader
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strAcessFilePath3 & ";User ID=Admin;Password="
Using theConnection As New OleDbConnection(con_str)
theConnection.Open()
Using OleDbCommand2 = New OleDbCommand(selectdata2, theConnection)
reader1 = OleDbCommand2.ExecuteReader()
FlowLayoutPanel1.Visible = True
ProgressBar1.MarqueeAnimationSpeed = 50
ProgressBar1.Style = ProgressBarStyle.Marquee
While (reader1.Read())
masiv(0) = reader1.Item(0)
If masiv(0).Length = 8 Then
masiv(0) = "00" & masiv(0)
ElseIf masiv(0).Length = 9 Then
masiv(0) = "0" & masiv(0)
End If
masiv(1) = reader1.Item(1).ToString & " " & reader1.Item(2).ToString & " " & reader1.Item(3).ToString
masiv(2) = reader1.Item(4) & reader1.Item(5)
masiv(3) = reader1.Item(4)
masiv(4) = reader1.Item(6).ToString
Get_egn()
If vzemi_egn = "" Then
prehvyrlqne_ot_DGrid()
End If
End While
FlowLayoutPanel1.Visible = False
reader1.Close()
End Using
End Using
' Else : MsgBox("Файлът DataU не съществува в директорията " & DataDir1, MsgBoxStyle.Critical, "Не съществуваща БД")
Else : MsgBox("Файлът Update не съществува", MsgBoxStyle.Critical, "Не съществуваща БД")
End If
'Else : MsgBox("Файлът Update не съществува", MsgBoxStyle.Critical, "Не съществуваща БД")
'End If
End Sub
Private Sub prehvyrlqne_ot_DGrid()
'If da Then
Dim strCon As String
Dim param1 As OleDbParameter
Dim param2 As OleDbParameter
Dim param3 As OleDbParameter
Dim param4 As OleDbParameter
Dim param5 As OleDbParameter
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAcessFilePath1 & ";Jet OLEDB:Database Password=ipek0809;"
Using theConnection As New OleDbConnection(strCon)
' OleDbConnection1 = New OleDbConnection(strCon)
theConnection.Open()
strQuery = "insert into uchenici (egn, stname, klas, klas_rim, adres) values(?,?,?,?,?)"
' Using cmd = New OleDbCommand("select", cn)
Using OleDbCommand1 = New OleDbCommand(strQuery, theConnection)
param1 = New OleDbParameter("@avtor", OleDbType.VarWChar, 100)
param2 = New OleDbParameter("@egn", OleDbType.VarWChar, 100)
param3 = New OleDbParameter("@egn1", OleDbType.VarWChar, 100)
param4 = New OleDbParameter("@egn2", OleDbType.Integer)
param5 = New OleDbParameter("@adres", OleDbType.VarWChar, 100)
param1.Value = masiv(0)
param2.Value = masiv(1)
param3.Value = masiv(2)
param4.Value = masiv(3)
param5.Value = masiv(4).ToString
OleDbCommand1.Parameters.Add(param1)
OleDbCommand1.Parameters.Add(param2)
OleDbCommand1.Parameters.Add(param3)
OleDbCommand1.Parameters.Add(param4)
OleDbCommand1.Parameters.Add(param5)
OleDbCommand1.ExecuteNonQuery()
End Using
End Using
End Sub
Public Sub Get_egn()
Dim selectdata2 As String
Dim param11 As OleDbParameter
selectdata2 = "SELECT * FROM uchenici WHERE egn=?"
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAcessFilePath1 & ";Jet OLEDB:Database Password=ipek0809;"
OleDbConnection3 = New OleDbConnection(strConn)
OleDbConnection3.Open()
OleDbCommand3 = New OleDbCommand(selectdata2, OleDbConnection3)
param11 = New OleDbParameter("@egn", OleDbType.VarWChar, 100)
param11.Value = masiv(0)
OleDbCommand3.Parameters.Add(param11)
vzemi_egn = OleDbCommand3.ExecuteScalar
OleDbCommand3.Dispose()
OleDbConnection3.Close()
End Sub
modified on Wednesday, January 26, 2011 3:06 PM
|
|
|
|
|
That code dump is not formatted and unreadable, please edit your message and add PRE tags.
ivo75 wrote: Why my program "sleep"
You probably mean the GUI freezes (i.e. high CPU load, no Form resize/repaint; a sleeping program would not cause any CPU load), which would suggest you have too much going on in some event handler; if so, the solution is using one or more additional threads (Thread, ThreadPool, BackgroundWorker, etc).
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
I insert in SQL statment another SQL statment maybe for this is hapent this.
|
|
|
|
|
Your SQL operations really are too complex, and hence will take too long, to run them on the main thread. I suggest you use a BackgroundWorker and use its progress reporting to update the GUI (the DoWork handler itself is not allowed to touch the GUI Controls!).
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
give me some example how to use BackgroundWorker
|
|
|
|
|
Of course, Sir. Here you go, Sir: examples[^].
Anything else you require, Sir?
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Thanks
|
|
|
|
|
Hi,
I am printing Crystal reports via VB.Net. Some of the printers are set to print duplex others are not. I want to set the printers duplex option to off when ever I run the code. What is the best way of doing this. What do I have to import/do to achieve this? I have tried importing SystemManagement but no success. What am I doing wrong. Any sample would be welcome.
|
|
|
|
|
Well you should definitely be able to do it using WMI and the Win32_PrinterConfiguration[^] structure.
This[^] thread on MSDN has the basics.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
I wouldn't let CG touch my Abacus!
|
|
|
|
|
Thanks for the speedy reply.
How would this code/structure be displayed on the project.
Sorry for this.
|
|
|
|
|
Central_IT wrote: How would this code/structure be displayed on the project.
Normally it wouldn't be 'displayed' so I am a little confused by your question.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
I wouldn't let CG touch my Abacus!
|
|
|
|
|