|
Without seeing your code, it's impossible to tell you what you've missed. Part of a tablestyle is supplying the name of the data column that it's supposed to display for. But, like I said, with out the code...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I get a parameter count mistmatch.
This is my xml file:
<maxthreadcount>1
<componentname>ClaimDocument
<classname>ZurichNA.CWSImport.ClaimDocument.Claim
<methodname>Import
<successfulqueuestatuscode>5
<checkforretry>false
Public Sub Run()
Dim objAssbly As System.Reflection.Assembly
Dim objComponent As Object
Dim objType As Type
Dim componentMethod As MethodInfo
Dim args() As Object
Dim objPkg As Package
Dim objRtn As Object
Dim objConnection As New SqlConnection(m_objAppSettings.AppSettings("DBConnectionString"))
Dim intCompleted As Integer = 0
Dim objPkgError As PackageError
Dim aCorrelationID(24) As Byte
Dim intRetryCount As Integer
Dim m_blnUpdateRetryFlag As Boolean = False
Dim blnIsNotifFlag As Boolean = False
''<new>
'Dim objMsg As IBM.WMQ.MQMessage
''
Try
''<new>
'm_objMQ = New MQUtils(m_strQueueManagerName, m_strGetQueueName, m_strPutQueueName)
'objMsg = m_objMQ.GetMsg(m_intWaitInterval, True, False, False)
'get the message
m_objMQMgr = New IBM.WMQ.MQQueueManager(m_strQueueManagerName)
m_strMsgXML = GetMessage()
'make the call to the corresponding component
objAssbly = System.Reflection.Assembly.Load(m_strComponentName)
objType = objAssbly.GetType(m_strComponentClassName)
componentMethod = objType.GetMethod(m_strComponentMethodName)
objComponent = Activator.CreateInstance(objType)
ReDim args(0)
''<new>
'args(0) = objMsg.ReadString(objMsg.MessageLength)
args(0) = m_strMsgXML
objRtn = componentMethod.Invoke(objComponent, args)
'load the returned XML into a new Package
objPkg = New Package(CType(objRtn, String))
' check for critical errors, if one exists move the message directly to the notification queuue
If objPkg.ErrorSeverityCode = m_objGeneral.ErrorSeverity.Critical Then
If m_strPutQueueName = "NONE" Then
blnIsNotifFlag = True
End If
m_strPutQueueName = m_strErrorQueue
'If m_blnRetryFlag Then
m_blnUpdateRetryFlag = True
'Get the retry count
intRetryCount = GetRetryCount(objPkg.ProcessID, objPkg.ProcessPackageID, objConnection)
If intRetryCount > 0 Then
If blnIsNotifFlag Then
m_strPutQueueName = "NONE"
Else
m_strPutQueueName = m_strNotificationQueue
End If
End If
End If
'open connection
If objConnection.State = ConnectionState.Closed Then
objConnection.Open()
End If
'log any unlogged errors
If objPkg.HasUnloggedErrors Then
For Each objPkgError In objPkg.Errors
If Not objPkgError.LoggedFlag Then
LogError(objPkgError, objPkg.ProcessID, objPkg.ProcessPackageID, objConnection)
objPkgError.LoggedFlag = True
End If
Next
End If
'Update Process, Package and File in the DB
UpdateProcessDataAndPackage(objPkg.GetProcessPackageXML, objConnection, m_blnUpdateRetryFlag)
UpdateDocumentDataAndFile(objPkg.GetProcessPackageXML, objConnection)
If Convert.ToDouble(objPkg.CurrentStatusCode) = m_objGeneral.Status.ProcessingFinished Then
UpdateAllStatusToComplete(objPkg.ProcessID, objConnection)
' copy the control file to error directory
If objPkg.Errors.Count > 0 Then
End If
ArchieveFiles(objPkg.GetProcessPackageXML, objConnection)
End If
objConnection.Close()
If m_strPutQueueName <> "NONE" Then
objPkg.CurrentStatusCode = CType(m_intQueueStatusCode, String)
PutMessage(objPkg.GetProcessPackageXML)
End If
m_objForm.txtInfo.AppendText(vbCrLf & Now.ToString & " Message for: " & m_strComponentName & " has been processed.")
m_intCompleted = 1
Catch mqEx As MQException
m_intCompleted = 1
HERE IS THE ERROR BEING CATCH *****************************************
Parameter count mismatch.
******************************************************************
Catch ex As Exception
m_strTemp = Convert.ToString(ex.Message)
m_objForm.txtErrorLog.Text = m_objForm.txtErrorLog.Text & vbCrLf & Now.ToString & " " & m_strTemp
RaiseEvent LogMHError(ex, "Controller.MessageHandler.Run")
m_intCompleted = 0
m_objMQMgr.Backout()
Finally
m_objMQMgr.Commit()
m_objMQMgr.Disconnect()
RaiseEvent Completed(m_intCompleted, m_GUID)
End Try
End Sub
My Module name is class library is ClaimDocument and the module is Claim.vb
The method being called in Claim is called Import.
Now if I right click on the properties of the the module?
Assembly name: ClaimDocument
Root name space is : ZurichNA.CWSImport.ClaimDocument
Can someone help me out with this error. I would appreciate any help.
|
|
|
|
|
First, your XML didn't post correctly because you didn't check the box at the bottom of the post window, "Do not treat <'s as HTML tags."
Second, what's the complete exception message and on what line did the error occur? I really don't feel like trudging through that huge Try/Catch block you've got.
Third, you're doing too many different things in this Try/Catch box. Break this down into multiple Try/Catch blocks and reorganized the code into smaller logical blocks. The Message Queue stuff at the top should have it's own Try/Catch block. The Error Logging stuff near the bottom should have its own. And the stuff in the middle looks like it should be split into one or two more blocks, but I can't really follow what the code is doing very well.
Lastly, why are you converting a string to a string?
Catch ex As Exception
m_strTemp = Convert.ToString(ex.Message)
ex.Message is already a string, so your conversion code is completely unnecessary. Rookie mistakes like this make me wonder if you really understand what your code is doing.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi there! I am trying to put a regular HTML link into a VB.NET project I am working on. I would like to use Javascript's pop-up window command, but I don't know how to write it in such a way, that what I enter is how it would be interpreted. Does anyone know how to use Javascript's window.open() function to generate a pop-up window programmatically from within VB .NET. If so please let me know. Thanks for any help you can pass my way.
|
|
|
|
|
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemwebuipageclassgetpostbackclienthyperlinktopic.asp
|
|
|
|
|
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemWebUIPageClassRegisterStartupScriptTopic.asp?frame=true
|
|
|
|
|
Hi there:
I strongly beleive there is a strange logical problem with the overall docking behavior of the dotnet controls. What a developer needs is that what control he docks first, gets docked first regardless of in what order the controls were added to the container. But dotnet IDE docks the controls in a specific order that somehow depends upon in what order the controls were added to the container. The worst is dotnet doesn't explains what is that specific order. Let me xplain the problem by an xample:
1) In any form, add a panel.
2) Create 2 label controls on the form called label1 and label2.
3) Drag label1 to the panel.
4) Drag label2 to the panel.
5) Set the Dock property of both to bottom.
6) Doesn't matter, in what order u perform the step 5, label2 will always be at the bottommost position.
Now repeat the same procedure as above, but change the following steps.
2) Create 2 label controls directly on the panel called label1 and label2.
6) Doesn't matter, in what order u perform the step 5, label1 will always be at the bottommost position.
SO u can clearly see that docking behavior is changed in both cases. In step6 of first one, label2 will always be docked at the bottommost position, while in 2nd case, label1 will always be docked at the bottommost position. Is this behavior justified and can developers rely on this type of uncertain behavior. Plz. comment on that.
The practical problem, i'm facing due to this uncertain and unjustified behavior is that:
1) I have made a custom container control, which has a label(acting as a caption). This label must always be docked to the topmost position in this control, so i have set Dock=Top for this label.
2) But due to dotnet docking behavior, when a user adds another control to this custom container and sets the dock property of that control to top, it gets docked at the topmost position and the caption label gets one level down, while it is not expected to change the position inside the control.
Is there another solution available, so that my label always stays at the topmost docking position.
There is anoher issue, at which i need ur comments, although i'm not sure whether its really an issue or not. The issue is based on the basic OOP principle of Composition. In original C++ or Java, when ur class(say ClassA is composed of two or more classes(assume its two classes named ClassP, ClassQ), then none of the classes ClassP or ClassQ is supposed to lose any of its functionality in any way when contained within ClassA. But in dotnet it happens. How?
1) Start a new Cutom Control Project.
2) To ur custom control add a label, that is supposed to act as a caption. Dock it to top.
3) Add a panel to ur custom control and Dock it to "Fill".
4) Build the project.
5) Add a new windows application project as the testing project to ur solution and to the form in that project,add an instance of ur custom control.
6) Run the project and u see the panel has lost its functionality as a container.Y??
In answer u may tell me that if i want my custom control to be a container, i should inherit it from ContainerControl Class. But no, the whole of the control is not supposed to be a container in my case, only the area that contains the panel, need to act as a container. So while talking about the basic Composition principles of OOP, the ClassP and ClassQ should not lose their functionality, but in dotnet panel loses its main functionality as a container.
If u feel these are the problems, plz. tell me how can i notify microsoft about that so that they corret these bugs in their next .net release.
PLZ. HELP ME OUT
ZAM
|
|
|
|
|
I am trying to put the binary file to Blob field in the oracle
but when updating i have error saying [Oracle][ODBC]Function error
what is the problem? I am using madac 2.6/VB6
Set rs = New ADODB.Recordset
rs.Open "Select * from LOB_TABLE", cn, adOpenKeyset, adLockOptimistic
' Create the ADO Stream object
Set mStream = New ADODB.Stream
' Make it a binary type
mStream.Type = adTypeBinary
' Open the stream
mStream.Open
' Read the binary file into the stream buffer
mStream.LoadFromFile BlobSourcePath & BlobFileName
' Add the blob to the database
With rs
.AddNew
'.Fields("BLOBFIELD").Value = mStream.Read
rs!Field = BlobFileName
rs!BLOBFIELD = mStream.Read
'.Fields("FIELD").Value = BlobFileName
.Update <<<<<
|
|
|
|
|
Does any one know how to clean up unused icons in system tray by VB.Net?
Thanks in advance.
|
|
|
|
|
It's a registry setting, so code it to modify the registry keys.
Here's where you can find help on the key.
http://support.microsoft.com/default.aspx?scid=kb;en-us;283084
|
|
|
|
|
Share some easy stuff.
Swillard
|
|
|
|
|
|
Could you post a difficult one?
|
|
|
|
|
me.close
thats it
form1_load
me.close
James Kennelly
|
|
|
|
|
GizzoF wrote:
Could you post a difficult one?
Explain me the difference between "On Error GoTo 0" and "On Error GoTo -1", with your words, without quoting MSDN.
I see dead pixels
Yes, even I am blogging now!
|
|
|
|
|
Daniel Turini wrote:
Explain me the difference between "On Error GoTo 0" and "On Error GoTo -1", with your words, without quoting MSDN.
In VB6 :
On Error GoTo 0 disables any error handler in the function the GoTo 0 statement appears in. Since the error will not be trapped in the function it will be propagated up the call stack.
On Error GoTo -1 is not a valid statement because -1 is not a valid line number and is also not a valid name for an error handler section.
The VB6 compiler will not complain about an On Error GoTo -1 statement. It simply will not do anything.
In VB.NET it is the same as VB6:
On Error GoTo 0 disables any error handler in the function the GoTo 0 statement appears in. Since the error will not be trapped in the function it will be propagated up the call stack.
On Error GoTo -1: The MSDN says this "sets the enabled exception to Nothing" but if you test in code, like in VB6 On Error GoTo -1 does absolutely nothing.
The better question would be:
"What difference does On Eror GoTo -1 make in the first place because why are you using unstructured error handling in VB.NET?"
|
|
|
|
|
Actually, that is quite inefficient... You could optimize the code by making it:
Sub Easy()
Dim i as Integer = 1
End Sub
 
