VC语言

本类阅读TOP10

·VC++ 学习笔记(二)
·用Visual C++打造IE浏览器(1)
·每个开发人员现在应该下载的十种必备工具
·教你用VC6做QQ对对碰外挂程序
·Netmsg 局域网聊天程序
·Windows消息大全
·VC++下使用ADO编写数据库程序
·VC++学习笔记(四)
·非法探取密码的原理及其防范
·怎样在VC++中访问、修改注册表

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ADO执行SQL脚本文件

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站


BOOL CADODatabase::Open(LPCTSTR lpstrConnection, LPCTSTR lpstrUserID, LPCTSTR lpstrPassword)
{
 HRESULT hr = S_OK;

 if(IsOpen())
  Close();

 if(strcmp(lpstrConnection, _T("")) != 0)
  m_strConnection = lpstrConnection;

 ASSERT(!m_strConnection.IsEmpty());

 try
 {
  if(m_nConnectionTimeout != 0)
   m_pConnection->PutConnectionTimeout(m_nConnectionTimeout);
  hr = m_pConnection->Open(_bstr_t(m_strConnection), _bstr_t(lpstrUserID), _bstr_t(lpstrPassword), NULL);
  return hr == S_OK;
 }
 catch(_com_error &e)
 {
  dump_com_error(e);
  return FALSE;
 }
 
}
BOOL CADODatabase::ConnectAccess(LPCTSTR lpstrDatabaseName,LPCTSTR lpstrPassword, long lOptions)
{
 CString strConnect;
 strConnect.Format("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=%s",lpstrDatabaseName);
 if (lpstrPassword != _T(""))
 {
  strConnect.Format("Jet OLEDB:Database Password=%s;",lpstrPassword);
 }
 return Open(LPCTSTR(strConnect));
}

BOOL CADODatabase::ConnectSQLServer(LPCTSTR lpstrDatabaseServer, LPCTSTR lpstrDatabaseName, LPCTSTR lpstrUserID, LPCTSTR lpstrPassword)
{
 CString strConnect;
 strConnect.Format("Provider=SQLOLEDB.1; Data Source=%s; Initial Catalog=%s",lpstrDatabaseServer,lpstrDatabaseName);
    return Open(LPCTSTR(strConnect), lpstrUserID, lpstrPassword);
}

BOOL CADODatabase::Execute(LPCTSTR lpstrExec)
{
 ASSERT(m_pConnection != NULL);
 ASSERT(strcmp(lpstrExec, _T("")) != 0);
 _variant_t vRecords;
 
 m_nRecordsAffected = 0;

 try
 {
  m_pConnection->CursorLocation = adUseClient;
  m_pConnection->Execute(_bstr_t(lpstrExec), &vRecords, adExecuteNoRecords);
  m_nRecordsAffected = vRecords.iVal;
  return TRUE;
 }
 catch(_com_error &e)
 {
  dump_com_error(e);
  return FALSE; 
 }
}

BOOL CADODatabase::ExecuteSqlFile(LPCTSTR lpstrFileName)
{
 CStdioFileEx pFile;
 if(!pFile.Open(lpstrFileName,CFile::modeRead | CFile::typeText))
 {
  return FALSE;
 }
 CString strSql,strRead;
 strSql.Empty();
 while(pFile.ReadString(strRead))
 {
  if(strRead.Trim().CompareNoCase(_T("GO"))==0)
  {
   if(!strSql.IsEmpty())
   {
    if(!Execute(strSql))
     return FALSE;
    strSql.Empty();
   }
  }
  else
  {
   strSql+=_T(" ")+strRead;
  }
 }
 return TRUE;
}




相关文章

相关软件