VB 或VBA一种简单快速的 MS sql 存储开发例子

VB 或VBA中要进行 ms sql 存储开发需要定大量的代码。本人在开发的通程中发现一种简单快速的开发过程，希望对大家有所帮助。

1、建立完整数据库。

2、打开编辑表设计视图，将字段内容复制在 ms Excel 中。

 

数据库						存储过程
cVenCode	String	adVarChar	varchar	20	0	(@cVenCode_1	[varchar](20),
cVenName	String	adVarChar	varchar	98	1	@cVenName_2	[varchar](98),
cVenAbbName	String	adVarChar	varchar	60	0	@cVenAbbName_3	[varchar](60),
cVCCode	String	adVarChar	varchar	12	1	@cVCCode_4	[varchar](12),
cDCCode	String	adVarChar	varchar	12	1	@cDCCode_5	[varchar](12),
cTrade	String	adVarChar	varchar	10	1	@cTrade_6	[varchar](10),
cVenAddress	String	adVarChar	varchar	200	1	@cVenAddress_7	[varchar](200),

3、通过ms SQL建立编辑表向导建立编辑表存储过程，将存储过程也复到在Ms Excel 中。

4、插中表中红色列，将值更改为VB或VBA识别类型对照表如下图：

SQL Server / Access数据类型对照表
SQL Server and Access data types.
SQL Server 7 data type	ADO data type Enum value	SQL Server 7 data type	ADO data type Enum value
binary	adVarBinary	nvarchar	adVarWChar
bit	adBoolean	real	adSingle
char	adChar	smalldatetime	adDate
datetime	adDate	smallint	adSmallInt
decimal	adNumeric	text	adLongVarChar
float	adDouble	timestamp	adBinary
int	adInteger	tinyint	adUnsignedTinyInt
money	adCurrency	UniqueIdentifier	adGUID
nchar	adWChar	varBinary	adVarBinary
ntext	adLongVarChar	varChar	adVarChar
numeric	adNumeric

5、插入新表 编辑内容如下：

Dim BMS_cVenCode as   String	Dim	BMS_	cVenCode	as	String
Dim BMS_cVenName as   String	Dim	BMS_	cVenName	as	String
Dim BMS_cVenAbbName as   String	Dim	BMS_	cVenAbbName	as	String

通过Excel 引用可自动实现蓝色部分引用。

6、其它代码也可以通过相同方法实现。

william wang 2006/4/20  Email:willial@21cn.com （大家相互学）msn:nmfx1122@hotmail.com