再讲ＡＤＯ

microyip

hyefeifei 发表于 2016-4-3 16:09
你的这个看了一下，没试你的程序，一般没这样做的，非从excel表更新数据库表的话，可用openrowset函数，
...

因为openrowset对SQL服务器有一定限制，不好操作。谢谢你的回复以及建议

hyefeifei

microyip 发表于 2016-4-3 20:43
因为openrowset对SQL服务器有一定限制，不好操作。谢谢你的回复以及建议

一个函数而已，对服务器没限制，需要开启administer bulk operations 权限，至于说开启这个权限有什么安全问题，可以说真的无所谓，放心开启使用就是了。实在不放心，网上找一下开启关闭的sql语句加到程序里。

liu5806293

学习，支持一下！

xd3210

期待feifei的ADO讲座！

mao471023

这个必须顶一下，正想学找不着地儿呢

hyefeifei

话说上一讲说到，要正确插入数据，必须先用Parameters Pefresh方法向数据库取元数据，然后才可以正确插入数据，但是数据库表是我们创建的，我们自然知道字段信息，所以不必去数据库取，直接告诉ado即可。 　　全过程如下： 　　1、创建一个command对象cmd，为cmd的commandtext属性赋值： Cmd.CommandText ="INSERT INTO Fltab VALUES (?,?,?,?,?) 　　2、用Cmd的createparameter(创建参数)方法，创建5个参数，对应查询语句的5个问号。 　　3、把创建的5个参数用参数集合的append方法添加到Parameters(参数集合)中。 　　4、为5个参数赋值。 　　5、用execute方法执行命令 　　见图： 　　 　　这里第2步创建5个参数，即是告诉ado表的字段信息，这样就不必用refresh方法连数据库去取字段信息了。 　　简单讲一下createparameter方法： 　　 　　我把数据库表五个字段的数据类型截给大家看一下： 　　 　　这里sqlnvarchar对应的是adVarChar,也就是说ADO有自己的一套常数，对应于sql的数据类型，那么，我怎么知道sql的int,nvarchar等对应的ado常数呢？在这里，我把常用的整理放在下面，供各位朋友参考，欲求全的话，可以百度一下：                     ADO                                         SQL Server        adBoolean     bit     adChar     char     adCurrency     money  smallmoney     adDBTimeStamp     datetime  smalldatetime     adDouble     float     adInteger     identity  int     adNumeric     decimal  numeric     adVarWChar     nvarchar     adWChar     nchar 　　完整程序代码如下： Sub InsertAdd()     Dim cmd As Object     Dim arr     Dim i As Long     Connect "test"     Conn.Open     Set cmd = CreateObject("adodb.command")     arr = ThisWorkbook.Worksheets("Fltab").Range("a2:e29")     With cmd         .CommandText = "INSERT INTO Fltab VALUES (?,?,?,?,?)"         Set .activeconnection = Conn         '.Parameters.Refresh　　　      '由于下面人工定义了参数类型，所以就不必从服务器取参数类型了 　　　　　　　　　　　　　　　　'建议这样做，虽然代码多了些，但执行效率高了。         .Parameters.append .createparameter(, adVarChar, adParamInput, 30)         .Parameters.append .createparameter(, adInteger, adParamInput)         .Parameters.append .createparameter(, adVarChar, adParamInput, 20)         .Parameters.append .createparameter(, adVarChar, adParamInput, 20)         .Parameters.append .createparameter(, adVarChar, adParamInput, 20)         For i = 1 To UBound(arr)             .Parameters(0) = arr(i, 1)             .Parameters(1) = arr(i, 2)             .Parameters(2) = arr(i, 3)             .Parameters(3) = arr(i, 4)             .Parameters(4) = arr(i, 5)             .Execute Options:=adCmdText + adExecuteNoRecords         Next     End With End Sub[/align] 复制代码 　　这种直接操作数据库的方式虽然没啥问题，但是，我始终感觉，最好还是用select语句，把数据取回本地形成本地临时表，然后再操作数据库比较方便，在这个例子中虽然体现不出这种方式的好处，但你总用临时表，就会越来越觉得临时表方式的方便之处了。那么该如何做呢? 　　如果有下一讲，那就下一讲再说吧。

ly

hyefeifei 发表于 2016-4-3 10:06
上一讲虽然应者寥寥，还是继续一讲再看吧。
在回答上讲未了提出的问题前，先讲点题外话：
1、虽然是以提 ...

3、学习之前，应该搭建环境，强烈推荐vmware workstation 这款软件，它甚至可以搭建
vsphere环境，强大之处各位可百度一下。有了它，建一个虚拟机，装上sql server2008,学
ado就方便多了，如果没有它，也没有局域网环境，这个ado还真没学。

希望老师在搭建环境的这方面内容可否再扩展一点讲，sql是否一定要装在NT系统上，或win7即可？等等.....谢谢老师！

xd3210

引人入胜！

ljx63426

很好，希望老师继续讲下去

changxuegu

楼主辛苦了，谢谢楼主花那么多时间来和大家分享，我相信应该会有较多的网友需要这部分的知识的，支持！