vb数据库(vb怎么创建数据库)

vb数据库

1.VB拜访数据库的原则
总则：具体问题具体分析，依据具体的环境、条件、要求而采用适当的计划
*代码的重用和运转的功率
例如：经过运用ODBC数据源衔接数据库的办法，可在改换多种数据库类型的情况下，而不用频繁修正代码。用VBSQL经过DB-Library就做不到。而ODBC接口并不是VB拜访数据库运转功率最高的办法。相同，同是运用ODBC接口的ADO的功率要高于RDO
*完结的简便性，易维护性
假如一种办法完结起来很杂乱，工程的开发必定造成人力物力的浪费，一起这样规划出来的应用程序只会支撑起来更杂乱或维护时更困难。例如：本地需求拜访ISAM或Jet类型数据源，那么就运用DAO/Jet，而没有必要运用经过ODBC的办法。RDC完结起来要较RDO更简单
*安全性原则
报这一条应依据环境和条件决定。例如局域网的网络安全性要好于广域网因此可直接运用数据控件如DC，这样完结起来方便快捷，而广域网需求大量的过错捕获，如用RDC就不如用RDO易操控过错。
2.VB拜访数据库的办法
VB拜访数据库的办法许多，一般情况下分成两大类，而每一类又有许多办法。
数据拜访接口功用及含义:
ADC：高档数据衔接器(AdvancedDataConnector)：供给绑定ADO数据源到窗体的数据绑定控件上。ADC主要是一种直接拜访或者经过ADO拜访长途OLEDB目标的一种技能，它也支撑主要应用在微软IE浏览器上的数据绑定控件。它是特地为Web上的浏览器为基础的应用程序而规划的。
ADO：Active数据目标(ActiveDataObjects)：ADO实践是一种供给拜访各种数据类型的衔接机制。ADO规划为一种极简单的格局，经过ODBC的办法同数据库接口。能够运用任何一种ODBC数据源，即不止适合于SQLServer、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格局的数据文件。ADO是根据OLE-DB之上的技能，因此ADO经过其内部的特点和办法供给一致的数据拜访接口办法。
DAO：数据拜访目标(DataAccessObjects)：是一种面向目标的界面接口。经过DAO/Jet功用能够拜访ISAM数据库，运用DAO/ODBCDirect功用能够完结长途RDO功用。运用DAO的程序编码非常简单，DAO供给丰厚的游标(Cursor)类型的成果集和非游标(Cursor-Less)类型的成果集，同DDL(数据描绘言语)的功用很类似。
DAO模型是规划联系数据库系统结构的目标类的集合。它们供给了完结办理这样一个系统所需的悉数操作的特点和办法，包括创建数据库，界说表、字段和索引，树立表间的联系，定位和查询数据库等东西。
JET：数据衔接性引擎技能(JointEngineTechnology)：是一种根据工作站经过DAO的数据库拜访机制。尽管能够经过微软Access供给的ODBC驱动程序拜访Jet数据库，但运用这些驱动程序在功用上有所约束。Jet机制有自己的查询和成果集处理功用，并可对同种或异种数据源作查询处理。
0DBC：开放式的数据库衔接(OpenDatabaseConnectivity)：是一种公认的联系数据源的接口界面。它快而轻并且供给一致接口的界面，ODBC对任何数据源都未作优化。
ODBCDirect:是一种根据DAO目标的新的DAO模式，其办法和特点与RDO功用相同。运用在有DAO代码存在的场合，可用来拜访长途数据源。
OLEDB:是一种底层数据拜访界面接口。是用于第三方驱动程序商家开发输出数据源到ADO技能的应用程序或用于C++的开发者开发定制的数据库组件。OLEDB不能被VB直接调用。
RDC:长途数据拜访控件(RemoteDataControl)：是一种对RDO数据绑定的控件。能够输出特定的成果集到数据源控件。
RDO:长途数据目标(RemoteDataObjects):长途数据目标和集合为运用代码来创建和操作一个长途ODBC数据库系统的各个部件供给了一个结构。目标和集合都具有描绘数据库的各个部件特征的特点以及用来操作这些部件的办法。能够在目标和集合之间树立起联系，这些联系就代表了数据库系统的逻辑结构。RDO是ODBCAPI的一个浅层界面接口。是专为拜访长途ODBC联系数据源而规划的。
VBSQL:是VisualBasic结构化查询言语。是一种根据API的接口办法，简直与C的DB-LibraryAPI相同。VBSQL只支撑微软的SQLServer。VBSQL快而且轻但不支撑目标界面。
运用RDO的一般办法如下。
先声明变量：
PublicconAsrdoConnection,resAsrdoResultset
然后初始化rdoEngine，设置用户和口令等缺省参数；WithrdoEngine
.rdoDefaultUser=”sa”注释：用户为sa
.rdoDefaultPassword=”pass”注释：口令为pass
.rdoDefaultCursorDriver=rdUseServer
.rdoDefaultLoginTimeout=15
EndWith
再衔接到要拜访的长途数据库(可运用DSNConnection和DSN-LessConnection)。
运用DSNConnection举例(衔接服务器SERVER上的数据库hotel)：
Setcon=rdoEnvironments(0).OpenConnection
(“hotel”,rdDriverNoPrompt,False)
运用DSN-LessConnection举例(衔接服务器SERVER上的数据库hotel)：
Setcon=rdoEnvironments(0).OpenConnection
(“”,rdDriverNoPrompt,False,_”driver={SQLServer};server=SERVER;database=hotel”)
树立衔接后，既可运用OpenResultset办法履行查询并处理成果集，又可运用Execute办法履行包括数据界说和数据操作在内的动作查询。例如：
Setres=con.OpenResultset(“SELECT*FROMmenu”,rdOpenStatic)
con.Execute”CREATEVIEWmenu_viewASSELECT代码,菜名FROMmenu”,rdExecDirect
RDO最强大和最重要的特性之一是：它能够查询和处理由存储进程回来的成果，无论它有多么杂乱。
除RDO外，还可运用RDC拜访长途数据库。
长途数据控件(RDC)与数据控件(DC)类似，不同之处是RDC运用RDO衔接到ODBC驱动程序办理器，而DC则运用DAO衔接到Jet数据库引擎。运用RDO和RDC，无需运用Jet引擎就能够拜访ODBC数据源。这样，在拜访长途数据库时，能够获得更好的功能和更大的灵活性。
长途数据控件MSRDC运用举例如下。
Connect:driver={SQLServer};server=SERVER;database=hotel
DataSourceName:
SQL:SELECT*FROMmenu
UserName:sa
Password:pass
CursorDriver:3-rdUseClient
能够运用RDC履行许多简单的长途数据拜访操作，不需编写任何代码，只要填写有关项就能够了，运用起来很方便。但应留意，除非在规划时禁止并只在需求时启动RDC，否则它至少将消耗一个长途数据库衔接。在长途数据库衔接资源有限或要求很高效的情况下，宜慎用、少用RDC。这种情况下，应尽或许考虑运用RDO，并运用存储进程(预编译好的SQL语句)。
最终还应留意，只要32位操作系统(如WindowsNT或Windows95)，才干支撑RDO和RDC。RDO和RDC也只能用于拜访32位ODBC数据源。

