Recent content by RobHVB6Sql

UPDATE: I'm unsure why but this works. Was possibly the *= joins, now using an IF statement. IF @ServiceVenue = 100 SET @theSQL2 = 'WHERE rfa.ContactID = c.ContactID ' + 'AND c.ContactDate >= ' + CHAR(39) + @DateFrom + CHAR(39) + ' ' + 'AND c.ContactDate >= ' + CHAR(39) + @DateTo +...

Thanks Jim, yep I checked that and all fine. But if I run the three statement here, I get the same result. As though the service venue (100, 5, 6) is not selected for. spprintTopRFAByVenue 100, '01/01/2004', '01/02/2004', 20 spprintTopRFAByVenue 5, '01/01/2004', '01/02/2004', 20...

The following always seems to evaluation to the first '100' case and doesn't get to the else. What is wrong with my case? any ideas? :-( CREATE PROCEDURE spprintTopRFAByVenue ( @ServiceVenue INTEGER, @DateFrom VARCHAR(30), @DateTo VARCHAR(30), @TopNNum INTEGER ) AS -- -- Work done: -- 1)...

The reports are located on a network drive. I now have it working using the method below. I'll probably stick with this method, sorry need to get this going quickly. PS I do remember changing the Reference /Components and rebooting VB, maybe this was the issue. I'm now using crviewer9.dll...

I'm using VB6 /SQL6.5 and CR9. Sorry I looked through heaps of posts and cant solve this one. Dim ConnectionInfo As CRAXDRT.ConnectionProperties Set ConnectionInfo = Report.Database.Tables I recieve and error message saying the 'report' variable is not defined. When I define it eg Dim...

Awesome :-) I was close. Yes the solution is: 1) {@Truncate-Age@Diag} formula: If IsNumeric({spPrintClientByDiagnosis;1.AgeAtDiagnosis}) and {spPrintClientByDiagnosis;1.AgeAtDiagnosis} > '0' then round (ToNumber({spPrintClientByDiagnosis;1.AgeAtDiagnosis}), 1) else 99999 2) Right...

Hmm, a prickly one here. [evil] I wish to highlight the mimimum of a number field 'AgeAtDiagnosis' in a report. I have a running total (#RTotal0) and can get the minimum of the number field in the report footer. (I think a running total was necessary as AgeAtDiagnosis contains 0 values). I now...

I have used this dll and found it very good. SMTP sender tool written by Igor Ostrovsky (OstroSoft). See http://www.ostrosoft.com/smtp_component Here is some code to get you started. Please note I have created and set many variables here, you can just replaced these with strings. 'declare...

My 2 cents worth, hope this helps :-) I had the same issue and found WinZip quite good. Especially if you need to compress the file with password protection! Combining this with OSSMTP.dll I now compress the file and email it off for the user which works nicely showing the user messages as each...

This one has been driving me batty for some time .. BACKGROUND: Using VB 6 /SQL and Crystal 8.5. A previous developer linked CrystalReport1 to a VB form and set the following: CrystalReport1.WindowParentHandle = frmPrintPreview CrystalReport1.Destination = crptToWindow...

Great thanks. I actually solved it in another way, but your solution is more versitile as it is within the Crystal Report. My cheat = Add six columns to the stored procedure which return the value and use this as the second sub report link. Here's a star ;-) Rob Hasard (VB6 /SQL 7.0 /CR8.5)

Thanks. SOME MORE DETAIL: The sp for the main report pulls from a cancer returns table 'WACRResponses'. The sp for the subreports pulls from a subsequent 'WACRResponsesPathInfo' table which can have 0 to 6 rows (Pathology Reports) related to the row in the WACRResponses (or main) table. They...

BACKGROUND: (Using CR 8.5) I have a report that uses two stored procedures, one for the main part of the report and one for the subreport link. One parameter: ‘@RequestID’ from the main report is used to select info for the subreports, this link is working fine. :-) THE QUESTION: How do I...

CR8.5 /SQL Sorry, I'm obviously missing something here, read several threads, but no help. I have two groups and wish to allow the user to choose to use the second (sub) group or not. They always want to see all records. I have a string parameter @Group1 passed in, but I don't know how to...

Yup, that'll do it :-) Here is some solution code that will sort any column. Thanks Artie. 'declaration section dim blnAscend as boolean Private Sub theGrid_Click() With theGrid 'if user clicked the grid header, then sort by that column! If (.MouseRow < 1 And blnAscend = True)...