sql如何从两个关联的表中取出数据插入到另一个表？_百度知道
sql如何从两个关联的表中取出数据插入到另一个表？
第一种方法：
通过三条SQL语句完成插入，即Insert into前，使用Select 项目名 into :变量 From 另一张表 where ID=你这里的ID，同理处理后面一个。 第二种方法：
直接在你插入的表中插入项目ID和经办人ID，在显示的时候，使用 Select 项目名,姓名 From 表1,表2,表3 where 表1.项目ID=表2.项目ID and 表1.姓名ID=表3.姓名ID 这里表1是插入的表格,表2是包括项目ID和项目名称的那张表格，表3是包括姓名ID和姓名的那张表格。 补充回答： 在SQLServer中要通过转换才能以datetime进行存储，使用convert函数。 经常使用convert(datetime变量)。
注意：变量是指那个控件下面的属性。
其他类似问题
为您推荐：
提问者采纳
create proc abcdasbegininsert into 表A ([姓名],[员表1.电],[员表2.址])select 2张表表1.姓名员表1.电员表2.址 from 2张表表1 <img class="word-replace" src="/api/getdecpic?picenc=0ad张表表2where 2张表表1.id=2张表表2.idend执行存储程则：exec abcd
提问者评价
没试用，还是采纳了。
其他1条回答
选手您请您表截图传每表部数据问题处便问题解决
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁在excel表中如何用EXCEL中的数据来控制某个矩形图的大小呢？_百度知道
在excel表中如何用EXCEL中的数据来控制某个矩形图的大小呢？
1、在excel表中可以通过绘图工具中的格式”大小“来控制用某个矩形图的大小。2、具体的操作步骤如下所示。1选择矩形2绘图工具中的格式3在大小中调整”形状高度“和”形状宽度“
其他类似问题
为您推荐：
提问者采纳
公式单或函数结合运用 AND 与运算返逻辑值仅参数结均逻辑真（TRUE）返逻辑真（TRUE）反返逻辑假（FALSE） 条件判断 AVERAGE 求所参数算术平均值 数据计算 COLUMN 显示所引用单元格列标号值 显示位置 CONCATENATE 字符文本或单元格数据连接起显示单元格 字符合并 COUNTIF 统计某单元格区域符合指定条件单元格数目 条件统计 DATE 给指定数值期 显示期 DATEDIF 计算返两期参数差值 计算数 DAY 计算参数指定期或引用单元格期数 计算数 DCOUNT 返数据库或列表列满足指定条件并且包含数字单元格数目 条件统计 FREQUENCY 列垂直数组返某区域数据频率布 概率计算 IF 根据指定条件逻辑判断真假结返相应条件触发计算结 条件计算 INDEX 返列表或数组元素值元素由行序号列序号索引值进行确定 数据定位 INT 数值向取整接近整数 数据计算 ISERROR 用于测试函数式返数值否错错该函数返TRUE反返FALSE 逻辑判断 LEFT 文本字符串第字符始截取指定数目字符 截取数据 LEN 统计文本字符串字符数目 字符统计 MATCH 返指定式与指定数值匹配数组元素相应位置 匹配位置 MAX 求组数值 数据计算 MID 文本字符串指定位置始截取指定数目字符 字符截取 MIN 求组数值 数据计算 MOD 求两数相除余数 数据计算 MONTH 求指定期或引用单元格期月份 期计算 NOW 给前系统期间 显示期间 OR 仅所参数值均逻辑假（FALSE）返结逻辑假（FALSE）否则都返逻辑真（TRUE） 逻辑判断 RANK 返某数值列数值相于其数值排位 数据排序 RIGHT 文本字符串字符始截取指定数目字符 字符截取 SUBTOTAL 返列表或数据库类汇总 类汇总 SUM 求组数值 数据计算 SUMIF 计算符合指定条件单元格区域内数值 条件数据计算 TEXT 根据指定数值格式相应数字转换文本形式 数值文本转换 TODAY 给系统期 显示期 VALUE 代表数值文本型字符串转换数值型 文本数值转换 VLOOKUP 数据表首列查找指定数值并由返数据表前行指定列处数值 条件定位 WEEKDAY 给指定期应星期数 星期计算 Excel 部函数列表. 函数步骤：①选存放结单元格 ②单击=（编辑公式） ③找函数（单击三角形形状按钮或者直接输入函数名 ④选范围 ⑤CTRL+车键 ①求函数SUM（） ②平均函数AVERAGE（） ③排位函数RANK （） 例： Rank(A1：$A$1：$A$15) 行号列号前面加$符号 A叫行号1或者15叫列号表示单元格所位置 数据单元格A列1号或者A列15号 ④值函数MAX （） ⑤值函数MIN （） ⑥统计函数 COUNTIF（ ） 计算满足给定单元格数目 例：Countif ( A1：B5&60) 统计数于60数注意条件要加双引号英文状态输入 ⑦单元格内容合并CONCTENATE（） 若干文字串合并字符串 ⑧ RIGHT（A1<img class="word-replace" src="/api/getdecpic?picenc=0ad） 提取字符串右边若干字符度4位 ⑨LEFT （ ） 返字符串左边若干字符 ⑩MIDB（） 自文字指定位置始向右提取指定度字符串 11、重复函数 REPT（） 单元格重量现数 12、NOW（） 返电脑内部系统期与间 13、MONTH（ ） 序列数转换应月份数 编者语：Excel办公室自化非重要款软件巨型际企业都依靠Excel进行数据管理仅仅能够便处理表格进行图形析其更强功能体现数据自处理计算缺少理工科背景或Excel强数据处理功能解却难进步深入编者Excel函数应用解阻挡普通用户完全掌握Excel拦路虎目前部份内容教文章却少见所特别组织《Excel函数应用》系列希望能够Excel进阶者所帮助《Excel函数应用》系列每周更新逐步系统介绍Excel各类函数及其应用敬请关注 ---------------------------------- 术语说明 参数参数数字、文本、形 TRUE 或 FALSE 逻辑值、数组、形 #N/A 错误值或单元格引用给定参数必须能产效值参数量、公式或其函数 参数仅仅量、公式或函数数组、单元格引用等： 1.数组--用于建立产结或存放行列组参数进行运算单公式 Microsoft Excel两类数组：区域数组量数组区域数组矩形单元格区域该区域单元格共用公式；量数组组给定量用作某公式参数 2.单元格引用--用于表示单元格工作表所处位置坐标值例显示第 B 列第 3 行交叉处单元格其引用形式&B3& 3.量--量直接键入单元格或公式数字或文本值或由名称所代表数字或文本值例期 10/9/96、数字 210 文本&Quarterly Earnings&都量公式或由公式数值都量 --------------------------------------------- Excel数据处理功能现文字处理软件说独占鳌几乎没软件能够与匹敌您Excel基本操作觉自直局限Excel操作界面于Excel函数功能却始终停留求、求平均值等简单函数应用呢难道Excel能做些简单工作其实函数作Excel处理数据重要手段功能十强工作实践种应用您甚至用Excel设计复杂统计管理表格或者型数据库系统 请跟随笔者始Excel函数旅笔者先假设您已经于Excel基本操作定认识首先我先解些与函数关知识 、函数 Excel所提函数其实些预定义公式使用些称参数特定数值按特定顺序或结构进行计算用户直接用某区域内数值进行系列运算析处理期值间值、确定贷款支付额、确定单元格数据类型、计算平均值、排序显示运算文本数据等等例SUM 函数单元格或单元格区域进行加运算 函数否重呢说函数否另函数参数呢嵌套函数含义所谓嵌套函数指某些情况您能需要某函数作另函数参数使用例图1所示公式使用嵌套 AVERAGE 函数并结与 50 相比较公式含义：单元格F2F5平均值于50则求F2F5否则显示数值0 习Excel函数前我需要于函数结构做必要解图2所示函数结构函数名称始面左圆括号、逗号隔参数右圆括号函数公式形式现请函数名称前面键入等号（=）创建包含函数公式公式选项板提供相关帮助 公式选项板--帮助创建或编辑公式工具提供关函数及其参数信息单击编辑栏&编辑公式&按钮或单击&用&工具栏&粘贴函数& 按钮编辑栏面现公式选项板整程图3所示 二、使用函数步骤 Excel何使用函数呢 1.单击需要输入函数单元格图4所示单击单元格C1现编辑栏 图4 单元格编辑 2.单击编辑栏&编辑公式&按钮 编辑栏面现&公式选项板&&名称&框变&函数&按钮图3所示 3.单击&函数&按钮右端箭打函数列表框选择所需函数； 图5 函数列表框 4.选所需函数Excel 2000打&公式选项板&用户选项板输入函数参数输入完参数&公式选项板&显示函数计算结； 5.单击&确定&按钮即完函数输入； 6.列表没所需函数单击&其函数&选项打&粘贴函数&框用户选择所需函数单击&确定&按钮返&公式选项板&框 解函数基本知识及使用请跟随笔者起寻找Excel提供各种函数您通单击插入栏&函数&看所函数 三、函数种类 Excel函数共11类别数据库函数、期与间函数、工程函数、财务函数、信息函数、逻辑函数、查询引用函数、数三角函数、统计函数、文本函数及用户自定义函数 1.数据库函数--需要析数据清单数值否符合特定条件使用数据库工作表函数例包含销售信息数据清单计算所销售数值于 1,000 且于 2,500 行或记录总数Microsoft Excel 共 12 工作表函数用于存储数据清单或数据库数据进行析些函数统名称 Dfunctions称 D 函数每函数均三相同参数：database、field
criteria些参数指向数据库函数所使用工作表区域其参数 database 工作表包含数据清单区域参数 field 需要汇总列标志参数 criteria 工作表包含指定条件区域 2.期与间函数--通期与间函数公式析处理期值间值 3.工程函数--工程工作表函数用于工程析类函数数三种类型：复数进行处理函数、同数字系统（十进制系统、十六进制系统、八进制系统二进制系统）间进行数值转换函数、同度量系统进行数值转换函数 4.财务函数--财务函数进行般财务计算确定贷款支付额、投资未值或净现值及债券或息票价值财务函数见参数： 未值 (fv)--所付款发投资或贷款价值 期间数 (nper)--投资总支付期间数 付款 (pmt)--于项投资或贷款定期支付数额 现值 (pv)--投资期初投资或贷款价值例贷款现值所借入本金数额 利率 (rate)--投资或贷款利率或贴现率 类型 (type)--付款期间内进行支付间隔月初或月末 5.信息函数--使用信息工作表函数确定存储单元格数据类型信息函数包含组称 IS 工作表函数单元格满足条件返 TRUE例单元格包含偶数值ISEVEN 工作表函数返 TRUE需要确定某单元格区域否存空白单元格使用 COUNTBLANK 工作表函数单元格区域空白单元格进行计数或者使用 ISBLANK 工作表函数确定区域某单元格否空 6.逻辑函数--使用逻辑函数进行真假值判断或者进行复合检验例使用 IF 函数确定条件真假并由返同数值 7.查询引用函数--需要数据清单或表格查找特定数值或者需要查找某单元格引用使用查询引用工作表函数例需要表格查找与第列值相匹配数值使用 VLOOKUP 工作表函数需要确定数据清单数值位置使用 MATCH 工作表函数 8.数三角函数--通数三角函数处理简单计算例数字取整、计算单元格区域数值总或复杂计算 9.统计函数--统计工作表函数用于数据区域进行统计析例统计工作表函数提供由组给定值绘制直线相关信息直线斜率 y 轴截距或构直线实际点数值 10.文本函数--通文本函数公式处理文字串例改变写或确定文字串度期插入文字串或连接文字串面公式示例借说明何使用函数 TODAY 函数 TEXT 创建条信息该信息包含着前期并期&dd-mm-yy&格式表示 11.用户自定义函数--要公式或计算使用特别复杂计算工作表函数满足需要则需要创建用户自定义函数些函数称用户自定义函数通使用 Visual Basic for Applications 创建 Excel函数及关知识做简要介绍文章笔者逐介绍每类函数使用及应用技巧由于Excel函数相能仅介绍几种比较用函数使用其更函数您Excel线帮助功能解更详细资讯 Excel办公应用用软件光统计功能进行查找、计算Excel诸函数简化我操作需要注意英文处理相同文字按两字节计算稍注意能忽略点造错误其实Excel函数专门针双字节字符函数 让我先看看函数FIND与函数FINDB区别 语： FIND(find_text,within_text,start_num) FINDB(find_text,within_text,start_num) 两函数参数相同 作用：FIND函数用于查找文本（within_text）字符串（find_text）并within_text首字符始返find_text起始位置编号使用SEARCH查找字符串FINDSEARCH同FIND区写并且允许使用通配符 FINDB函数用于查找文本（within_text）字符串（find_text）并基于字节数within_text首字符始返find_text起始位置编号函数用于双字节字符 示例：图1单元B2公式=FIND(&雨&,A2) 单元格B3公式=FINDB(&雨&,A2) 两函数公式结FIND函数雨位于吴雨峰串第二位置故返2；FINDB函数每汉字按2字节算所雨第三字节始返3 同理：LEFT与LEFTB、RIGHT与RIGHTB、LEN与LENB、MID与MIDB、REPLACE与REPLACEB、SEARCH与SEARCHB关系即带字母B函数按字符操作带字母B函数按字节进行操作 我编辑、修改、计算工作簿数据经用许汉字字符使用带字母B函数汉字字符进行操作便 习Excel函数我数与三角函数始毕竟我非熟悉函数些弦函数、余弦函数、取整函数等等始直陪伴着我 首先让我起看看Excel提供哪些数三角函数笔者列表形式列Excel提供所数三角函数详细请看附注表格 表我难发现Excel提供数三角函数已基本囊括我通所用各种数公式与三角函数些函数详细用笔者赘述面应用角度家演示些函数使用 、与求关函数应用 SUM函数Excel使用函数利用进行求运算忽略存文本、空格等数据单元格语简单、使用便相信家先使用Excel函数实际Excel所提供求函数仅仅SUM种包括SUBTOTAL、SUM、SUMIF、SUMPRODUCT、SUMSQ、SUMX2MY2、SUMX2PY2、SUMXMY2几种函数 笔者某单位工资表例重点介绍SUM（计算组参数）、SUMIF（满足某条件单元格区域求）使用(说明：力求简单示例忽略税金计算) SUM 1、行或列求 见工资表（图）例特点需要行或列内若干单元格求 比求该单位20015月实际发放工资总额H13输入公式： =SUM(H3:H12) 2、区域求 区域求用于张工作表所数据求总计让单元格指针停留存放结单元格Excel编辑栏输入公式&=SUM（）&用鼠标括号间单击拖需要求所单元格若些单元格连续按住Ctrl键别拖于需要减单元格则按住Ctrl键逐选用手工公式引用单元格前加负号用公式选项板完述工作于SUM函数说手工快些比H13公式写： =SUM(D3:D12,F3:F12)-SUM(G3:G12) 3、注意 SUM函数参数即求单元格或单元格区域能超<img class="word-replace" src="/api/getdecpic?picenc=0af换句说SUM函数括号现隔符（逗号）能于29否则Excel提示参数太需要参与求某数用&=SUM（单元格区域数）&形式直接引用般必绝引用存放该数单元格 SUMIF SUMIF函数满足某条件单元格区域求该条件数值、文本或表达式应用事、工资绩统计 仍图例工资表需要别计算各科室工资发放情况 要计算销售部20015月加班费情况则F15种输入公式 =SUMIF($C$3:$C$12,&销售部&,$F$3:$F$12) 其&$C$3:$C$12&提供逻辑判断依据单元格区域&销售部&判断条件即统计$C$3:$C$12区域部门&销售部&单元格$F$3:$F$12实际求单元格区域 二、与函数图像关函数应用 我想家定记我数需要画各种函数图像候用坐标纸点点描绘计算疏忽描平滑函数曲线现我已经知道Excel几乎囊括我需要各种数三角函数否利用Excel函数与Excel图表功能描绘函数图像呢 三、见数函数使用技巧--四舍五入 实际工作数运算特别财务计算遇四舍五入问题虽excel单元格格式允许定义数位数实际操作我发现其实数字本身并没真四舍五入显示结似乎四舍五入采用种四舍五入财务运算现几钱误差财务运算允许否简单行进行真四舍五入呢其实Excel已经提供面函数ROUND函数返某数字按指定位数舍入数字 Excel提供&数与三角函数&提供名ROUND(number,num_digits)函数功能根据指定位数数字四舍五入函数两参数别numbernum_digits其number要进行四舍五入数字；num_digits则希望数字数点位数图3所示： 单元格B2初始数据0.123456B3初始数据0.234567要进行四舍五入单元格C2输入&=ROUND(B2,2)&数点保留两位效数字0.12、0.23单元格D2输入&=ROUND(B2,4)&则数点保留四位效数字0.6 附注：Excel数三角函数览表 ABS 工作表函数 返参数绝值 ACOS 工作表函数 返数字反余弦值 ACOSH 工作表函数 返参数反双曲余弦值 ASIN 工作表函数 返参数反弦值 ASINH 工作表函数 返参数反双曲弦值 ATAN 工作表函数 返参数反切值 ATAN2 工作表函数 返给定 X 及 Y 坐标值反切值 ATANH 工作表函数 返参数反双曲切值 CEILING 工作表函数 参数 Number 沿绝值增向舍入接近整数或基数 COMBIN 工作表函数 计算给定数目象集合提取若干象组合数 COS 工作表函数 返给定角度余弦值 COSH 工作表函数 返参数双曲余弦值 COUNTIF 工作表函数 计算给定区域内满足特定条件单元格数目 DEGREES 工作表函数 弧度转换度 EVEN 工作表函数 返沿绝值增向取整接近偶数 EXP 工作表函数 返 e
n 幂数 e 等于 2.04自数底数 FACT 工作表函数 返数阶乘数阶乘等于 1*2*3*...*该数 FACTDOUBLE 工作表函数 返参数 Number 半阶乘 FLOOR 工作表函数 参数 Number 沿绝值减向尾舍入使其等于接近 significance 倍数 GCD 工作表函数 返两或整数公约数 INT 工作表函数 返实数舍入整数值 LCM 工作表函数 返整数公倍数 LN 工作表函数 返数自数自数数项 e（2.04）底 LOG 工作表函数 按所指定底数返数数 LOG10 工作表函数 返 10 底数 MDETERM 工作表函数 返数组矩阵行列式值 MINVERSE 工作表函数 返数组矩阵逆距阵 MMULT 工作表函数 返两数组矩阵乘积结 MOD 工作表函数 返两数相除余数结负号与除数相同 MROUND 工作表函数 返参数按指定基数舍入数值 MULTINOMIAL 工作表函数 返参数阶乘与各参数阶乘乘积比值 ODD 工作表函数 返指定数值进行舍入奇数 PI 工作表函数 返数字 3.79即数数 pi精确数点 15 位 POWER 工作表函数 返给定数字乘幂 PRODUCT 工作表函数 所参数形式给数字相乘并返乘积值 QUOTIENT 工作表函数 商整数部该函数用于舍掉商数部 RADIANS 工作表函数 角度转换弧度 RAND 工作表函数 返于等于 0 于 1 均匀布随机数 RANDBETWEEN 工作表函数 返位于两指定数间随机数 ROMAN 工作表函数 阿拉伯数字转换文本形式罗马数字 ROUND 工作表函数 返某数字按指定位数舍入数字 ROUNDDOWN 工作表函数 靠近零值向（绝值减向）舍入数字 ROUNDUP 工作表函数 远离零值向（绝值增向）舍入数字 SERIESSUM 工作表函数 返基于公式幂级数： SIGN 工作表函数 返数字符号数字数返 1零返 0负数返 -1 参考资料：
提问者评价
矩形图的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB如何从Excel表中找到相应的一个字段下的多条数据插入到数据库相应的字段中_百度知道
VB如何从Excel表中找到相应的一个字段下的多条数据插入到数据库相应的字段中
SQL数据库表字段记录空着；Excel表sheet1两字段字段数据库表主键另则该数据库空着字段sheet1两字段记录条数据请问用Vb用代码Excel字段根据主键相同条件该字段数据插入数据库相应空字段请高手帮忙谢谢
提问者采纳
ACCESS----》文件----》获取外部数据-----》导入----》文件类型 选择 Microsoft Excel----》根据提示完导入VB 要代码祝运 非用vb代码
仅供参考VB用应用软件发工具由于VB报表功能限且报表格式发变化相应修改程序给应用软件维护工作带极便程序员现已经充利用EXECL强报表功实现报表功能由于VB与EXCEL由于别属于同应用系统何机结合起值我研究课题 、 VB读写EXCEL表： VB本身提自化功能读写EXCEL表其： 1、工程引用Microsoft Excel类型库： &工程&菜单选择&引用&栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000）选择&确定&表示工程要引用EXCEL类型库 2、通用象声明程定义EXCEL象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、程序操作EXCEL表用命令： Set xlApp = CreateObject(&Excel.Application&) &#39;创建EXCEL象 Set xlBook = xlApp.Workbooks.Open(&文件名&) &#39;打已经存EXCEL工件簿文件 xlApp.Visible = True &#39;设置EXCEL象见（或见） Set xlSheet = xlBook.Worksheets(&表名&) &#39;设置工作表 xlSheet.Cells(row, col) =值 &#39;给单元格（row,col）赋值 xlSheet.PrintOut &#39;打印工作表 xlBook.Close (True) &#39;关闭工作簿 xlApp.Quit &#39;结束EXCEL象 Set xlApp = Nothing &#39;释放xlApp象 xlBook.RunAutoMacros (xlAutoOpen) &#39;运行EXCEL启宏 xlBook.RunAutoMacros (xlAutoClose) &#39;运行EXCEL关闭宏 4、运用VB命令操作EXCEL表除非设置EXCEL象见否则VB程序继续执行其操作能够关闭EXCEL同EXCEL进行操作EXCEL操作程关闭EXCEL象VB程序知道使用EXCEL象则VB程序产自化错误形VB程序完全控制EXCEL状况使VB与EXCEL脱节 二、 EXCEL宏功能： EXCEL提供Visual Basic编辑器打Visual Basic编辑器其工程属性窗口点击右键菜单&插入模块&则增加&模块1&模块运用Visual Basic语言编写函数程并称宏其EXCEL两自宏：启宏（Sub Auto_Open()）另关闭宏（Sub Auto_Close()）特性：用EXCEL打含启宏工簿自运行启宏同理关闭含关闭宏工作簿自运行关闭宏通VB自化功能调用EXCEL工作表启宏关闭宏自运行需要VB通命令xlBook.RunAutoMacros (xlAutoOpen)xlBook.RunAutoMacros (xlAutoClose) 运行启宏关闭宏 三、 VB与EXCEL相互勾通： 充利用EXCEL启宏关闭宏实现VB与EXCEL相互勾通其： EXCEL启宏加入段程序其功能磁盘写入标志文件同关闭宏加入段删除标志文件程序VB程序执行通判断标志文件存与否判断EXCEL否打标志文件存表明EXCEL象运行应该禁止其程序运行标志文件存表明EXCEL象已用户关闭要使用EXCEL象运行必须重新创建EXCEL象 四、举例： 1、VB建立FORM其放置两命令按钮Command1Caption属性改EXCELCommand2Caption属性改End其输入程序： Dim xlApp As Excel.Application &#39;定义EXCEL类 Dim xlBook As Excel.Workbook &#39;定义工件簿类 Dim xlsheet As Excel.Worksheet &#39;定义工作表类 Private Sub Command1_Click() &#39;打EXCEL程 If Dir(&D:&#92;temp&#92;excel.bz&) = && Then &#39;判断EXCEL否打 Set xlApp = CreateObject(&Excel.Application&) &#39;创建EXCEL应用类 xlApp.Visible = True &#39;设置EXCEL见 Set xlBook = xlApp.Workbooks.Open(&D:&#92;temp&#92;bb.xls&) &#39;打EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) &#39;打EXCEL工作表 xlsheet.Activate &#39;激工作表 xlsheet.Cells(1, 1) = &abc& &#39;给单元格1行驶列赋值 xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL启宏 Else MsgBox (&EXCEL已打&) End If End Sub Private Sub Command2_Click() If Dir(&D:&#92;temp&#92;excel.bz&) && && Then &#39;由VB关闭EXCEL xlBook.RunAutoMacros (xlAutoClose) &#39;执行EXCEL关闭宏 xlBook.Close (True) &#39;关闭EXCEL工作簿 xlApp.Quit &#39;关闭EXCEL End If Set xlApp = Nothing &#39;释放EXCEL象 End End Sub 2、D盘根目录建立名Temp目录Temp目录建立名&bb.xls&EXCEL文件 3、&bb.xls&打Visual Basic编辑器工程窗口点鼠标键选择插入模块模块输入入程序存盘： Sub auto_open() Open &d:&#92;temp&#92;excel.bz& For Output As #1 &#39;写标志文件 Close #1 End Sub Sub auto_close() Kill &d:&#92;temp&#92;excel.bz& &#39;删除标志文件 End Sub 4、运行VB程序点击EXCEL按钮打EXCEL系统打EXCEL系统VB程序EXCEL别属两同应用系统均同进行操作由于系统加判断VB程序重复点击EXCEL按钮提示EXCEL已打EXCEL关闭EXCEL再点EXCEL按钮则重新打EXCEL论EXCEL打与否通VB程序均关闭EXCEL实现VB与EXCEL缝连接 引用：点击VB工程菜单选择引用选择Microsoft DAO 3.6 Compatibility Library并确定&#39;------------------------------------------------Private Sub Form_Load()
&#39;窗口load程Dim myDb As DatabaseDim myTb As RecordsetSet myDb = OpenDatabase(&c:&#92;data.mdb&) &#39;打数据库文件Set myTb = myDb.OpenRecordset(&xpress&) &#39;打表文件If myTb.RecordCount & 4 Then &#39;表文件记录于4条退程序
Set myTb = Nothing
Set myDb = Nothing
Exit SubEnd If myTb.MoveFirst
&#39;记录指针移第条 myTb.Move 2
&#39;记录指针向移<img class="word-replace" src="/api/getdecpic?picenc=0af条即移第三条 Text1.Text = myTb!DefaultValue
&#39;text1赋值xpress表DefaultValue字段第三条记录 myTb.MoveNext
&#39;记录指针移条 Text2.Text = myTb!DefaultValue
&#39;text2赋值xpress表DefaultValue字段第四条记录Set myTb = NothingSet myDb = NothingEnd SubPrivate Sub Command1_Click()Dim myDb As DatabaseDim myTb As RecordsetSet myDb = OpenDatabase(&c:&#92;data.mdb&)Set myTb = myDb.OpenRecordset(&xpress&)
myTb.MoveFirst
&#39;记录指针移第条
myTb.Move 2
&#39;记录指针移第三条
&#39;数据库编辑状态
myTb!DefaultValue = Text1.Text
&#39;数据库xpress表DefaultValue字段第三条赋值text1文本
myTb.Update
&#39;保存更改记录
myTb.MoveNext
&#39;记录指针移条第四条
myTb!DefaultValue = Text2.Text
myTb.Update Set myTb = NothingSet myDb = NothingEnd Sub另外,团IDC网许产品团购,便宜口碑
提问者评价
谢谢！！！
其他类似问题
为您推荐：
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何在一个excel表中利用两个excel中相同的数据实现在一个表中自动添加另一个表中相应的数据_百度知道
如何在一个excel表中利用两个excel中相同的数据实现在一个表中自动添加另一个表中相应的数据
一、使用VLOOKUP()这个函数，这个函数功能强大而且比较简单适用。1.下面有两个图，上面的是工作表Sheet1、下面的是工作表Sheet2上的内容。2.两工作表有相同的字段“姓名”，但列举的姓名排序不一样，表Sheet1是数据源。下面演示的就是要在表Sheet2中利用函数VLOOKUP()自动获取表Sheet1中有相同数据（姓名）的相应数据，操作为在表2的B2单元格中输入函数和相应的参数，再自动填充。3.函数VLOOKUP()有4个参数，参数间要以英文逗号隔开。第一个参数是目标表中的索引数据位置（表Sheet2第二行是王五，它所在单元格就是A2），第二个参数是数据源区域（此处是表Sheet1的A1至C4,加$是绝对引用的意思），第三个参数是要获取的那项数据在数据源区域的列序（此处表2的B列要得到语文成绩，在数据源区域语文成绩在第2列，所以填2），第四个参数是匹配程度选项，有精确和近似两种，精确即姓名完全一致&包括有无空格&），，，第一次用得好好看看函数的帮助和演示。4.特别要注意的是数据源区域必须以索引字段为第一列。（Sheet1）（Sheet2）二、还可以使用INDEX()函数，更为强大。
其他类似问题
为您推荐：
提问者采纳
表1A列户主、B列家庭编号；表2A列家庭员、B列家庭编号复制表2数据表3并员列前插入空列；表3A1输入=INDEX(表1!A:A,MATCH(C1,表1!B:B,))车并向填充
提问者评价
非常感谢！
来自团队：
excel的相关知识
其他3条回答
表三A2=INDEX(表1!A:A,MATCH(C2,表1!B:B,0))其余拉复制
　　①首先，选中A1、B1、C1、D1、E1这些单元格；　　②然后单击“格式”工具栏上面的“合并及居中”按钮；　　此时，这几个单元格就已经合并成了一个大单元格了。
使用vlookup函数可以实现
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}