|
Hi,
I have a variable I need to set, from a function in the same class. I am doing the following:
Dim FGBS1 as String = getCompanyCode(strDivisionCode)
and the other function:
Public Shared Function getCompanyCode(ByVal strDivisionCode) As String<br />
<br />
Dim DivisionCode As String = strDivisionCode<br />
<br />
Dim ReturnedCompanyCode As String = ""<br />
Dim MyCompanyCode As String<br />
<br />
Dim CompanyCode As String = ""<br />
Dim CompanyLevel As String = ""<br />
<br />
Dim objConnSelectFloatSQL As SQLConnection = New SQLConnection(DB2TestConnectionString())<br />
Dim selectFloatSQL As String<br />
<br />
Try<br />
<br />
If DivisionCode <> "" Then<br />
<br />
'Level 4/5<br />
selectFloatSQL = "SELECT CompCode, CompNum from tblComp where CompNum = '" & DivisionCode.Trim() & "'"<br />
<br />
Dim objCmdSelectSQL As SQLCommand = New SQLCommand(selectFloatSQL, objConnSelectFloatSQL)<br />
<br />
objConnSelectFloatSQL.Open()<br />
<br />
Dim objDr As SQLDataReader = objCmdSelectSQL.ExecuteReader()<br />
While (objDr.Read())<br />
CompanyCode = objDr(0).ToString.Trim()<br />
CompanyLevel = objDr(1).ToString.Trim()<br />
End While<br />
objConnSelectFloatSQL.Close()<br />
<br />
If CompanyLevel <> "3" Then ' either level 4 or 5<br />
getCompanyCode(CompanyCode) <br />
Else 'if level 3<br />
MyCompanyCode = CompanyCode<br />
End If<br />
Else<br />
MyCompanyCode = "LEVEL does not exist for:" & strDivisionCode<br />
End If<br />
<br />
Catch ex As Exception<br />
Dim strExceptionMsg As String = "Error Executing GetAS400InvoiceDetails(): " & ex.Message & "\r\n"<br />
Throw New Exception(strExceptionMsg, ex)<br />
<br />
Finally<br />
<br />
objConnSelectFloatSQL.Close()<br />
End Try<br />
<br />
Return MyCompanyCode<br />
End If<br />
<br />
<br />
End Function
Now, my problem is, that the function needs to loop through itself to bring back a certain level(a string in the DB). Basically if I return say level 5, it has to go back to the function again, it will bring back level 4, but it has to go back, until it brings back level 3. My problem is this - I get the correct level (3), but I also bring back two empty strings, and that overrides my first value.
Say I get CompCode = "001"
It returns "001", "" , "" and thus FGBS1 = ""
How do I get pass this?
|
|
|
|
|
Public Shared Function getCompanyCode(ByVal strDivisionCode) As String
Dim DivisionCode As String = strDivisionCode
Dim ReturnedCompanyCode As String = ""
Dim MyCompanyCode As String
Dim CompanyCode As String = ""
Dim CompanyLevel As String = ""
Dim objConnSelectFloatSQL As SQLConnection = New SQLConnection(DB2TestConnectionString())
Dim selectFloatSQL As String
Try
If DivisionCode <> "" Then
'Level 4/5
selectFloatSQL = "SELECT CompCode, CompNum from tblComp where CompNum = '" & DivisionCode.Trim() & "'"
Dim objCmdSelectSQL As SQLCommand = New SQLCommand(selectFloatSQL, objConnSelectFloatSQL)
objConnSelectFloatSQL.Open()
Dim objDr As SQLDataReader = objCmdSelectSQL.ExecuteReader()
While (objDr.Read())
CompanyCode = objDr(0).ToString.Trim()
CompanyLevel = objDr(1).ToString.Trim()
End While
objConnSelectFloatSQL.Close()
MyCompanyCode = CompanyCode & "," & CompanyLevel
Else
MyCompanyCode = "LEVEL does not exist for:" & strDivisionCode
End If
Catch ex As Exception
Dim strExceptionMsg As String = "Error Executing GetAS400InvoiceDetails(): " & ex.Message & "\r\n"
Throw New Exception(strExceptionMsg, ex)
Finally
objConnSelectFloatSQL.Close()
End Try
Return MyCompanyCode
End Function
I return both the company code and level.
Then do this when you call it:
Dim FGBS1 as String = getCompanyCode(strDivisionCode)
while FGBS1.Substring(FGBS1.IndexOf(",") + 1) <> 3
FGBS1 =getCompanyCode(strDivisionCode)
end while
It's not as elegant as using a recurring function, but I think doing something like this will solve your problem.
|
|
|
|
|
Would this fix it:
If CompanyLevel <> "3" Then ' either level 4 or 5
MyCompanyCode = getCompanyCode(CompanyCode)
Else 'if level 3
MyCompanyCode = CompanyCode
End If
Else
MyCompanyCode = "LEVEL does not exist for:" & strDivisionCode
End If
|
|
|
|
|
Hi All
I am developing an online shopping web site. The site is similar to any online shopping site where user can select categories from left menu and product will be displayed in middle of page. We had planned to display 6 products per page. As of now we are fine and clear what we need to do.
Main concern is how to bring product data. We are expecting for each category there can be 5000 products and which can grow down the year. Obviously main concern is performance as we are expecting our main users will be dial up users as site will be access from those countries where DSL in not very common. We are in discussion of our product page design and I need your advice which can help me to mitigate any post deployment risks.
I am planning,
1) On Product Page load, I will fetch all the product data (e.g. Product Name, Description, Price, ImagePath, Saleprice, special deals etc…) in DataTable say MyDataTable and cache this DataTable.
2) Now when user clicks on any category from left menus, I will create DataView from cache DataTable by filtering category and bind the DataView with my repeater control.
I believe by this approach I can gain performance hit. For our project performance hit is very critical. Please advice whether I am in correct direction or Not. Please consider this on urgent basis. Thanks in advance for your valuable reply and time
Amit
|
|
|
|
|
Hi.
I hope someone had similar issue and can help me.
I've created a web site and installation set up for the site. I had no problems installing it locally or on a test server but when I tired to install it on LIVE server I've noticed that my files are not installed in the \Inetpub\wwwroot even though the Control Panel->Add Remove Programs showed that the site installed and occupies ##MB. I thought this is strange.  When I found the files installed in a different directory and only because one thing. Beside Default Web Site we have VAM (Visual Asset Manager) site installed on our server, which uses port 80 as well. So every time I run install it uses VAM as a default site and installs my site under it (that's why the directory where files installed is different). I was able to work around that issue by changing VAM port to anything but 80 for a while, installing my site, and then changing VAM port back to 80.
The question is: Is there anyway I can specify in my installation to use Default Web Site instead of VAM site even though they both use port 80? 
Thank you very much.
|
|
|
|
|
HI
I have an foder which contains Images
And i want to rename them as 1,2,3,4..........
By programetically (all at a time)
Can any one give me an idea on this
THX
asdfasdfasdfasdfasdfasdfasdfasdfasdfasdf
|
|
|
|
|
Hi,
You can use System.IO.File.MoveFile function for renaming files. Use new file name as target filename.
<marquee>"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
Anant Y. Kulkarni
|
|
|
|
|
Try the Following Code:-
Dim i As Integer
Dim d As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("D:\R&D\PSFVB\Picss\")
Dim fi As System.IO.FileInfo() = d.GetFiles()
Try
Dim file As Integer = fi.GetLength(0)
For i = 1 To file
Dim str As String = i & ".gif"
fi(i).MoveTo("D:\R&D\PSFVB\Picss\" & str)
Next
Catch ex As Exception
End Try
Thanks & regards,
Suresh Dayma
|
|
|
|
|
HI
Thx for reply
It is working in local system but when i upload to server it is giving "c:/Rename" no directory found
I am using this code
-----------------------
Dim i As Integer
Dim d As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Rename\")
Dim fi As System.IO.FileInfo() = d.GetFiles()
Dim l
l = fi.Length
For i = 0 To l
If Not i >= l Then
Dim str = i & ".jpg"
fi(i).MoveTo("c:\Rename" & "/" & str)
Else
Exit Sub
End If
Next
I want to put it in server
THX
asdfasdfasdfasdfasdfasdfasdfasdfasdfasdf
|
|
|
|
|
May be you need to use server.Mappath to get the folder location.
Best Regards,
Apurva Kaushal
|
|
|
|
|
ASP.NET is not authorized to access the requested resource. Consider granting access rights to the resource to the ASP.NET request identity. ASP.NET has a base process identity (typically {MACHINE}\ASPNET on IIS 5 or Network Service on IIS 6) that is used if the application is not impersonating. If the application is impersonating via <identity impersonate="true">, the identity will be the anonymous user (typically IUSR_MACHINENAME) or the authenticated request user.
Add the following Code in your Web.Config file.
<identity impersonate="true">,
To grant ASP.NET write access to a file, right-click the file in Explorer, choose "Properties" and select the Security tab. Click "Add" to add the appropriate user or group. Highlight the ASP.NET account, and check the boxes for the desired access.
Thanks & regards,
Suresh Dayma
|
|
|
|
|
ASP.NET is not authorized to access the requested resource. Consider granting access rights to the resource to the ASP.NET request identity. ASP.NET has a base process identity (typically {MACHINE}\ASPNET on IIS 5 or Network Service on IIS 6) that is used if the application is not impersonating. If the application is impersonating via , the identity will be the anonymous user (typically IUSR_MACHINENAME) or the authenticated request user.
Add the following Code in your Web.Config file.
<identity impersonate="true">
To grant ASP.NET write access to a file, right-click the file in Explorer, choose "Properties" and select the Security tab. Click "Add" to add the appropriate user or group. Highlight the ASP.NET account, and check the boxes for the desired access.
Thanks & regards,
Suresh Dayma
|
|
|
|
|
Sorry, I forgot to add the code. The Code is <identity impersonate="true"/>
With regards,
Suresh Dayma
-- modified at 6:05 Friday 25th August, 2006
|
|
|
|
|
Yes I added that one
But still it is giving same error
" Could not find a part of the path "C:\Rename"."
Is the code is right which i use
----------------
Dim i As Integer
Dim d As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Rename")
Dim fi As System.IO.FileInfo() = d.GetFiles()
Dim l
l = fi.Length
For i = 0 To l
If Not i >= l Then
Dim str = i & ".jpg"
fi(i).MoveTo("c:\Rename" & "/" & str)
Else
Exit Sub
End If
Next
------------
THX
asdfasdfasdfasdfasdfasdfasdfasdfasdfasdf
|
|
|
|
|
Its working fine on my pc.
Have you tried this
Right-click the Rename Folder
Select the Security tab
then click "Add" to add the appropriate user or group.
Highlight the asp.net A/c, and Check the boxes for the desired access
The code which you have written is correct.
Thanks & regards,
Suresh Dayma
-- modified at 6:28 Friday 25th August, 2006
|
|
|
|
|
Hi
Yes tryed still
I dont know where i am doing wrong
I put the folder in sharing
But still not getting
Help me on folder permissition
THX
asdfasdfasdfasdfasdfasdfasdfasdfasdfasdf
|
|
|
|
|
There is no need to put your folder in sharing.
Try this:-
Right-Click your Rename Folder.
Select the Security Tab
Select your User Name.
Set Full Control for your User name or
you can click on the advanced button and select the Effective Permissions Tab
and then click the select button and add your username in the given textbox.
finally,click the ok button to make necessary changes.
Hope this will help u out of your problems.
Thanks and regards,
Suresh Dayma
|
|
|
|
|
Hi!
In facts, my problem is to access the info in the server side! If i use ListBox.Items... It is not working but I really have two rows in my listbox... Look this:
This is my javascript code:
First i select the item in listbox1 then click on add button so add seleccted item into listbox2 and remove selected item from listbox1 using javascript.
function fctAjoutAssigne()
{
var mylist = document.getElementById("ListBox1")
var mylist2 = document.getElementById("ListBox2")
mylist2.options[mylist2.length]= new Option(mylist.options[mylist.selectedIndex].text,mylist.options[mylist.selectedIndex].value);
mylist.remove(mylist.selectedIndex)
}
and at last i click on save button. code of save button is :
For i = 0 To ListBox2.Items.Count - 1
strAssignation &= ListBox2.Items(i).Value & ","
strNomAssigne &= ListBox2.Items(i).Text & ";"
Next
But ListBox2.Items.Count = 0
even If I have two items in my list...
Amazing...
if you know then tell me how to fix this.
chetan patel
|
|
|
|
|
Hi man.
Why don't you use code behind to populate your ListBox2 instead of JavaScript?
I'm not sure how your code works but I think what happens is:
1. When you add new items with JavaScript it works no problem
2. When you clisk Save button it submits the page and you are loosing your valuse in the ListBox2.
Seems like Posting is your problem.
|
|
|
|
|
Sounds like you need some AJAX!
how vital enterprise application are for proactive organizations leveraging collective synergy to think outside the box and formulate their key objectives into a win-win game plan with a quality-driven approach that focuses on empowering key players to drive-up their core competencies and increase expectations with an all-around initiative to drive up the bottom-line. But of course, that's all a "high level" overview of things
--thedailywtf 3/21/06
|
|
|
|
|
Hi,
I have an issue on how to open secure aspx pages using ASP.NET 2.0 with C# using custom built user login processes.
Below is the scenario:
1)I have a custom-built login system where I prompt the user to enter their username and password (using Textbox controls) and if successful I return the user’s security level number for example Level1 or Level2.
2)If the user has Level1 access I would like them to be able to access a secure aspx page (i.e. Level1Page.aspx) similarly for users with Level2 access I would like them to access another secure aspx page (i.e. Level2Page.aspx).
3)If the user is granted Level1 access then the user should only be allowed to view Level1Page.aspx not Level2Page.aspx.
I have seen examples where the secure pages are tied in with the ASP “Login” controls that use ASP security. Unfortunately I am using my own custom built Login system.
I would appreciate any help that I get.
Thanks in advance.
Regards,
Nish
|
|
|
|
|
|
Thanks for your suggestion. The examples (links) for setting custom authentication helped me out. As you have mentioned, I set permissions in the web.config file for each secure folder to restrict users with different access level. .
Once again thanks for your help.
|
|
|
|
|
Hi,
I need to Convert MS Access Data to Notepad. Please Help.
Prya
|
|
|
|
|
Notepad is not a file format, it's a program. It can open several different file formats, but none of them can be directly converted from a database.
Do you mean that you want to export data from the database to a text file?
---
b { font-weight: normal; }
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
