VB.Net创建数据表和字段的实例

分类：VB.Net

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

代码如下：

Option Strict On
Imports System.Text
Public Class LOB

    Private Sub btnCreateDataTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDataTable.Click
        ' 建立“乐博网员工”数据表
        Dim myTable As New DataTable("乐博网员工")

        ' 建立“员工编号”字段
        Dim colEmployeeId As New DataColumn("员工号码", System.Type.GetType("System.Int32"))

        ' 定义“员工编号”字段的结构描述
        With colEmployeeId
            .AutoIncrement = True
            .AutoIncrementSeed = 1
            .AutoIncrementStep = 1
            .ReadOnly = True
        End With

        ' 建立“姓名”字段
        Dim colName As New DataColumn("姓名", System.Type.GetType("System.String"))
        colName.MaxLength = 12

        ' 建立“性别”字段
        Dim colGender As New DataColumn("性别", System.Type.GetType("System.Boolean"))

        ' 建立“出生日期”字段
        Dim colBirthday As New DataColumn("出生日期", System.Type.GetType("System.DateTime"))

        ' 建立“薪资”字段
        Dim colSalary As New DataColumn("薪资", System.Type.GetType("System.Double"))

        ' 建立“税额”字段
        Dim colTax As New DataColumn("税额", System.Type.GetType("System.Decimal"), "薪资 * 0.025")

        ' 将各个字段加入至字段集合中
        myTable.Columns.Add(colEmployeeId)
        myTable.Columns.Add(colName)
        myTable.Columns.Add(colGender)
        myTable.Columns.Add(colBirthday)
        myTable.Columns.Add(colSalary)
        myTable.Columns.Add(colTax)

        Dim sb As New StringBuilder

        For i As Integer = 0 To myTable.Columns.Count - 1
            sb.AppendLine("字段名称: " & myTable.Columns(i).ColumnName)
            sb.AppendLine("数据类型: " & myTable.Columns(i).DataType.ToString)
            sb.AppendLine("最大长度: " & myTable.Columns(i).MaxLength.ToString)
            sb.AppendLine("------------------------------------------")
        Next

        txtResult.Text = sb.ToString '更多.net源码和教程，来自[乐博网 www.lob.cn]
    End Sub

    Private Sub txtResult_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtResult.TextChanged

    End Sub
End Class