Visual Basic

Robert Rohde13-Mar-05 19:30

Robert Rohde

13-Mar-05 19:30

Have a look at the spatial extension of PostGreSql. I think its named PostGIS or something similar. Dont forget to look at the license. If I remember right it was rather restrictive.

nobita3x13-Mar-05 20:21

nobita3x

13-Mar-05 20:21

Thanks Robert. But PostGIS is used for PostgreSQL database, not for MS SQL Server 2000. I hope U can tell me another that is used for MS SQL Server 2000.
Thank U very much.
nobita3x

Robert Rohde14-Mar-05 18:51

Robert Rohde

14-Mar-05 18:51

I didnt get that you were fixed to Ms SqlServer Smile | :)

I havent yet heart about anything giving free spatial functionality to SqlServer (and I work in a company which creates GIS software). If you need something without costs you will probably have to move to something which is closer to the opensource community.

nobita3x13-Mar-05 19:31

nobita3x

13-Mar-05 19:31

Hi,
I have searched in Internet, but result is nothing.
I am using the VB.Net to develope this software.
Could you ask my question.
Thanks,
nobita3x

Whats wrong?

badcredit13-Mar-05 15:21

badcredit

13-Mar-05 15:21

This code is not displaying the contents of my text file.. Am I missing something?

Dim TestFile As StreamReader
Dim LineofText As String

TestFile = File.OpenText("C:\dvdpath.txt")
Do Until TestFile.Peek = -1
LineofText = TestFile.ReadLine()
Console.WriteLine(TestFile)
Loop
TestFile.Close()

I'm actually trying to read a file that is over 800k in size and am just trying to learn how to open and read simple text files first. I've already added the System.IO namespace and it compiles fine.. When I execute it an empty window shows and it should show at least 4 lines of text.

Thanx in advance for any assistance!

-mark-

Re: Whats wrong?

Computer_Guy13-Mar-05 16:16

13-Mar-05 16:16

Try this:

Dim TestFile As StreamReader
Dim LineofText As String

TestFile = File.OpenText("C:\x.txt")
Do Until TestFile.Peek = -1
LineofText = TestFile.ReadLine()
Console.WriteLine(LineofText)
Loop
TestFile.Close()

"The things that will destroy us are: politics without principle; pleasure without conscience; wealth without work; knowledge without character; business without morality; science without humanity; and worship without sacrifice."
-Mahatma Gandhi (1869-1948)

Re: Whats wrong?

badcredit13-Mar-05 16:28

badcredit

13-Mar-05 16:28

Thanx!! Was a basic mistake I guess Poke tongue | ;-P

-Mark-

Span Between Dates

Computer_Guy13-Mar-05 15:10

<edit>Re: Span Between Dates <edit />

13-Mar-05 15:10

I have a program that accepts an Arrival Date and a Departure Date. I need to calculate the number of "Years if any, Months if any, Weeks if any and Days if any" between the arrival and departure date. Datediff does not work for me. Any Idea's

Regards Sigh | :sigh:

"The things that will destroy us are: politics without principle; pleasure without conscience; wealth without work; knowledge without character; business without morality; science without humanity; and worship without sacrifice."
-Mahatma Gandhi (1869-1948)

Edbert P13-Mar-05 18:02

13-Mar-05 18:02

What do you mean that datediff doesn't work?

If you want something like "1 year, 2 months, 3 weeks and 5 days" then you have to implement the function yourself.
E.g.: you can use DateDiff to find out how many years is the difference between Arrival and Departure, display year, then use DateAdd to change one of the dates (e.g. add the years to ~~Arrival~~ Departure date) and use DateDiff to find out how many months the difference is now, display months, then use DateAdd to add months to Arrival date, display weeks difference, and so on...

Hope it helps Smile | :)

Computer_Guy13-Mar-05 18:10

13-Mar-05 18:10

can you elaborate?

"The things that will destroy us are: politics without principle; pleasure without conscience; wealth without work; knowledge without character; business without morality; science without humanity; and worship without sacrifice."
-Mahatma Gandhi (1869-1948)

Edbert P13-Mar-05 19:35

13-Mar-05 19:35

