企业网站推广服务,多语言网站开发设计,网站策划名词解释,怎样做古玩网站相关背景#xff1a;
对于数据分析同学#xff0c;一般SQL#xff0c;EXCEL是必备技能#xff0c;但对于VBA和Python可能有的同学不会#xff1b;在处理本地数据上(诸如excel、txt|csv文本#xff09;#xff0c;后续尝试使用VBA或者Python写一个sql查询的GUI界面…相关背景
对于数据分析同学一般SQLEXCEL是必备技能但对于VBA和Python可能有的同学不会在处理本地数据上(诸如excel、txt|csv文本后续尝试使用VBA或者Python写一个sql查询的GUI界面后续有空再写
以下仅仅为一些笔记
excel简易sql查询插件可转https://blog.csdn.net/me_to_007/article/details/130417173
一、Connection对象1 建立和数据库的连接.Open Dim con As New Connection Set con CreateObject(ADODB.Connection) con.Open providermicrosoft.jet.oledb.4.0;extended propertiesexcel 8.0;data source ThisWorkbook.Path /Database/exceldata.xls 数据连接 con.Open ProviderMicrosoft.ace.Oledb.12.0; _ Extended PropertiesExcel 12.0; _ Data Source ThisWorkbook.FullNameConn.Open:打开数据库的连接providermicrosoft.jet.oledb.4.0 数据库引擎版本该引擎主要用于excel2003ProviderMicrosoft.ace.Oledb.12.0;用于excel2007及以上版本extended propertiesexcel 8.0 连接的是Excel8.0版本(excel2000以后的版本),Excel不是标准的数据库格式,所以要设置扩展属性data source ThisWorkbook.Path /数据库.xls 数据库路径************以下是连接其他数据库或文件的字符串表达式*********************************1 Mysql数据库strDriver ProviderSQLOLEDB;DataSource Path ;Initial Catolog strDataName2 TXT文件strDriver ProviderMicrosoft.Jet.OLEDB.4.0;Extended Propertiestext;IMEX1;HDRNO;FMTDelimited;;Data Source Path3 MSSQL数据库strDriver ProviderMSDASQL;Driver{SQL Server};Server Path ;Database strDataName4 Oracle数据库strDriver Providermadaora;Data SourceMyOracleDB; User IdUserID; PasswordPassword2 执行sql语句.Execute SQL增加新表格.Execute Create 表格名 字段和属性增加新记录.Execute Insert into 表名 (字段1, 字段2,... 字段n) VALUES(值1,值2,... 值n)删除记录 .Execute Delete from 表名 where 条件修改旧记录.Execute Update 表名称 SET 列1 新值,列2新值 WHERE 列名称 某值筛选记录: .Execute Select 字段 from 表 where 条件二、Recordset对象作用 打开记录集操作记录1 打开游标(记录集)rst.Open sql或command语句等,已打开的conn链接, Set rst CreateObject(ADODB.Recordset)2 添加新记录AddNew 单个字段或数组,单个值或数组或 rst.AddNew 添加新的记录rst.Fields(姓名) 伍天明 Fields(字段名)表示某列的记录rst.Fields(年龄) 28rst.Fields(性别) 男rst.Update 添加记录后要更新3 修改记录rst.Update 字段数组, 值或数组4 删除记录rst.delete5 在记录中循环BOF 在记录的最前面EOF 在记录的结尾GetRows(默认值-1,Start, 字段)Start 0从当前记录开始,1从第一条记录,2从最后一条记录开始以上转载自蓝色幻想教学
一般操作步骤
if con.StateADODB.ObjectStateEnum.adStateOpen then 连接成功 可用来判断数据库链接是否成功
ActiveSheet.Range(A2).CopyFromRecordset rst 可以rst.Open query_sql, con, 1, 1把返回的数据集写到活动工作表里
写入表头
With ActiveSheetcols rs.Fields.CountFor i 0 To cols - 1.Cells(1, i 1).Value rs.Fields(i).Name 写入表头Next.Cells(2, 1).CopyFromRecordset rs 数据写入
End With用来判断rst是否成功返回 if rst.StateADODB.ObjectStateEnum.adStateOpen then rst.open 成功返回
关于数据库引擎与连接串 providermicrosoft.jet.oledb.4.0 数据库引擎版本该引擎主要用于excel2003ProviderMicrosoft.ace.Oledb.12.0;用于excel2007及以上版本关闭链接对象和记录集
Set con Nothing Set rs Nothing
本地查询sql样例
select t2.group,sum(t1.销售额) as sales
from [Sheet1$] as t1
inner join [分组$c4:d7] as t2
on t1.姓名t2.姓名
where date_field#2023/4/24#
group by t2.group
