nuglorious
IS-IT--Management
hi there
firstly, i do not know how to explain it clearly so i attached the xml as follows:-
- <BLBLR03A>
- <LIST_G_0>
- <G_0> ---->Set objNodeG_0 = objNodeLIST_G_0.childNodes(0)
<VSL_NAME0>HARI BHUM</VSL_NAME0>
<VSL_ABRV0>HARI BHUM</VSL_ABRV0>
<VSL_CURR0>HBM2</VSL_CURR0>
<VOY_CURR0>556N</VOY_CURR0>
<VOY_CODE0>556N</VOY_CODE0>
<LINE_CODE0>CBJ</LINE_CODE0>
<COUNTRY_ABRV0>SINGAPORE</COUNTRY_ABRV0>
<CPTN_NAME0 />
<ETD0>07-MAY-2005</ETD0>
<LOAD_PORT_DOC_ABRV0>TANJUNG PRIOK, JAKARTA</LOAD_PORT_DOC_ABRV0>
<LOAD_PORT0>IDTPPOJ</LOAD_PORT0>
<LOAD_CALL0>1</LOAD_CALL0>
<DSCH_PORT_DOC_ABRV0>BANGKOK- PAT</DSCH_PORT_DOC_ABRV0>
<DSCH_PORT0>THBKKPT</DSCH_PORT0>
<PD_DOC_ABRV0>BANGKOK - CY</PD_DOC_ABRV0>
<BL_MOVE_ORGN0>CY</BL_MOVE_ORGN0>
<BL_MOVE_DEST0>CY</BL_MOVE_DEST0>
<ORGN_CODE0 />
<PLACE_DELIV0>BANGKOK - CY</PLACE_DELIV0>
<LOAD_PORT_SORT0>TANJUNG PRIOK, JAKARTAIDTPPOJ</LOAD_PORT_SORT0>
<DSCH_PORT_SORT0>BANGKOK- PATTHBKKPT</DSCH_PORT_SORT0>
<PLACE_DELIV_SORT0>BANGKOK - CY</PLACE_DELIV_SORT0>
<PR_DOC_ABRV0>TANJUNG PRIOK, JAKARTA - CY</PR_DOC_ABRV0>
<PLACE_RCPT0>TANJUNG PRIOK, JAKARTA - CY</PLACE_RCPT0>
<PLACE_RCPT_SORT0>TANJUNG PRIOK, JAKARTA - CY</PLACE_RCPT_SORT0>
<BL_NO0 />
<PR0>IDTPPOJ</PR0>
<PD0>THBKKPT</PD0>
<NEXT_DP0 />
<NEXT_DP_DOC_ABRV0 />
<NEXT_DP_SORT0 />
- <LIST_G_1>
- <G_1> ------------>???
<VSL_NAME1>HARI BHUM</VSL_NAME1>
<VSL_ABRV1>HARI BHUM</VSL_ABRV1>
<VSL_CURR1>HBM2</VSL_CURR1>
<VOY_CURR1>556N</VOY_CURR1>
<VOY_CODE1>556N</VOY_CODE1>
<LINE_CODE1>CBJ</LINE_CODE1>
Here, you can see arrow which i pointed. The first arrow, I successfully import from G_0 but not on G_1. Maybe theres something wrong with the code here as follows :-
Set objNodeG_1 = objNodeLIST_G_0.childNodes(0).firstChild(1)
sSQL = "SELECT * FROM LISTG1 WHERE 1=0"
Set rst = dbs.OpenRecordset(sSQL, dbOpenDynaset)
For Each objNodeData In objNodeG_1.childNodes
rst.AddNew
rst!G0_ID = LISTG0.G0_ID
For ielement = 0 To 24
Set objNodeItem = objNodeData.childNodes(ielement)
If Nz(objNodeItem.Text, "") <> "" Then
sField = objNodeItem.nodeName
sColumn = GetFieldName("G1", sField)
sValue = URLDecode(objNodeItem.Text)
If sValue <> "" Then rst(sColumn) = sValue
End If
Set objNodeItem = Nothing
Next ielement
rst.Update
Next
rst.Close
Set objNodeG_1 = Nothing
End Function
Private Function GetFieldName(ByVal sTable As String, ByVal sField As String) As String
On Error Resume Next
Dim sValue As String
Select Case sTable
Case "G0"
Select Case sField
Case "G_0_ID": sValue = "G0_ID"
Case "VSL_NAME0": sValue = "VSL"
Case "VSL_CURR0": sValue = "VSL_COD"
Case "VOY_CURR0": sValue = "VOY"
Case "LINE_CODE0": sValue = "LINE_COD"
Case "COUNTRY_ABRV0": sValue = "CTRY"
Case "ETD0": sValue = "ETD"
Case "LOAD_PORT_DOC_ABRV0": sValue = "L_PORT"
Case "DSCH_PORT_DOC_ABRV0": sValue = "D_PORT"
Case "LOAD_PORT0": sValue = "L_COD"
Case "DSCH_PORT0": sValue = "D_COD"
Case "BL_MOVE_ORGN0": sValue = "SVR_ORG"
Case "BL_MOVE_DEST0": sValue = "SVR_DES"
End Select
Case "G1"
Select Case sField
Case "G_1_ID": sValue = "G1_ID"
Case "G_0_ID": sValue = "G0_ID"
Case "EXP_IMP1": sValue = "BOUND"
End Select
End Select
GetFieldName = sValue
End Function
Anyone who knows my error code please advise. Im appreciate of yr help..
Thank you
B redgs
nuglorious
firstly, i do not know how to explain it clearly so i attached the xml as follows:-
- <BLBLR03A>
- <LIST_G_0>
- <G_0> ---->Set objNodeG_0 = objNodeLIST_G_0.childNodes(0)
<VSL_NAME0>HARI BHUM</VSL_NAME0>
<VSL_ABRV0>HARI BHUM</VSL_ABRV0>
<VSL_CURR0>HBM2</VSL_CURR0>
<VOY_CURR0>556N</VOY_CURR0>
<VOY_CODE0>556N</VOY_CODE0>
<LINE_CODE0>CBJ</LINE_CODE0>
<COUNTRY_ABRV0>SINGAPORE</COUNTRY_ABRV0>
<CPTN_NAME0 />
<ETD0>07-MAY-2005</ETD0>
<LOAD_PORT_DOC_ABRV0>TANJUNG PRIOK, JAKARTA</LOAD_PORT_DOC_ABRV0>
<LOAD_PORT0>IDTPPOJ</LOAD_PORT0>
<LOAD_CALL0>1</LOAD_CALL0>
<DSCH_PORT_DOC_ABRV0>BANGKOK- PAT</DSCH_PORT_DOC_ABRV0>
<DSCH_PORT0>THBKKPT</DSCH_PORT0>
<PD_DOC_ABRV0>BANGKOK - CY</PD_DOC_ABRV0>
<BL_MOVE_ORGN0>CY</BL_MOVE_ORGN0>
<BL_MOVE_DEST0>CY</BL_MOVE_DEST0>
<ORGN_CODE0 />
<PLACE_DELIV0>BANGKOK - CY</PLACE_DELIV0>
<LOAD_PORT_SORT0>TANJUNG PRIOK, JAKARTAIDTPPOJ</LOAD_PORT_SORT0>
<DSCH_PORT_SORT0>BANGKOK- PATTHBKKPT</DSCH_PORT_SORT0>
<PLACE_DELIV_SORT0>BANGKOK - CY</PLACE_DELIV_SORT0>
<PR_DOC_ABRV0>TANJUNG PRIOK, JAKARTA - CY</PR_DOC_ABRV0>
<PLACE_RCPT0>TANJUNG PRIOK, JAKARTA - CY</PLACE_RCPT0>
<PLACE_RCPT_SORT0>TANJUNG PRIOK, JAKARTA - CY</PLACE_RCPT_SORT0>
<BL_NO0 />
<PR0>IDTPPOJ</PR0>
<PD0>THBKKPT</PD0>
<NEXT_DP0 />
<NEXT_DP_DOC_ABRV0 />
<NEXT_DP_SORT0 />
- <LIST_G_1>
- <G_1> ------------>???
<VSL_NAME1>HARI BHUM</VSL_NAME1>
<VSL_ABRV1>HARI BHUM</VSL_ABRV1>
<VSL_CURR1>HBM2</VSL_CURR1>
<VOY_CURR1>556N</VOY_CURR1>
<VOY_CODE1>556N</VOY_CODE1>
<LINE_CODE1>CBJ</LINE_CODE1>
Here, you can see arrow which i pointed. The first arrow, I successfully import from G_0 but not on G_1. Maybe theres something wrong with the code here as follows :-
Set objNodeG_1 = objNodeLIST_G_0.childNodes(0).firstChild(1)
sSQL = "SELECT * FROM LISTG1 WHERE 1=0"
Set rst = dbs.OpenRecordset(sSQL, dbOpenDynaset)
For Each objNodeData In objNodeG_1.childNodes
rst.AddNew
rst!G0_ID = LISTG0.G0_ID
For ielement = 0 To 24
Set objNodeItem = objNodeData.childNodes(ielement)
If Nz(objNodeItem.Text, "") <> "" Then
sField = objNodeItem.nodeName
sColumn = GetFieldName("G1", sField)
sValue = URLDecode(objNodeItem.Text)
If sValue <> "" Then rst(sColumn) = sValue
End If
Set objNodeItem = Nothing
Next ielement
rst.Update
Next
rst.Close
Set objNodeG_1 = Nothing
End Function
Private Function GetFieldName(ByVal sTable As String, ByVal sField As String) As String
On Error Resume Next
Dim sValue As String
Select Case sTable
Case "G0"
Select Case sField
Case "G_0_ID": sValue = "G0_ID"
Case "VSL_NAME0": sValue = "VSL"
Case "VSL_CURR0": sValue = "VSL_COD"
Case "VOY_CURR0": sValue = "VOY"
Case "LINE_CODE0": sValue = "LINE_COD"
Case "COUNTRY_ABRV0": sValue = "CTRY"
Case "ETD0": sValue = "ETD"
Case "LOAD_PORT_DOC_ABRV0": sValue = "L_PORT"
Case "DSCH_PORT_DOC_ABRV0": sValue = "D_PORT"
Case "LOAD_PORT0": sValue = "L_COD"
Case "DSCH_PORT0": sValue = "D_COD"
Case "BL_MOVE_ORGN0": sValue = "SVR_ORG"
Case "BL_MOVE_DEST0": sValue = "SVR_DES"
End Select
Case "G1"
Select Case sField
Case "G_1_ID": sValue = "G1_ID"
Case "G_0_ID": sValue = "G0_ID"
Case "EXP_IMP1": sValue = "BOUND"
End Select
End Select
GetFieldName = sValue
End Function
Anyone who knows my error code please advise. Im appreciate of yr help..
Thank you
B redgs
nuglorious
![[mickey]](/data/assets/smilies/mickey.gif "[mickey] [mickey]")
. Im glad that there someone like you knew how and![[ponder]](/data/assets/smilies/ponder.gif "[ponder] [ponder]")
![[3eyes]](/data/assets/smilies/3eyes.gif "[3eyes] [3eyes]")
![[fish2]](/data/assets/smilies/fish2.gif "[fish2] [fish2]")
![[thumbsup2]](/data/assets/smilies/thumbsup2.gif "[thumbsup2] [thumbsup2]")
but how to capture the xml data into access table?It suppose to capture all the 29 xml data from <G_0> itself and so on.![[pc1]](/data/assets/smilies/pc1.gif "[pc1] [pc1]")
![[cry]](/data/assets/smilies/cry.gif "[cry] [cry]")
and Im not sure if mysql code something wrong as it unable to add to the table??Please advise.