What I meant was, if you need to get the date difference between arrival and departure dates in terms of X years, Y months, Z weeks, and Q days then you need to write your own function.
Your function should first calculate the year difference between the arrival and departure date.
Then you need to either:
- add the years to departure date; or
- deduct the years from arrival date.
After this, you can calculate the remaining month difference between the arrival and departure date by using the modified date and so on.

Example
Departure date = 01/01/2005
Arrival date = ~~03/02/2006~~ 05/03/2006

Year difference = DateDiff('y', '01/01/2005', '05/03/2006') = 1

Modified departure date = DateAdd('y', 1, '01/01/2005') = 01/01/2006
Arrival date = 03/02/2006

Months difference = DateDiff('m', '01/01/2006', '05/03/2006') = 2
...
and so on till you get the difference in days.
Got it? Smile | :)

Edbert

Computer_Guy14-Mar-05 2:09

14-Mar-05 2:09

Edbert, How did you get the date of 05/03/2006 for a departure date...

Regards Sniff | :^)

Edbert P14-Mar-05 11:25

14-Mar-05 11:25

Whoops.. sorry Blush | :O

. The example arrival date was 03/02/2006 but I changed it to 05/03/2006 because I feel it's a better date example (has 1 year and 2 months difference to the departure date).

I've modified the post. You can check the modified one now.
I hope that explains it,

Edbert

Computer_Guy14-Mar-05 11:40

14-Mar-05 11:40

Thanks, Thought you might like a copy of the finised product...

Dim days As Date
Dim weeks As Date
Dim months As Date
Dim years As Date
Dim numofyears As Integer
Dim numofmonths As Integer
Dim numofdays As Integer
Dim numofweeks As Integer

Dim y As Long = DateDiff(DateInterval.Year, Convert.ToDateTime(dtArrival.Text), Convert.ToDateTime(dtDeparture.Text))

years = DateAdd(DateInterval.Year, y, Convert.ToDateTime(dtArrival.Text))

numofyears = DatePart(DateInterval.Year, years) - DatePart(DateInterval.Year, Convert.ToDateTime(dtArrival.Text))

lblYears.Text = numofyears.ToString

Dim m As Long = DateDiff(DateInterval.Month, Convert.ToDateTime(dtArrival.Text), Convert.ToDateTime(dtDeparture.Text))

months = DateAdd(DateInterval.Month, m, Convert.ToDateTime(dtArrival.Text))

numofmonths = DatePart(DateInterval.Month, months) - DatePart(DateInterval.Month, Convert.ToDateTime(dtArrival.Text))

lblMonths.Text = numofmonths.ToString

Dim d As Long = DateDiff(DateInterval.Day, Convert.ToDateTime(dtArrival.Text), Convert.ToDateTime(dtDeparture.Text))

days = DateAdd(DateInterval.Day, d, Convert.ToDateTime(dtArrival.Text))

numofdays = DatePart(DateInterval.Day, days) - DatePart(DateInterval.Day, Convert.ToDateTime(dtArrival.Text))

lblDays.Text = numofdays

Regards Big Grin | :-D

Edbert P14-Mar-05 12:11

14-Mar-05 12:11

Well....it's not exactly what I had in mind.
But if that works for you then it's fine (does it work? Somehow I feel the logic isn't quite right).

My code (untested):

Dim years As Integer
Dim months as Integer
Dim days as Integer
Dim arrivalDate As Date
Dim departureDate As Date

<code>'Use variables instead of doing Convert repeatedly</code>
arrivalDate = Convert.ToDateTime(dtArrival.Text)
departureDate = Convert.ToDateTime(dtDeparture.Text)

years = DateDiff(DateInterval.Year, arrivalDate, departureDate))
lblYears.Text = years.ToString

<code>'This adds years to departure so we can get only the difference in months</code>
departureDate = DateAdd(DateInterval.Year, years, departureDate)

months = DateDiff(DateInterval.Month, arrivalDate, departureDate)
lblMonths.Text = months.ToString

<code>'This adds months to departure so we can get only the difference in days</code>
departureDate = DateAdd(DateInterval.Month, months, departureDate)

days = DateDiff(DateInterval.Day, arrivalDate, departureDate)
lblDays.Text = days
...

Computer_Guy14-Mar-05 12:46