资源描述:
《excelvbaadosql实例集锦》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、1,包含空值的记录f13isnull‘http://www.excelpx.com/dispbbs.asp?boardID=5&ID=46032&page=1‘订单生成系统.xls‘f6-第6列,f2-第2列PrivateSubWorksheet_Activate()OnErrorResumeNextDimxAsObject,yyAsObject,sqlAsStringSetx=CreateObject("ADODB.Connection")x.Open"Provider=Microsoft.Jet.OLEDB.4.0;Extended
2、Properties='Excel8.0;hdr=no;';DataSource="&ActiveWorkbook.FullNamesql="selectf6,f2,f3,f4,f5,f7,f13,f24-f25from[sheet1$]wheref24-f25'C3'orf13isnull)"‘不等于字符串用‘C3’包含空值用isnullSetyy=x.Execute(sql)Range("a:h").ClearContentsRange("a1:h1")=Array("编号","品名","规格","产地",
3、"单位","件装","属性","计划")‘表头另外赋值[a2].CopyFromRecordsetyySetyy=NothingSetx=NothingEndSub2,用ADOConnection对象查询OptionExplicitPublicconnAsADODB.ConnectionSubMyquery()DimsConnect$,sql1$Setconn=CreateObject("adodb.connection")Sheets("sheet1").Cells.ClearContentssConnect="provider=mi
4、crosoft.jet.oledb.4.0;extendedproperties=excel8.0;"&_"DataSource="&ThisWorkbook.Path&""&ThisWorkbook.Namesql1="select物料代码,物料描述,属性,单位from[物料代码表$]where属性='采购'"'表格名要用[$],条件部分用单引号''ThisWorkbook.Sheets("sheet1").Cells(2,1).CopyFromRecordsetconn.Execute(sql1)'copy后面紧接SQL查询执行语
5、句WithSheets("sheet1").Range("A1")="物料代码"'建立表头.Range("B1")="物料描述".Range("C1")="属性".Range("D1")="单位"EndWith'conn.Close'可不用每次关闭数据源的连接EndSub3,用记录集执行单个查询OptionExplicitSubMyquery()DimrdAsADODB.RecordsetDimi%,j%,k%,sConnect$,sql1$,str$Setrd=NewADODB.Recordsetstr="外协"Sheets("she
6、et1").Cells.ClearContentssConnect="provider=microsoft.jet.oledb.4.0;extendedproperties=excel8.0;"&_"DataSource="&ThisWorkbook.Path&""&ThisWorkbook.Name'conn.OpensConnect'打开数据源sql1="select物料代码,物料描述,属性,单位from[物料代码表$]where属性='采购'"'表格名要用[$],条件部分用单引号''rd.Opensql1,sConnect,ad
7、OpenForwardOnly,adLockReadOnlyThisWorkbook.Sheets("sheet1").Cells(2,1).CopyFromRecordsetrdWithSheets("sheet1").Range("A1")="物料代码"'建立表头.Range("B1")="物料描述".Range("C1")="属性".Range("D1")="单位"EndWithrd.Close'关闭记录集Setrd=Nothing'关闭EndSub4,引用一列,如A列‘引用单列、单行、单个单元格.xls'引用一列,如A列Subo
8、necolumn()DimSql$SetConn=CreateObject("Adodb.Connection")Conn.Open"provider=microsoft.jet.oledb.4.0;ext