VB数据库编程实例详解 (vb数据库编程实例讲解)
VB（Visual Basic）是一种基于对象的编程语言，用于开发Windows应用程序，它也是应用最广泛的开发工具之一。在VB应用程序中，数据库是最常见的应用之一。因此，掌握VB数据库编程是必不可少的。
本文将深入介绍VB数据库编程实例，从数据的创建到数据的读取和修改，以及所有涉及的技术和知识点。我们将探讨以下主要主题：
1. 数据库连接
数据库连接是某个应用程序和数据库之间建立的通信渠道。在VB中，使用ADO（ActiveX Data Objects）以及OLE DB来连接数据库。在打开连接之前，先要设置数据库连接参数和提供程序。以下是VB中打开Oracle数据库的连接示例：
Dim cn As New ADODB.Connection
cn.Open “Provider=OraOLEDB.Oracle;Data Source=mydatabase;User ID=myusername;Password=mypassword;”
这里，mydatabase表示Oracle数据库的名称，myusername和mypassword是连接Oracle数据库所需的用户名和密码。
2. 数据库创建
VB中创建数据库通常涉及两个主要步骤：创建数据库文件；在文件中创建表和其他相关对象。以下是在VB中创建SQL Server数据库的示例：
CreateDatabase(“mydb.mdb”)
Sub CreateDatabase(ByVal sName As String)
Dim cat As New ADOX.Catalog
cat.Create(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=” & sName & “;”)
End Sub
这里，mydb.mdb表示要创建的Access数据库名称。
3. 数据表创建
VB中创建数据表需要先创建ADOX.Catalog对象，然后在其中定义数据表，并使用ADOX.Table对象来创建表。以下示例展示了在VB中创建MySQL数据表的示例：
Dim cat As New ADOX.Catalog
cat.Create “Provider=MySQL Connector/ODBC 5.3;” &
“Data Source=127.0.0.1;” &
“User ID=root;” &
“Password=password;”
Dim tbl As New ADOX.Table
tbl.Name = “MyTable”
Dim col As New ADOX.Column
col.Name = “myColumn”
col.Type = adInteger
col.ParentCatalog = cat
tbl.Columns.Append col
cat.Tables.Append tbl
这里，MySQL Connector/ODBC 5.3表示使用最新的MySQL驱动程序版本，127.0.0.1是MySQL数据库服务器的IP地址，root和password是MySQL数据库所需的用户名和密码。
4. 数据的读取和修改
在VB中，使用ADO对象模型来读取和修改数据。ADO提供了许多对象，如Recordset、Connection、Command等。下面的代码展示了如何从SQL Server数据库中读取数据：
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
con.ConnectionString = “Provider=SQLOLEDB.1;Integrated Security=SSPI;” & “Initial Catalog=myDatabase;Data Source=myServer”
con.Open
rs.open “select * from myTable”, con
While Not rs.eof
Debug.Print rs.Fields(“myColumn”).Value
rs.MoveNext
Wend
这里，myDatabase表示要使用的SQL Server数据库的名称，myServer是SQL Server数据库服务器的名称。
5. 数据库的删除
在VB中，删除数据库需要使用ADO接口。以下是在VB中删除Access数据库的示例：
Dim cat As New ADOX.Catalog
cat.ActiveConnection = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=myDatabase.mdb”
cat.Delete “myDatabase.mdb”
这里，myDatabase.mdb是要删除的Access数据库文件名。
6. 数据库事务
在VB中，使用ADO对象模型可以实现数据库事务并控制数据的一致性和完整性。以下示例展示了如何在VB中管理SQL Server数据库的事务：
Dim cn As New ADODB.Connection
cn.Open “Provider=SQLOLEDB.1;Integrated Security=SSPI;” & “Initial Catalog=myDatabase;Data Source=myServer”
cn.BeginTrans
cn.Execute “insert into myTable (myColumn) values(‘data’)”
cn.CommitTrans
在此示例中，BeginTrans方法开始一个新事务，Execute方法插入数据，CommitTrans方法提交事务。
结论
本文详细介绍了VB数据库编程实例，涵盖了连接数据库、创建数据库、数据表、读取和修改数据、删除数据库和数据库事务等主题。虽然本文篇幅有限，但它可以为您提供足够的信息和知识，以开始使用ADO和VB开发数据库应用程序。无论您是初学者还是经验丰富的开发人员，都可以受益于本文的实例和技术知识点。
相关问题拓展阅读：
用VB编程，如何实现数据库的连接和访问
VB编程语言历史＝＝＝＝＝＝＝＝＝
Visual Basic从1991年诞生以来，现在已经13年了。BASIC是微软的起家产品，微软当然不忘了这位功臣。随着每一次微软技术的浪潮，Visual Basic都会随之获得新生。可以预见，将来无论微软又发明了什么技术或平台，Visual Basic一定会首先以新的姿态登上去的。如果你想紧跟微软，永远在最新的技术上最快速地开发，你就应该选择Visual Basic。
1991-西雅图夜空的雷电
随着Windows 3.0的推出，越来越多的开发商对这个图形界面的操作系统产生了兴趣，大量的Windows应用程序开始涌现。但是，Windows程序的开发相对于传统的DOS有很大的不同，开发者必须将很多精力放在开发GUI上，这让很多希望学习Windows开发的人员却步。1991年，微软公司展示了一个叫Thunder的产品，所有的开发者都惊呆了，它竟然可以用鼠标“画”出所需的用户界面，然后用简单的BASIC语言编写业务逻辑，就生成一个完整的应用程序。这种全新的“Visual”的开发就像雷电（Thunder）一样，给Windows开发人员开辟了新的天地。这个产品最终被定名为Visual Basic，采用事件驱动，Quick BASIC的语法和可视化的IDE。Visual Basic 1.0带来的最新的开发体验就是事件驱动，它不同于传统的过程式开发。同时，VBX控件让可视化组件的概念进入Visual Basic。Visual Basic 1.0是革命性的BASIC，它的诞生也是VB史上的一段佳话。
Visual Basic 1.0
1992-渐入佳境的Visual Basic
由于Windows 3.1的推出，Windows已经充分获得了用户的认可，Windows开发也进入一个新的时代。Visual Basic 1.0的功能过于简单，相对于Windows 3.1的强大功能没有发挥出来。所以，微软在1992年推出了新版本Visual Basic 2.0。这个版本更大的改进就是加入了对象型变量，比如
Dim b As CommandButton
Dim c As Control
而且有了最原始的“继承”概念，对象型变量分为一般类型（Control和Form）和专有类型(CommandButton和Form1等)，一般类型的变量可以引用专有类型的实例，甚至通过后期绑定访问专有类型的属性和方法。还可以通过TypeOf…Is运算符获取对象实例的运行时类型信息（这个功能就是当今C#的is运算符或Java的instanceof运算符）。除了对语言的改进和扩充，Visual Basic 2.0对VBX有了很好的支持，许多第三方控件涌现出来，极大地丰富了Visual Basic的功能。微软还为Visual Basic 2.0增加了OLE和简单的数据访问功能。
Visual Basic 2.0标准版
Visual Basic 2.0专业版
1993-数据库组件新添力量
Visual Basic 2.0推出没几个月，微软就发布了新版本的Visual Basic 3.0，可以看出VB这时候旺盛的生命力。乍一看，Visual Basic 3.0的界面没有太大的变化，但其实这个版本是非常及时的。它增加了最新的ODBC2.0的支持，Jet数据引擎的支持和新版本OLE的支持。最吸引人的地方是它对数据库的支持大大增强了，Grid控件和数据控件能够创建出色的数据窗口应用程序，而Jet引擎让Visual Basic能对最新的Access数据库快速地访问。Visual Basic 3.0还增加了许多新的金融函数。此外还增加了相当多的专业级控件，可以开发出相当水平的Windows应用程序。Visual Basic 3.0是98年以前中国更流行的Visual Basic版本，因为它开发出来的可执行文件非常小，通常能用一张软盘装下。不过，Visual Basic采用虚拟机运行P代码的做法也让很多开发者不满，他们认为这样程序运行的效率很低，这时候Visual Basic的竞争者Delphi也诞生了。
Visual Basic 3.0标准版
Visual Basic 3.0特别版
1995-第二次革命性变化，向COM进军。
从1993年到1995年年中，Visual Basic一直没有新的动静，焦急的开发者都想一窥这个神秘的新版本到底发生了什么变化。Visual Basic 4.0的BETA最后终于和大家见面了。这个版本包含了16位和32位两个版本，16位的版本就像是Visual Basic 3.0的升级版，而32位版则是一场新的革命。首先，人们发现VBX控件不见了，全部换成了OCX控件，这个OCX可能是指OLE Custom Controls，这个OLE已经不是传统的OLE了，用现在的话说，它就是COM控件。第二个更大变化是Visual Basic 4.0所用的语言换成了Visual Basic For Application，这就和Office 95所采用的宏语言统一起来，这个新语言有很多亮点：
1、? 加入了“类模块”。这是面向对象最重要的封装性的基础。
2、? 加入了属性过程，加上函数过程，子程序过程，VB已经有组件开发所需的封装性特征。
3、? 加入了Byte类型、Boolean类型和Object类型。这大大完善了VB的类型系统。
4、? For Each语句和Collection对象。For Each语句给遍历类型提供了极大的方便，现在可以在动态增长的Collection上使用For Each，而不用担心内容的总数或烦人的下标问题。
这个版本的Visual Basic还能够开发DLL工程，其实就是COM的DLL，可以将书写好的类用这种方式和其他语言共享。
总之，这个4.0的版本为Visual Basic成为一种COM语言奠定了基础。用Visual Basic 4.0开发基于COM的DLL比任何一种开发工具都方便。但是，Visual Basic 4.0的性能问题变得更加严重了，P-代码的组件成为Visual Basic 4.0严重的性能瓶颈，而且巨大的运行库也让用户感到不满。Visual Basic 4.0对以前版本的支持也不好，使用了大量VBX的项目很难移植到Visual Basic 4.0中。因此，Visual Basic 4.0在中国的普及程度非常低。
Visual Basic 4.0
1997-Visual Basic的丰收年
1997年，微软推出了Visual Basic 5.0，这个版本的重要性几乎和4.0一样高。COM（这时候叫ActiveX）已经相当成熟，Visual Basic 5.0当然对它提供了最强的支持。不过，国内还没有意识到COM的重要性前主要对这个版本另一个更大的亮点十分关注：本地代码编译器。Visual Basic 5.0终于在用户的呼声中加入了一个本地代码编译器，它可以让应用程序的效率大大提升。除了这个大家都知道的改进以外，Visual Basic 5.0对Visual Basic For Application语言有重大的完善和丰富：
5、? 事件。Visual Basic 5.0终于允许用户自己创建事件，而且这事件的语法相当强健和完善，这在一种不支持函数回调的语言中是很难得的。现在，VB拥有属性、方法和事件的完整封装性。
6、? 接口。这是VB实现多态性的基础。同时为编写COM组件提供了更多方便。
7、? 枚举。在Visual Basic 5.0中枚举作为Long整型的子类型出现，用枚举可以对常量进行完善的封装。
8、? 类模块的改进。通过类模块的属性可以指定类模块具有多种指定的行为，如私有构造函数等，可以通过这个功能创建符合Singleton和Monostate模式的设计。
9、? Debug.Assert。虽然这个断言系统有点鸡肋，但是总算是给调试带来了方便。
10、 Visual Basic 5.0支持创建自己的类。可以创建用于For Each语句的类型。
11、新的数据类型Decimal，可以精确地处理有效数位较多的计算。
Visual Basic 5.0的IDE支持“智能感知”，这是一项非常方便开发者的功能，可以不必记住很长的成员名称和关键字，只要按“.”，想要的东西统统弹出来。
Visual Basic 5.0还支持开发自己的ActiveX 控件、进程内的COM DLL组件、进程外的COM EXE组件以及在浏览器中运行的ActiveX文档。这极大丰富了Visual Basic的开发能力，在Internet开发上，Visual Basic 5.0也能有所建树。
Visual Basic 5.0学习版——我的之一份正版VB
1998-企业真正高效的源泉
Visual Basic 6.0作为Visual Studio 6.0的一员发布，证明微软正在改变Visual Basic的产品定位，他想让Visual Basic成为企业级快速开发的利器。Visual Basic 6.0在数据访问方面有了很大的改进，新的ADO组件让对大量数据快速访问成为可能。数据环境和新的报表功能也让数据开发有了全新的体验。Visual Basic 借助COM/COM+强大的功能，可以开发具有N层结构的分布式应用程序。同时，Visual Basic还可以在IIS上开发性能超群的Web应用程序。Visual Basic 6.0在语言方面和IDE方面的改进都不大，但是许多新增的组件成为Visual Basic开发人员手中的利器，如File System Object等。新的字符串函数Split和Replace等也给Visual Basic的程序员带来很大方便。
总之Visual Basic 6.0已经是非常成熟稳定的开发系统，能让企业快速建立多层的系统以及Web应用程序，成为当前Windows上更流行的Visual Basic版本。
Visual Basic 6.0
2023-第三次革命性变化，向.NET进军
从1998年发布到2023年正式推出Visual Basic. NET简直吊足了开发者的胃口。从2023年就开始传言的具有继承、Try…Catch语句等新功能的全新VB7.0一直没有露面。直到2023年，Visual Studio.NET的之一个BETA版问世的时候，所有人都呆了——这是Visual Basic吗？And语句变成了BitAnd，数组只能从0下标开始，而且连Dim语句的意义都变了，几乎所有的窗体控件都变了，Long变成了Integer而Integer变成了Short，Variant不见了，Static不能用了……简直是翻天覆地，人们已经无暇关注这个版本有什么改进，转而担心我怎么才能接受这个本本了。其实Visual Basic. NET完全是为了.NET Framework这一全新的平台而设计的，Visual Basic. NET的设计者一开始没有掌握好新平台和旧语言的平衡。到了BETA2中，很多东西回归了6.0，如BitAnd又变回了And，数组的定义语句也变回了原有的意义，Static也回到了Visual Basic中。但是BETA1惊人的变化让所有的VB开发者怕了，他们觉得这种语言被改的千疮百孔，有些人干脆转去研究传说中的新语言C#。但是Visual Basic. NET渡过几个BETA版本之后还是找到了正确的定位。Visual Basic. NET有对CLR最完善的支持，同时尽量保留着BASIC易懂的语法风格和易用性。这个版本新增加的功能已经数不清，最重要的几个是：
1、? 继承。至此，Visual Basic完成了向面向对象转变的道路。
2、? 共享成员。
3、? Try…Catch结构化异常处理。
4、? Delegate和Interface。
5、? 名称空间。
6、? 对自由线程的支持。
特别的是，Visual Basic. NET大大减少了Visual Basic语言的关键字，如GoSub、PSet等等。原先的Visual Basic有多达120个关键字，这给写程序带来了很大的不便，现在经过精简，Visual Basic脱下了这个沉重的包袱。
Visual Basic. NET现在是一门现代的、强壮的、面向对象的、简单的可视化开发语言。强大的语言功能吸引了很多开发者。历史是在不断重演的，Visual Basic. NET如今的处境和Visual Basic 4.0很相似，由于兼容性变差，人气也降低了。同时由于依附于.NET Framework，程序发布造成了一定的困难。现在国内使用Visual Basic. NET的人相对于Visual Basic 6.0来讲显得很少。但是凭借Visual Basic. NET强大的语言功能和MS的支持，Visual Basic. NET一定会显出它的光辉来。
2023-稳中求变的新版本
Visual Basic. NET 2023是一个相当稳重的版本，改变很少，但对小处有很多改进。首先Visual Basic 6.0升级向导做了很大改进，这给从老版本痛苦升级的人带来了更多一些的希望。其次在IDE方面，Visual Basic. NET 2023修正了许多错误，还让事件处理恢复了6.0的开发体验。语言方面只有两项改进：
1、? 在For、For Each语句中声明循环变量。
2、? 增加了数学移位运算符>。
在这个比较成熟稳定的新版本下，许多Visual Basic的爱好和开始重新了解Visual Basic. NET，社区里面也渐渐热闹起来。但是，有些使用C#的开发者坚持认为Visual Basic. NET是垃圾，尽管Visual Basic. NET拥有比C#更多的功能和更好的IDE。这说明不了解Visual Basic. NET成为它普及的更大障碍。
2023-完美主义的Visual Basic，能否再现辉煌？
为了让Visual Basic有更佳的开发体验，Visual Basic 2023的设计者绞尽了脑汁。这次Visual Basic 2023光语言上的改进就足以让Visual Basic的开发人员高兴一阵子。大家可以去看看我那篇介绍Visual Basic 2023新增功能的贴子。挑重要的列在下边：
1、? 泛型
2、? 运算符重载
3、? Partial Type
4、? 窗体的默认实例（让你用VB6的语法使用窗体）
5、? 语法的多种改进
6、? My关键字
现在用Visual Basic 2023只要一行代码就可以读写注册表、访问文件、读写串口、获取应用程序信息…… 用Visual Basic 2023完全可以称作享受开发。而泛型、运算符重载等功能又可以让Visual Basic的开发人员深入.NET Framework的全部功能，开发出更优秀的应用程序。
Visual Basic 2023预示着Visual Basic光明的前景，所有Visual Basic的爱好者和使用者都和我一起等待这个新版本吧。
C++编程语言历史＝＝＝＝＝＝＝＝
C++是从C语言发展而来的，而C语言的历史可以追溯到1969年。 在1969年，美国贝尔实验室的Ken Thompson为DEC PDP-7计算机设计了一个操作系统软件，这就是最早的UNIX。接着，他又根据剑桥大学的Martin Richards设计的BCPL语言为UNIX设计了一种便于编写系统软件的语言，命名为B。B语言是一种无类型的语言，直接对机器字操作，这一点和后来的C语言有很大不同。作为系统软件编程语言的之一个应用，Ken Thompson使用B语言重写了其自身的解释程序。 1972—1973年间，同在贝尔实验室的Denis Ritchie改造了B语言，为其添加了数据类型的概念，并将原来的解释程序改写为可以在直接生成机器代码的编译程序，然后将其命名为C。1973年，Ken Thompson小组在PDP-11机上用C重新改写了UNIX的内核。与此同时，C语言的编译程序也被移植到IBM 360/370、Honeywell 11以时VAX-11/780等多种计算机上，迅速成为应用最广泛的系统程序设计语言。 然而，C语言也存在一些缺陷，例如类型检查机制相对较弱、缺少支持代码重用的语言结构等，造成用C语言开发大程序比较困难。 为了克服C语言存在的缺点，贝乐实验室的Bjarne Stroustrup博士及其同事开始对C语言进行改进和扩充，将“类”的概念引入了C语言，构成了最早的C++语言（1983）。后来，Stroustrup和他的同事们又为C++引进了运算符重载、引用、虚函数等许多特性，并使之更加精炼，于1989后推出了AT&T C++ 2.0版。随后美国国家标准化协会ANSI(American National Standard Instiute)和国际标准化组织ISO(International Standards Organization)一起进行了标准化工作，并于1998年正式发布了C++语言的国际标准ISO/IEC:。各软件商推出的C++编译器都支持该标准，并有不同程序的拓展。 C++支持面向对象的程序设计方法，特别适合于中型和大型的软件开发项目，从开发时间、费用到软件的重用性、可扩充性、可维护性和可靠性等方面，C++均具有很大的优越性。同时，C++又是C语言的一个超集，这就使得许多C代码不经修改就可被C++编译通过。
JAVA编程语言历史＝＝＝＝＝＝＝＝＝
Java，是一种可以编写跨平台应用软件的面向对象的程序设计语言，由Sun（太阳微电子，Sun Microsystems）公司的James Gosling等人于1990年代初开发。它最初被命名为Oak，作为一种小家用电器的编程语言，来解决诸如电视机、、闹钟、烤面包机等家用电器的控制和通讯问题。由于这些智能化家电的市场需求没有预期的高，Sun放弃了该项计划。就在Oak几近夭折之时，随着Internet的发展，Sun看到了Oak在计算机网络上的广阔应用前景，于是改造了Oak，在1995年5月以”Java”的名称正式发布了。Java伴随着Internet的迅猛发展而发展，逐渐成为重要的Internet编程语言。
Java编程语言的风格十分接近C++语言。Java继承了C++语言面向对象技术的核心，舍弃了C++语言中的指针（以引用取代）、运算符重载、多重继承（以接口取代）等成分，增加了自动垃圾收集功能用于回收不再被引用的对象所占据的内存空间。在J2SE1.5版本中Java又引入了泛型编程、类型安全的枚举、不定长参数和自动装/拆箱等语言特性。
Java不同于一般的编译执行计算机语言和解释执行计算机语言。它首先将源代码编译成字节码，然后依赖各种不同平台上的虚拟机来解释执行字节码，从而实现了“一次编译、到处执行”的跨平台特性。不过，这同时也在一定程度上降低了Java程序的运行效率。
Sun公司对Java编程语言的解释是：Java编程语言是个简单、面向对象、分布式、解释性、健壮、安全与系统无关、可移植、高性能、多线程和动态的语言。
Java平台是基于Java语言的平台。这样的平台目前非常流行，因此微软公司推出了与之竞争的.NET平台以及模仿Java的C#语言。
目前Java提供以下三个版本：
J2ME（Java 2 Platform, Micro Edition）：微型版的Java平台
J2SE（Java 2 Platform, Standard Edition）：标准版的Java平台
J2EE（Java 2 Platform, Enterprise Edition）：企业版的Java平台
Java的历史：
1995年5月23日，Java语言诞生
1996年1月，之一个JDK-JDK1.0诞生
1996年4月，10个最主要的操作系统供应商申明将在其产品中嵌入JAVA技术
1996年9月，约8.3万个网页应用了JAVA技术来制作
1997年2月18日，JDK1.1发布
1997年4月2日，JavaOne会议召开，参与者逾一万人，创当时全球同类会议规模之纪录
1997年9月，JavaDeveloperConnection社区成员超过十万
1998年2月，JDK1.1被下载超过2,000,000次
1998年12月8日，JAVA2企业平台J2EE发布
1999年6月，SUN公司发布Java的三个版本：标准版、企业版和微型版（J2SE、J2EE、J2ME）
2023年5月8日，JDK1.3发布
2023年5月29日，JDK1.4发布
2023年6月5日，NOKIA宣布，到2023年将出售1亿部支持Java的手机
2023年9月24日，J2EE1.3发布
2023年2月26日，J2SE1.4发布，自此Java的计算能力有了大幅提升
2023年9月30日18:00PM，J2SE1.5发布，是Java语言的发展史上的又一里程碑事件。为了表示这个版本的重要性，J2SE1.5更名为J2SE5.0
软件本身已经显示了如何实现,应按就是那张图片
用VB做一个数据库该怎么做给点思路 或者从哪下手
大致有以下几步:读取文件 — 格式化数据 — 关闭文件 — 使用数据如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要 时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步:打开数据库 — 查找数据 — 使用数据 — 关闭数据库从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项.由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access.就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA.当数据库设计好了以后,我们可以开始”数据库编程”了.首先,我们需要引用ADO.具体的方法是,在”工程” — “引用” 中,找到”Microsoft ActiveX Data Object *.* Library”,这里的”*.*”是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.创建这两个对象的具体方法是:1.在引用后,使用New关键字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset2.在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject(“ADODB.Connection”) Set Reco = CreateObject(“ADODB.Recordset”)创建了对象之后,下一步我们要做的就是打开数据库了.先看下面的代码,可以成功的打开数据库. Conn.open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb” 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的之一个参数是连接代码,它将传递给系统的数据库引擎.前半部分”Provider= Microsoft.Jet.OLEDB.4.0″,它表示了数据库的类型.不同的数据库可能会不同.后半句”Source=d:\main.mdb”它表示了数据库所在的绝对路径.打开数据库之后,还要打开表.假如数据库中有一个表,表名为”Users”,字段有两个,一个为用户名,一个为密码.那么看以下代码.1.想返回”Users”中,为”去年烟花”的 Recordset.open “Select 密码 From Users Where 用户名=’去年烟花'”,Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox “用户不存在!”,16 Else If PassWord =Recordset(“密码”).value then msgbox “登录成功!”,64 Else msgbox “密码错误!”,32 End If End If Recordset.Close2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open “Select * From Users”,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. Do whlie Not Recordset.eof Print “用户名: ” & Recordset(“用户名”).value & “密码: ” & Recordset(“密码”).value Recordset.MoveNext Loop Recordset.Close由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.之一个参数是SQL语句.Select From 表名 这里的条件可以省略.且字段名也可以用”*”来代替所有字段.需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开字段,所以这一句Recordset(“密码”)就没有值存在,还有可能出错.后面的条件,可以用”=”、”>”、” 32″.(这里假设为数字型.) 这是打开的部分.第二个很重要的部分就是查询记录.数据库它并不是把所有记录全部放到一个变量中备用的.而是以”当前记录”的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.定位: 移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到之一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number筛选: Recordset.Find “条件”如: Private Sub Command1_Click() Recordset.Find “用户名=” & “text1.text” If Recordset.Eof True Then Msgbox “该用户的密码是:” & Recordset(“密码”).value,64 Else Msgbox “未找到该用户的资料!”,16 End If End SubMoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时…. 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用. Find 方法中的条件和Open时的之一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录. 第三个部分就是添加/修改记录. 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了. 比如: Recordset(“密码”).value = “123456” Recordset.Updata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.而添加记录则可以用以下代码来实现: Recordset.addnew Recordset(“用户名”).value = “Admin” Recordset(“密码”).value = “Admin” Recordset.Updata这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.到这里就差不多了,最后说一下上面提到的几个方法.Recordset.Open SQL语句,数据源,游标类型,打开方法SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 去他妈的游标类型,填1就可以了 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看. 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读Connection.open 连接代码,服务器用户名,密码 这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.
用VB做一个数据库应用系统。首先要确定自己选择什么样的数据库来做，通常有如下两种：
1、使用ACCESS后台数据库来开发的主要是单机版程序。
2、使用MSSQL后台数据库来开发网络型应用程序（系统）。
只有在确定好了，在使用什么后台数据库；再来规划自己的系统有那些功能等等。、
具体可以参考软件开发程序的步骤。
vb编程实例
我觉得你可以用用Labview,他的功能也很强大啊。最重要的是他是一种图形编程软件，也就是说不用编写代码直接连线就成。而且他的界面可以写得非常漂亮。在很多大学里，已经专门开了这样一门课程。这门软件深受很多工程师和科学家的喜欢。
下面的代码是利用三边计算三角形面积
Private Sub Command1_Click()
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
if a+b>c and b+c>a and a+c>b then
text4.text=”三角形的面积是:” & s
else
text4.text=”不能构成三角形”
end if
end sub
下面是计算两数之和的代码
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
text3.text=a+b
end sub
你装VB时有个MSDN,也就是帮助，里面大量实例，还带解释
楼上的 s=sqr(p*(p-a)*(p-b)*(p-c))
因该改成s=sqr（abs(p*(p-a)*(p-b)*(p-c)))
应为当三角形的三边不能够够成三角行的时候并且三边相差很大的时候用P减去某条边的时候就有可能的负数！！
写个猜数字吧，挺好的。
我把源码地址给你，就不在这儿复制了。
关于vb数据库编程实例讲解的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
