求大神帮忙做一份入门级VB数据库作业

Put #1,totalnum,among ’将记录加入#1

ReDim index(totalnum) ’重新定义枚举数组

createindex ’调用过程重新建立索引

textname ="" ’清空文本框，激活textname

Textage = ""

Textsex =""

textnameSetFocus

End Sub

Ptivate Sub Cmdtxt_Click() ’建立文本文件

Dim I

Dim message1 As String, message2 As String

Open nastxt For Output As #2 ’打开文本，接受输出

For I=1 To totalnum

Get #1, index(I)number,among ’读记录

With among

Print #2," "; Ucase(Trim(name))

Print #2,"age: "; age ’用Print语句建立文本

Print #2, "sex: "; sex

End With

Next I

Close #2 ’关闭文本文件

textnameSetFocus

message1="文本nastxt已经建好"

message2 ="file"

MsgBox$ message1, 64, message2 ’显示文本已建好对话框

End Sub

Private Sub Form_Load() ’程序运行装人表单时的事件

Open nasdb For Random As #1 ’打开数据库

Len = Len(among)

totalnun = LOF(1)/ Len(among) ’计算记录数

If totalnum > 0 Then

ReDim index(totalnum) ’定义枚举索引数组

createindex ’建立索引

Else

CmdtxtEnabled = False ’禁止Cmdtxt按钮

End If

End Sub

关于VB6 + Access的简单数据库应用问题

最近，经常看到有人提问相关问题，心血来潮有一股冲动，把这个方面的应用在这里介绍一下。

我使用过的VB6提供的数据库连接控件有两个，一个是Data控件另一个是Adodc控件。

考虑到Data控件只能针对本地数据库的开发应用，并且它只支持VB5中的网格控件DBGrid控件，所以这里主要介绍Adodc控件。（注意：VB5的DBGrid控件，需要把DBGRID32OCX文件复制到c:\windows\system32\DBGRID32OCX进行引用）

下面介绍使用Adodc控件与DataGrid控件进行简易数据库的应用：

一．添加Adodc控件与DataGrid控件：

因为这两个控件默认状态下都不在“控件工具箱”内，所以需要手动添加到“控件工具箱”内。

1．添加Adodc控件：

在VB6里，通过菜单来添加该控件，方法：[工程] -- [部件]，出现“部件”对话框，在“控件”选项卡里，通过滚动条，找到并勾选：Microsoft Ado Data Control 60 (SP6) (OLEDB)，然后单击[确定]，这样该控件图标就出现在“控件工具箱”里了，你可以像使用其它你熟悉的控件一样，添加到窗体上。

2．添加DataGrid控件:

方法与过程与添加Adodc控件过场相似，勾选的是：Microsoft DataGrid Control 60 (SP6) (OLEDB)。

二．连接数据：

为了说明，假设你有数据库文件“数据库Mdb”，在里边有数据表“学生基本信息”和“学生成绩”。

“学生基本信息”有字段：学号、姓名、性别（都是字符类型）

“学生成绩”有字段：学号、语文、数学、英语（学号字符类型，其它数值类型）

假设你添加的控件为：Adodc1和DataGrid。

1．先将Adodc1控件连接到数据库文件：（有两种方法）

方法1：设置Adodc1的ConnectionString属性，在属性窗口点带有省略号的按钮…选[生成] -- 选Microsoft Jet 40 OLE DB Privider -- [下一步]--单击省略号按钮，定位到你保存“数据库MDB”的位置，选中该数据库，单击[打开]，连接成功了，可以测试一下。回到窗体，你会看到Adodc1的ConnectionString 属性里的一大串内容。

方法2：也可以用命令直接设置连接，在运行时通过执行该命令来完成连接，命令如下：

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控件实例\数据库mdb;Persist Security Info=False"，值得说明以下，这个双引号里的内容，是我的实际情况，因为我在VB98文件夹里，建立了子文件夹“\ADODC控件实例”，并把使用的数据库文件复制到该文件夹里了。这里引号里的一大串内容，你可以从刚在属性窗口里直接复制过来，然后做一些改动，要注意这个改动往往是必要的也是非常关键的，因为考虑到一般情况，你的应用程序不可能安装到“\VB98”这个文件夹，所以一般的改动如下：

将“Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控件实例\数据库mdb”改为“Source=" & AppPath & "\数据库mdb”即完整的情况如下：

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\数据库mdb;Persist Security Info=False"

接下来连接到数据表“学生基本信息”：

方法1：设置Adodc1的RecordSource 属性，在属性窗口点带有省略号的按钮，在“命令类型”里，选:2 – adCmdTable，在"表或存储过程名称"里，选“学生基本信息”，单击确定，你会看到ADODC1的RecordSource 属性栏里是“学生基本信息”。

方法2：也可以用命令直接设置连接：

Adodc1RecordSource = "学生基本信息"

至此，完成了ADODC1控件与数据库的连接。

