| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 数据库编程 >> 实例分析正文
最新推荐 更多内容
VB.Net自动创建数据库的实例
VB.Net自动创建数据库的实例
作者:ILU    来源:乐博网整理     更新时间:2010-1-11

VB.Net自动创建数据库的实例

分类:VB.Net

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

代码如下:

Option Strict On
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
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 DataColumn = myTable.Columns.Add("员工号码", GetType(SqlInt32))

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

        ' 建立“身份证号码”字段。
        myTable.Columns.Add("身份证号码", GetType(SqlString))
        myTable.Columns("身份证号码").MaxLength = 18
        myTable.Columns("身份证号码").AllowDBNull = False

        ' 建立“姓名”字段。
        myTable.Columns.Add("姓名", GetType(SqlString))
        myTable.Columns("姓名").MaxLength = 12

        ' 建立“性别”字段。
        myTable.Columns.Add("性别", GetType(SqlString))
        myTable.Columns("性别").MaxLength = 1

        ' 建立“地址”字段。
        myTable.Columns.Add("地址", GetType(SqlString))
        myTable.Columns("地址").MaxLength = 41

        ' 建立“邮政编码”字段。
        myTable.Columns.Add("邮政编码", GetType(SqlString))
        myTable.Columns("邮政编码").MaxLength = 6

        ' 建立“出生日期”字段。
        myTable.Columns.Add("出生日期", GetType(SqlDateTime))

        ' 建立“婚姻状况”字段。
        myTable.Columns.Add("婚姻状况", GetType(SqlString))
        myTable.Columns("婚姻状况").MaxLength = 2

        ' 建立“雇用日期”字段。
        myTable.Columns.Add("雇用日期", GetType(SqlDateTime))

        ' 建立“起薪”字段。
        myTable.Columns.Add("起薪", GetType(SqlMoney))

        ' 建立“目前薪资”字段。
        myTable.Columns.Add("目前薪资", GetType(SqlMoney))

        ' 建立“加薪日期”字段。
        myTable.Columns.Add("加薪日期", GetType(SqlDateTime))

        ' 建立“部门”字段。
        myTable.Columns.Add("部门", GetType(SqlString))
        myTable.Columns("部门").MaxLength = 10

        ' 建立“玉照”字段。
        myTable.Columns.Add("玉照", GetType(System.Byte()))

        ' 显示出结构描述。
        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

        ' 以下我们要连接至 SQL Server Express,然后将“北风贸易”数据库的“乐博网”数据表
        ' 的数据记录下载至我们所建立的数据表对象 myTable 中。

        ' 利用 SqlConnectionStringBuilder 对象来构建连接字符串。
        Dim connectStringBuilder As New SqlConnectionStringBuilder()
        connectStringBuilder.DataSource = "(local)\SQLExpress"
        connectStringBuilder.InitialCatalog = "北风贸易"
        connectStringBuilder.IntegratedSecurity = True

        ' 建立连接。
        Using connection As New SqlConnection(connectStringBuilder.ConnectionString)

            ' 建立查询命令字符串。
            Dim queryString As String = _
               "SELECT * FROM 乐博网 WHERE 目前薪资 > @Salary"

            ' 建立 SqlCommand 。
            Dim cmdLiming As SqlCommand = New SqlCommand(queryString, connection)

            ' 建立 SqlParameter 对象。
            Dim paraSalary As SqlParameter = New SqlParameter("@Salary", SqlDbType.Money)

            ' 指派参数值。
            paraSalary.Value = 20000  '更多.net源码和教程,来自[乐博网 www.lob.cn]

            cmdLiming.Parameters.Add(paraSalary)

            ' 开启连接。
            connection.Open()

            Using myreader As SqlDataReader = cmdLiming.ExecuteReader()

                ' 将数据读取器的数据加载至数据表对象。
                myTable.Load(myreader, LoadOption.OverwriteChanges)

            End Using

        End Using

        ' 将数据表对象 myTable 的数据内容显示在 DataGridView 控件中。
        Me.DataGridView1.DataSource = myTable
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

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

    End Sub
End Class

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    APICalls(VB2010实例)
    DataComboBox(VB2010实例)
    创建数据库(VB2010实例)
    VB.Net创建数据表并添加记录的实例
    VB.Net建立数据表和字段的实例
    VB.Net定义字段结构描述的实例
    VB.Net创建数据表和字段的实例
    附加.mdf数据库的实例
    VB.Net连接.mdf数据库的实例
    调用.mdf数据库文件的实例
    调用Excel数据库的实例
    用OleDbConnectionStringBuilder对象来构建连接字符串…
    显示数据库连接状态的实例
    从应用程序配置文件获取数据库连接字符串的实例
    将DataGridView控件绑定到BindingSource组件的实例
    用SqlConnectionStringBuilder对象来构建连接字符串的…

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]