|
Dear Steve
Thanks For help.
I am using MS Access as database and the .rpt files i m including in the package and it is installed on evry machine in c:\program files app folder. for file i am using the ODBC connectivity. and iside vb code i am using app.path to get the file path to display file on crystal viewer control.
thanks
murtuza
|
|
|
|
|
Murtuza,
I understand that you have an Access database and Crystal RPT files installed on each machine, and that these are all in the App.Path. Correct? Are you sure that the ODBC DSN is setup correctly on each workstation? Can you show us the code that you are using to load the file into the control?
...Steve
|
|
|
|
|
Dear Steve
the code to insert rpt file is as below
Option Explicit
Dim oApp As New CRAXDRT.Application
Dim oReport As New CRAXDRT.Report
Private Sub Form_Load()
Set oReport = oApp.OpenReport(app.Path & "\SalesRep.rpt", 0)
oReport.SQLQueryString = StockSql
CRViewer1.ReportSource = oReport
CRViewer1.ViewReport
End Sub
the database is on server machine only and i am using DSN to connect client program with server the othr forms are working fine except crystal report files. the error is coming"no physical database found"
thanks
Murtuza
|
|
|
|
|
Are the reports stand alone or are you passing the path to the database to the reports in your code. Its a bit hard with the limited information you have provided to know whatyour problem is. In general if you create the report on your PC against a database in for example the c:\mydatabase folder or against and ODBC datasource called MyData then when you put the report on another PC it will still expect the database to be in a folder called c:\mydatabase or to have the ODBC datasource MyData set up. If not then you can either pass this information to the report from within your code or use 'Set Location' from the menu in Crystal reports to make the report look at the correct database location.
I am assuming a situation like the database is on one PC and other 'Client' PCs connect to it.
Jon
|
|
|
|
|
Dear Steve
the code to insert rpt file is as below
Option Explicit
Dim oApp As New CRAXDRT.Application
Dim oReport As New CRAXDRT.Report
Private Sub Form_Load()
Set oReport = oApp.OpenReport(app.Path & "\SalesRep.rpt", 0)
oReport.SQLQueryString = StockSql
CRViewer1.ReportSource = oReport
CRViewer1.ViewReport
End Sub
the database is on server machine only and i am using DSN to connect client program with server the othr forms are working fine except crystal report files. the error is coming"no physical database found"
thanks
Murtuza
|
|
|
|
|
hello Murtaza
It was around 6 months back when I was working on Crystal and I had this problem. to be very honest I forgot what I did with that to solve. But I do remember it was some very small issue in that program. So go and re check your report. like in crystal open report and check in File menu .. that data should not be saved in the report. some times it creates a problem. if you are totally stuck then do one more thing. build a simple report which has nothing instead of time stamp on it and check it on client. so that if it loads then problem is in DSN and if dont then problem in Crystal report missing required files.
Best of luck and do remind me the solution. + let me know your crystal version
|
|
|
|
|
Hi guys,
i'm currently developing an application that will be sending data out over the web.
To enchance the users experience of this application i have decided that it would be good to send all of the data in the background of the application while the user continues to use the application.
The scenario:
A user adds a record in the application.
Application sends the data to a web service
Web service adds a record to a database and returns the ID of that new record
User continues to add new details to this newly created record inside the application
Application keeps track of newly created ID and whenever the user decides to update this record a new thread is spawned and updates the record in the database (using a SQL update statement on the returned ID from the webservice).
Problem is, that sometimes the user can add things too quickly to the record and the web service hasn't returned an ID...this means we can't update the record (as we have no ID).
What i want to know, is how do i make sure that the initial thread has finished processing and has returned some data so that the next thread can continue on and update the record?
Thanks
|
|
|
|
|
You will always have some latency with any web service and you'll probably need to synchronize the initial record creation with the rest of your program.
Briefly, create a global synchronization object (either a mutex or semaphore) which the main thread can interrogate whether or not a new ID is ready for use. The child thread will set this object to True when it is done indicating that the main program can update this record. If False or not set, then record updating cannot occur.
You'll also need to cater for a non-response or timeout from the web service. A better idea may be to (additionally) cache the data on the client until (when or if) the web service responds and is capable of handling the updates.
...Steve
|
|
|
|
|
Hi Steve,
Thanks for your reply. I will certainly look into it.
Data is automatically stored on the client. Once a record has been uploaded it is flagged with the ID that it receives back from the web service.
I will be building a sync that will at one time allow a sync of all data that has not gone up to the web.
Thanks
|
|
|
|
|
I have build an activeX controller in ATL VC++ that uses a window and shows camera captured frames, it works well in VisualC environment.
In Visual Basic 6, however, When I tried to integrate the control into a project, it was loaded ok but when I tried to save or run the project, I got a system Error
&H80004005 (-2147467259).
When I tried the same under .net environment, this problem didn't appear.
DO you have any idea what can be the problem or how can I debug it ?
Thanks
Amos.A
|
|
|
|
|
I’ am having trouble converting between vb.net new standard coordinate system, that is pixels, and what I believe is some form of a polar coordinate system.
The second coordinate system I believe is a polar coordinate system, but I’m not sure.
The best way I can describe it is that the center of the grid is the origin, “0, 0”.
With negative values going from the center out to the left and bottom of the grid, and positive values going out to the top and right.
The problem I’m having is that I can’t think of any way to take coordinates from coordinate system and convert it to the other.
The idea is to load into a vb.net form or picturebox control an image that represents a map area.
If that makes any since at all.
All I really need is an algorithm, a logical thought process.
e-mail me at: Doe_John187@hotmail.com
|
|
|
|
|
Doe, John wrote:
The best way I can describe it is that the center of the grid is the origin, “0, 0”.
With negative values going from the center out to the left and bottom of the grid, and positive values going out to the top and right.
This is the Cartesian system. There is no "negative side" to Polar coordinates, even though Polar can be used with negative numbers. Polar takes an angle and distance from the origin to specify a point. Cartesain takes an X and Y coordinate.
By default, Windows puts the origin (0,0) at the top left of the drawing surface. The X axis extends from the origin to the right, in positive values, while the Y-axis extends down from the origin, not up!, in positive values.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Just add 1/2 the range you intend to display to each of the cartesian co-ordinates after multiplying the y co-ord by -1: if your display area is 1000 high by 1000 wide, the center will be at 500,500, so adding 500 to the 'map' co-ords of 0,0 will give 500,500, a map co-ord of -10,-10 will give 490,510 (-10 + 500) , ((-10 *-1) +500) - 10 left of center, 10 below center.
Absolute faith corrupts as absolutely as absolute power
Eric Hoffer
All that is necessary for the triumph of evil is that good men do nothing.
Edmund Burke
|
|
|
|
|
Hi Christy
First of all thanks for the reply
i am stuck at building sql query from the fields selected and then passing it on to the reports
Can you please help me out
|
|
|
|
|
I have a fairly large VB 6 program group that generates 20 DLLs (each a separate project brought together by one VB project group). This is a system which I must keep running (i.e. conversion to .NET and/or code consolidation is not an option at this point in time - just in case you ask  ).
These DLLs are used in Microsoft Office apps to provide custom connections between those apps and the document management system. There are also many Word document template files coded in VBA which use the objects provided by these DLLs.
Thus far these DLLs have been separately compiled in VB 6 with No Compatibility making it very difficult to deploy simple changes without recompiling all the dependent DLLs and templates. I want to change this to use binary compatibility but am having great trouble.
The procedure followed so far:
1. unregistered all DLLS on my machine.
2. copied the current build of the DLLs (compiled with No Compatibility) to a separate directory named "Compatibility" in the VB 6 project tree.
3. Changed the project definition of each separate project to use Binary Compatibility and set the compatible component to reference the corresponding DLL in the Compatibility directory.
4. Rebuilt the project group.
It is at this stage the first compile warns that "The get property for the 'ActiveControl' property in the 'LogReview' class module is missing from a similar declararion in the version-compatible component." There is only one choice available - the radio button to Break Compatibility is set, the other for Preserve is disabled.
If I choose to break compatibility, I will be in the same situation that I was trying to avoid in the first place. I really don't want to manually recompile all the templates to reference the new CLSIDs unless absolutely necessary.
Can anyone offer some advice on how to proceed?
Cheers.
...Steve
|
|
|
|
|
|
Dave,
I agree and have read those articles, but I have used the current DLL as the binary compatible version. There were no code changes at all when I recompiled yet compatibility was somehow broken. This is what I cannot understand.
...Steve
|
|
|
|
|
Dave,
Egg on face time... seems like I've been given DLLs that were NOT compiled with the 'official' source code.  VB is telling me the truth after all.
Cheers.
...Steve
|
|
|
|
|
Even the best of us make mistakes like that. We can even make some real stupid mistakes! I was chasing my tail yesterday for about 6 hours, then found out I didn't even need the system I was working on...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Seems like it was my fault to begin with - I had recompiled the DLLs on my machine many times before cleaning the registry and copying all files again from Visual Source Safe.
Looks like my registry still has orphaned entries which are upsetting the build process. A full rebuild with binary compatibility on another (fresh) machine solved the problem.
Anyone know of a good and free utility to clean the registry? The ones I have found so far on the net all require $$'s (yes - I'm cheap ).
...Steve
|
|
|
|
|
Hi have looked all over the internet for a way to make my program skinable, but have only came across commercial ways to do this. I just want to know if there are any free, open source or custom ways of doing this.
|
|
|
|
|
Skinning is just custom drawing, you write a UI where all controls display a bitmap they can discover via a config file. Nothing to it.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I'm having a problem formating a column in my listview to show the column as a currency column. I'm sure there is a simple answer to this, but I have a column called "Length" which is an integer and a column "StartingPrice" which is the currency....with the following code they both show up as currency fields, what am I doing wrong?
While datareader.Read
test = New System.Windows.Forms.ListViewItem
Dim columns As Integer
test = lstPending.Items.Add(datareader(0).ToString)
For columns = 1 To datareader.FieldCount - 1
If datareader.Item("StartingPrice") Then
test.SubItems.Add(Format(datareader.Item(columns).ToString, "Currency"))
Else
test.SubItems.Add(datareader.Item(columns).ToString)
End If
Next
rows += 1
End While
|
|
|
|
|
Your test will always take the first path in the if statement since the column "StartingPrice" always exists.
you want
If datareader.GetName(column).Equals("StartingPrice") Then
test.SubItems.Add(Format(datareader.Item(columns).ToString, "Currency"))
Else
test.SubItems.Add(datareader.Item(columns).ToString)
End If
Absolute faith corrupts as absolutely as absolute power
Eric Hoffer
All that is necessary for the triumph of evil is that good men do nothing.
Edmund Burke
|
|
|
|
|
Great, that worked like a charm, much appreciated!
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
