ecelvbaadosql实例集锦分析和总结.docx

1, 包含空值的记录 f13isnull

‘ID=46032page=1‘订单生成系统.xls

‘f6-第6列，f2-第2列

PrivateSubWorksheet_Activate()OnErrorResumeNext

DimxAsObject,yyAsObject,sqlAsStringSetx=CreateObject()

Provider=Properties=Excel;hdr=no;;DataSource=

sql=selectf6,f2,f3,f4,f5,f7,f13,f24-f25from[sheet1$]wheref24-f25f17and(f13C3orf13isnull) ‘不等于字符串用‘C3’ 包含空值用 isnull

Setyy=(sql)

Range(a:h).ClearContents

Range(a1:h1)=Array(编号,品名,规格,产地,单位,件装,属性,计划) ‘表头另外赋值

[a2].CopyFromRecordsetyySetyy=Nothing

Setx=NothingEndSub

2，用ADOConnection对象查询

OptionExplicitPublicconnAsSubMyquery()

DimsConnect$,sql1$

Setconn=CreateObject()Sheets(sheet1).

sConnect=provider=properties=excel;_DataSource= \

sql1=select 物料代码,物料描述,属性,单位from[物料代码表$]where属性=采购 表格名要用[$],条件部分用单引号

(sheet1).Cells(2,1).CopyFromRecordset(sql1)copy后面紧接SQL查询执行语句WithSheets(sheet1)

.Range(A1)=物料代码 建立表头

.Range(B1)=物料描述

.Range(C1)=属性

.Range(D1)=单位

EndWith

可不用每次关闭数据源的连接EndSub

3，用记录集执行单个查询

OptionExplicitSubMyquery()DimrdAs

Dimi%,j%,k%,sConnect$,sql1$,str$Setrd=New

str=外协Sheets(sheet1).

sConnect=provider=properties=excel;_DataSource= \

sConnect 打开数据源

sql1=select 物料代码,物料描述,属性,单位from[物料代码表$]where属性=采购表格名要用[$],条件部分用单引号

sql1,sConnect,adOpenForwardOnly,adLockReadOnly(sheet1).Cells(2,1).CopyFromRecordsetrd

WithSheets(sheet1)

.Range(A1)=物料代码 建立表头

.Range(B1)=物料描述

.Range(C1)=属性

.Range(D1)=单位

EndWith关闭记录集

Setrd=Nothing 关闭

EndSub

4，引用一列，如A列

‘引用单列、单行、单个单元格.xls引用一列，如A列

Subonecolumn()

DimSql$

SetConn=CreateObject()

provider=properties=excel;hdr=no;datasource=Sql=selectf1from[sheet1$]

[a1].CopyFromRecordset(Sql)

\

SetConn=NothingEndSub

Subdgzbhz()2008/12/2

‘pid=82252page=1extra=page%3D1#pid82252‘

‘由于分表的第2列表头是“金额”，不用它，改为“一中”，所以要用hdr=no无标题，拷贝时把第一行表头归零，所以最后要加表头。

DimSql$

SetConn=CreateObject()[b2:d4]=

arr=Array(一中,二中,三中)Fori=0ToUBound(arr)

provider=properties=ex