vb 数据库(vb用什么数据库)
一、vb用什么数据库
vb连接什么数据库都能用。
1.但是从支持和稳定方面建议用：access，sqlserver
2.小型的数据量不大或单机模式：access（小型桌面数据库，对多客户端支持不好）
3.中大型的数据量大或多机模式（多客户端）：sqlserver（中大型数据库，多客户端支持好）
4.vb，access，sqlserver全是微软的产品，兼容性没得说
5.看需求：如果需求大可以改成大型数据库甚至改变开发语言和改用开发模式cs模式改用bs模式等
6.绝对原创，一个字一个字打字。
二、vb是一种什么模型的数据库管理系统
VB（VisualBasic）不是一种数据库管理系统，而是一种编程语言。它是微软公司开发的一种基于事件驱动的编程语言，常用于开发Windows应用程序。VB可以与各种数据库管理系统（如MySQL、Oracle、SQLServer等）进行交互，通过编写代码来实现对数据库的管理和操作。因此，VB可以用于开发基于数据库的应用程序，但它本身并不是一种数据库管理系统。
三、求VB连接数据库实例
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveXDataobjects2。6library和microsoftactiveXDataobjectsrecordset2。
6两个组件，这是在连接数据前所必做的工作。2、接下来定义ADO的连接对象，如下所示：Setconn=NewADODB。ConnectionSetrs=NewADODB。Recordset第一种方法采用的是无源的数据库连接方法conn。
ConnectionString="Driver={sqlserver};server=JSZX3-11;uid=sa;pwd=;database=wzc"conn。ConnectionTimeout=30conn。
Openrs。Open"select用户名,密码fromloginwhere用户名='"&Trim(Combo1。Text)&"'And密码='"&Trim(Text1。
Text)&"'",conn,adOpenStatic,adLockReadOnly,adCmdTextIfrs。EOF=TrueAndrs。BOFThenm=MsgBox("请重新登录",vbExclamation)Text1。
Text=""Text1。SetFocusElseForm1。HideEndIfrs。Close这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：Setconn=NewADODB。
ConnectionSetrs=NewADODB。Recordsetconn。ConnectionString="DSN=login;uid=sa;pwd=;"conn。ConnectionTimeout=30conn。
Openrs。Open"select用户名fromlogin",conn,adOpenStatic,adLockReadOnly,adCmdTextDimiAsStringFort=0ToVal(rs。
RecordCount)-1i=Trim(rs。Fields("用户名")。Value)rs。MoveNextCombo1。AddItemiNexttrs。Close下面是连接数据库具体代码：PublicconnAsNewADODB。
ConnectionPublicrsAsNewADODB。RecordsetPublicaddFlagAsBooleanPublicFunctionOpenCn()AsBooleanDimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB。
Connectionconn。ConnectionTimeout=25conn。Provider="sqloledb"conn。Properties("datasource")。Value="127。
0。0。1"''服务器的名字conn。Properties("initialcatalog")。Value="chart"''库名conn。Properties("integratedsecurity")。
Value="SSPI"''登陆类型conn。OpenOpenCn=TrueaddFlag=TrueExitFunctionstrerrmag:mag="Datacan''tconnect"CallMsgBox(mag,vbOKCancel,"Error:Dataconnect")addFlag=FalseEndEndFunctionPublicSubclocn()OnErrorResumeNextIfconn。
StateadStateClosedThenrs。CloneSetrs=Nothing。