|
Could you display your real code please? What are you really setting a(0) equal to? I mean, you are not actually setting it to New Integer right? You are setting it to an actual value? And what is the error that you are getting?
|
|
|
|
|
i'm defining a vector without defining its size
so when i make new to allocate in memory
i get the eror : not set to an instance
|
|
|
|
|
I haven't been able to get through this error without defining the size of the array upfront. If you are using Visual Studio 2005 you can use a List object instead. It is like an ArrayList except that you must declare what type of objects are being listed, so you will not have to worry about the overhead of casting the objects into what you want. Here's how you declare it:
Dim objList As New List(Of Integer)
Hope this helps.
|
|
|
|
|
dim a() as integer
array.Resize(a,0) ' or redim preserve a(0)
a(0) = 9999
|
|
|
|
|
thanks
that's work
now i have a bigger question
if a fuction return a vector
public function f() as integer ()
dim a() as integer
redim preserve a(0)
redim preserve a(1)
a(0)=1
a(1)=0
return a
end function
-----------------------------------
dim k () as integer
k=f()
msgbox(k(0)) ------->gives error : not set to instance
|
|
|
|
|
1) if you know how many you'll have you can do a 'static' array
dim a(1) as integer 'creates 0 both instances 0 and 1
2) you don't need to do a redim twice if you know how big you want to make it.
redim preserve a(1) 'will create both instances 0 and 1
3) ran you code... ran fine for me...???
|
|
|
|
|
man thanks but
the problem is when the functon return the vector ...
it allways be null
|
|
|
|
|
Maybe you should post a bigger junk of code or help explain the situation in further detail . I tested your code also and it works perfectly. Something else has to be going on.
|
|
|
|
|
I am using Visual Studio 2003. I am wondering if I can have a global dataset.
The ideal thing I would want is when someone opens this web application I would want the app then to connect to the database and haul down a table to be stored in a dataset. Then I want to be able to use this dataset anywhere in my application.
Reason I am asking is that I will need to refer to this table numerous times over the run of the application and rather than having numerous connections or leaving open a connection I would rather store the dataset in a global variable for quick use.
|
|
|
|
|
If you are working with a web app I'm not sure a global dataset is the solution. You are going to have all kinds of problems when multiple users access it at the same time. A global variable in a web project is a single variable for everyone who uses it...not a variable for a single user on a single session. I would suggest that instead you make a global method to run queries/procedures to your database. In these global methods you can include the code to open and close a single connection so you will always be sure to only have one open and you will not leave it open when you are not using it.
I hope this helps.
|
|
|
|
|
i haven't tried it personally but I think you can use cache for this. do some research on it...
|
|
|
|
|
|
Hi to everyone,
I'm writing, maintaining and deploying some applications: every aplication is made up by an executable (winexe) and some dlls (class library). To distribute them, I generate a Setup program for each application using the standard Setup project included in Visual Studio 2003.
Everything used to work fine but, a couple of weeks ago, the generated Setup for one application "lost" one library: it was simply missing from the .msi file and I had to include manually into the project to force the installation. Last week another Setup "forgot" three assemblies.
I also wrote a little vb.net program to scan - through reflection - all the referenced assemblies in the winexe and copy these assemblies in another folder and actually I found out that the same assemblies were missing from the new destination folder (but still there in the bin directory)
Given that:
- each application has all the references to the assemblies, with LocalCopy=True (indeed, I can find them in the bin directory)
- each Setup project is in a different solution than the application
- each Setup project is SourceSafe'd
- each assembly (winexe and library) is obfuscated and strong-named
- I checked version and date properties for the missing assemblies and they were coherent with the application (same version and date/time)
am I doing something wrong (or missing something important) or did?
Thanks in advance to anyone will help.
Marco Turrini
|
|
|
|
|
hello
i have a big headache to this problem that i wasnt able to find an answer, guys i really wanted your help if you can fix this, i'm using vb.net 2005 and using crystal report 9, my only problem is that the sub report, i dont know how to call that sub report that is part of the main report, it's always asking for login and password when the report is called, here's my codes and kindly and something that could fix my problem, here it is,
Dim appRdr As New System.Configuration.AppSettingsReader
Dim objreport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
objreport.Load(Application.StartupPath & "\reports\Employee_Profile_with_subreport.rpt")
objreport.SetDatabaseLogon(appRdr.GetValue("Username", GetType(String)), appRdr.GetValue("Password", GetType(String)), appRdr.GetValue("Server", GetType(String)), appRdr.GetValue("Database", GetType(String)))
objreport.SetDatabaseLogon("", "")
objreport.Refresh()
objreport.SetParameterValue("@IDNUMBER", Me.cboemployeeprofileid.Text)
Applicant_Reports.appreports.ReportSource = objreport
Applicant_Reports.Show()
employee_profile_with_subreport is the main report, and it has 3 sub report inside of that main, now when i deploy to another comp. and load that report, he will ask log-in and password and my sql is only windows authentication...help me gys..
|
|
|
|
|
How to get IP Address and Network card MAC Address using VB.NET ? 
Thiwa
|
|
|
|
|
I get all code from http://www.codeproject.com[^]
to get MAC Address Imports System.Management
Dim strMACAddress As String = ""
'
' Create the query, in SQL syntax, to retrieve the properties from
' the active Network Adapter.
'
Dim strQuery As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
'
' Create a ManagementObjectSearcher object passing in the query to run.
'
Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
'
' Create a ManagementObjectCollection assigning it the results of the query.
'
Dim queryCollection As ManagementObjectCollection = query.Get()
'
' Loop through the results extracting the MAC Address.
'
Dim mo As ManagementObject
For Each mo In queryCollection
strMACAddress = mo("MacAddress").ToString().Replace(":", "")
Exit For
Next
Dim a1 = strMACAddress
to get IP Address or MachineName Imports System.Net
Dim ipEntry As IPHostEntry = Dns.GetHostByName(Environment.MachineName)
Dim IpAddr As IPAddress() = ipEntry.AddressList
 ![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
Ahmed El-Badry
|
|
|
|
|
Thank you very much.....;)
Thiwa
|
|
|
|
|
MAC address is alright but not working for IP address.....
Thiwa
|
|
|
|
|
to get ip address this wored
Imports System.net
Dim ipEntry As IPHostEntry = Dns.GetHostByName(Environment.MachineName)
Dim IpAddr As IPAddress() = ipEntry.AddressList
MsgBox(IpAddr(0).ToString())
to get hostname
Dim hostname As String
msgbox(Environment.MachineName)
Ahmed El-Badry
|
|
|
|
|
System.IO.Directory.GetDirectories
takes a search pattern as a parameter.
System.IO.Directory.Delete
takes a path to delete. You don't need the DirectoryInfo class.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Hello guys
help with following
having a folder ,containing many subfolders with the following names
folder 1 :2007-1-30
Folder 2 :2007-2-1
folder .....
how can write a function to let the user : specifies which subfolders to delete
i mean :if the user wants to delete everything with the name before:2007-2-20
algorithm: after choosing a date from the calendar ,delete all the subfolders where their name are inferior from the chosen date
what about the following code.what should i add to it
Dim mydate As String, mymonth As String, myyear As String<br />
mydate = Me.DateTimePicker1.Value.Day.ToString<br />
mymonth = Me.DateTimePicker1.Value.Month.ToString()<br />
myyear = Me.DateTimePicker1.Value.Year.ToString<br />
Dim dir_info As New DirectoryInfo(Path)<br />
dir_info.Delete(True )
Regards,
Regards
Ramy
Regards
Ramy
|
|
|
|
|
If you double post, you can delete one.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Look at what has happened...
|
|
|
|
|
|
Give this a try
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim folderDate As Date 'Holds the date the folder name represents
'Loop through each folder under a given directory
For Each dir As String In IO.Directory.GetDirectories("c:\test")
'Try to parse folder name to valid date
Date.TryParse(IO.Path.GetFileName(dir), folderDate)
'If folderDate is less then Date selected, then remove it
If folderDate <> Nothing AndAlso Date.Compare(folderDate, DateTimePicker1.Value.Date) < 0 Then
IO.Directory.Delete(dir, True)
End If
Next
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
