visualbasic与数据库

Ⅰ 为什么用VB开发数据库

用Visual Basic作为数据库开发平台有以下优点：
(1)简单性。Visual Basic提供了数据控件，利用该控件，用户只要编写少量的代码甚至不编写任何代码就可以访问数据库，对数据库进行浏览。
(2)灵活性。Visual Basic不像一般的数据库(如Access)那样局限于特定的应用程序结构，也不需要用某些指令对当前打开的数据库进行操作，因而比较灵活。
(3)可扩充性。Visual Basic是一种可以扩充的语言，其中包括在数据库应用方面的扩充。在Visual Basic中，可以使用ActiveX控件(以前版本中称为VBX或OLE控件)，这些控件可以由Microsoft公司提供，也可以由第三方开发者提供。有了这些控件，可以很容易地在Visual Basic中增加新功能，扩充Visual Basic数据存取控制的指令系统。在其它数据库开发平台中，目前还不具备ACtiveX控件。

Ⅱ visual basic是数据库管理系统吗

Visual Basic当然不死数据库管理系统，常见的数据库管理系统有: SQL Server, Oracle, MySQL, PostgreSQL等。
Basic是一种编程语言，而Visual Basic则是以Basic为编程语言的一个可视化的集成开发工具。

Ⅲ 鍦╒isual Basic涓鐢―AO瀹炵幇鏁版嵁搴撶紪绋

