Re: first tuesday of the month - Visual Basic Discussion Boards

milktoast18219-May-05 10:24

19-May-05 10:24

Hello,
I am fairly new to vb.net programming and I am trying to figure out how to calculate the number of days between 2 dates. I have some Idea i.e. convert each date to a julian date and then subtract the 2 and wala! Are there date functions in .net that will convert a date to julian dates automatically?

Thanks in advance

Re: calculate number of days between dates

rwestgraham19-May-05 10:36

rwestgraham

19-May-05 10:36

You don't need to do any conversion. Look up the DateDiff function.

Robert

Re: calculate number of days between dates

milktoast18220-May-05 9:09

milktoast182

20-May-05 9:09

It worked like a champ!

Thanks,
Tom.

bad help

Anonymous19-May-05 10:03

Anonymous

19-May-05 10:03

if u are on here, and a visual basic 6.0 pro then can u email me quickly on leeansell@btinternet.com

Cheers Big Grin | :-D

Lee Ansell

Re: bad help

Christian Graus19-May-05 16:30

Christian Graus

19-May-05 16:30

Anonymous wrote:
if u are on here

If I'm reading this, where else would I be ?

Anonymous wrote:
and a visual basic 6.0 pro then can u email me quickly on leeansell@btinternet.com

Lee, you have two options. Personally, I consider VB6 beneath me, but if you want help on this sort of level, expect to pay for it, perhaps rentacoder is a good place to start. On the other hand, if you're willing to come back here and check for answers, and to ask specific questions as an active participant in this forum, I'm sure there are plenty of people willing to help you. Saying 'if you know VB6, email me' is just plain rude. Why would anyone do that, if you're not even willing to state your question, or to check here for responses ?

Christian Graus - Microsoft MVP - C++

first tuesday of the month

fuel2run19-May-05 8:37

fuel2run

19-May-05 8:37

hi to you all,

as in subject, i'm trying to find dates as "first tuesday of the month" or "last monday every two months" how can i do it in vb.net
i found something in vb6 but can't find equivalents in vb.net

thanks in advance!
Fule2Run

Re: first tuesday of the month

Christian Graus19-May-05 16:32

Christian Graus

19-May-05 16:32

The datetime class has a 'DayOfWeek' property, which makes what you want to do a snap. Set your date to the first of the month, check the day, and then step forward to the right date from there. Last Monday is same, just work backwards.

Christian Graus - Microsoft MVP - C++

Re: first tuesday of the month

fuel2run19-May-05 20:01

fuel2run

19-May-05 20:01

i'll try,

thank you!
Fuel2Run

Windows 2000 Server and Vb.net

ga051019-May-05 7:32

ga0510

19-May-05 7:32

Hey

I was wondering if anybody knows or can point me in a direction of where i need to go. I'm trying to write a vb .net app to replace our current server Manager program. This lists all available servers on our Domain. The problem that i'm running into is Showing currently used Shared files, username and if it's locked or not. I used WMI to list all available shares on the server. If anybody could point me in the direction needed, or has an example, it'd be very greatly appreciated.

Thanks
Gerry

Need help !!

Member 193588019-May-05 7:25

Member 1935880

19-May-05 7:25

I'm having problem on the following code:
Public Class ExpenseEntity
Public Function saveNewExpense(ByVal tempName As String, _
ByVal tempType As String, _
ByVal tempAmt As Integer, ByVal tempCatID As Integer)

Dim cnNewEx As SqlCeConnection = New SqlCeConnection( _
"Data Source=\My Documents\PFMS.sdf; password=9EbK63Lj")
Dim SQLNewEx As String
Dim cmdSQLEx As SqlCeCommand
Dim getEName As SqlCeDataReader
Dim tempID As Integer

SQLNewEx = "INSERT INTO ExpenseDetail(expenseID, catID, eType, eAmount) " & _
"VALUES (" + tempID + ", " + tempCatID + ", '" + tempType + "', " + tempAmt + ")"
cmdSQLEx = New SqlCeCommand(SQLNewEx, cnNewEx)
cmdSQLEx.CommandType = CommandType.Text
cmdSQLEx.ExecuteNonQuery()
cmdSQLEx.Dispose()
cnNewEx.Close()

I receive the error as: "An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
Additional information: InvalidCastException"

Please help... thanks in advance

Re: Need help !!

Christian Graus19-May-05 16:33

Christian Graus

19-May-05 16:33

Lot of code here. which line has the exception, or didn't you bother to step through in the debugger ?

I'd imagine that when you set SQLNewEx, that one of the objects you're passing in does not convert to string by itself.

Christian Graus - Microsoft MVP - C++

Re: Need help !!

Member 193588019-May-05 17:59

Member 1935880

19-May-05 17:59

Thanks for your reply....
Some how I get to manage solve the error through out the night. The exception is occur at the last SQL statement.

Re: Need help !!

Christian Graus19-May-05 18:06

Christian Graus

19-May-05 18:06

yes, that's where I said. That means sometimes the variables you're passing through are either null, or some type that can't be converted to string. You need to write some code to protect against bad values, and insert an appropriate value into your SQL.

Doing it as a stored procedure would be even better. It seems mostly in VB land that people ignore this basic design step.

Christian Graus - Microsoft MVP - C++

Re: Need help !!

rudy.net19-May-05 17:27

rudy.net

19-May-05 17:27

Add .ToString() to your integer types. For example, instead of tempID use tempID.ToString().

Re: Need help !!

Member 193588019-May-05 18:01

Member 1935880

19-May-05 18:01

