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