Visual Basic

Marcus J. Smith22-Feb-07 9:04

Marcus J. Smith

22-Feb-07 9:04

Ohhh, for some reason I was thinking XML. D'Oh! | :doh:

Cleako

jds120722-Feb-07 8:43

jds1207

22-Feb-07 8:43

Is this code correct because I keep gettting the error:

Incorrect date value: '02/07/2006' for column 'OrderDate' at row 1

Here is code:

Dim dtTable As New DataTable
Dim row As DataRow
Dim formatdate As New DateTime

For Each row In dtTable.Rows
If row("datereceived").ToString() = formatdate.ToString("MM/DD/YYYY") Then
formatdate.ToString("YYYY-MM-DD")
ElseIf row("backorderdate").ToString() = formatdate.ToString("MM/DD/YYYY") Then
formatdate.ToString("YYYY-MM-DD")
ElseIf row("datecanceled").ToString() = formatdate.ToString("MM/DD/YYYY") Then
formatdate.ToString("YYYY-MM-DD")
ElseIf row("orderdate").ToString() = formatdate.ToString("MM/DD/YYYY") Then
formatdate.ToString("YYYY-MM-DD")
End If
Next row

alexfromto22-Feb-07 8:53

22-Feb-07 8:53

Try this.

Dim dtTable As New DataTable<br />
Dim row As DataRow<br />
Dim formatdate As New DateTime<br />
<br />
<br />
For Each row In dtTable.Rows<br />
If row("datereceived").ToString() = formatdate.ToString("MM/DD/YYYY") Then<br />
formatdate.ToString("yyyy-MM-dd")<br />
ElseIf row("backorderdate").ToString() = formatdate.ToString("MM/DD/YYYY") Then<br />
formatdate.ToString("yyyy-MM-dd")<br />
ElseIf row("datecanceled").ToString() = formatdate.ToString("MM/DD/YYYY") Then<br />
formatdate.ToString("yyyy-MM-dd")<br />
ElseIf row("orderdate").ToString() = formatdate.ToString("MM/DD/YYYY") Then<br />
formatdate.ToString("yyyy-MM-dd")<br />
End If<br />
Next row

Dave Kreskowiak22-Feb-07 8:45

22-Feb-07 8:45

First, the Date/Time in any SQL database doesn't have a format. The format only applies when the data is displayed, not when it's stored.

If you database and code is setup properly, you don't have to worry about the format at all. Using a parameterized query, the parameter objects worry about the conversion for you. All you have to do is pass in a DateTime object into the parameters Value property.

You can read up on parameterized queries here[^].

Dave Kreskowiak
Microsoft MVP - Visual Basic

alexfromto22-Feb-07 8:58

22-Feb-07 8:58

Dave is right. Like I said had to do similar thing before and didn't have to convert anything.

Thanks,

jds120722-Feb-07 9:22

jds1207

22-Feb-07 9:22

I have tried using parameterized queries and when I run the program I get the error "Failed to convert parameter value from a String to a DateTime."

Code:

MyCommand.CommandText = "INSERT INTO ls_orderitems (OrderDate, OrderCustomer, OrderAcctNum, OrderType, OrderSoNum, OrderItemPartNum, OrderItemPartDesc, OrderItemQty, OrderItemQtyRec, OrderItemQtyDtRec, OrderItemBO, OrderItemBODt,OrderItemCanceled, OrderItemCanceledDt, OrderItemNotes, OrderItemPONum, OrderItemRetailPrice, OrderItemSalePrice, Status, InsertDate) VALUES (@OrderDate, @OrderCustomer, @OrderAcctNum, @OrderType, @OrderSoNum, @OrderItemPartNum, @OrderItemPartDesc, @OrderItemQty, @OrderItemQtyRec, @OrderItemQtyDtRec, @OrderItemBO, @OrderItemBODt, @OrderItemCanceled, @OrderItemCanceledDt, @OrderItemNotes, @OrderItemPONum, @OrderItemRetailPrice, @OrderItemSalePrice, @Status, @InsertDate)"

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderDate", OdbcType.Date)).Value = OrderDate

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderCustomer", OdbcType.VarChar)).Value = OrderCustomer

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderAcctNum", OdbcType.VarChar)).Value = OrderAcctNum

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderType", OdbcType.VarChar)).Value = OrderType

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderSoNum", OdbcType.Int)).Value = OrderSoNum

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemPartNum", OdbcType.VarChar)).Value = OrderItemPartNum

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemPartDesc", OdbcType.VarChar)).Value = OrderItemPartDesc

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemQty", OdbcType.Int)).Value = OrderItemQty

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemQtyRec", OdbcType.Int)).Value = OrderItemQtyRec

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemQtyDtRec", OdbcType.Date)).Value = OrderItemQtyDtRec

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemBO", OdbcType.Int)).Value = OrderItemBO

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemBODt", OdbcType.Date)).Value = OrderItemBODt

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemCanceled", OdbcType.Int)).Value = OrderItemCanceled

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemCanceledDt", OdbcType.Date)).Value = OrderItemCanceledDt

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemNotes", OdbcType.VarChar)).Value = OrderItemNotes

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemPONum", OdbcType.VarChar)).Value = OrderItemPONum

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemRetailPrice", OdbcType.VarChar)).Value = OrderItemRetailPrice

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@OrderItemSalePrice", OdbcType.VarChar)).Value = OrderItemSalePrice

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@Status", OdbcType.Int)).Value = Status

