Excel数据导入到Access,Sql Server中示例代码

副标题 将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 的连接工作原理、身份验证方式以及应用程序开发等有一个较为全面而深入的了解。

本文作者: