Code

Re: Populate data on the form when it opens

Jason — Tue, 10 May 2005 06:22:22 GMT

Hi Agni:

It worked just fine... Awesome.
Thanks a lot again.

Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Tue, 10 May 2005 05:22:32 GMT

You should remove "oParentNode.appendChild(domXMLNode.documentElement)" before for loop and have the below line in the for loop
oParentNode.appendChild(domXMLNode.documentElement.cloneNode(true))

this will insert the nodes as you loop through the code.

Hope this helps!

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Tue, 10 May 2005 04:41:35 GMT

Hi Agni:
Could you please look at the code. For... Next loop is there.
My problem is after inserting second row when it come to add third row.

I know you are busy with answering so many questions.

Thanks
Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Tue, 10 May 2005 04:26:36 GMT

Come on Jason its so somple you need make out all these, Its plain logic.
You have inserted just one row with the help of my code, you need to write that in the for loop to insert the total number of nodes required.

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Tue, 10 May 2005 03:54:11 GMT

Hi Agni:

The above code is inserting only two rows into the table ContactDetails. When it goes to third time the following error I am getting at

.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CIFNumber").text = strContactId
-----
System.NullReferenceException
Object reference not set to an instance of an object.
at MySecondInfoPathApp.MySecondInfoPathApp.OnLoad(DocReturnEvent e) in C:\Inetpub\wwwroot\MySecondInfoPathApp\FormCode.vb:line 137
at Microsoft.Office.Interop.InfoPath.SemiTrust._XDocumentEventSink2_SinkHelper.OnLoad(DocReturnEvent pEvent)

__________

The complete code is like this:

' Write your code here.
Dim oDataSet As New DataSet
Dim lstrQueryXml As String
lstrQueryXml = "<test><contact>"
lstrQueryXml &= "<contactid>ContactId1</contactid>"
lstrQueryXml &= "<firstname>FirstName1</firstname>"
lstrQueryXml &= "<lastname>LastName1</lastname>"
lstrQueryXml &= "<ssn>123456789</ssn>"
lstrQueryXml &= "<crm>CRM1</crm>"
lstrQueryXml &= "</contact>"
lstrQueryXml &= "<contact>"
lstrQueryXml &= "<contactid>ContactId2</contactid>"
lstrQueryXml &= "<firstname>FirstName2</firstname>"
lstrQueryXml &= "<lastname>LastName2</lastname>"
lstrQueryXml &= "<ssn>123456782</ssn>"
lstrQueryXml &= "<crm>CRM2</crm>"
lstrQueryXml &= "</contact>"
lstrQueryXml &= "<contact>"
lstrQueryXml &= "<contactid>ContactId3</contactid>"
lstrQueryXml &= "<firstname>FirstName3</firstname>"
lstrQueryXml &= "<lastname>LastName3</lastname>"
lstrQueryXml &= "<ssn>123456783</ssn>"
lstrQueryXml &= "<crm>CRM3</crm>"
lstrQueryXml &= "</contact>"
lstrQueryXml &= "<contact>"
lstrQueryXml &= "<contactid>ContactId4</contactid>"
lstrQueryXml &= "<firstname>FirstName4</firstname>"
lstrQueryXml &= "<lastname>LastName4</lastname>"
lstrQueryXml &= "<ssn>123456784</ssn>"
lstrQueryXml &= "<crm>CRM4</crm>"
lstrQueryXml &= "</contact>"
lstrQueryXml &= "<contact>"
lstrQueryXml &= "<contactid>ContactId5</contactid>"
lstrQueryXml &= "<firstname>FirstName5</firstname>"
lstrQueryXml &= "<lastname>LastName5</lastname>"
lstrQueryXml &= "<ssn>123456785</ssn>"
lstrQueryXml &= "<crm>CRM5</crm>"
lstrQueryXml &= "</contact></test>"

Dim lXmlDocContacts As New XmlDocument
lXmlDocContacts.LoadXml(lstrQueryXml)
Dim root As XmlElement
root = lXmlDocContacts.DocumentElement
Dim directoryList As XmlNodeList
directoryList = root.SelectNodes("/test/contact")

Dim oParentNode As IXMLDOMNode
oParentNode = thisXDocument.DOM.selectSingleNode("/my:myFields")
Dim strFields As String
strFields = "<my:ContactDetails xmlns:my='http://schemas.microsoft.com/office/infopath/2003/myXSD/2005-04-23T21-52-37'><my:CIFNumber/><my:FirstName/><my:LastName/><my:SSN/><my:CRM/></my:ContactDetails>"
Dim domXMLNode As IXMLDOMDocument
domXMLNode = thisXDocument.CreateDOM()

domXMLNode.async = False
domXMLNode.loadXML(strFields)

oParentNode.appendChild(domXMLNode.documentElement)

Dim i As Integer
Dim strContactId As String
Dim strFirstName As String
Dim strLastName As String
Dim strSSN As String
Dim strCRM As String

For i = 0 To directoryList.Count - 1
If Not directoryList(i).Item("contactid") Is Nothing Then
strContactId = directoryList(i).Item("contactid").InnerText
End If
If Not directoryList(i).Item("firstname") Is Nothing Then
strFirstName = directoryList(i).Item("firstname").InnerText
End If
If Not directoryList(i).Item("lastname") Is Nothing Then
strLastName = directoryList(i).Item("lastname").InnerText
End If
If Not directoryList(i).Item("ssn") Is Nothing Then
strSSN = directoryList(i).Item("ssn").InnerText
End If
If Not directoryList(i).Item("crm") Is Nothing Then
strCRM = directoryList(i).Item("crm").InnerText
End If
With thisXDocument.DOM
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CIFNumber").text = strContactId
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:FirstName").text = strFirstName
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:LastName").text = strLastName
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:SSN").text = strSSN
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CRM").text = strCRM
End With
Next

--------------

Thank you for your time again.

Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Tue, 10 May 2005 02:12:59 GMT

Hey now our previous code should work
With thisXDocument.DOM
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CIFNumber").text = "CIFNumber"
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:FirstName").text = "FirstName"
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:LastName").text = "LastName"
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:SSN").text ="SSN"
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CRM").text = "CRM"
End With

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Mon, 09 May 2005 20:03:34 GMT

Hi Agni:

Thank you very much. I got it now.

Could you plese tell how to insert the data now?

Thanks again
Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Mon, 09 May 2005 18:24:49 GMT

sorry it should have been
strFields = "<my:ContactDetails xmlns:my=\"http://schemas.microsoft.com/office/infopath/2003/myXSD/2005-04-29T04:21:12\"><my:CIFNumber/><my:FirstName/><my:LastName/><my:SSN/><my:CRM/></my:ContactDetails>"

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Mon, 09 May 2005 05:36:18 GMT

Hi Agni:

Could you please check the syntax for the string.

Thanks for your time.
Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Mon, 09 May 2005 04:12:55 GMT

Sorry Jason it was my mistake,
there should be reference to the "my" namespace in the "xml string". For that please open your xml schema and check for "my" namespace and add it to the string
for example:-
strFields = "<my:ContactDetails xmlns:my=\"http://schemas.microsoft.com/office/infopath/2003/myXSD/2005-04-29T04:21:12\"><my:CIFNumber/><my:FirstName/><my:LastName/><my:SSN/><my:CRM/><my:ContactDetails/>"

Note: Donot copy paste my xml string, look at "schema.xsd" and take "my" namespace from there.

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Mon, 09 May 2005 00:29:39 GMT

Hi Agni:

I am doing small mistake.
I got the following error message:

System.ArgumentException
Reference to undeclared namespace prefix: 'my'.

