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

本文介绍了一种在VB或VBA中快速开发MSSQL存储过程的方法,包括如何利用Excel简化字段映射及类型转换过程。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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、插中表中红色列,将值更改为VBVBA识别类型对照表如下图:

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值