三．将DataGrid1绑定到ADODC1控件：

选中窗体上的DataGrid1，设置其DataSource 属性，点右边的下拉按钮，选ADODC1，完成绑定。

设置DataGrid1显示内容与模式，右击窗体上的DataGrid1控件，选"检索字段"，选[Y]，完成。

至此，你启动窗体，就可以在DataGrid1控件里看到效果了。

可以右击窗体上的DataGrid1控件，选“属性”，进一步作设置，比如：“允许添加”、“允许删除”。

四．常用 *** 作数据库的命令:

1．刷新记录集：

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\数据库mdb;Persist Security Info=False" ‘连接数据库文件

Adodc1RecordSource = "学生基本信息" ‘连接数据表

Adodc1Refresh ‘刷新记录集，这个不能漏

2．移动记录：

Adodc1RecordsetMoveFirst ‘记录指针移动到第1条记录

Adodc1RecordsetMoveNext ‘记录指针移动到下1条记录

Adodc1RecordsetMoveLast ‘记录指针移动到最后1条记录

Adodc1RecordsetMovePrevious 记录指针移动到前1条记录

注意：上面执行Adodc1Refresh后，如果数据表非空，就自动将记录指针指向第1条记录。

3．编辑更新数据：

首先将记录移动到需要编辑更新的记录，当然在DataGrid1里可以直观地进行修改编辑，也可以用命令；

Adodc1RecordsetFields ("姓名") = “王伟” ‘用“王伟”更新当前记录的“姓名”字段

Adodc1RecordsetUpdate ‘执行更新，注意这一步不能漏

当然，你可以对某条记录的若干个字段进行更新后，再一次进行Update

4．添加记录：

Adodc1RecordsetAddNew ‘在数据表的末尾添加一条空记录（所有字段为空）

说明：如果用命令要增加一条记录信息，通常：

1）先用AddNew

2）然后用：

For i = 0 To Adodc1RecordsetFieldsCount - 1

Adodc1RecordsetFields(i) = 内容i

Next i

3）最后用：Adodc1RecordsetUpdate

5．删除记录：

首先移动到你要删除那条记录，然后执行：Adodc1RecordsetDelete

五．关于SQL语句在连接数据表时的一些基本用法：

前面介绍用Adodc控件连接好数据库文件后，要设置其RecordSource来连接数据表，即：Adodc1RecordSource = "学生基本信息"

其实RecordSource属性，可以使用SQL语法，常用Select语句格式如下：

Select 字段列表 From 数据表名 [Where …] [Order By …]

其中：

字段列表– 是指返回的记录，包含哪些字段，字段名之间用逗号分隔

数据表名 -- 是指从哪个数据表返回信息

例如1：

Adodc1RecordSource = "Select 学号,姓名 From 学生基本信息"

例如2：

Adodc1RecordSource = "Select From 学生基本信息"

例2的结果与Adodc1RecordSource = "学生基本信息"相同。其中“”表示所有字段。

Where子句– 根据条件筛选记录

Order By 子句– 设置排序

例如3：

Adodc1RecordSource = "Select From 学生基本信息 Where 性别=’女’"

仅返回女生记录。

例如4：

Adodc1RecordSource = "Select From 学生基本信息 Where 学号>’300’ And性别=’男’"

仅返回学号大于“300”的男生记录。

例如5：

Adodc1RecordSource = "Select From 学生基本信息 Order By 学号"

按照学号从小到大（升序）的次序，返回记录。

例如6：

Adodc1RecordSource = "Select From 学生基本信息 Order By 学号/D"

按照学号从大到小（降序）的次序，返回记录。

注意：/D表示从大到小，/A表示从小到大，/A是缺省表示。

关于SQL语法，可以到以下网址查询并运用，非常有价值：

>

vbnet数据库学习哪好vbnet数据库在哪所学校可以学习到这门课程。大家有什么好的职业学校推荐给我们

相信每一个学习数据库的人都在寻找合适的vbnet数据库教程学习。但是令人很失望的是,我们没有找到合适的，而且，在我们遇到困难的时候，往往不知道该去找谁来帮助我们，这往往让我们艰难的学习之路走的更加困难。在这里，北京昌平IT培训诚心为大家推荐IT职业教育学校----北京北大青鸟嘉荟学校。

北大青鸟是专业的计算机IT职业教育培训学校，成立于1999年,多年来致力于计算机人才的培养，vbnet数据库是他们的基础课程。其课程是和印度阿波泰克公司合作研究，具有国际水平，其证书更是国内外通用。在同行业中认可度极高。能够得到这里的老师指导，将会是你受益不尽。

vbnet数据库学习哪好vbnet数据库学习，就来北京北大青鸟嘉荟学校。

以上就是关于求大神帮忙做一份入门级VB数据库作业全部的内容，包括:求大神帮忙做一份入门级VB数据库作业、vb连接数据库 求教！！！。。。、vb.net数据库学习哪好等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！