用vb.net 怎样建立一个mdb数据库及一张表

首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】

创新互联建站专注于郸城网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供郸城营销型网站建设，郸城网站制作、郸城网页设计、郸城网站官网定制、成都微信小程序服务，打造郸城网络公司原创品牌,更为您提供郸城网站排名全网营销落地服务。

选择  Microsoft ADO Ext. 2.x for DDL and Security

然后单击【确定】，完成引用。

完整代码如下：

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建空的access数据库文件--数据库文件.mdb，密码为123

Dim Mycat As Catalog = New Catalog()

Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")

'以下代码创建一个名为“实验数据表”

Dim MyTable As ADOX.Table = New ADOX.Table         '定义新表

MyTable.Name = "实验数据表"    '表命名

'给表“实验数据表” 创建一个字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)

'给表“实验数据表” 创建一个整数字段，字段名“学号”

MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)    '追加一个数字型字段

'给字段“学号”创建一个主键“PimaryKey_Field”        

MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")

Mycat.Tables.Append(MyTable) '把所有的新字段追加到表

MyTable = Nothing

Mycat = Nothing

End Sub

End Class

VB.NET使用fileput写入数据时,如何避免删除文件中已有的内容

用System.IO.File中的静态函数AppendText获得一个StreamWriter，然后用Write或WriteLine函数写入一些字符串，最后写入流并关闭它。

Dim sw As StreamWriter = System.IO.File.AppendText("textfile.txt")

Using sw

sw.Write("This is ") '仅写入字符串

sw.WriteLine("line 1.") '写入字符串并自动写入换行符

sw.Flush() '写入流

End Using '这里释放了资源

VB.net的开方运算

VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。

请你比较一下这个运算中x和y的值：

Dim n As Single = 4

Dim x As Single

Dim y As Single

x = n + 1

x = x / n

x = x - 1

x = Math.Sqrt(x)

y = Math.Sqrt((n + 1) / n - 1)

这样就会发现，你的代码中括号的位置错了。

正确的应该是： Math.Sqrt((n + 1) / n - 1)

分享文章：vb.net实验五的简单介绍
网站URL：http://njwzjz.com/article/doespdo.html