副标题 将excel中的 数据 导入 到access中，前提是在access中的表已经建好。 dim conn dim conn2 set conn=createobject(adodb.connection) conn.open provider=microsoft.jet.oledb.4.0;jet oledb:database password=;data source=c:\book1.mdb set
将excel中的数据导入到access中，前提是在access中的表已经建好。
dim conn
dim conn2
set conn=createobject(adodb.connection)
conn.open provider=microsoft.jet.oledb.4.0;jet oledb:database password=;data source=c:\book1.mdb
set conn2=createobject(adodb.connection)
conn2.open provider=microsoft.jet.oledb.4.0;jet oledb:database password=;extended properties=excel 5.0;data source=c:\book1.xls
sql = select * from [sheet1$]
set rs = conn2.execute(sql)
while not rs.eof
 sql = insert into xxx([a],[b],[c],[d]) values('& fixsql(rs(0)) &','& fixsql(rs(1)) &','& fixsql(rs(2)) &','& fixsql(rs(3)) &')
 conn.execute(sql)
 rs.movenext
wend
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
 dim newstr
 newstr = str
 if isnull(newstr) then
  newstr =
 else
  newstr = replace(newstr,','')
 end if
 fixsql = newstr
end function
导入到sql server数据库中时，如果excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用excel中的第一行数据做为表的字段名）：
dim conn
set conn=createobject(adodb.connection)
conn.open (driver={sql server};server=localhost;uid=sa;pwd=sa;database=hwtemp;)
sql = select * into newtable from opendatasource( 'microsoft.jet.oledb.4.0','data source=c:\book1.xls;user id=admin;password=;extended properties=excel 5.0')...[sheet1$]
conn.execute(sql)
conn.close
set conn = nothing
选择自 sxycgxj 的 blog
本文作者:
该错误产生的原因是由于sql server使用了仅 windows的身份验证方式，因此用户无法使用sql server的登录帐户（如 sa ）进行连接。解决方法如下所示:
1、在服务器端使用企业管理器，并且选择使用 windows 身份验证连接上 sql server；
2、展开sql server组，鼠标右键点击sql server服务器的名称，选择属性，再选择安全性选项卡；
3、在身份验证下，选择sql server和 windows ；
4、重新启动sql server服务。
在以上解决方法中，如果在第1步中使用使用 windows 身份验证连接 sql server 失败，那就通过修改注册表来解决此问题:
1、点击开始 运行，输入regedit，回车进入注册表编辑器；
2、依次展开注册表项，浏览到以下注册表:[hkey_local_machine\software\microsoft\mssqlserver\mssqlserver]；
3、在屏幕右方找到名称loginmode，双击编辑双字节值；
4、将原值从1改为2，点击确定；
5、关闭注册表编辑器；
6、重新启动sql server服务。
此时，用户可以成功地使用sa在企业管理器中新建sql server注册，但是仍然无法使用windows身份验证模式来连接sql server。这是因为在 sql server 中有两个缺省的登陆户:
builtin\administrators
\administrator 被删除。
要恢复这两个帐户，可以使用以下的方法:
1、打开企业管理器，展开服务器组，然后展开服务器；
2、展开安全性，右击登录，然后单击新建登录；
3、在名称框中，输入 builtin\administrators；
4、在服务器角色选项卡中，选择system administrators ；
5、点击确定退出；
6、使用同样方法添加 \administrator 登录。
说明:
以下注册表键:
hkey_local_machine\software\microsoft\mssqlserver\mssqlserver\loginmode的值决定了sql server将采取何种身份验证模式。
1、表示使用windows 身份验证模式；
2、表示使用混合模式（windows 身份验证和 sql server 身份验证）。
三、提示连接超时
（图6）
如果遇到第三个错误，一般而言表示客户端已经找到了这台服务器，并且可以进行连接，不过是由于连接的时间大于允许的时间而导致出错。这种情况比较少见，一般发生在当用户在internet上运行企业管理器来注册另外一台同样在internet上的服务器，并且是慢速连接时，有可能会导致以上的超时错误。有些情况下，由于局域网的网络问题，也会导致这样的错误。
要解决这样的错误，可以修改客户端的连接超时设置。默认情况下，通过企业管理器注册另外一台sql server的超时设置是 4 秒，而查询分析器是 15 秒。
具体步骤为:
企业管理器中的设置:
1、在企业管理器中，选择菜单上的工具，再选择选项；
2、在弹出的sql server企业管理器属性窗口中，点击高级选项卡；
3、在连接设置下的登录超时（秒）右边的框中输入一个比较大的数字，如 30。
查询分析器中的设置:
单击“工具”->选项->连接; 将登录超时设置为一个较大的数字，连接超时改为0。
四、应用程序连接失败
以上的三种错误信息都是发生在 sql server 自带的客户端工具中，在应用程序中我们也会遇到类似的错误信息，例如：
microsoft ole db provider for sql server (0x80004005)
[dbnetlib][connectionopen (connect()).]specified sql server not found.
microsoft ole db provider for sql server (0x80004005)
用户 'sa' 登录失败。原因: 未与信任 sql server 连接相关联。
microsoft ole db provider for odbc drivers 错误 '80004005'.
[microsoft][odbc sql server driver]超时已过期.
如果遇到连接超时的错误，我们可以在程序中修改 connection 对象的超时设置，再打开该连接。例如：
＜%
set conn = server.createobject(adodb.connection)
dsntest=driver={sql server};server=servername;uid=user;pwd=password;database=mydatabase
conn. properties(connect timeout) = 15 '以秒为单位
conn.open dsntest
%＞ 
　 如果遇到查询超时的错误，我们可以在程序中修改 recordset 对象的超时设置，再打开结果集。例如：
dim cn as new adodb.connection
dim rs as adodb.recordset
. . .
cmd1 = txtquery.text
set rs = new adodb.recordset
rs.properties(command time out) = 300
'同样以秒为单位，如果设置为 0 表示无限制
rs.open cmd1, cn
rs.movefirst
. . . 
五、小结
本文针对大部分用户在使用 sql server 过程中常见的连接失败的错误，重点讨论了在使用 sql server 客户端工具以及用户开发的应用程序两种情况下，如何诊断并解决连接失败的错误。看过本文以后，相信每一个读者都会对 sql server 的连接工作原理、身份验证方式以及应用程序开发等有一个较为全面而深入的了解。
本文作者: