VC6.0连接数据库，并把大量数据从ACCess转移到SQL sever2008 的问题（亲测可用）

如果以下有不懂，可以加我微信交流xpj13098878561
VC6.0连接数据库，并把大量数据从ACCess转移到SQL sever2008 的问题（亲测可用）

VC6.0下载连接https://pan.baidu.com/s/1MwQRm-ag-JJYL57al95Wzg&shfl=sharepset，在win7，win10上可用。
SQL sever2008R2下载连接https://pan.baidu.com/s/1EjllJ11uqhIpny_PBbd7qw&shfl=sharepset，win7和win10上都可用
下载完成之后安装，安装教程百度
现需要在VC上新建一个工程，VC需要连接一个库，在头文件或者预处理文件上写上#import “msado15.dll” rename(“EOF”, “EndOfFile”)，需将名字为msado15的库文件移到当前目录下，然后在构造函数或者其他的函数中写上如下数据

CADORecordset Rs(&m_Ado);
    AfxEnableControlContainer();
    AfxOleInit();//初始化COM库 
    ::CoInitialize(NULL);// 初始化OLE/COM库环境 
	CADORecordset Rs(&m_Ado);
     //对SQL进行处理
	_ConnectionPtr m_pConnection;
	_RecordsetPtr m_pRecordset;
    _CommandPtr m_pCommand;
    /打开access
	HRESULT hr;
	///以上为操纵sQL和access的句柄
	///打开access数据库
		if (!m_Ado.IsOpen())
	{
		if (! m_Ado.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sn.mdb"))
		{
			AfxMessageBox("连接数据库失败,检查数据库为是否存在!");		
			//	AfxMessageBox("Can't connect the language database,please check the database is exist!");
			return;
		}
	}
//判断是否能打开SQLsever数据库，如不报错，表明此时能打开数据库
		try{
				strSQL ="driver={SQL Server};Server="写上你自己数据库的名字一般为（local）";Database=（此为你创建的库名）;UID=sa;PWD=123456(此为你设置的密码)";
	           if (SUCCEEDED(hr))
			   {
                  hr = m_pConnection -> Open(_bstr_t(strSQL), "" , "" , adModeUnknown);            
			   }
		}
        catch (_com_error e) /// 捕捉异常 
		{
          CString errormessage;
          errormessage.Format("SQL sever连接数据库失败!\r\n错误信息:%s" ,e.ErrorMessage());
          AfxMessageBox(errormessage); /// 显示错误信息 
//           return  FALSE;
		} 
		/// b.建立连接，创建记录集
以上如若都不报错，表明此时access和SQLsever 2008R2都已进打开
		_bstr_t jhlSql;
         jhlSql="select * from SQL";//FXL_YG为数据库中的表名

        m_pRecordset.CreateInstance(_uuidof(Recordset));//?
	    ///打开查询的表
        m_pRecordset->Open(jhlSql,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
		sql打开成功后对access进行读数
		Rs.MoveFirst();
	//进入ACCess数据库，并取得access里面的值
	    CString csname;       
		CString cchecksum;
        CString csnkey;
        CString ckeyid;
        CString ckeyindex;
        CString caddtime;      
   	for(int i = 0; i < nRsCount; i++)
		{

			Rs.GetFieldValue(1,csname);
			Rs.GetFieldValue(2,cchecksum);
			Rs.GetFieldValue(3,csnkey);
			Rs.GetFieldValue(4,ckeyid);
			Rs.GetFieldValue(5,ckeyindex);
			Rs.GetFieldValue(6,caddtime);
			///一条条插入到数据库中,此处重点是变量的插入，如若只插入字符串，则将' "+caddtime+" '改为‘abcdefg’
          CString strIntSet="	INSERT INTO SQL (表名)(sn,checksum,snkey,keyid,keyindex)  VALUES ('"+csname+"',' "+cchecksum+" ',' "+csnkey+" ',' "+ckeyid+" ',' "+ckeyindex+" ')";
          
        m_pConnection->Execute( _bstr_t(strIntSet),NULL,adCmdText);//将数据集插入数据库
	       	Rs.MoveNext();
		}
	///最为重要的一条，也是折磨我好久的一条，数据库插入完之后，一定要关闭数据库，否则有些值就插入不成功
	Rs.Close();

至此，一个函数已经写完了，这些代码可以写到main()或者其他的函数中去。