|
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!
|
|
|
|
|
Hi, I want to create windows service in order to control the printer queue. And now I have read the following article http://www.developerfusion.co.uk/show/3441/[^] in order to create a simple windows service application. But one more thing that i still need is the way that I could control the printer queue from vb.net service application. Could any one provide me any information or resource in order to control the printer queue from vb.net service application for me? I need it in order to build a system to record the information about the printer utilization in my organization.
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Use the System.Management (WMI) classes to get the queue informantion a simplistic example is here[^].
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
|
|
|
|
|
Thank you very much for your comment. But your code example is showing in C# version. I prefer to use it VB.Net, but now I still find the way to conver C# language to VB.Net. If it is possible then it would be fine for me.
Thank you for your help!!! 
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Hi, i have a form which has a 1 datagrid and 12 label & textbox(like NAME, SURNAME, NATIONALITY, JOB etc..)and some buttons .I want to get data from database with one or more criteria (User if fill 2 criteria like NAME and SURNAME my query must be where NAME=txtname.text AND SURNAME=txtsurname.text) OR (user maybe fill only one criteria like NAME my query must be where NAME=txtname.text ) or (user maybe want to fill 8 or 6 or all criteria) and if user dont fill any criteria and click get button, query must be (Select * from ANABILGI) thats all..
I try to write a code below but unfortunately it was'nt worked.Would you somebody help me please.
Thanks a lot
Private Sub withcriteria()
Dim param As String = "ADI= txtad.Text & (param1) & SOYADI=txtsoyad.text & (param2)& BABAADI=txtbabaad.text & (param3)& ANAADI=txtanaad.text & (param4)& DYERI=txtdogumyer.text & (param5)& DTARIHI=txtdogumtar.text & (param6)& UYRUK=txtuyruk.text & (param7)& MESLEK=txtmeslek.text & (param8)& DIN=txtdin.text & (param9)& MEDENIHAL=txtmedenihal.text & (param10)& CINSIYET=txtcinsiyet.text & (param11)& TAHSIL=txttahsil.text"
Dim param1, param2, param3, param4, param5, param6, param7, param8, param9, param10, param11 As String
If txtad.Text.Length And txtsoyad.Text.Length And txtbabaad.Text.Length And txtanaad.Text.Length And txtdogumyer.Text.Length And txtdogumtar.Text.Length And txtuyruk.Text.Length And txtmeslek.Text.Length And txtdin.Text.Length And txtmedenihal.Text.Length And txtcinsiyet.Text.Length And txttahsil.Text.Length < 0 Then
Dim da As New OleDbDataAdapter("Select * from ANABILGI", baglan)
Dim ds As New DataSet
baglan.Open()
da.Fill(ds, "tablo")
DataGrid1.DataSource = ds.Tables("tablo")
baglan.Close()
DataGrid1.Select(DataGrid1.CurrentRowIndex)
Else
If txtad.Text.Length < 0 Then
param1 = "OR"
Else
param1 = "AND"
End If
If txtsoyad.Text.Length < 0 Then
param2 = "OR"
Else
param2 = "AND"
End If
If txtbabaad.Text.Length < 0 Then
param3 = "OR"
Else
param3 = "AND"
End If
If txtanaad.Text.Length < 0 Then
param4 = "OR"
Else
param4 = "AND"
End If
If txtdogumyer.Text.Length < 0 Then
param5 = "OR"
Else
param5 = "AND"
End If
If txtdogumtar.Text.Length < 0 Then
param6 = "OR"
Else
param6 = "AND"
End If
If txtuyruk.Text.Length < 0 Then
param7 = "OR"
Else
param7 = "AND"
End If
If txtmeslek.Text.Length < 0 Then
param8 = "OR"
Else
param8 = "AND"
End If
If txtdin.Text.Length < 0 Then
param9 = "OR"
Else
param9 = "AND"
End If
If txtmedenihal.Text.Length < 0 Then
param10 = "OR"
Else
param10 = "AND"
End If
If txtcinsiyet.Text.Length < 0 Then
param11 = "OR"
Else
param11 = "AND"
End If
End If
Dim da As New OleDbDataAdapter("Select * from ANABILGI where (param)", baglan)
Dim ds As New DataSet
baglan.Open()
da.Fill(ds, "tablo")
DataGrid1.DataSource = ds.Tables("tablo")
baglan.Close()
DataGrid1.Select(DataGrid1.CurrentRowIndex)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
