Sub Query() Dim Conn As Object, Rst As Object Dim strConn As String, strSQL As String Dim i As Integer, PathStr As String Set Conn = CreateObject("ADODB.Connection") Set Rst = CreateObject("ADODB.Recordset") PathStr = ThisWorkbook.Full
SQL操作 1.有一个数据库表peope,表有字段name,age,address三个属性(注:没有主键).现在如果表中有重复的数据,请删去重复只留下其中的一条.重复的定义就是两条记录的name,age,address值都一样.关键是怎么把重复的数据过滤掉,后来我考虑的做法是这样的: 1 2 3 4 5 6 7 select * from people group by name,age,address having COUNT(DISTINCT name)=1 这样就可以把重复的数据过滤掉
OFFICE2007之后使用了OpenXml标准(伟大的改变),定制文本级的Ribbon可以通过修改压缩包内的xml文件来实现. 先学习一下VBA中操作XML的方法 先引用Microsoft XML V6.0,对应的文件是msxml6.dll.前期绑定,方便使用智能提示. 一.DOM方式创建一个XML文件:内容是自定义Ribbon的一个简单框架.文件保存在桌面. Sub CreateXmlFile() '创建文档对象模型 Dim xmldoc As New DOMDocument '创建根节点,
SQL操作字符串相对来说比较难一点,现在总结几个常用的SQL 对字符串的操作: declare @dd nvarchar(12) set @dd='2015-03-13' print @dd declare @cc nvarchar(12) --替换指定字符 set @cc=replace(cast(@dd as nvarchar(12)),'-','') --截取替换字符串:stuff('sourceStr',startIndex,length,'destinateStr') select s