使用程序把access2000 数据转到MSsql数据库中

最新推荐文章于 2024-09-21 11:30:16 发布

代码之城

最新推荐文章于 2024-09-21 11:30:16 发布

阅读量1.1k

点赞数

文章标签： access 数据库 sql insert asp null

本文链接：https://blog.csdn.net/jamie2012/article/details/6580044

版权

使用程序把access2000 数据转到MSsql数据库中，最近升级数据库，以前使用access 数据库由于数据越来越大，只能升级数据库了，所以选择了,msSQL2008 ,可是以前的数据如何原封不动的转移呢，真是头疼啊，我利用asp程序完成了转移，代码如下：

首先按照access数据库表结构，创建mssql2008数据库，注意字段必须相同，否则会出错。

注意：MSSQL2008 文本最好用nvarchar ，如果access字段是备注类型的最好用 [ntext] NULL,

这是一个转移数据的asp代码：

思路：首先算出access有多少数据，然后把sql2008填充多少空数据，

最后：按照ID 进行每个数据的更新，

If request.Form("stable")=1 Then          
   			sql_access=sql_access+"tabproduct"
			sql_max_id="select max(id) as maxNum from tabproduct"
			set rs_max=server.CreateObject("adodb.recordset") 
	 		rs_max.open sql_max_id,conn,1,3
			if not rs_max.eof then
				max_id=rs_max("maxNum")
			else
				max_id=0
			end if
			
			if max_id=0 then
	
			else
			
				for i = 1 to max_id
					 sql_insert="insert into tabproduct (product_name) values (')"
					 conn_sql.execute(sql_insert)
				next
				response.Write max_id & "<<<<tabproduct Insert Success<br>"
			end if
			'开始转移数据
				  sql_access="select * from tabproduct"
				  set rs_access=server.CreateObject("adodb.recordset") 
				  rs_access.open sql_access,conn,1,3
				  
				  If Not rs_access.eof Then     
					for i=0 to rs_access.recordcount-1        
						   '打开sql数据库 
						  sql_update="select * from tabproduct where id=" & rs_access("id")
						  set rs_sql2008=server.CreateObject("adodb.recordset") 
						  rs_sql2008.open sql_update,conn_sql,1,3 
						   if not rs_sql2008.eof then
								For k=1 To rs_access.fields.count-1
									fields_name=rs_access.fields(k).name   
								
									rs_sql2000("" & fields_name & "")=rs_access("" & fields_name &"")  
										‘   rs_sql2000("product_name")=rs_access("product_name")  
										      ’rs_sql2008("product_count")=rs_access("product_count")
											’rs_sql2008("gonghuoshang")=rs_access("gonghuoshang")
										 ‘  rs_sql2008("collection_times")=rs_access("collection_times")
										  ’ rs_sql2008("keyword")=rs_access("keyword")
										  
								Next 
								rs_sql2008.update 
								rs_sql2008.close
								set rs_sql2008=nothing 
							end if      
							rs_access.movenext
					Next 
					
				   set rs_sql2000=nothing 
				   set rs_access=Nothing 
				end if