at Microsoft.Office.Interop.InfoPath.SemiTrust.IXMLDOMNode.appendChild(IXMLDOMNode newChild)
at Microsoft.Office.Interop.InfoPath.SemiTrust.DOMNodeWrapper.appendChild(IXMLDOMNode newChild)
at Microsoft.Office.Interop.InfoPath.SemiTrust.DOMNodeWrapper.appendChild(IXMLDOMNode newChild)
at MySecondInfoPathApp.MySecondInfoPathApp.OnLoad(DocReturnEvent e) in C:\Inetpub\wwwroot\MySecondInfoPathApp\FormCode.vb:line 97
at Microsoft.Office.Interop.InfoPath.SemiTrust._XDocumentEventSink2_SinkHelper.OnLoad(DocReturnEvent pEvent)

___________________
For this code:

Dim lXmlDocContacts As New XmlDocument
lXmlDocContacts.LoadXml(lstrQueryXml)
Dim root As XmlElement
root = lXmlDocContacts.DocumentElement
Dim directoryList As XmlNodeList
directoryList = root.SelectNodes("/test/contact")

Dim oParentNode As IXMLDOMNode
oParentNode = thisXDocument.DOM.selectSingleNode("/my:myFields")
Dim strFields As String
strFields = "<my:ContactDetails><my:CIFNumber/><my:FirstName/><my:LastName/><my:SSN/><my:CRM/><my:ContactDetails/>"
Dim domXMLNode As IXMLDOMDocument
domXMLNode = thisXDocument.CreateDOM()

domXMLNode.async = False
domXMLNode.loadXML(strFields)

oParentNode.appendChild(domXMLNode.documentElement)
------------

Thanks
Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Sun, 08 May 2005 10:36:06 GMT

Here is more specific code to insert a row,
//get "my:myFields" node to insert "my:ContactDetails" details node.
oParentNode = thisXDocument.DOM.selectSingleNode("/my:myFields");

//Create a string with the xml that you want to insert
string xmlString = "<my:ContactDetails><my:CIFNumber/><my:FirstName/><my:LastName/><my:LastName/><my:SSN/><my:CRM/><my:ContactDetails/>";

//create a new xml document
IXMLDOMDocument domXMLNode = (IXMLDOMDocument)thisXDocument.CreateDOM();
//Load that xml into above dom
domXMLNode.async = false;
domXMLNode.loadXML(xmlString);

//Append your new node to the parentnode.
oParentNode.appendChild(domXMLNode.documentElement);

after this you can write your code to insert data into the new row.

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Fri, 06 May 2005 02:13:17 GMT

Hello Agni:

I am still getting error to populate the repeating table.Cloud you please send the more specific code sample to my problem.

Thanks
Jason

Re: Populate data on the form when it opens

Agni Jonnalagadda — Mon, 02 May 2005 15:53:33 GMT

Hi Jason,
According to my guess "thisXDocument.View.ExecuteAction("xCollection::insert", "ContactDetails_1")" statement is not working, because in onload method "View" object is not created and you are trying to Insert a row with the help of "View" object. You can find this by taking you mouse hover the "View" in the above statement.

You can referhttp://www.infopathdev.com/forums/topic.asp?TOPIC_ID=303 to learn about how to insert a row in the code.

Agni
InfoPathDev India

Re: Populate data on the form when it opens

Jason — Mon, 02 May 2005 11:44:03 GMT

Hi Agni:

I am getting error message second time when it tries to fill the table:

System.NullReferenceException
Object reference not set to an instance of an object.
at MySecondInfoPathApp.MySecondInfoPathApp.OnLoad(DocReturnEvent e) in C:\Inetpub\wwwroot\MySecondInfoPathApp\FormCode.vb:line 88
at Microsoft.Office.Interop.InfoPath.SemiTrust._XDocumentEventSink2_SinkHelper.OnLoad(DocReturnEvent pEvent)

-------------

at:

If i <> 0 Then
thisXDocument.View.ExecuteAction("xCollection::insert", "ContactDetails_1")
End If
With thisXDocument.DOM
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CIFNumber").text = directoryList(i).Item("contactid").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:FirstName").text = directoryList(i).Item("firstname").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:LastName").text = directoryList(i).Item("lastname").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:SSN").text = directoryList(i).Item("ssn").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CRM").text = directoryList(i).Item("crm").InnerText
End With
-------------------

Thanks
Jason