Visual Basic

Re: Problem Localhost Web Reference method (fails showing return type)

21-Jul-08 2:00

Hi !

I have an object named RemoteDb that is implemented as a web service.
It has a method named RemoteSql than accepts an input string and returns a system.data.datatable with the results.

I've been working for a few days referencing it from VB and all works fine. This morning I have done some modifications to webservice and so, i have rebuilt it.

From explorer, it continues working fine, but when I've updated the web reference from my applicaction (Vb.net IDE), this error has appeared:

Value of type 'RegantsAlgerri.WebReference.RemoteSqlResponseRemoteSqlResult' can not be converted to 'System.Data.DataTable'.

When i call the webmethod RemoteSql() .net environment explains me that return parameter is RegantsAlgerri.WebReference.RemoteSqlResponseRemoteSqlResult. In previous version (before update Web Reference) .net environment tells me that return type was System.Data.DataTable.

Why reference is loaded with this bad return type ?

Regards in advance

Vimalsoft(Pty) Ltd21-Jul-08 3:22

Problem Localhost Web Reference method (fails generating proxy web methods. Not map DataTable object correctly)

21-Jul-08 3:22

Well its Difficult to say, especially if we dont see the code. but i think you have tempered with the return type when you were doing modification this morning. Lets see how you wrote your function that return that datatable and we can point where the Problem is.

Vuyiswa Maseko,

Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding

VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za

edmonson21-Jul-08 7:37

Re: Problem Localhost Web Reference method (fails generating proxy web methods. Not map DataTable object correctly)

21-Jul-08 7:37

Hello again,

Next description is more aproximated about problem is:

I created a Web Service using .Net 2.0 that has a function that
returns a DataTable. I can test the function from the web page when I access
the .asmx from a browser on localhost and it works.
The problem I have now is when using VS 2005 or VB.Net 2005 Express and creating a web references is
that the proxy created doesn't map the function as returning a DataTable
instead returns some other type of object named xxxxResult where xxxx is the
name of the web service function.
I have another function that returns a DataSet that works perfectly with the web reference although I'd rather use a DataTable since I won't need all the functionality that a DataSet brings.

Anyone have the same problem and found a solution?

Vimalsoft(Pty) Ltd21-Jul-08 10:01

Problem Solved but not real cause found

21-Jul-08 10:01

Still until you show us the code, we will not know what is the problem, try to post your code

edmonson22-Jul-08 0:33

Re: Problem Solved but not real cause found

22-Jul-08 0:33

Using DataSet and not DataTable as method argument and/or return type, the client application recognizes de types, and so it works.

I've looking other forums, and other people has the same problem.

Solution has not been found, but everybody is using DataSet vs. DataTable.

Microsoft exposes this article, recommendating using DataSets:

http://support.microsoft.com/kb/306134

Vimalsoft(Pty) Ltd22-Jul-08 1:01

Re: Problem Solved but not real cause found

22-Jul-08 1:01

Its True , you have to return a dataset.but you must filter it, dont return everything, because you might return a large sum of data that might not be needed by your application and consume a lot of resources

edmonson22-Jul-08 1:06

Re: Problem Solved but not real cause found

22-Jul-08 1:06

I build a minimal dataset:

Dim Ds as new DataSet
Ds.Tables.Add(MyTable)
return(Ds)

Thanks for your patient.

Vimalsoft(Pty) Ltd22-Jul-08 1:11

Get value from child to parent window

22-Jul-08 1:11

Thats Fine,

what you did is good.

Rememmber Patience is better than Pride, am glad you got your solution rate my post

hemant.kaushal21-Jul-08 0:53

hemant.kaushal

21-Jul-08 0:53

Hi,
In my application i have to open a new window and then to do some calculation and then to show that value on parent window.

thanks in advance

Re: Get value from child to parent window

C1AllenS21-Jul-08 1:29

C1AllenS

21-Jul-08 1:29

Hello,

You can try the given solution.

Lets say we have two forms Form1 and Form2.

In form2 we define a function which takes the Form1 as argument.

Form1 _frm;

    Public Sub ShowForm(ByVal frm As Form1, ByVal img As Image)<br />
<br />
        _frm = frm<br />
        Me.Show()<br />
<br />
    End Sub

Lets say we will return a value of type integer to Form1. For that we will have to define an integer
variable in Form1 and a Property for that variable to set its value.

    Dim _val As Integer<br />
<br />
    Property Val() As Integer<br />
        Get<br />
            Return _val<br />
        End Get<br />
        Set(ByVal value As Integer)<br />