DAO(DataAccessObject)鍏ㄧО涓烘暟鎹璁块梾瀵硅薄锛屽畠鏄鏁版嵁搴撶紪绋嬬殑閲嶈佹柟娉曚箣涓銆侱AO镄勪竴绉嶉溃钖戝硅薄镄勭晫闱㈡帴鍙,鐗硅壊涓哄畠涓嶆槸鍙瑙嗗寲镄勫硅薄锛屼娇鐢ㄥ畠鍏ㄩ儴閮借侀潬缂栫爜𨱒ュ畬鎴愶纴DAO鏄璁捐″叧绯诲瀷鏁版嵁搴撶郴缁熺粨鏋勭殑瀵硅薄绫荤殑闆嗗悎銆傚畠鎻愪緵浜嗗畬鎴愮＄悊杩欐牱涓涓绯荤粺镓闇镄勫叏閮ㄦ搷浣灭殑灞炴у拰鏂规硶锛屽寘𨰾鍒涘缓鏁版嵁搴掳纴瀹氢箟琛ㄣ佸瓧娈靛拰绱㈠紩锛屽缓绔嬭〃闂寸殑鍏崇郴锛屽畾浣嶅拰镆ヨ㈡暟鎹搴撶瓑宸ュ叿銆傜敱浜峣DO(ActiveXDataObjectActiveX鏁版嵁瀵硅薄)镄勫嚭鐜帮纴DAO镄勪娇鐢ㄥ凡澶уぇ鍑忓皯锛屼絾瀹冩棤椤讳娇鐢∣DBC(寮鏀炬暟鎹搴撹繛鎺)渚垮彲杩炴帴钖勪釜鏁版嵁婧愶纴锲犺屾垜浠浠岖粡甯哥敤缁忓吀镄凞AO銆备笅闱㈡垜钖戝ぇ瀹惰︾粏浠嬬粛濡备綍浣跨敤DAO缂栫▼銆
DAO浣跨敤涔嫔墠蹇呴’鍏埚紩鐢ㄣ傛柟娉曚负镓揿紑VB6.0,浠嵘B镄"宸ョ▼"凿滃崟涓锛岄夋嫨"寮旷敤"椤癸纴褰"寮旷敤"瀵硅瘽妗嗗嚭鐜板悗锛屼粠搴撶殑鍒楄〃涓锛岄夋嫨"MicrosoftDAO3.51ObjectLibrary",鍗曞嚮"纭瀹"銆傜幇鍦ㄤ究鍙浠ヤ娇鐢―AO瀵硅薄搴撴彁渚涚殑镓链夊硅薄杩涜岀紪绋嬩简銆
涓銆佸垱寤烘暟鎹搴掳细
鍦―AO涓鐢–reatDataBase鏂规硶鍙浠ユ牴鎹鐢ㄦ埛闇姹傚姩镐佺殑鍒涘缓鏁版嵁搴撱傝繖涓镣瑰湪绋嫔簭涓鏄闱炲父链夌敤镄勚傜敤鎴峰彲浠ユ牴鎹瑕佹眰瀹炴椂寤虹珛鏁版嵁搴撱傚缓绔嬭繃绋嫔备笅锛氥
PrivateSubCom_creat_Click()
OnErrorGoToErr100
CreatDataBase"鏁版嵁搴揿悕绉.mdb"锛宒bLangGeneral
Msgbox"鏁版嵁搴揿缓绔嫔畬姣"
ExitSub
Err100:
MsgBox"涓嶈兘寤虹珛鏁版嵁搴!"vbCrLfvbCrLfErr.Description,vbInformation
EndSub
杩欐牱锛屾暟鎹搴扑究鍦ㄥ綋鍓嶉粯璁ょ殑璺寰勪笅寤虹珛浜嗐
浜屻佸垱寤鸿〃涓庡瓧娈碉细
寤虹珛鏁版嵁搴揿悗锛屽垯闇瑕佸湪璇ユ暟鎹搴扑腑寤虹珛琛锛岃繖瑕佺敤鍒瘪ableDef瀵硅薄銆傚厛瀹氢箟涓涓猅ableDef绫诲瀷镄勫硅薄锛岀劧钖庣敤TableDef闆嗗悎涓瑼ppend鏂规硶灏嗕箣杩藉姞鍒版暟鎹搴揿綋涓铡汇傚苟涓斿悓镞跺畾涔変竴涓狥ield瀵硅薄锛岀敤CreatFiele镄勬柟娉曞垱寤轰竴涓狥ield瀵硅薄锛屽悜琛ㄤ腑娣诲姞瀛楁点备緥濡:
PrivateSubCom_table_Click()
OnErrorGoToErr100
DimDefdbAsDataBase
DimNewTableAsTableDef
DimNewFieldAsField
SetDefdb=Workspaces(0).OpenDatabase(App.path"鏁版嵁搴揿悕绉.mdb",0,False)
SetNewTable=DefDataBase.CreateTableDef("琛ㄥ悕")
SetNewField=DefTable.CreateField("瀛楁靛悕",dBText,6)钬插垱寤轰竴涓瀛楃﹀瀷镄勫瓧娈碉纴闀垮害涓6涓瀛楃
DefTableFields.AppendNewField钬插瓧娈佃拷锷
DefDatabase.TableDefs.AppendNewTable钬茶〃杩藉姞
Msgbox"琛ㄥ缓绔嫔畬姣"
ExitSub
Err100:
MsgBox"瀵逛笉璧凤纴涓嶈兘寤虹珛琛ㄣ傝峰厛鍐嶅缓琛ㄥ墠寤虹珛鏁版嵁搴掳纻",vbCritical
EndSub
涓涓鏁版嵁搴揿彲鑳芥湁鍗佸嚑涓鐢氲呖鍑犲崄涓瀛楁碉纴涓涓琛ㄤ腑链夊氩皯涓瀛楁碉纴鍒栾佸垱寤哄氩皯娆″苟瑕佽拷锷犲埌琛ㄤ腑銆傛疮寤虹珛涓涓瀛楁靛悗閮借佺敤鍒板瓧娈佃拷锷犲懡浠わ纴浣嗘槸琛ㄨ拷锷犲彧闇鍦ㄦ墍链夊瓧娈靛缓绔嫔畬鎴愬悗鐢ㄤ竴𨱒″懡浠ゅ嵆鍙瀹屾垚銆
涓夈佹墦寮鏁版嵁搴掳细
鍦╒B涓锛屽逛竴涓瀵硅薄鍙橀噺寮旷敤涔嫔墠蹇呴’锷犱互璇存槑銆侱AO涔熸槸濡傛わ纴蹇呴’鍏埚０鏄庢暟鎹搴揿彉閲忥纴渚嫔傦细DimdbaseAsDatabase銆傚缓绔嬩简鏁版嵁搴揿硅薄鍙橀噺钖庯纴鎴戜滑渚垮彲镓揿紑鏁版嵁搴扑简锛屽湪涓鑸𨱍呭喌涓嬮兘鍙鏄璁块梾涓涓鏁版嵁搴掳纴褰撴墦寮鏁版嵁搴揿悗鍐嶅规暟鎹搴扑腑镄勫悇涓璁板綍杩涜屾搷浣滐纴杩椤氨瑕佺敤鍒癛ecordset瀵硅薄寤虹珛璁板綍闆嗐备緥濡傦细銆
PrivateSubCommand_OpenDatabase_Click()
DimdbaseasDatabase
DimrsAsRecordset
Setdbase=OpenDatabase(App.path"鏁版嵁搴揿悕绉.mdb")
Setrs=dbase.OpenRecordset("select*from琛ㄥ悕")
EndSub
杩欐牱锛屾暟鎹搴扑腑镄勮板綍渚挎斁鍒癛ecordset涓锛屽彲浠ヨ繘琛屽悗缁镎崭綔浜嗐
锲涖佷娇鐢ㄦ暟鎹搴掳细
褰撴墦寮鏁版嵁搴掳纴寤虹珛Recordset璁板綍闆嗗悗锛屼究鍙娴忚堛佸垹闄ゃ佹坊锷犮佹煡镓炬暟鎹搴扑腑镄勫唴瀹广
1锛夊悜鍓嶆祻瑙
PrivateSubcmd_previous_Click()
rs.MovePrevious
ifrs.BOF=Truethen
rs.Movelast
Endif
fori=0to11
label(i).caption=rs.F
2锛夊悜钖庢祻瑙
PrivateSubcmd_next_Click()
rs.MoveNext
Ifrs.EOF=Truethen
rs.MoveFirst
Endif
fori=0to11
label(i).caption=rs.Fields(i)""
next
EndSub
3锛夊垹闄よ板綍
PrivateSubcmd_del_Click()
OnErrorGoTohandle
Dimmsgasstring
msg="鏄钖﹁佸垹闄よ板綍"Chr$(10)
msg=msglabel(0)钬叉妸鍒犻櫎璁板綍镄勪唬鍙峰姞鍏msg涓
IfMsgbox(msg,17,"鍒犻櫎璁板綍")1ThenExitsub
rs.delete
rs.Movenext
Ifrs.EOF=TrueThen
rs.MovePrevious
Endif
fori=0to11
label(i).caption=rs.Fields(i)""
next
handle:
MsgBox"璇ヨ板綍镞犳硶鍒犻櫎!!!"
ExitSub
EndSub
4锛夋坊锷犺板綍
钖戞暟鎹搴扑腑娣诲姞璁板綍姣旇缉楹荤储涓镣癸纴澶ц嚧鍒嗕负涓夋ワ细棣栧厛锛岀敤AddNew鏂规硶钖戞暟鎹搴撴坊锷犱竴涓鏂扮殑绌虹槠璁板綍锛涘叾娆★纴灏呜佽緭鍏ョ殑鏁版嵁鍒嗗埆璧嫔埌鏁版嵁搴撶殑钖勪釜瀛楁典腑锛涙渶钖庯纴鐢║pdata镄勬柟娉曪纴鎶婅板綍鍐椤埌鏁版嵁搴扑腑铡汇备緥濡傦细
PrivateSubcmd_new_Click()
rs.AddNew
Fori=0to11
rs.Fields(i)=TextBox(i).Text
Next
rs.Updata
EndSub
5锛夋煡镓捐板綍
镆ユ垒璁板綍鍙浠ョ敤Find鏂规硶锛屼緥濡傦细銆
PrivateSubCmd_search_Click()
Setrs=dbase.openRecordset("琛ㄥ悕"锛宒bopenDynaset)
rs.findfirst"瀛楁靛悕='"Text.Text"'"钬睺ext.Text鏄杈揿叆镄勫叧阌瀛
ifrs.Nomatch=Truethen
Msgbox"瀵逛笉璧凤纴娌℃湁璇ヨ板綍"
else
Fori=0to11
label(i).caption=rs.Fields(i)""
Next
Endif
rs.close
EndSub
浠ヤ笂鍙鏄澶ц嚧浠嬬粛浜咲AO镄勪竴浜涙渶甯哥敤銆佹渶鍏稿瀷镄勭敤娉曪纴鐪熸ｈ佺啛缁冩帉鎻″畠闇瑕佷笉镍堢殑锷锷涖傚綋浣犲緢濂界殑鐞呜В浜咲AO钖庯纴瀵瑰︿範鏂扮殑RDO鍜孉DO涔熸湁寰埚ぇ镄勫府锷┿傚苟涓挤AO鍜孉DO鍙浠ュ悓镞朵娇鐢锛娈AO镄勭己闄峰湪浜庢煡镓惧姛鑳戒笉寮猴纴娌℃湁ADO鏂逛究锛屼絾锷ㄦ佸垱寤烘暟鎹搴揿嵈杩滆秴ADO锛屽洜姝ゆ湁镞朵簩钥呯粨钖堟洿寮哄ぇ銆傛垜浠鐩镐俊DAO涓瀹氢细甯浣犺妭绾﹀疂璐垫椂闂达纴涓哄伐浣沧彁渚涙柟渚裤

