xmlshow.vb

来自「本光盘上程序的运行和工程文件的打开都需要用户首先安装 Microsoft Vis」· VB 代码 · 共 225 行 · 第 1/2 页

        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE 通讯录1 SET 爱好 = ?, 地址 = ?, 年龄 = ?, 生日 = ?, 姓名 = ?, 邮件 = ? WHERE (编号 = ?) AND" & _
        " (地址 = ? OR ? IS NULL AND 地址 IS NULL) AND (姓名 = ? OR ? IS NULL AND 姓名 IS NULL) A" & _
        "ND (爱好 = ? OR ? IS NULL AND 爱好 IS NULL) AND (生日 = ? OR ? IS NULL AND 生日 IS NULL)" & _
        " AND (邮件 = ? OR ? IS NULL AND 邮件 IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("爱好", System.Data.OleDb.OleDbType.VarWChar, 50, "爱好"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("地址", System.Data.OleDb.OleDbType.VarWChar, 50, "地址"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("年龄", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "年龄", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("生日", System.Data.OleDb.OleDbType.DBDate, 0, "生日"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("姓名", System.Data.OleDb.OleDbType.VarWChar, 50, "姓名"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("邮件", System.Data.OleDb.OleDbType.VarWChar, 50, "邮件"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_编号", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_地址", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地址", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_地址1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "地址", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_姓名1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_爱好", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "爱好", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_爱好1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "爱好", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_生日", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "生日", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_生日1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "生日", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_邮件", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "邮件", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_邮件1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "邮件", System.Data.DataRowVersion.Original, Nothing))
        '
        'txtXMLSchema
        '
        Me.txtXMLSchema.Location = New System.Drawing.Point(16, 24)
        Me.txtXMLSchema.Multiline = True
        Me.txtXMLSchema.Name = "txtXMLSchema"
        Me.txtXMLSchema.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtXMLSchema.Size = New System.Drawing.Size(352, 128)
        Me.txtXMLSchema.TabIndex = 0
        Me.txtXMLSchema.Text = ""
        '
        'txtXMLData
        '
        Me.txtXMLData.Location = New System.Drawing.Point(16, 184)
        Me.txtXMLData.Multiline = True
        Me.txtXMLData.Name = "txtXMLData"
        Me.txtXMLData.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtXMLData.Size = New System.Drawing.Size(344, 144)
        Me.txtXMLData.TabIndex = 1
        Me.txtXMLData.Text = ""
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(48, 8)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(66, 14)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "XMLSchema:"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(48, 160)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(54, 14)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "XMLData:"
        '
        'btnRead
        '
        Me.btnRead.Location = New System.Drawing.Point(128, 336)
        Me.btnRead.Name = "btnRead"
        Me.btnRead.Size = New System.Drawing.Size(88, 24)
        Me.btnRead.TabIndex = 4
        Me.btnRead.Text = "读取"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(376, 361)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnRead, Me.Label2, Me.Label1, Me.txtXMLData, Me.txtXMLSchema})
        Me.Name = "frmMain"
        Me.Text = "XML"
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
        Try
            Dim myDataSet As New DataSet()
            OleDbDataAdapter1.Fill(myDataSet, "通讯录1")
            Dim strXMLData As String
            Dim strXMLSchema As String
            strXMLData = myDataSet.GetXml()
            strXMLSchema = myDataSet.GetXmlSchema()

            txtXMLSchema.Text = strXMLSchema

            txtXMLData.Text = strXMLData
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try

    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub txtXMLData_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtXMLData.TextChanged

    End Sub
End Class