VBA把excel备份至SQL或者实现数据交换 提示下标越界 重金悬赏大神解决_百度知道
提问者采纳
根据您的数据表的格式及数据库管理的性能,您要想实现多处随意动态更新,我觉得是有难度的!1、你的表格首先没有标定的唯一行（也就是数据库表中的键值），因此不管是哪个操作者任意更新一行或增加（删除）一行（或修改一行中某元的内容）形成新的数据表格后，在数据库中是很难界定的（这一点不知道您是否理解！）。如果没有唯一（键值）来约束的话，只能按顺序的方式来从数据库中下载内容到Excel或者将现在的Excel数据更新到数据库中。也就是说：Excel文件的当前操作者最好是一个，因为多个操作者不能实现数据同步的，数据库只能保留最后的更新者的数据。除非你把Excel表中的某一列标示为整个表格中的唯一一行（也就是数据库表中键值） 2、根据以上分析的结果，只好在 Excel 中使用两项功能，“下载”和“上传”
“下载”就是每次在操作之前，先把数据库中的内容更新到 Excel文件的Sheet 中。
Dim i As Integer
Dim n As Integer
Dim mySheet As Worksheet
Dim conStr As String
Dim mySQL As String
Dim conn As New ADODB.Connection
Dim sn As New ADODB.Recordset
Set meSheet = Sheet2
'用一个新的Sheet表单
conStr = &Provider=SQLOLEDB.1;Persist Security Info=TUser ID=
Password= Data Source =电脑名（或IP地址);Initial Catalog=数据库名;&
conn.Open conStr
mySQL = &SELECT * FROM 表名称&
sn.Open mySQL, conn, adOpenStatic, adLockReadOnly
‘可以把字段名称做为 Excel表的第一行，也可以不要下面的循环
If Not sn.BOF And Not sn.EOF Then
For i = 0 To sn.Fields.Count - 1
meSheet.Cells(1, i + 1) = sn.Fields(i).Na俯弗碘煌鄢号碉铜冬扩me
'从第二行开始写数据
Do While Not sn.EOF
For i = 0 To sn.Fields.Count - 1
meSheet.Cells(n, i + 1) = sn(i)
sn.MoveNext
'数据已经从数据库下载到当前的Sheet完成 当你把数据修改完后可以把整个数据表更新到数据库,实现&上传&功能如:
Dim i As Long
Dim meSheet As Worksheet
Dim conStr As String
Dim mySQL As String
Dim conn As New ADODB.Connection
Dim sn As New ADODB.Recordset
Set meSheet = Sheet2
conStr = &Provider=SQLOLEDB.1;Persist Security Info=TUser ID= Password= Data Source =电脑名(或IP地址);Initial Catalog=数据库名;&
conn.Open conStr
'需要将原来数据库中的数据删除掉
conn.Execute &DELETE FROM 表名&
mySQL = &SELECT * FROM 表名&
sn.Open mySQL, conn, adOpenDynamic, adLockOptimistic
'循环增加数据(也可以用SQL语句(INSERT INTO)逐行增加)
For i = 2 To 65535(最大行数,不一定到65535,因为后面也许是空值)
sn(0) = meSheet.Cells(i, 1)
sn(1) = meSheet.Cells(i, 2)
...多少根据列数来定
sn(7) = meSheet.Cells(i, 7)
Next i 更新完成.
姓名这行是固定的
需要列的话
我可以在其后
或其前添加一行
您说的行,实际上在数据库中是一条记录而已,一般Excel中的标题名称在数据库中是按字段名称处理的.所以我给你的程序:‘可以把字段名称做为 Excel表的第一行，也可以不要下面的循环
If Not sn.BOF And Not sn.EOF Then
For i = 0 To sn.Fields.Count - 1
meSheet.Cells(1, i + 1) = sn.Fields(i).Name
End If就是把字段名变成Excel 中的列名. 如果要保证每个操作者的操作与数据库实现同步,那就在每行数据中增加一个唯一的标示符号!如记录的顺序号.如:序号
车间 姓名 ......
... 在 Excel 中必须有约定,一但有操作者增加一行新数据(不管在最后还是在中间插入),系统要产生一个新的&序号&,这个值是唯一的,且当删除一行后这个&序号&也就消失了,不可重复使用!
我这么改了
然后我应该怎么做？
按照上面说的思路，把程序写成宏命令执行就OK 了。
提问者评价
其他类似问题
下标越界的相关知识
按默认排序
其他6条回答
我可以帮您做成VB程序，按VB程序再转换为VBA应该不是困难的问题，如果需要请百度HI吧！
已经做了一部分，你的联系方式？
做好后发给你，请稍等。
已经加你，验证：实现数据交换
你怎么还没发给我
最近有其他事，没顾上，现在已经做好了，如果需要请回复。
For i = 2 To Sheets(&插入&).[a65535].End(xlUp).Row 'i为&行数&的意思把这个.[a65535].数字改小一点，改成.[a100].试试
你检查下sql表的大小和列数，估计要减一才对
这需求, access很容易, excel很难
ACCESS局域网实现好像不容易
我要局域网使用
多台电脑套起来的
局域网使用不就是Access加SQL的CS架构吗, 啥叫不容易实现?这段代码里, 打开了一个记录集rs读取了所有数据 (select * ....), 却rs.addnew, 这个过程到底是从SQL读取数据, 还是往SQL写入数据?
addnew明显是写入sql,但是也没看到为什么唯一key值, 不知道如何判断是否被修改, 只管写入新记录, 其结果就是SQL里面记录重复再重复看不懂设计思路~~至于下标越界For j = 0 To rs.Fields.Count - 1 'j为'列数'rs(j) = Sheets(&插入&).Cells(i, j + 1)拿rs记录集的列数去读取sheet, sheet里面有这么多列吗? 读到null的cell是不是下标越界的原因?
大侠我真心不懂
要么大侠帮我编写一个
ACCESS我右击创建就出来了
局域网另一台电脑里找不到他
不管什么方法
达到效果就行
在access里新建一个数据表, 叫做链接表,用OBDC连接SQL, 或者建立一个传递查询,
怎么建网上大把教程, 连接你列出的SQL数据库建好了把这个access的mdb文件copy到另外一台或多台机器上用, 多人就可以同时修改操作同一个SQL数据表了其实就这么简单, 鼠标操作即可, 完全不需写代码, 如果你不会代码的话, ODBC就帮你把这些代码的同步事情都完成了
我试试希望可以
根据您的数据表的格式及数据库管理的性能,您要想实现多处随意动态更新,我觉得是有难度的!1、你的表格首先没有标定的唯一行（也就是数据库表中的键值
可以添加一行
并附上程序
报错的是哪一行
没有报错行
只是显示下标越界
...那下标越界 是哪一行？它没有提示你吗？试一下，Debug 一行一行运行，看能不能找到问题出在哪里，不然这么让大家，有些问题很难看出来
那大侠干脆按照我的要求帮我编写一个吧
这方面真心不懂
这个...1、不是说了嘛，上面的代码语法上是可以的(这里不管功能上是否达到你的要求)2、就算重写了，也只是举例子，谁也不能保证你拿过去就能用的。就像 lxmzyh 说的一样，问题出在哪里？在没有亲自调试或运行的情况下，只能是猜测，3、如果是多台电脑一起使用，建议装一个独立的数据库服务器，像sql server 啥的
我装了SQL SERVER了啊
我可以接受远程的亲
现在的问题还是你这段代码出现问题？你一步步的调试看下嘛，先看能不能正确连上数据库如果能够连上数据库了，那环境就OK了，只要调整代码部分，这个修改的范围就小了，也相对容易些...
能连上数据库的
只是提示下标越界
额 ， 那就注意下你表格的行列取值，是否正确，以及跟数据库表格的字段比较，是不是有多列问题最好是用 F8 单步执行一下，看问题出在哪里
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁高中生该不该参加课余活动 辩论赛 总结陈词我是正方四辩，也就是该参加课外活动
求助各位大神们救助。
尽量能好些。
必定重金悬赏！！_百度作业帮
高中生该不该参加课余活动 辩论赛 总结陈词我是正方四辩，也就是该参加课外活动
求助各位大神们救助。
尽量能好些。
必定重金悬赏！！
我是正方四辩，也就是该参加课外活动
求助各位大神们救助。
尽量能好些。
必定重金悬赏！！
应该。课余活动可以让我们更好地与他人交往，让我们在学习之余又放松一点。而且当今的高中生，大多为书呆子，近视的人不在少数。而课余活动还可以让我们的身体更健康，得到身心的放松。初中数学题,急需答案求大神,我做了很久都没做出来,重金悬赏已知△ABC为等腰直角三角形,D为中点,已知∠APB=135°,连接CP,PD,求证CP=根号二倍的PD_百度作业帮
初中数学题,急需答案求大神,我做了很久都没做出来,重金悬赏已知△ABC为等腰直角三角形,D为中点,已知∠APB=135°,连接CP,PD,求证CP=根号二倍的PD
已知△ABC为等腰直角三角形,D为中点,已知∠APB=135°,连接CP,PD,求证CP=根号二倍的PD
先给你个高一的方法,肯定对,就是不知道你看不看得懂接下来是初三的方法,不过少了关键一步,你让我再想想（明天晚上给你答复）作BE垂直AP,AF垂直BP∠PAB=∠CBP（易证）△AFP相似△BEP（这中间少了一个证明）所以AP:PB=1：根号2又因为AD：BC=1：根号2∠PAB=∠CBP所以△APD相似△CPBCP=根号二倍的PD
给你提供一种较为简单的方法，但是需要较强的计算能力作为基础，连接CD，S四边形CPDB=S CPD+S CDB很显然，这时利用海伦公式及推广式即可得证比例计算过程暂不列举（打起来好慢）
证明三角形adp相似三角形bcp，其中角acp加角pab等于45度，角pab加角pba也等于45度，所以角cap等于角pba，由于角a角b都等于45度，所以角pab等于角cbp，角cpd也等于135度，得角apd等于角cpb，ad等于2分之根2，cb等于1，相似三角形两条边一比就的。
把三角形ACP绕C旋转使AC和BC重合，连接PP‘，延长PD到M，使MD=PD，连接BM，MP‘。 证得PP'=√2CP,BP垂直平分MP’，PM=PP‘。PP’=2PD=√2CP，除根号2得证。现在回答还有分吗？
∠CPD为什么等于135°，就这个不懂
老师说全靠计算肯定不行请问是初中吗？如果是的话在没学过竞赛的情况下的确不建议使用。海伦公式初中教材提到过，但是推广式要有四点共圆为基础来使用。本题可以使用该方法。若不理解，我可以给你较麻烦的初中做法。行，圆还没学额，我之前没仔细想，上面的方法有点问题，不好意思。题目仅说∠APB=135°，，这实际上可理解为P是动点，是在一个圆上的动点。你可以先试下P在CD上时，这种情况比较好证。我想出的初中做法还...
行，圆还没学
额，我之前没仔细想，上面的方法有点问题，不好意思。题目仅说∠APB=135°，，这实际上可理解为P是动点，是在一个圆上的动点。你可以先试下P在CD上时，这种情况比较好证。我想出的初中做法还是计算，很简单的计算，建一个直角坐标系即可。具体做法如果你需要我可以给你。《 网页设计与制作》作业要求，求大神帮忙，邮箱,重金悬赏_百度知道
《 网页设计与制作》作业要求，求大神帮忙，邮箱,重金悬赏
按栏目进行分类：特色美工技巧或网页特效。　　　　　　（3）确立每个页面之间的链接和整体导航的统一、设计结构图等，邻近色以及一些颜色的明暗变化，收集有关材料。 　　　　　　（1）要求设计网站的标志、严禁抄袭、进行各级页面的设计，同类色、将收集的材料、FLASH，不能过于花哨、不必交原创模版源图png&#47。　　　　　2、内容健康。加分项目、进行网站结构的规划、WAP。　　　　　5、网站须压缩打包（可压缩为RAR格式）、设计技巧，画出网站的结构框图，只需附上效果图（jpg或gif格式）。 8，并进行有效的改造： （1）观察所选择参考网站的特点：主 题;psd等原文件，完成页面的色彩搭配以及页面的布局：说明设计理念：站点结构完整、根据栏目设计； （2）采用互补色。7、具有时代气息。　　　　　7，但网站提供的信息应与网站主题相符合、对收集的材料进行提炼加工、具体设计时。其步骤如下，确定网站的层次数、设计策划书（doc文件）。　　　　　3。3： 　　　　　1、思想积极向上，并为自己的网站取一个名字！步骤参考，可以参考某个优秀的网站进行页面的设计或者完全自己设计：不限，各级页面数量适量（5-10个子页面为适中），完成各级页面效果的实现。4，根据你的优势或喜好确定个人网站网页的设计风格。6：大小适中、根据个人网站的性质与任务、注明所使用的网页制作工具：1：站点统一、RSS。2、设计流程。 （3）在图像处理软件中。5。网站规模，进行栏目的策划。　　　　　4。提交格式、确保提交的网页无病毒，简洁大方。网站色调。　　　　　6。 （2）在草图上仔细推敲各层页面，要求排版规范、3D等，同时考虑与所需制作软件的结合，以符合自己的需要：设计制作一个小型网站作业题目，要求如下、整个网站大小须控制在2M以内。题 材、上网浏览不同网站的内容和风格
我有更好的答案
按默认排序
文件名你可以任意.0：”这时要放图片了、准备材料 你首先做一个小计划，否则会看不到网页的,我的工作，我的就是~~~~~~ 三，放在myself的目录下，全世界的人都可以随时找到你。把你准备在你主页上出现的图象放进相应的目录里后.制作主页其实很简单。现在有较多的主机提供免费主页空间，你只须用鼠标选“自我介绍”后按鼠标右键 ，其他诸如BMP和TIF等很通用的格式都不能用在网上，选取Image，但最好全部小写、将你制作好的安放在网上 要在网上安你自己的家？比如介绍三个方面，放在myself的目录下如果你已经上网.html)。 在你的封面做好了所有链接和图片后，你也可以向全世界宣传下自己.html，我的工作”,interest。只要到有关站点申请即可,在file菜单里选Edit Page，记住你必须将这一页保存为index。申请完成以后用FTP将你所有的主页文件上传至主机指定的目录就可以了，现在必须做封面了.0或者WORD7.打开Netscape？其实他们都是因为位置的问题。这些主机不仅提供免费个人主页空间,那你就先起一个总目录（文件夹，job？有了自己的主页，参考相关题目，只要多实际制作.html格式的文件。现在简单介绍一下制作主页的过程和方法，一定要保持网页的相对位置，就将“自我介绍”链接到下一页了,比如d，用另存为功能保存为。然后将你的材料copy进相应的子目录，你在封面写. 要注意.文字的处理基本跟Word没什么两样,在Choosefile里选取你的图象文件即可，因为有的主机要认大小写,便可以制作了.html文件。你的自我介绍要链接到下一页去,你就可以开始制作了、开始制作 你无须去记复杂的HTML语言,关键是插入图片和产生链接，只须点击Insert菜单,来放你的所有文件，你必须先申请一个主页空间，即向某一个主机申请一快硬盘空间：自我介绍，比如Office 97的照片编辑器，你先写上“大家好： 一。比如你要在你的主页里展示你的靓照，细细研究人家是如何做的,我用的是Fhtml），具体见实用链接栏目。还可以拿来主义，我是superboy、计数器等很有用的功能，然后再选你myself目录下的myself！ 需要注意的是：myself.我们先做关于你自我介绍的一页。好，是非常有意义和有意思的。还可以借用网页模版来搞，那就将你的照片扫描成JPG格式的文件,因为网页默认的主页名称是index,老是出现网页错误呢，再选create link，然后再在这个目录建立三个子目录，并且还提供留言簿，你可以用Netscape4.htm(有的主机要求必须为index，我的爱好，在网上看到什么好的主页:&#92。 二:为什么我的网页传上去了可是看不到：“欢迎来到superboy的主页”以下是“自我介绍,但你可以用图象软件进行转换,我的爱好，就可以跳到镶有你靓照的页面啦，下面是我的照片，以后在浏览器中一按，具体方法,准备在主页上告诉人家什么,因为它们太大了，有很多朋友都问我，然后把这个文件保存为myself，工多艺熟，为何不尝试一下在网上做一个完全属于自己的主页,网上只能使用JPG和GIF两种图象格式
其他类似问题
网页设计与制作的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁重金悬赏，求高手帮忙做小说封面！地址如下：http://www.jjwxc.net/onebook.php?novelid=1653552_百度知道
重金悬赏，求高手帮忙做小说封面！地址如下：http://www.jjwxc.net/onebook.php?novelid=1653552
我会考虑再加悬赏做的好的话，YOUXIANG谢谢，TENXUN！请把做好的封面发过
&#47腾讯，Q//Q&#47
提问者采纳
正在制作，因为编辑部图太多，下午见图。谢谢
请问，图呢？
提问者评价
怎么把人物给搞错了亲
其他类似问题
小说封面的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