MyCommand.Parameters.Add(New Odbc.OdbcParameter("@InsertDate", OdbcType.VarChar)).Value = InsertDate

MyCommand.Connection = MyConnection
MyConnection.Open()
MyCommand.ExecuteNonQuery()
MyConnection.Close()

Am I doing something wrong?

Dave Kreskowiak22-Feb-07 9:27

22-Feb-07 9:27

jds1207 wrote:
Am I doing something wrong?

You missed the part where I said you had to provide a DateTime object to the Value property of the Parameter object. You have to convert that String to a DataTime object first. Try the DateTime.Parse()[^] method to get a DateTime object from a String. Don't forget to valid your data before you pass it to the database. You don't want dates from the early 5th century getting in there now do you?

Dave Kreskowiak
Microsoft MVP - Visual Basic

tonymathewt22-Feb-07 17:06

tonymathewt

22-Feb-07 17:06

Dave Kreskowiak wrote:
If you database and code is setup properly, you don't have to worry about the format at all.

Are you saying that, he had to format the string representing Date/Time since his database and code is not setup properly? Normally inserting a string into a Date/Time field in any format will work. What are the possibilities that result in a need for additional formatting work? Where has jds gone wrong here?

Dave Kreskowiak23-Feb-07 2:08

23-Feb-07 2:08

tonymathewt wrote:
Are you saying that, he had to format the string representing Date/Time

No. He doesn't have to use a string at all. Plus, concatenating this stuff together introduces large security holes into his code.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Exchange

alexfromto22-Feb-07 7:27

22-Feb-07 7:27

Hello everyone.

My company is switching from Lotus Notes to Exchange. Our Notes client have functionality, which allows user to select emails (as many as they want) and place them in a different custom built folders for legal purposes. We would like to duplicate this functionality in Exchange. Since this is a new product I have no idea if it's capble of doing so. I though someone might have some experince with this. Here's what I'm looking for.

1. User selects one or more e-mails.
2. User presses button to bring up a pop up list of xfolders (I guess this is have to be built in VB.NET if possible) that they have access to (preferably based on group membership)
3. User selects which folders they want the mails to be copied to (these will be public folders)
4. A copy of the mail is put in each folder.

Any ideas (links to articles, code, etc.) would be greatly appreciated. Thank you,

Alex.

Dave Kreskowiak22-Feb-07 8:41

22-Feb-07 8:41

You can already do this in Exchange/Outlook and do it without using any code. Each user would have two email accounts open, their own and the account that is public and has all the folders in it. Then they just drag and drop the messages they want to the appropriate folders.

Get into the Exchange Administrators Guide for more information.

Dave Kreskowiak
Microsoft MVP - Visual Basic

alexfromto22-Feb-07 9:03

22-Feb-07 9:03

We would like to automate this somehow by providing user with list of folders to copy to at once rather than copy to one folder than copy the same email to another folder (you see what I mean).

Some sort of pop up form with list of folders comes to my mind (if possible).
Where user can first select all email he/she would like to copy then select all folders these email have to go to. Any thoughts?

Thanks Dave.

Dave Kreskowiak22-Feb-07 9:22

22-Feb-07 9:22

NOw that you explain it that way, you would need code to do that. It's entirely possible to do, but you'd have to write an Office Add-In project to do it. I haven't done any Office work like this so this is about as far as I can go.

But, I'd start with hasing out the interface. From what you've described, the user selects a bunch of documents and does what with them?

The possibilities are for your code to retrieve a list of folders based on userID and add them to the folder list on the left so the messages can be dragged and dropped on them.

Another possibility is to have the user select of bunch of messages, then right-click one of them to bring up a context menu with your folder options on it.

Or the user would select the messages and click on a button in the Toolbar to get a list of available folders to copy the messages to.

Or any combination of the above...

Dave Kreskowiak
Microsoft MVP - Visual Basic