Ⅳ Visual Basic阈炬帴鏁版嵁搴撶殑钖勭嶆柟娉

1.浣跨敤OLE DB 鏂瑰纺镓揿紑鏁版嵁搴
2.杩炴帴鍒痨ccess
3.浣跨敤ODBC镓揿紑鏁版嵁搴

Ⅳ 数据库是什么意思，VB是拿来做什么用的它们有什么关系吗

Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序
★数据库发展阶段大致划分为如下几个阶段：
人工管理阶段；
文件系统阶段；
数据库系统阶段；
高级数据库阶段。

当人们从不同的角度来描述这一概念时就有不同的定义(当然是描述性的)。例如，称数据库是一个“记录保存系统”(该定义强调了数据库是若干记录的集合)。又如称数据库是“人们为解决特定的任务，以一定的组织方式存储在一起的相关的数据的集合”(该定义侧重于数据的组织)。更有甚者称数据库是“一个数据仓库”。当然，这种说法虽然形象，但并不严谨。
严格地说，数据库是“按照数据结构来组织、存储和管理数据的仓库”。在经济管理的日常工作中，常常需要把某些相关的数据放进这样“仓库”，并根据管理的需要进行相应的处理。例如，企业或事业单位的人事部门常常要把本单位职工的基本情况(职工号、姓名、年龄、性别、籍贯、工资、简历等)存放在表中，这张表就可以看成是一个数据库。有了这个"数据仓库"我们就可以根据需要随时查询某职工的基本情况，也可以查询工资在某个范围内的职工人数等等。这些工作如果都能在计算机上自动进行，那我们的人事管理就可以达到极高的水平。此外，在财务管理、仓库管理、生产管理中也需要建立众多的这种"数据库"，使其可以利用计算机实现财务、仓库、生产的自动化管理。
J.Martin给数据库下了一个比较完整的定义：数据库是存储在一起的相关数据的集合，这些数据是结构化的，无有害的或不必要的冗余，并为多种应用服务；数据的存储独立于使用它的程序；对数据库插入新数据，修改和检索原有数据均能按一种公用的和可控制的方式进行。当某个系统中存在结构上完全分开的若干个数据库时，则该系统包含一个“数据库集合”。

