SQL Update command with VB.NET - Visual Basic Discussion Boards

I have a very simple xml file
<RegistrationSettings>
<SMTPServer>mail.not-real.com.au</SMTPServer>
<FromAddress>from@not-real.com.au</FromAddress>

<HostName>Jason</HostName>
<HostAddress>jason@not-real.com.au</HostAddress>
</RegistrationSettings>

and I want to read a single value out of that, for example: <HostName>
I don't know how to do this

This is the code I have at the moment (inItemName = "HostName")

Try
xmlobjReader = New XmlTextReader(_XMLPath)
xmlobjReader.WhitespaceHandling = WhitespaceHandling.None

While xmlobjReader.Read
If xmlobjReader.Name.ToLower = inItemName.ToLower Then
itemValue = xmlobjReader.Value
End If
End While

Catch ex As Exception
itemValue = ""
Finally
If Not xmlobjReader Is Nothing Then
xmlobjReader.Close()
End If
End Try

At the end of this code itemValue == ""
I know this should be easy, but I can't see what I am doing wrong.

Thanks for any help

/jason

Jason,

The parsing of the XML was not quite correct. Try this amended code.

Try
    xmlobjReader = New XmlTextReader(_XMLPath)
    xmlobjReader.WhitespaceHandling = WhitespaceHandling.None
    xmlobjReader.MoveToContent()

    Dim isHostName As Boolean

    Do While xmlobjReader.Read

        Select Case xmlobjReader.NodeType

            Case XmlNodeType.Element
                isHostName = (rdrXML.Name.ToUpper = "HOSTNAME")

            Case (XmlNodeType.Text And isHostName)
                itemValue = xmlobjReader.Value

        End Select

    Loop

Catch ex As Exception
    itemValue = ""

Finally
    If Not xmlobjReader Is Nothing Then
        xmlobjReader.Close()
    End If

End Try

Step through the code in the debugger and inspect the various variables to see what's happening.

...Steve

"Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once Smile | :)

Thanks for your help Steve, but in the end I decided not to go that way. I decided it was too slow to loop throw each element in the XML and check it's type etc

instead I have used a dataset

Public Sub New(ByVal inXMLFilePath As String)
   _XMLPath = inXMLFilePath

   _dsRegistrationValues = New DataSet(_DATASET_TABLE_NAME)
   _dsRegistrationValues.ReadXml(_XMLPath)
End Sub
<br><br>
Public Function ReadItem(ByVal inItemName As String) As String
   Dim returnSettingValue As String

   returnSettingValue = _dsRegistrationValues.Tables(0).Rows(0).Item(inItemName)

   Return returnSettingValue
End Function

I got the idea from this article, if you are interested
http://www.codeproject.com/vb/net/ConfigOpt.asp[^]

/jason

That's a neat solution Jason. Thanks for the link. I'll check it out.

...Steve

"Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once Smile | :)

How can you import 2003 VB.net codes or application into VB.net 2005?

Dmaster

Visual Studio 2005 includes a VS 2003 conversion tool. It will automatically update the VS 2003 project to VS 2005 when you open it.

...Steve

"Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once Smile | :)

Thanks!

Hello everybody. I have a weird error message coming up every time i try to use the Update command with a access database. The message says that there is a syntax error with the SQL command. I search the Internet and the syntax of my command seems to be right.
Here is the code:

============================================================================
Public Sub updateRecord(ByVal entryToChange As String, ByVal oldString As String, ByVal newString As String)
Dim SQLString As String
Dim strConnection As String = OleDbConnection1.ConnectionString
Dim objTransaction As OleDbTransaction
Dim connect As New OleDbConnection(strConnection)
SQLString = "UPDATE tblIns SET " & entryToChange & " = '" & newString & "' WHERE Ins = '" & oldString & "'"

Dim cmd As New OleDbCommand(SQLString, connect)
connect.Open()
Try
cmd.ExecuteNonQuery()

Catch ex As Exception
MsgBox(ex.ToString)
End Try
connect.Close()
connect.Dispose()
Me.Close()

End Sub

============================================================================

I have a value that changes (newString) and a value that i know it's the same (oldString). entryToChange is the entry that i'm trying to change (eg Date, or FirstName etc) So basicly i'm trying to change a value of a record where the oldString stays the same. But i get the error "Syntax error with UPDATE command". What is going on?

And is there a way to update a record when the entry that is changing is not the same all the time? Meaning in one record the first name may change and all other entries (eg last name, address etc) stays the same, in the other the last name may change and the rest of the entries will stay the same. In VB6 i used to use something like:

==============================================================
DatIns.Recordset.Edit
DatIns.Recordset.Fields("Date").Value = lbldate.Caption
==============================================================

but in vb.NET i can't find something like this. Thank you for your help, and Merry Christmas to all.

Still trying to find the way

-- modified at 18:27 Tuesday 20th December, 2005

What is the value of SQLString when cmd.ExecuteNonQuery() executes?

-- modified at 8:41 Wednesday 21st December, 2005

