Visual Basic

Dim subnode = node.SelectSingleNode("Name")
               Dim subnode2 = node.SelectSingleNode("SizeData")
               Dim SizeData As String = subnode2.Attributes.GetNamedItem("Size").Value

Try

    Dim odoc As New System.Xml.XmlDocument
    odoc.Load("C:\test\10g_2.xml")
    Dim oXmlLog As System.Xml.XmlElement
    Dim text As String = ""
    For Each oXmlLog In odoc.SelectNodes("Root")
        Dim node As System.Xml.XmlElement
        For Each node In oXmlLog.SelectNodes("Folder")
            Dim fullpath As String = node.Attributes.GetNamedItem("fullpath").Value

            'Dim SizeData As String = node.Attributes.GetNamedItem("SizeData").Value

            Dim subnode = node.SelectSingleNode("Name")
            Dim name As String = subnode.InnerText

            Dim subnode2 = node.SelectSingleNode("SizeData")
            Dim SizeData As String = subnode2.Attributes.GetNamedItem("Size").Value


            Dim Date_ As XmlElement = odoc.DocumentElement
            Dim Date_time As XmlNodeList = Date_.ChildNodes
            Dim Date__time = (Date_time(0).InnerText)



            text &= Date__time & " " & fullpath & " " & name & " " & SizeData & Environment.NewLine
        Next
    Next

    Console.Write(text)
    Console.Read()
Catch ex As Exception
    Console.Write(ex.ToString())
    Console.Read()
End Try

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'load xml into a dataset to use here
        Dim dS As New DataSet
        Dim fS As FileStream
        'open the xml file so we can use it to fill the dataset
        fS = New FileStream("C:\test\10g_2.xml", FileMode.Open)
        'fill the dataset
        Try
            dS.ReadXml(fS)
        Catch ex As Exception
            MsgBox(ex)
        Finally
            fS.Close()
        End Try
        Me.DataGridView1.DataSource = dS.Tables(2)

    End Sub
End Class

Sum(ISNULL(Order.item_qty,0))

select sum(ISNULL(inventory_id,0)) from inventory

rabih.tawil wrote:

it seems that vb.net does not like ISNULL too...

Christian Graus wrote:

I don't think you understand your own code at all

Christian Graus wrote:

VB is just passing 'ISNULL' to Access

Christian Graus wrote:

it has no opinion on it at all.

Christian Graus wrote:

ou need to read up on Access SQL

Christian Graus wrote:

but Access is not that great, I would not be surprised to find it was missing some stuff.

rabih.tawil wrote:

Look my friend, this is a 3 month project, i think i understand exactly what i'm doing, just because it has not come accross you before does not mean i don't know what i'm doing...

rabih.tawil wrote:

OH REALLY? wow great discovery!! now explain to me, why VB wont pass NZ function directly to access???

rabih.tawil wrote:

I am sorry to tell you my friend, NO you are wrong, the sql query u send will execute depends on the access driver.

rabih.tawil wrote:

Humm, that is your opinion, remember MS access is not a small application made over night for a quick criticism even if one is an mvp.

rabih.tawil wrote:

however, the customer wanted MS access so i give him access

IsNull(null)                returns TRUE
IsNull("WebCheatSheet")     returns FALSE
IsNull(2006)                returns FALSE

Andy_L_J wrote:

IsNull("WebCheatSheet") returns FALSE
IsNull(2006) returns FALSE

Christian Graus wrote:

You should RTFM instead of just guessing.

my query1 = "SELECT Inventory.Inventory_Id, Inventory.Inventory_description, " & _
    "Inventory.Inventory_stock_count, nz((SELECT Sum(Order.item_qty) AS SumOfitem_qty " & _
    "FROM [Order] " & _
    "WHERE Order.From_date<=Date() AND (Order.To_date)>=Date() AND Order.Item_ID=""I"" & " & _
    "Inventory.Inventory_Id),0) AS CurrentlyOut, " & _
    "[Inventory_stock_count]-Nz((SELECT Sum(Order.item_qty) AS SumOfitem_qtyFROM [Order] " & _
    "WHERE Order.From_date<=Date() AND (Order.To_date)>=Date() AND Order.Item_ID=""I"" & " & _
    "Inventory.Inventory_Id),0) AS NetHereFROM Inventory"