Ⅵ Visual Basic 6.0杩炴帴Access鏁版嵁搴挞梾棰

鍝ヤ滑,钥佷埂鍟!

浠ヤ笅鍐呭规垜閮芥槸鎽樿嚜浠庨浂锘虹瀛Visual Basic:

VB鎻愪緵浜嗗氱嶈块梾鏁版嵁搴撶殑鏂规硶:Data鎺т欢,ADO Data鎺т欢,DAO,RDO,ADO绛
(1)Data鎺т欢鏄涓嶉渶瑕佺紪绋嬭岃兘璁块梾鐜板瓨鏁版嵁搴撶殑鏂规硶.
(2)ADO Data鎺т欢鏄浣跨敤ADO(涓绉嶆渶鏂扮殑璁块梾鏁版嵁镄勬帴鍙)蹇阃熷垱寤烘暟鎹缁戝畾鎺т欢鍜屾暟鎹鎻愪緵钥呬箣闂寸殑杩炴帴.鍏朵腑鏁版嵁缁戝畾鎺т欢鍙浠ユ槸浠讳綍鍏锋湁Datasource灞炴х殑鎺т欢;鏁版嵁鎻愪緵钥呭彲浠ユ槸浠讳綍绗﹀悎OLE DB瑙勬牸镄勬簮.
(3)DAO(鏁版嵁璁块梾瀵硅薄)鏄鍏ㄩ溃鎺у埗鏁版嵁搴撶殑瀹屾暣缂栫▼鎺ュ彛,鐢ㄦ埛鍙鐢ㄨ繖浜涘硅薄镄勫睘镐у拰鏂规硶𨱒ュ疄鐜板规暟鎹搴撶殑镎崭綔,濡备綍鍒涘缓鏁版嵁搴,瀹氢箟鏁版嵁搴撹〃,瀛楁靛拰绱㈠紩浠ュ强寤虹珛琛ㄩ棿镄勫叧绯,璁板綍瀹氢綅鎴栨煡璇㈢瓑.
(4)RDO(杩灭▼鏁版嵁瀵硅薄)鏄鍏ㄩ溃鎺у埗杩灭▼ODBC鏁版嵁搴撶殑瀹屾暣缂栫▼鎺ュ彛.
(5)ADO(ActiveX鏁版嵁瀵硅薄)鏄璁块梾OLE DB镄勫簲鐢ㄧ▼搴忔帴鍙,鏄链鏂扮殑,链𨱔垫椿镄,涔熸槸链绠鍗旷殑.OLE DB鏄鏁版嵁璁块梾镄勪绠绾ф帴鍙,瀹冭兘澶勭悊浠讳綍绫诲瀷镄勬暟鎹,钥屼笉绠″叾镙煎纺.ADO鏄寰杞鏂扮殑阃氱敤鏁版嵁瀛桦彇妗嗘灦,瀹冨寘钖浜嗘暟鎹搴撹块梾瀵硅薄(DAO),杩灭▼鏁版嵁瀵硅薄(RDO)鍙婂嚑涔庢墍链夊叾浠栨暟鎹瀛桦彇鏂瑰纺镄勫叏閮ㄥ姛鑳.鐢ㄦ埛鍙浠ュ埄鐢ˋDO杩炴帴Access,SQL Server,Oracle鍙婂叾浠栫殑鏁版嵁婧.

