VC通过ADO打开SQL SERVER数据库,并将其中的表、字段、数据显示出来的小程序.docVIP

VC通过ADO打开SQL SERVER数据库,并将其中的表、字段、数据显示出来的小程序 2007年12月26日 星期三 21:48 下载地址：/user/huliang66 //1、连接数据库类BOOL CSqlDlg::Ado(CString strConn){::CoInitialize(NULL);???? // 初始化OLE/COM库环境 try{?? m_pConn.CreateInstance(ADODB.Connection); //创建Connection对象?? m_pConn-ConnectionTimeout=5; //设置超时时间为5秒?? m_pConn-Open((_bstr_t)strConn,, , adModeUnknown);//连接数据库 }catch(_com_error e) {?? CATCH_ERROR;?? return false;}return true;}//2、执行strSQL的SQL语句，返回集录集_RecordsetPtr CSqlDlg::GetRS(CString strSQL) {try{?? m_pRS.CreateInstance(__uuidof(Recordset));?? m_pRS-Open((_bstr_t)strSQL,m_pConn.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);//执行SQL语句}catch(_com_error e){?? CATCH_ERROR }return m_pRS;}//3、获取所有表名-SQL SERVER_RecordsetPtr pRS = GetRS(select name from sysobjects where xtype=U);CString user;int x=0;strArry.RemoveAll();try{?? while (pRS-adoEOF==0)?? {??? strArry.Add((LPCSTR)(_bstr_t)pRS-GetCollect(_variant_t((long)x)));??? pRS-MoveNext();?? }}catch(_com_error e){?? CATCH_ERROR ??? return;}//4、将表名写入列表中for(int i=0; istrArry.GetSize(); i++){?? m_list2.AddString(strArry.GetAt(i));}//5、连接设置为不可用，断开设置为可用 GetDlgItem(IDC_LIST)-EnableWindow(0);GetDlgItem(IDC_OPEN)-EnableWindow(1); //列表控件双击事件读出表中记录 //6、m_list1.DeleteAllItems(); UpdateData(1); int q=0;//获取记录条数q=GetNum(m_str_list);//获取字段个数======================================CString strSql1;strSql1=select * from;strSql1+= ;strSql1+=m_str_list;_RecordsetPtr m_pRS2 = GetRS(strSql1);?? dataSize=GetFieldsCount(m_pRS2);//==================================================if (dataSize==0){?? return;} //获取字段名strName==================================CString *strName=new CString[dataSize];for (int bb=0;bbdataSize;bb++){?? GetFieldsName(m_pRS,bb,*(strName+bb));}//====================================================//清空表头while(m_list1.DeleteColumn(0));//将字段显示出来for (int cc=0;ccdataSize;cc++){?? m_list1.InsertColumn(cc, *(strName+cc), LVCFMT_LEFT, 150);}if (q==0)