<br />
            _val = value<br />
        End Set<br />
    End Property

On Button Click in Form 1 we will open the Form2 in the following manner:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
        Dim frm As New Form2<br />
        frm.ShowForm(Me)<br />
<br />
    End Sub

Now in FormClosing of Form2, we will set the value.

    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing<br />
<br />
        _frm.Val = 2<br />
<br />
<br />
    End Sub

I hope this helps.

Regards,

Allen

Allen Smith

ComponentOne LLC
www.componentone.com

Sending a spreadsheet as PDF

Dalek Dave20-Jul-08 23:39

Dalek Dave

20-Jul-08 23:39

As part of an Order System, I am wanting to email to the supplier the order,(held as two sheets), in PDF format.

'Email The Order
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\DOCUME~1\David\LOCALS~1\Temp\" & strFileName & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        Application.Dialogs(xlDialogSendMail).Show
'Get Back to Front Page

As far as I can tell, this ought to do the job, but it still emails the thing as a .xlsm

Am I missing the plot?

The main workbook has many pages, I merely save the two pages of the order as a seperate .xlsm file and whilst still active, email as a .pdf file.

Major Puzzlement ensues!

Any Suggestions?

------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox

How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid" [modified]

vbDigger'z20-Jul-08 22:31

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

20-Jul-08 22:31

How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

i have created and experimenting a vb2005 win application which i need to auto start up when windows run.. so programmatically i have a code communicating in the system registry?? i can read from HK_LocalMachine SubKey's and KeyName and KeyValue's but then when my application attempt to create/write a KeyName with it's corresponding KeyValue?? this give an error like this:

The specified RegistryKeyPermissionCheck value is invalid

Parameter name: mode

microsoft.win32.registrykey.validatekeymode(registrykeypermissioncheckmode)

'********** here's my experiment vb code reading and creating KeyName/KeyValue in the windows start up... i've just learned this from other post...
'******************

<br />
<br />
Imports System.IO<br />
Imports Microsoft.Win32<br />
Imports System.Security.Permissions<br />
<br />
Public Class MySampleApplication<br />
    Private Sub CreateKey()<br />
            Dim regKey As RegistryKey<br />
            Dim KeyName As String = "MySampleApplication"<br />
            Dim KeyValue As String = "C:\MySampleApplicationFolder"<br />
<br />
            regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True, Security.AccessControl.RegistryRights.SetValue)<br />
<br />
            If regKey.GetValue(KeyName) = Nothing Then<br />
                'if there's no KeyName yet? then create and set it's value<br />
                MsgBox("No value found")<br />
                regKey.SetValue(KeyName, KeyValue, RegistryValueKind.String)<br />
                MsgBox("key " & KeyName & " has been created")<br />
            Else<br />
                'if KeyName is already existing? then verified it KeyValue<br />
                MsgBox("Value Found")<br />
                If regKey.GetValue(KeyName) = KeyValue Then<br />
                    'if KeyName is already existing and KeyValue is the same? DO NOTHING<br />
                    MsgBox("value equal")<br />
                Else<br />
                    'if KeyName is already existing but the KeyValue is diff from the original? then remodified to it's original path..<br />
                    MsgBox("value not equal")<br />
                    regKey.SetValue(KeyName, KeyValue, RegistryValueKind.String)<br />
                    MsgBox("key " & KeyName & " value has been remodified and back to its original application path")<br />
                End If<br />
            End If<br />
        Catch ex As Exception<br />
            MsgBox(ex.ToString)<br />
        End Try<br />
    End Sub<br />
End Class<br />

'****************************

Please anybody there who have any good idea with this??? im just newbie in registry manipulation using VB2005.. please forgive me from being ignorant.. im just trying to level up my programming skills...

Please any body help please??.... it's urgent.. i need this in my programming project case study...

modified on Monday, July 21, 2008 4:54 AM

jzonthemtn21-Jul-08 1:34

jzonthemtn

21-Jul-08 1:34

Leave off the Security.AccessControl.RegistryRights.SetValue in the

regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True, Security.AccessControl.RegistryRights.SetValue)

line.

Please don't say it's urgent. It's a given because everyone thinks their question is urgent.

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

schrader@fsu.edu21-Jul-08 5:51

schrader@fsu.edu

21-Jul-08 5:51

I have a question about your code. I inserted it into a project of mine (using Visual Studio 2008) and it refused to compile "until there was an 'Opening Try' statement." I've scanned your code and in fact don't find a *Try* statement. Where, in your code, did you or do you plan to place the *Try* statement?

