Visual Basic 6.0 2008 2010程序设计视频 vb数据库编程案例教程

教程1：李天生老师VB教程

Visual

Basic

60从入门到精通

教程2：30天学通Visual

Basic项目案例开发

视频教程+源码

教程3：VB入门到高级语言开发

VB60

程序设计视频教程

教程4：Visual

Basic范例开发大全Visual

Basic案例光盘压缩包

教程5：用多媒体学Visual

Basic

2008

视频教程

VB

2008视频教程

教程地址：

>

选择  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

public cnn as adodbconnection

public rs as abodbrecordset

dim count as integer

count = 0

set cnn = new adodbconncetion

set rs = new adodbrecordset

cnnopen"连接数据库语句"

rsopen"select from 表 where 性别 = '" & 男 &"' and 适合部门='" & 销售部门 & "'" ,cnn

do while rseof =false

count=count+1

rsmovenext

loop

rsclose

以上就是关于Visual Basic 6.0 2008 2010程序设计视频 vb数据库编程案例教程全部的内容，包括:Visual Basic 6.0 2008 2010程序设计视频 vb数据库编程案例教程、用vb.net 怎样建立一个mdb数据库及一张表、如何用vb *** 作数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！