form2.frm

金融机构电子显示屏幕理财信息批量更新

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command4 
      Caption         =   "Command4"
      Height          =   495
      Left            =   2280
      TabIndex        =   3
      Top             =   480
      Width           =   735
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   975
      Left            =   840
      TabIndex        =   2
      Top             =   1800
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   1095
      Left            =   3120
      TabIndex        =   1
      Top             =   1080
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   975
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim flightNodes As IXMLDOMNodeList
Dim XML_Doc As DOMDocument
Dim XML_Node As IXMLDOMNode
Dim XML_Element As IXMLDOMElement
Dim XML_attribute As IXMLDOMElement
Dim XML_Root As IXMLDOMElement
Dim DbCon As Boolean


Private Sub Command1_Click()

Set XML_Doc = New DOMDocument


XML_Doc.Load App.Path & "\sa05.xml"
If XML_Doc.documentElement Is Nothing Then Exit Sub


End Sub


Private Sub Command3_Click()
Dim FundId As String
Dim SQLSTRING As String
Dim I As Integer
Dim NewVal, LastVal, DZF, DINC, AllVal As String
Set XML_Doc = New DOMDocument


XML_Doc.Load App.Path & "\sa05.xml"
If XML_Doc.documentElement Is Nothing Then Exit Sub


Set XML_Root = XML_Doc.documentElement
Set flightNodes = XML_Root.selectNodes("Table1")
For Each XML_Node In flightNodes
Debug.Print XML_Node.selectSingleNode("NEWNET").Text & "--" & XML_Node.selectSingleNode("lastNet").Text
FundId = XML_Node.selectSingleNode("JYDM").Text
If XML_Node.selectSingleNode("NEWNET") Is Nothing Then NewVal = 0 Else NewVal = XML_Node.selectSingleNode("NEWNET").Text
If XML_Node.selectSingleNode("lastNet") Is Nothing Then LastVal = 0 Else LastVal = XML_Node.selectSingleNode("lastNet").Text
If XML_Node.selectSingleNode("DZF") Is Nothing Then DZF = 0 Else DZF = XML_Node.selectSingleNode("DZF").Text
If XML_Node.selectSingleNode("DINC") Is Nothing Then DINC = 0 Else DINC = Left(XML_Node.selectSingleNode("DINC").Text, 6)
If XML_Node.selectSingleNode("newTNet") Is Nothing Then AllVal = 0 Else AllVal = XML_Node.selectSingleNode("newTNet").Text


I = I + 1
 SQLSTRING = "insert into wind([FundID],[NewVal],[LastVal],[DZF],[DINC],[AllVal]) values('" & FundId & "'," & NewVal & "," & LastVal & "," & DZF & "," & DINC & "," & AllVal & ")"
cnNew.Execute SQLSTRING
Next
End Sub

Private Sub Command4_Click()
cnNew.Execute "delete from WIND"
End Sub

Private Sub Form_Load()
On Error GoTo Err_Spot
'Dim VestCodeRes As ADODB.Recordset
Dim DbName As String
'Set VestCodeRes = New ADODB.Recordset


DbName = Trim$(GetINI("设置项目", "服务器名", App.Path & "\setting.ini"))

'DbCon = OpenCn("ICBCOA -DE350357", "mixdbsource", "sa", "")
DbCon = OpenCn(DbName, "mixdbsource", "sa", "")
'VestCodeRes.CursorLocation = adUseClient
'VestCodeRes.Open "select [FundID] as 产品代码,[FundName] as 产品名称 from vestname", cnNew, adOpenKeyset, adLockOptimistic
'Set VsGrid.DataSource = VestCodeRes
'Text3.Text = Trim$(GetINI("设置项目", "固定屏", App.Path & "\setting.ini"))


Exit Sub
Err_Spot: MsgBox Err.Description, vbCritical, "提示"
End Sub