The SQLString ends up looking like this:

SQLString = "UPDATE tblIns SET Date= '21/12/05' WHERE Job_Number = '0909090'

which looks like it's correct. But i still get an error message of "Syntax error". What am i doing wrong?

Still trying to find the way

Have you tried this? Assuming tblIns.date is a date field.

"UPDATE tblIns SET Date= cdate('21/12/05') WHERE Job_Number = '0909090'

I have the following code in a C++ shell extension from a user selecting files right click. I have the list of files and can iterate them through a progress dialog, but how do I send them to and receive them in a list box VB forms application? THanks.

HRESULT CDllRegShlExt::InvokeCommand ( LPCMINVOKECOMMANDINFO pCmdInfo )
{
// If lpVerb really points to a string, ignore this function call and bail out.
if ( 0 != HIWORD( pInfo->lpVerb ))
return E_INVALIDARG;
// Check that lpVerb is one of our commands (0 or 1)
switch ( LOWORD( pInfo->lpVerb ))
{
case 0:
case 1:
{
CProgressDlg dlg ( &m_lsFiles, pInfo );

dlg.DoModal();
return S_OK;
}
break;
default:
return E_INVALIDARG;
break;
}
}

Is this accomplished through the clipboard?

doesnt make sense. How does the application know that there is data on the clipboard to start the retrieval? Can the shell send the file list directly to the running app? How would the app be notified?

hi friends, can tell me how to Retrieve email attchment from POP3 server using vb.net.
Thank you
ravincarlos@yahoo.com

Share ur code & happiness on the net.

Hi everyone,
Was wondering if anyone has any insight into how to set the selected index of a comobox to -1 without firing the event twice. I am using a method/procedure/function that gets called when the combobox needs to set its selected index = -1. I have tried
Public Sub emptyIndex(ByVal e As System.EventArgs)
Me.SelectedIndex = -1
Call Me.OnSelectedIndexChanged(e)
End Sub

AND

Public Sub emptyIndex(ByVal e As System.EventArgs)
Me.SelectedIndex = -1
Me.SelectedIndex = -1
End Sub

AND

Public Sub emptyIndex(ByVal e As System.EventArgs)
Me.SelectedIndex = 0
Me.SelectedIndex = -1
End Sub

The first bit of code seems to fire the selected index changed twice. The second event doesn't fire at all, and the last event seems to fire the selectedindexchanged event 2 times. Hope to hear from anyone out there soon. Thank you and merry xmas

eatwork

-- modified at 13:20 Friday 23rd December, 2005
Not too sure if that makes sense. I will try this again...

I have a custom combobox. I am trying to code the custom control to autocomplete as the user types characters into the combobox. If the user presses backspace/delete or enters typed a value that does not exist in the list, I want the combobox to set its selected index to -1 and raise the selected index changed event when this happens. I have found the autocomplete combobox on this website that handles the keydown, keypressed, keyup events, and then I call a function called autocomplete. This function checks to see if the text is "", or if the typed value is similar to a value within the combobox. if the text is "" or there is no matching value I call the functin empty index. This function, after doing some research on .net comboboxes, sets the selected index to -1 twice, because if you set it only once it resets the combobox index to 0 if the current index is not 0. If the selected index = -1 already, the event that the selected index has changed will not be raised, becase nothing has changed. I need to know when the user typed values change the selected index to -1 because it will raise an envent when used on my winFrm.

Code:
Public sub AutocompleteFunction()
If typedText = "" Then
iFoundIndex = -1
Else
iFoundIndex = Me.FindString(typedText)
End If

If iFoundIndex >= 0 Then
oFoundItem = Me.Items(iFoundIndex) 'stores found item in an object
sFoundText = Me.GetItemText(oFoundItem)

concatenatedText = sFoundText.Substring(typedText.Length)
Me.Text = typedText & concatenatedText

Me.SelectionStart = typedText.Length
Me.SelectionLength = concatenatedText.Length

If e.KeyCode = Keys.Enter Then
iFoundIndex = Me.FindStringExact(Me.Text)
Me.SelectedIndex = iFoundIndex
SendKeys.Send(vbTab)
e.Handled = True
End If
Else
Call Me.emptyIndex(e)
If IsNothing(typedText) Or typedText = "" Then
If Me.Text <> "" Then
Me.Text = ""
End If
Me.SelectionStart = 0
Else
Me.Text = typedText
Me.SelectionStart = typedText.Length
End If
End If
End sub

Public Sub emptyIndex(ByVal e As System.EventArgs)
Me.SelectedIndex = 0
Me.SelectedIndex = -1
'Call Me.OnSelectedIndexChanged(e)
End Sub

Setting the value to 0 first, will ensure that the SelectedIndexChanged event is fired. but it raises that event twice, and I only want it to raise the event once. Setting the index to -1, -1 doesn't raise the event at all. Desperately in need of advice. Thanks

-- modified at 15:25 Friday 23rd December, 2005

are u looking for this???

me.comboBox2.Items.IndexOf(-1);

