用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

60

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

所以说的不是很详细

请见量!!!自己多试试

很简单!

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

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

祝好运，望采纳。

Private Sub Command1_Click()

Dim ADOrs As New Recordset     '声明一个记录集对象

Dim ADOrs1 As New Recordset     '声明一个记录集对象

Dim strSQL As String

Dim user As String

ADOrsActiveConnection = ADOcn    '与ADOcn连接对象关联

ADOrs1ActiveConnection = ADOcn    '与ADOcn连接对象关联

 If Text1Text = "" Then

      MsgBox "未输入姓名信息，请重新输入！", vbCritical + vbOKOnly

     Text1SetFocus     '定位光标

     Exit Sub

 End If

If Text2Text = "" Then

     MsgBox "未输入身份z号码，请重新输入！", vbCritical + vbOKOnly

     Text2SetFocus     '定位光标

     Exit Sub

End If

'首先查询表中是否存在关键字相同的记录

strSQL = "select  from Persons"

strSQL = strSQL & " Where 身份z号='" + Text2Text + "'"

ADOrsOpen strSQL

'如果关键字重复,则退出

If Not ADOrsEOF Then

     MsgBox "该个人信息记录已经存在,不能继续增加", vbCritical + vbOKOnly

     Exit Sub

End If

ADOrs1Open "select  from Persons", , , adLockOptimistic

ADOrs1AddNew

ADOrs1("姓名") = Text1Text

ADOrs1("身份z号") = Text2Text

ADOrs1("工号") = Text3Text

ADOrs1("所属公司") = Text4Text

ADOrs1("部门") = Text5Text

ADOrs1("联系电话") = Text6Text

ADOrs1("联系地址") = Text7Text

ADOrs1Update

user = Text1Text

Text1Text = ""   '初始化文本框控件

Text2Text = ""

Text3Text = ""

Text4Text = ""

Text5Text = ""

Text6Text = ""

Text7Text = ""

Text1SetFocus    '定位光标

MDIForm1StatusBar1Panels(1)Text = "成功添加个人信息:" & user

MsgBox "已成功添加新记录", vbQuestion + vbOKOnly

ADOrsClose      '关闭记录集

ADOrs1Close      '关闭记录集

Set ADOrs = Nothing

Set ADOrs1 = Nothing

End Sub

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

最好详细点，兄弟笨笨的呢

解析:

Private Sub Form_Load()

Text1Text = AppPath & "\123xls"

Text2Text = AppPath & "\123mdb"

Text3Text = "sheet1"

Text4Text = "sheet1"

Data1DatabaseName = AppPath & "\123mdb"

End Sub

Private Sub Command1_Click()

Dim db As Database

Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String

AccessPath = Text2Text '数据库路径

excelpath = Text1Text '电子表格路经

AccessTable = Text4Text '数据库内表格

sheet = Text3Text '电子表格内工作表

Set db = OpenDatabase(excelpath, True, False, "Excel 50") '打开电子表格文件

SQL = ("Select into [;database=" & AccessPath & "]" & AccessTable & " FROM [" & sheet & "$]")

dbExecute (SQL) '将电子表格导入数据库

Data1RecordSource = "sheet1"

Data1Refresh

DBGrid1Refresh '显示电子表格导入到数据库的数据

End Sub

上面的是把EXCEL读取到数据库中,你做点修改就行了一个Data控件

要连接SQL数据库有两种方法用ADODC或ADO

方法一: （ADODC)

首先须引用Projects-Components-Microsoft ADO Data Controls 60 (OLEDB)

之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Private Sub Form_Load()

ADODC1ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"

ADODC1CommandType = adCmdText

ADODC1RecordSource = "select from 表格名称"

ADODC1Refresh

End Sub

方法二: (ADO)

'首先须引用Projects-References-Microsoft Active X Data Objects 20 Library

'注意以下两段须写在程式最上面（Gerenal一般）中。

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

Dim SQL As String

'然后在Form_Load()输入以下代码：

Private Sub Form_Load()

cnConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"

cnOpen

If rsState = adStateOpen Then rsClose

rsCursorLocation = adUseClient

SQL = "select from 表格名"

rsOpen Trim$(SQL), cn, adOpenKeyset, adLockPessimistic

End Sub

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

以上就是关于用vb.net 怎样建立一个mdb数据库及一张表全部的内容，包括:用vb.net 怎样建立一个mdb数据库及一张表、如何利用VB编写数据库软件!、VB怎么做数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！