alexfromto22-Feb-07 9:30

22-Feb-07 9:30

Sorry Dave. I didn't explain it in more detail from the beginnind. You know how it is with writing. To me made sense. Smile | :)

. Yes. I think last option you've mentioned is the one we want to go with.
(Or the user would select the messages and click on a button in the Toolbar to get a list of available folders to copy the messages to).

We only need to copy (not move) these messages into selected folders (selected by user).

You've mentioned that it would be Office Add-In. Is it possible to write something like this in VB.NET using VS. Currently we have VS v. 2003? And if it is, how do I integrate it into Exchange?

Any reference will do as well.

Thank you, Alex.

Dave Kreskowiak22-Feb-07 9:59

22-Feb-07 9:59

alexfromto wrote:
You've mentioned that it would be Office Add-In. Is it possible to write something like this in VB.NET using VS. Currently we have VS v. 2003? And if it is, how do I integrate it into Exchange?

This would be a client-side Outlook Add-In, not an Exchange app. Start here[^].

Dave Kreskowiak
Microsoft MVP - Visual Basic

alexfromto22-Feb-07 10:40

22-Feb-07 10:40

Thanks Dave. Client-side Add-In. Does this mean I have to install my add-in on each machine?
Or is it possible somehow avoid that? In Lotus Notes all users have their own database but the design template is one for everybody. So when we created this little application we only had to update main database to inlcude button (which brings folders list).

Thanks,

Dave Kreskowiak22-Feb-07 11:57

22-Feb-07 11:57

alexfromto wrote:
Does this mean I have to install my add-in on each machine?

Yep.

alexfromto wrote:
Or is it possible somehow avoid that?

Nope.

alexfromto wrote:
In Lotus Notes all users have their own database but the design template is one for everybody. So when we created this little application we only had to update main database to inlcude button (which brings folders list).

As you've probably already noticed, you're not asking about Notes...

Dave Kreskowiak
Microsoft MVP - Visual Basic

Displaying forms

jady8422-Feb-07 7:17

jady84

22-Feb-07 7:17

Hi All,

I have an unusal problem with my forms.

I press a button2 to display a form2 (which displays as topmost)
Then ill press button3 to close form2 and display form3 (form3 also display as top most) and this works fine.

However...if say i have form2 open and i press button4 to display form4, then close form4, and then press button3 (which closes form2 and siplays form3) what happens here instead is that form3 displays BUT form2 does not close.

this is the sort of code im using

f.Close()
f = New Form2
f.Show()

Was hoping somebody maybe able to help me with this problem.

Thanks in advance.

Jaidev

Re: Displaying forms

Dave Kreskowiak22-Feb-07 8:38

22-Feb-07 8:38

Without seeing the code for all the button click event handlers, it's impossible to tell you what's wrong from the little snippet you've provided.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: Displaying forms

TwoFaced22-Feb-07 9:10

TwoFaced

22-Feb-07 9:10

My guess is that based on the little code you posted you are using 'f' to represent the open form. So you press button2 and 'f' gets set to form2 which is then shown. When you press button3, you call f.close which closes form2 then you set 'f' to equal form3. However, the problem is that when you open form4 which you probably set 'f' equal to, you don't close form2. Now 'f' references form4 not form2. So when you click button3 and call f.close it try's to close form4 which is actually already closed.

OleDB error

7prince22-Feb-07 7:10

7prince

22-Feb-07 7:10

Hello,

I am getting following error when hit the update button.

No error message available, result code: DB_E_ERRORSOCCURRED(0x80040E21).

Any idea Why? thanks.

here is my code:

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click
Dim data As New DataSet
Dim dbConn As OleDb.OleDbConnection
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim connectionString As String = "Provider=sqloledb;Data Source=A45292\SQLEXPRESS;Initial Catalog=FSS;Integrated Security=True"

Dim sqlString As String = "SELECT * FROM [Caller Records] Where RecordNo =" & TextBox2.Text

dbConn = New OleDb.OleDbConnection(connectionString)
dataAdapter= New OleDb.OleDbDataAdapter(sqlString, dbConn)
dataAdapter.Fill(data, "Caller Records")

Dim tbl As DataTable
tbl = data.Tables("Caller Records")

Dim selectedRows() As DataRow
selectedRows = tbl.Select("RecordNo = " & TextBox2.Text)

If selectedRows.Length > 0 Then
selectedRows(0).Item("FirstName") = FirstNameTextBox.Text
selectedRows(0).Item("LastName") = LastNameTextBox.Text
End If
dataAdapter.Update(data, "Caller Records")
dbConn.Close()

programmer

Re: OleDB error

Dave Kreskowiak22-Feb-07 8:36