Thanks for your reply....
Some how I get to manage solve the error through out the night. The problem solve when replace '+' with '&' in SQL statement.

Re: Need help !!

Christian Graus19-May-05 18:03

Christian Graus

19-May-05 18:03

That works by itself, actually

Christian Graus - Microsoft MVP - C++

Re: Need help !!

albCode25-May-05 21:06

albCode

25-May-05 21:06

You should say in the end to datagrid to bind itself.

DataGrid1.DataBind()

databound combo won't commit changes

jrohrer19-May-05 6:09

jrohrer

19-May-05 6:09

howdy,

I'm having trouble adding a new row to my primary table.
I have a bunch of comboboxes bound to lookup tables and a tertiary binding for each binding selectedValue to the main datarow.
When I try to change the values, and save, the last comboBox fails to change the lookup ID in the primary table, and remains -1, the initialization value.

any ideas?
[snip]

Me.UcInspect1.ucicmbCLLI.DataSource = Me.dvClli<br />
        Me.UcInspect1.ucicmbCLLI.DisplayMember = "CLLIName"<br />
        Me.UcInspect1.ucicmbCLLI.ValueMember = "CLLIId"<br />
        Me.UcInspect1.ucicmbCLLI.DataBindings.Add(New Binding("SelectedValue", Me.dvInsp, "ClliID"))

[snip]

Private Sub newInsp(ByVal sender As Object, ByVal e As System.EventArgs)<br />
        Me.dvPlant.RowFilter = "InspNumber = '-1'"<br />
        Dim dr As clDatalayer.dsInspData.InvRow<br />
        dr = Me.dsData.Investigation.NewRow<br />
        With dr<br />
            .InspNumber = 0<br />
            .CoID = 3<br />
            .InvTypeID = 1<br />
            .ReasonsID = 1<br />
            .InvID = 123<br />
            .ExchID = -1<br />
            .ClliID = -1<br />
            .StatusID = 1<br />
        End With<br />
        Me.dsData.Investigation.Rows.Add(dr)<br />
        Me.BindingContext(Me.dvInsp).EndCurrentEdit()<br />
        Me.BindingContext(dvInsp).Position = Me.BindingContext(dvInsp).Count - 1<br />
<br />
    End Sub<br />

[snip]

Set the Values in the UI...
At this point all values have changed excapt CLLIID which is still '-1', even though I've selected a CLLI, and the combobox.selectedvalue <> -1. very strange.

[snip]

Private Sub SaveInsp(ByVal sender As Object, ByVal e As System.EventArgs)<br />
        Me.BindingContext(Me.dvInsp).EndCurrentEdit()<br />
        Dim i As Integer = Me.BindingContext(Me.dvInsp).Position<br />
        Me.BindingContext(Me.dvInsp).Position = 0<br />
        Me.BindingContext(Me.dvInsp).Position = (i)<br />
        Try<br />
          Me.procData.setData = Me.dsData  'runs datalayer update<br />
            Me.BindingContext(Me.dvInsp).Position = i<br />
            MsgBox("Changes Saved")<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try<br />
    End Sub<br />

let me know if you have any ideas...It just seems like that last combo isn't committing it's changes.

TIA
Jeremy

Thank you, Thank you, I'll be here all week...

Creating .doc files by VB

zlatkostapic19-May-05 5:54

zlatkostapic

19-May-05 5:54

Hi,

I have a litle problem and I wonder if someone could help me to start while creating MS Word output from VB.

I have to create output (.doc file) which will contain text, pictures, tables, etc.

Examples, references on web pages, .pdf files, web tutorials, e-books, will do.

Deeply Thnx!

Zlatko Stapić

Re: Creating .doc files by VB

rwestgraham19-May-05 10:29

rwestgraham

19-May-05 10:29

Microsoft Word uses it's own document architecture. VB provides no support for creating output in the correct Word format.

You need to add a reference to the Word object library to your VB project, then use the Word COM interface to manipulate documents programmatically. The MSDN contains tons of reference materials on using the Word object library functions.

Robert

Re: Creating .doc files by VB

Anonymous23-May-05 4:32

Anonymous

23-May-05 4:32

Thanks for your reply...

I found lots of materials in MSDN, and solve almost all my problems. One thing is waiting, and that is how to save a created document, but without any
"save as" dialog boxes. But, I thing I'll manage that too.

Thanks Again...

Re: Creating .doc files by VB

zlatkostapic23-May-05 4:38

zlatkostapic

23-May-05 4:38

Thanks for your reply...

I have done some digging in MSDN, and as you said, I found almost everithing I need. Actualy I solved all my problems, except one, and that is how to save a created word document without any "save as" dialogs. But I think I'll manage that too...

Thanks again....

Out row and col on statusbar

hoangsamac19-May-05 3:17

hoangsamac

19-May-05 3:17

such as microsoftword

Undo in richtextbox

hoangsamac19-May-05 3:00

hoangsamac

19-May-05 3:00

I want undo a text in richtextbox suchas in notepad.exe
How create new form effect richtextbox of previous form (such as form find&replace in notepad.exe)

Upgrading from Vb6 to Vb.Net

Het210919-May-05 2:37

Het2109

19-May-05 2:37

Hi,

I am upgrading an application from Vb6 to Vb.net. I am facing a problem in converting Propertybag object. Like it is storing some value with .WriteProperty and then for retrieving .ReadProperty.
Can any one tell me Vb.Net equivalent for that?

thanks

Het Waghela
Smile | :)

Be Humble in Victory and Strong in Defeat. Smile | :)

Het Waghela, Blog|Het Waghela DotNet Questions Link|More Links

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.