2012-04-11 3 views
0

私は、VB.Netフォームを使用してテキストボックスに入力されたデータに基づいてXML文書を検索するクラスプロジェクトを持っています。子タグ。 XML情報の例を以下に示します。 VBフォームでは、ユーザーが口座番号を入力し、XML文書に一致する口座番号に基づいて、フォーム、名前、dobなどの残りの部分がXMLをテキストボックスに作成します。XML文書からVB.Netフォームを入力する

これをコード化する方法がわかりません。 VBフォームコードにXML文書を添付しました。

Dim doc = XDocument.Load("CreditApp.xml") 
    Dim xdoc = doc.Descendants("custData").FirstOrDefault() 

また、ユーザーからの検索入力を受け取るテキストボックスに変数を割り当てました。検索は、VBフォームの「検索」ボタンをクリックすることによって有効になります。

txtAcctNum.Text = xdoc.Element("AcctNum").Value 
    txtSSN.Text = xdoc.Element("SSN").Value 

XMLサンプル:

<custData> 
    <FName>Ben</FName> 
    <LName>Dover</LName> 
    <Gender>Male</Gender> 
    <Address>21 Jump Street</Address> 
    <City>Beverly Hills</City> 
    <State>CA</State> 
    <Zip>90210</Zip> 
    <Phone>3108591212</Phone> 
    <Email>[email protected]</Email> 
    <SSN>0000</SSN> 
    <AcctNum>5695847185978954</AcctNum> 
    <PassCode>What</PassCode> 
    <AccountAvail>75000</AccountAvail> 
    <AcctBal>25000</AcctBal> 
    <LPmtDate>3/28/2012</LPmtDate> 
    <LPmtAmt>7500</LPmtAmt> 
    <CreditLimit>100000</CreditLimit> 
    <IntRate>15.499</IntRate> 
    <MinPayment>1250</MinPayment> 
    <PmtDueDate>4/28/2012</PmtDueDate> 
    <Note></Note> 
    </custData> 

    <custData> 
    <FName>Al</FName> 
    <LName>Caholic</LName> 
    <Gender>Male</Gender> 
    <Address>8585 Milky Way</Address> 
    <City>Palm Springs</City> 
    <State>CA</State> 
    <Zip>90561</Zip> 
    <Phone>2029867411</Phone> 
    <Email>[email protected]</Email> 
    <SSN>951855589</SSN> 
    <AcctNum>9812020274912689</AcctNum> 
    <PassCode>Glover</PassCode> 
    <AccountAvail>0</AccountAvail> 
    <AcctBal>55000</AcctBal> 
    <LPmtDate>4/1/2012</LPmtDate> 
    <LPmtAmt>15</LPmtAmt> 
    <CreditLimit>55000</CreditLimit> 
    <IntRate>18.995</IntRate> 
    <MinPayment>95000</MinPayment> 
    <PmtDueDate>5/1/2012</PmtDueDate> 
    <Note></Note> 
    </custData> 

すべてのヘルプは素晴らしいことです!

答えて

1

は、私はそれはそれあなたが

Dim q = (From c In xDoc.Descendants("custDtatas") 
From view In c.Elements("custData") 
Where view.Element("SSN") = '0000' 
AndAlso view.Element("AcctNum") = '5695847185978954' view).ToList() 

     // fill the specific part of the form with specific item 

     For Each item As var In q 

     Next 
異なる可能性があり、文書全体のトップラッピング要素あなたのため

/// custDtatasをいい仕事だと思うLINQにXMLを使用してみてください

関連する問題