David

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

vbDigger'z21-Jul-08 14:13

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid" [modified]

21-Jul-08 14:13

'****i used to be put it like this example...***

'***************

<br />
Private Sub mySubFunctionName()<br />
try<br />
<br />
'****youre code statement goes here*****<br />
<br />
Catch ex As Exception<br />
    MsgBox(ex.ToString)<br />
End Try<br />
End Sub<br />

vbDigger'z21-Jul-08 14:41

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

21-Jul-08 14:41

Excuse me "The JZ" thanks for the reply.. i really appreciate your effort.. Smile | :)

but i've try it before, before i've post this thread..

NOTE!!!!!!!! i forgot to say that this code work good in Windows 2000!! but does not work on "XP Pro SP3" or higher like "Vista".. and i want it to work with this OS platform... you can try my code and let me know if it will work on XP Pro SP2
anybody there got a good possible solution??

<br />
regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)<br />

but this still gives me a security exception error like this... Dead | X|

System.UnauthorizedAccessExeption: Attempted to perform an unauthorized operation.
at Microsoft.Win32.RegistryKey.Win32Error(Int32 errorCode, String str)
at Microsoft.Win32.RegistryKey.SetValue(String name, Object value, RegistryValueKind value kind)

but just like i've said before from the very first of my thread? my code can only read but can't write on the registry... how am i suppose to write in the registry using Microsoft.Win32??? without having security exception error... my user account is already an administrator and i already set my application as a full trust application in PROJECT PROPERTIES/SECURITY/ENABLE CLICKONCE SECURITY SETTINGS as FULL TRUST APPLICATION of my WINDOW PROJECT IDE VS2005....

'*********** please review my code********
'***********this is my real actual code a little differ in my fisrt code which i just simplified before****

<br />
Imports System.IO<br />
Imports Microsoft.Win32<br />
Public Class myApplicationName<br />
    Private Sub CreateAutoRegistryKey()<br />
        Try<br />
            Dim regKey As RegistryKey<br />
<br />
            'NOte: appKeyName will be look like this "myApplicationName.exe"<br />
            Dim appKeyName As String = FileIO.FileSystem.GetName(Application.ExecutablePath)<br />
<br />
            'Note: then appKeyName will now look like this "myApplicationName"<br />
            appKeyName = appKeyName.Remove(appKeyName.IndexOf("."), 4)<br />
<br />
            regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)<br />
<br />
            If regKey.GetValue(appKeyName) = Nothing Then<br />
                MsgBox("No value found")<br />
                regKey.SetValue(appKeyName, Application.ExecutablePath, RegistryValueKind.String)<br />
                MsgBox("key " & appKeyName & " has been created")<br />
            Else<br />
                MsgBox("Value Found")<br />
                If regKey.GetValue(appKeyName) = Application.ExecutablePath Then<br />
                    MsgBox("value equal")<br />
                Else<br />
                    MsgBox("value not equal")<br />
                    regKey.SetValue(appKeyName, Application.ExecutablePath, RegistryValueKind.String)<br />
                    MsgBox("key " & appKeyName & " value has been remodified")<br />
                End If<br />
            End If<br />
        Catch ex As Exception<br />
            MsgBox(ex.ToString)<br />
        End Try<br />
    End Sub<br />
End Class<br />

Please anybody help... please??...

modified on Monday, July 21, 2008 9:07 PM

jzonthemtn21-Jul-08 14:49

jzonthemtn

21-Jul-08 14:49

Hmmm. Does your user account have permissions to write to HKEY_LOCAL_MACHINE?

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

vbDigger'z21-Jul-08 15:22

Re: How to autostart up my vb application inside the system registry without "The specified RegistryKeyPermissionCheck value is invalid"

21-Jul-08 15:22

Yes! my user account is an administrators account... that's why im pretty confuse... why this can't work well..

and there's another... i forgot to say that my code, work well in Windows 2000!! but does not work on "XP Pro SP3" or higher like "Vista".. and i want it to work with this OS platform... you can try my code and let me know if it will work on XP Pro SP2 because i dont have XP Pro SP2 anymore...

anybody there got a good possible solution make this work on the other OS platform?? i've already expected that my code will not work on Vista cause of its very high security features... but i wonder how to make it work in XP SP2 or neither XP SP3 which is my point of platform to run my application..

and also...
Thanks to "The JZ" for giving attention in this thread.. i really appreciate a lot.. Smile | :)

and im really glad if any body there will share their good idea... please???

vbDigger'z21-Jul-08 15:49