Programmer2k4
My sig:
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
Most recent blog post: April 3
|
|
|
|
|
If you want to learn VB .Net, I'd suggest getting a book. If you do want to spend a few more hours instead of paying money, try and teach yourself VB .Net.
Some good starter points are: Event Handlers, MessageBox class, changing location/size of items programatically/at run time, and loading pictures from Embedded Resources.
People don't usually give code to an entire application away for free, and also, you haven't really asked a question therefore I am really unable to answer directly to your needs from what you already know.
Try a search on google for "VB .Net Beginner Tutorials" and such, and you will get helpful tutorials.
And of course, check the VB .Net articles section of this site! ![Green Alien | [Alien]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/alien.gif)
I hope this helps,
Programmer2k4
My sig:
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
Most recent blog post: April 3
|
|
|
|
|
I'm a beginner too.
I purchased a large book called "Mastering Visual Basic.Net" and a small one called "Visual Basic.Net in Easy Steps" . The small book cost $10 and gave me clear examples and showed me how to do basic things...enought to let me write my own first semi-complex program.
The large book cost $50 and was full of definitions with a few abstract examples. The cheap, small book is so much better. If I were you, I'd get that one..."Visual Basit.Net in Easy Steps"
Good luck. 
If you make yourself a sheep, the wolves will eat you!!!!!!!!!!
|
|
|
|
|
i have a small project of multilease project
in that i want to add vehicle,delete and edit and save the following vehicle
for xample if a salesman selects toyata camry he hsould be able to add the vehicle,delete vehicle ,edit vehicle and save vehicle
ho should i write using a vb code
aaffi
|
|
|
|
|
Please tell me you are joking!
James Kennelly
|
|
|
|
|
|
Hello
I' have a problem with starting a windows service programmed in VB.Net
In all OS (win2000 and upper) the service runs sucessfully ,but in one specific computer with (win2000 Server) the service give's me this error:
Service cannot be started. System.InvalidCastException: Cast from string "4/" to type 'Integer' is not valid. ---> System.FormatException: Input string was not in a correct format.
at Microsoft.VisualBasic.CompilerServices.DoubleType.Parse(String Value, NumberFormatInfo NumberFormat)
at Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(String Value)
--- End of inner exception stack trace ---
at Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(String Value)
at RufosFileWatcher.RufosFileWatcher.OnStart(String[] args)
at System.ServiceProcess.ServiceBase.ServiceQueuedMainCallback(Object state)
Can someone help me on this ??
Thanks
|
|
|
|
|
It looks like the command line arguments you supplied to start the service don't have a space in them where one should be. Mind you, this is a wild guess based soley on the stack trace you posted.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for your reply
OK but I don´t pass any arguments to start the service.
Do you mean OnStart(String[] args)?
I just use the installutil -i (Service name)
and to start the service I use the serviceController:
Dim Myservice as new ServiceController("Name of the service")
Myservice.start
MyService.Refresh
But if I use the start in the services panel it give´s me the same error.
Thanks
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