VB鍙浠ヨ块梾浠ヤ笅3绫绘暟鎹搴:
(1)Jet鏁版嵁搴:鏁版嵁搴撶敱Jet寮曟搸鐩存帴鐢熸垚鍜屾搷浣,涓崭粎𨱔垫椿钥屼笖阃熷害蹇.VB榛樿ょ殑鏁版嵁搴撴牸寮忎负Microsoft Office Access镙煎纺,镓╁𪾢钖崭负MDB.VB鍜孉ccess鏁版嵁搴撶＄悊绯荤粺鍏变韩Jet鏁版嵁搴揿紩镎.
(2)ISAM鏁版嵁搴:绱㈠紩椤哄簭璁块梾鏂规硶(ISAM)鏁版嵁搴撴湁鍑犵崭笉钖岀殑褰㈠纺,濡侱base,FoxPro,Text Files鍜孭aradox.鍦╒B涓鍙浠ョ敓鎴愬拰镎崭綔杩欎簺鏁版嵁搴.
(3)ODBC鏁版嵁搴:寮鏀惧纺鏁版嵁搴撹繛鎺,杩欎簺鏁版嵁搴揿寘𨰾阆靛畧ODBC镙囧嗳镄勫㈡埛/链嶅姟鍣ㄦ暟鎹搴,濡侻icrosoft SQL Server,Oracle,Sybase绛,VB鍙浠ヤ娇鐢ㄤ换浣曟敮鎸丱DBC镙囧嗳镄勬暟鎹搴.

涓嶈繃鍏勫纻,鎴戣缮鏄锷濅綘澶氱粌涔,杩炴帴鏁版嵁搴撶殑铡熺悊浣犵殑鑴戝瓙閲屽氨链夋濊矾浜!