vb怎么创建数据库

新建exe工程
菜单-工程-引证
MicrosoftActiveXDataObjects6.1Library
MicrosoftADOExt.6.0forDDLandSecurity
增加模块conn
张贴代码
PubliccatAsNewADOX.Catalog
PublicconnAsNewADODB.Connection
PublicrsAsNewADODB.Recordset
PublicmdbpathAsString
PrivateFunctionGetconn()’连接数据库
Cl
mdbpath=app.Path’数据库路径设置为程序本体根目录
pstr=”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”&mdbpath&”\Main.mdb”&”;Mode=12;JetOLEDB:DatabasePassword=pdjj888″
conn.Openpstr
conn.CursorLocation=adUseClient
EndFunction
PublicFunctionCl()’断开数据库
OnErrorGoToerr
Ifconn.State=adStateOpenThen
conn.Close
Setconn=Nothing
EndIf
err:
EndFunction
PublicFunctionSe(sqlAsString)’履行sql句子
‘OnErrorGoToerr
Getconn
conn.Executesql,Se
‘err:
EndFunction
PublicFunctionGe(sqlAsString)’查询
‘OnErrorGoToerr
Getconn
rs.Opensql,conn,adOpenDynamic,adLockPessimistic
‘err:
‘Iferr=3265Then
‘Ck”提示”,”服务器繁忙,请重试!”
‘EndIf
EndFunction
PublicFunctionCatdata()’创立初始数据库
pstr=”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”&mdbpath&”\Main.mdb”&”;Mode=12;JetOLEDB:DatabasePassword=pdjj888″
DimsqlAsString
IfDir(mdbpath&”\Main.mdb”)=””Then
cat.Createpstr’创立数据库
Setcat=Nothing
conn.Openpstr’翻开数据库
‘创立产品类型表
sql=”CREATETABLEspstyle(lidintprimarykey,stylenameVARCHAR,styltagVARCHAR,FontVARCHAR,styledjint)”
conn.Execute(sql)
sql=”ALTERTABLEspstyleALTERCOLUMNlidCOUNTER(1,1)”‘自动编号
conn.Execute(sql)
‘创立产品表
sql=”CREATETABLEsps(sidintprimarykey,lidint,spnameVARCHAR,sptagVARCHAR,spdjint,spdatedate)”
conn.Execute(sql)
sql=”ALTERTABLEspsALTERCOLUMNsidCOUNTER(1,1)”‘自动编号
conn.Execute(sql)
‘创立奖券类型表
sql=”CREATETABLEjzstyle(jidintprimarykey,jznameVARCHAR,jztagVARCHAR,jzslint,jzjlDouble,jzdatedate)”
conn.Execute(sql)
sql=”ALTERTABLEjzstyleALTERCOLUMNjidCOUNTER(1,1)”‘自动编号
conn.Execute(sql)
‘创立奖券表
sql=”CREATETABLEjzs(zidintprimarykey,jznameVARCHAR,jztagVARCHAR,jzdatedate)”
conn.Execute(sql)
sql=”ALTERTABLEjzsALTERCOLUMNzidCOUNTER(1,1)”‘自动编号
conn.Execute(sql)
Cl
EndIf
EndFunction