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

首先在项目的VBNET界面，使用菜单项目--添加引用--COM

选择  Microsoft ADO Ext 2x for DDL and Security

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

完整代码如下：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

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

        Dim Mycat As Catalog = New Catalog()

        MycatCreate("Provider=MicrosoftJetOLEDB40;Jet OLEDB:Engine Type=5;Data Source= 数据库文件mdb;Jet OLEDB:Database Password=123")

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

        Dim MyTable As ADOXTable = New ADOXTable         '定义新表

        MyTableName = "实验数据表"    '表命名

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

        MyTableColumnsAppend("姓名", , ADOXDataTypeEnumadWChar)

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

        MyTableColumnsAppend("学号", ADOXDataTypeEnumadInteger)    '追加一个数字型字段

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

        MyTableKeysAppend("学号", ADOXKeyTypeEnumadKeyPrimary, "学号")

        MycatTablesAppend(MyTable) '把所有的新字段追加到表

        MyTable = Nothing

        Mycat = Nothing

    End Sub

End Class

VB连接数据库，通常单机的数据库可以选择Access，网络上VB连接mssql的也很多。

c你需要学会VB，然后了解数据库 *** 作，学一下sql语言。然后吧把学的这些串起来，就是你要的了。如果快的话，半个月基本能上手。

祝好运，望采纳。

1设计好数据库表

2设计好程序功能，也就是你需要对你程序要实现的功能有个很好的了解，不能说边开发边想，这种方法并不适合大多数人

3将代码模块化，比如：连接数据的代码可以放在一个模块中，数据库 *** 作（查询/删除等等）放在另一个模块中，界面的基本 *** 作可以放在另一个模块中，这样做的好处在于好维护代码以及后期代码的升级等等，当然不是必须的

4界面的设计 ，包括各个控件的布局等等，界面设计像VB这种可视化编程的，能减少控件直接拖拉使用的最好减少，更多的是通过编码来实现，其中对于一些特殊的控件可以通过自定义用户控件

===========================

基本来说一个连接数据库的桌面软件开发，在开发前，你需要明白自己要做什么，这个软件要为别恩做些什么，等想好了再去做，做好前期设计是必须的，编码并不是主要的，只是一些苦力活而已

最后小AD下,思想源地能为你提供最好的设计思路和实现方案，只要你需要可以M我们

如果用的是VB

60

那么用里面自带的一个控件DATA就可以直接访问ACCESS数据库,只要设置几个文本框再设置其属性中的一个值为对应的ACCESS里的字段就可以了,本人由于好久没用VB了

所以说的不是很详细

请见量!!!自己多试试

很简单!

Public cn As ADODBConnection

Public rs As ADODBRecordset

Public cc As String

Sub aa()

Set cn = New ADODBConnection

Set rs = New ADODBRecordset

cc = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" ‘这里要改成连接的数据库。

cnOpen cc

End Sub

以上是模块代码。

Private Sub Command1_Click()

If Text1Text = "" Then

MsgBox "请输入商品ID！"

Text1SetFocus

Exit Sub

End If

If Text2Text = "" Then

MsgBox "请输入商品名称！"

Text2SetFocus

Exit Sub

End If

If Text3Text = "" Then

MsgBox "请输入商品价格！"

Text3SetFocus

Exit Sub

End If

sql = "select from goods where goodid='" & Text1Text & "'"

Set rs = New ADODBRecordset

rsOpen sql, cn, 1, 3

If rsEOF Then

rsAddNew

rsFields(0) = Text1Text

rsFields(1) = Text2Text

rsFields(2) = Text3Text

rsUpdate

MsgBox "商品信息添加成功！"

Text1Text = ""

Text2Text = ""

Text3Text = ""

Text1SetFocus

Else

MsgBox "此ID已存在，请输入新ID！"

Text1Text = ""

Text1SetFocus

End If

rsClose

Set rs = Nothing

End Sub

Private Sub Form_Load()

Call aa

End Sub

以上是窗体代码。

你好好看一下，这是一个正确的源代码。

以上就是关于用vb.net 怎样建立一个mdb数据库及一张表全部的内容，包括:用vb.net 怎样建立一个mdb数据库及一张表、VB怎么做数据库、VB开发数据库应用程序的步骤和方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！