How to Extract the LC Form Fields Values and Store them to Database.

        Dim path As StringDim out_path As StringDim oAcroAVDoc As Acrobat.AcroAVDocDim oAcroPDDoc As Acrobat.AcroPDDocDim gapp As New Acrobat.AcroApp Dim XMLdoc As New XmlDocumentDim xmlClass As New XMLTransfeer.XMLClassDim result As StringDim file_name As StringDim updated As StringDim jsObj As New Object Dim DS As New Prize.BusinessEntities.PrizeDS [Shared].ClearListBox(lbxSucceeded)[Shared].ClearTreeView(treeFailed)   Dim percantage As DoubleDim i As Int16Dim files As String()[Shared].SetControlPropertyValue(Label3, "Text", " 0% complteted")[Shared].SetControlPropertyValue(ProgressBar1, "Value", 0) ProgressBar1.Value = 0oAcroAVDoc = CreateObject("AcroExch.AVDoc") If Not Directory.Exists(Input_tb.Text) Or Not Directory.Exists(Output_tb.Text) Or Not Directory.Exists(Pros_text.Text) ThenMsgBox("Please Insert valid paths")Else'TryIf Input_tb.Text <> "" Thenpath = Input_tb.Text

If Output_tb.Text <> "" Thenout_path = Output_tb.Text

files = Directory.GetFiles(path, "*.pdf") [Shared].SetControlPropertyValue(ProgressBar1, "Maximum", files.Length)[Shared].SetControlPropertyValue(ProgressBar1, "Step", 1)[Shared].SetControlPropertyValue(ProgressBar1, "Visible", True)  Dim succeededCount As Integer = 0

Dim failedCount As Integer = 0

 For i = 0 To files.Length - 1

Dim tr As System.Data.SqlClient.SqlTransaction

'Dim conn As New SqlClient.SqlConnection(My.Settings.PrizeConnectionString)'conn.Open()tr = Nothing

Try

oAcroAVDoc.Open(files(i).ToString, "XML Export") oAcroPDDoc = oAcroAVDoc.GetPDDoc()

jsObj = oAcroPDDoc.GetJSObject()

jsObj.disclosed = True

Dim theXML = jsObj.getXMLData(jsObj)

 XMLdoc.LoadXml(theXML)


updated = XMLdoc.GetElementsByTagName("Form_Id")(0).InnerText  result = xmlClass.Load(XMLdoc, tr, DS)

 file_name = result.Replace("/", "_")jsObj.getField("root[0].pageOne[0].Form_Id[0]").value = resultXMLdoc.GetElementsByTagName("Form_Id")(0).InnerText = resultDim fullOutPath As String = out_path + "\" + file_name + ".pdf"jsObj.Saveas(fullOutPath)


File.Copy(files(i).ToString, Pros_text.Text + files(i).ToString.Replace(path, ""), True)File.Delete(files(i).ToString)


  tr.Commit()

 [Shared].AddItemToListBox(lbxSucceeded, files(i))

 succeededCount += 1


[Shared].SetControlPropertyValue(lblSucceeded, "Text", String.Format("Total Succeeded File Count: ({0})", succeededCount.ToString))  Catch ex As System.Runtime.InteropServices.COMException

If tr IsNot Nothing Then

tr.Rollback()

End If

Dim FileNode As New TreeNode(files(i))

FileNode.ImageIndex = 0

FileNode.SelectedImageIndex = 0

AddExceptionToTreeNode(FileNode, New Exception("Either file schema is missing or file version is old", ex))[Shared].AddNodeToTreeView(treeFailed, FileNode)

failedCount += 1

[Shared].SetControlPropertyValue(lblFailed, "Text", String.Format("Total Failed File Count: ({0})", failedCount.ToString)) Catch ex As Exception

If tr IsNot Nothing Then

tr.Rollback()

End If

Dim FileNode As New TreeNode(files(i))

FileNode.ImageIndex = 0

FileNode.SelectedImageIndex = 0

AddExceptionToTreeNode(FileNode, ex)

[Shared].AddNodeToTreeView(treeFailed, FileNode)

failedCount += 1

[Shared].SetControlPropertyValue(lblFailed, "Text", String.Format("Total Failed File Count: ({0})", failedCount.ToString))'oAcroAVDoc.Close(1)Finally[Shared].CallControlMethod(ProgressBar1, "PerformStep", Nothing)percantage = ((i + 1) / files.Length) * 100[Shared].SetControlPropertyValue(Label3, "Text", Math.Truncate(percantage).ToString + "% completed") oAcroAVDoc.Close(1)'conn.Close()End Try

 Next

 Else

MsgBox("Please select the output folder that contain the Saved Application Forms")End If

 Else

MsgBox("Please select the input folder that contain the Application Forms")End If

End If

function getXMLData(theDoc) {//return xfa.data.saveXML();//app.alert("Hello.");return theDoc.xfa.data.saveXML();}