If me.comboBox2.SelectedIndex = -1
MessageBox.Show("comboBox2 item is -1")
else
MessageBox.Show("None")
endif

Hi Albanian,
Thanks for the response. I tried your code, but realized that the me.comboBox2.Items.IndexOf(-1) returns the value of the combobox. I am searching for code that will change the selected index of the combobox to -1 and raising the selectedIndexChanged event if the index is not currently -1. Not too sure if that makes sense. I will try this again...

I have a custom combobox. I am trying to code the custom control to autocomplete as the user types characters into the combobox. If the user presses backspace/delete or enters typed a value that does not exist in the list, I want the combobox to set its selected index to -1 and raise the selected index changed event when this happens. I have found the autocomplete combobox on this website that handles the keydown, keypressed, keyup events, and then I call a function called autocomplete. This function checks to see if the text is "", or if the typed value is similar to a value within the combobox. if the text is "" or there is no matching value I call the functin empty index. This function, after doing some research on .net comboboxes, sets the selected index to -1 twice, because if you set it only once it resets the combobox index to 0 if the current index is not 0. If the selected index = -1 already, the event that the selected index has changed will not be raised, becase nothing has changed. I need to know when the user typed values change the selected index to -1 because it will raise an envent when used on my winFrm.

Code:
Public Sub emptyIndex(ByVal e As System.EventArgs)
Me.SelectedIndex = 0
Me.SelectedIndex = -1
'Call Me.OnSelectedIndexChanged(e)
End Sub

Setting the value to 0 first, will ensure that the SelectedIndexChanged event is fired. but it raises that event twice, and I only want it to raise the event once. Setting the index to -1, -1 doesn't raise the event at all. Desperately in need of advice. Thanks

eatwork

Based on the e arguement, I am assuming that your Sub emptyIndex is called from an event handler. Is this correct? How is this sub being called.

It looks like it is being called when something happens with the combobox. If so, then:

example 1: If SelectedIndex is something other than -1, then setting it to one will trigger OnSelectedIndexChanged. Then you call it explicitly.

example 2: If SelectedIndex is already -1, then setting it to -1 twice, or even once, will not change it, and it will not trigger OnSelectedIndexChanged.

example 3: If SelectedIndex is anything other than 0, then when you change it to 0, it triggers OnSelectedIndexChanged, and then again when you change it to -1.

Perhaps you want something like this:

Public Sub emptyIndex(ByVal e As System.EventArgs)<br />
if Me.SelectedIndex.Equals(-1) then<br />
  Call Me.OnSelectedIndexChanged(e)<br />
else<br />
  Me.SelectedIndex = -1<br />
end if<br />
End Sub

Good luck

Roy.

Hi Roy thanks for your response,
Yes the sub empty index is called when the keyup event is raised. Your examples are 100% on the mark. However, your suggested code does not seem to work in my combobox, or it is not performing as intended. Am I missing something? Thank you for your help. Really appreciate it.

eatwork

I have VbNet2005 desktop application that also needs to deploy a dll created in C++. How do I add the dll to the VB deployment project so that it gets installed at the same time? Thanks.

If the DLL is a standard "C" style DLL that does not require registration (as opposed to a COM DLL) simply add it to your setup development project as a file and set the install folder to the application directory, or the WinSys folder.

If the DLL is a COM DLL then it presumably is already referenced by your NET project and the wizard should add it to the setup automatically. In this case you also need the Primary Interop Assembly (PIA) for the C++ DLL. Again, the setup wizard usually, but not always, adds everything else you need to register a COM DLL referenced by a NET project.

In either case, you must also pay attention to any additional dependency DLLs your C++ DLL may require. You can use the Dependency Walker utility to determine dependency DLLs. If these are all standard system DLLs you should not have to add any dependencies on Win2K or higher systems.

Finally, be certain to test your setup on a "clean" machine - i.e. one with a fresh OS install, but no development tools. Setups generally always "work" when tested on a dev machine, but may easily fail on a "field" target machine.

Thank you thank you. I followed your detailed instructions and I have installed it on a clean test machine successfully. Thank you for your valuable time and your level of detail.

DD

I am trying to create a internet browser that will go to a specific site on the net. I can get this to work but when I use the exe on another pc I get errors. (Mozctl.dll missing) I want to use Mozilla and not Internet Explorer. Also the width and height is set to those numbers for a specific reason. I have used this in the past to assist in spyware and virus removal.

Here is my code:

Private Sub Form_Load()
Form1.Width = 11750
Form1.Height = 8475
MozillaBrowser1.Width = 11750
MozillaBrowser1.Height = 8475
MozillaBrowser1.Left = 0
MozillaBrowser1.Top = 0
MozillaBrowser1.Navigate "http://www.helpmeremoveavirus.com"
End Sub

Private Sub Form_Resize()

MozillaBrowser1.Width = Form1.Width
MozillaBrowser1.Height = Form1.Height

End Sub

From the error message you've given, Mozilla is not installed on that machine, or the correct version is not installed.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome