TXT 转化为 VFP数据库 （TXT2DBf）

TXT 转化为DBF，TXT通过DB.ini 配置文件 导出为DBF 数据库

// MyAdoConn.cpp: implementation of the CMyAdoConn class.
//
//////////////////////////////////////////////////////////////////////

#include “stdafx.h“
#include “txt2dbf.h“
#include “MyAdoConn.h“

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CMyconn::CMyconn（）					//构造函数负责初始化COM环境与变量的初始化
{
	::CoInitialize（NULL）;
	conn=NULL;
	if（FAILED（conn.CreateInstance（__uuidof（Connection））））
	{
		AfxMessageBox（“Conn.CreateInstance Error“）;
		return;
	}
}

CMyconn::~CMyconn（）					//析构函数负责清理资源
{
 
}

CMyconn::OpenMdb（CString mdbpath）		//打开access数据库
{

	CString connstr;
	connstr.Format（“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s“mdbpath）;
	try
	{
		conn->Open（connstr.GetBuffer（0） _T（““）_T（““）adModeUnknown）;
	}
	catch （_com_error &e）
	{
		AfxMessageBox（e.ErrorMessage（））;
		AfxMessageBox（e.Description（））;		
	}
	return 1;
}
									//打开SQL Server数据库
int CMyconn::Open（CString server CString uid CString pwd）
{
	return 1;
}

void CMyconn::test（）
{

}

_ConnectionPtr CMyconn::GetActiveConn（）
{
	return conn;
}

void CMyconn::ExecuteSql（CString sql）
{
	try
	{
		conn->CursorLocation = adUseClient;
		COleVariant vtOptional（（long）DISP_E_PARAMNOTFOUNDVT_ERROR）;
		conn->Execute（_bstr_t（sql.GetBuffer（0））&vtOptional-1）;
	}
	catch（_com_error &e）
	{
		AfxMessageBox（e.ErrorMessage（））;
		AfxMessageBox（e.Description（））;
	}
}

int CMyconn::OpenDbf（CString DbfPath）
{
	try
	{
		CString connstr;
		connstr.Format（“Driver=Microsoft Visual foxPro Driver;SourceType=DBF;SourceDB=%s;UID=SA;PWD=“DbfPath）;		
		conn->Open（connstr.GetBuffer（0） _T（““）_T（““）adModeUnknown）;	
	}
	catch （_com_error &e）
	{
		AfxMessageBox（e.ErrorMessage（））;
		AfxMessageBox（e.Description（））;		
	}	
	return true;
}

void CMyconn::Close（）
{
	conn.Release（）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-07-20 21:29  TXT2DBF_20120723ing\
     文件         600  2012-07-20 17:07  TXT2DBF_20120723ing\DBF.INI
     目录           0  2012-07-20 21:29  TXT2DBF_20120723ing\Debug\
     文件       90742  2012-05-29 02:16  TXT2DBF_20120723ing\Debug\msado15.tlh
     文件       76653  2012-05-29 02:16  TXT2DBF_20120723ing\Debug\msado15.tli
     文件       59409  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\MyAdoConn.obj
     文件           0  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\MyAdoConn.sbr
     文件       92559  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\MyAdoRs.obj
     文件           0  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\MyAdoRs.sbr
     文件       13780  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\MySplit.obj
     文件           0  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\MySplit.sbr
     文件       33901  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\ShowDbfDlg.obj
     文件           0  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\ShowDbfDlg.sbr
     文件      105531  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\StdAfx.obj
     文件     1374946  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\StdAfx.sbr
     文件        4152  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\StructFiled.obj
     文件     3646464  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\txt2dbf.bsc
     文件      167997  2012-07-20 21:10  TXT2DBF_20120723ing\Debug\txt2dbf.exe
     文件     1222816  2012-07-20 21:10  TXT2DBF_20120723ing\Debug\txt2dbf.ilk
     文件       14906  2012-07-23 14:13  TXT2DBF_20120723ing\Debug\txt2dbf.obj
     文件     5494424  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\txt2dbf.pch
     文件      689152  2012-07-20 21:10  TXT2DBF_20120723ing\Debug\txt2dbf.pdb
     文件        3412  2012-07-23 14:11  TXT2DBF_20120723ing\Debug\txt2dbf.res
     文件           0  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\txt2dbf.sbr
     文件      119758  2012-07-20 21:10  TXT2DBF_20120723ing\Debug\txt2dbfDlg.obj
     文件           0  2012-07-17 20:27  TXT2DBF_20120723ing\Debug\txt2dbfDlg.sbr
     文件      254976  2012-07-20 21:10  TXT2DBF_20120723ing\Debug\vc60.idb
     文件      462848  2012-07-20 21:10  TXT2DBF_20120723ing\Debug\vc60.pdb
     文件       90676  2012-05-29 02:16  TXT2DBF_20120723ing\msado15.tlh
     文件       76620  2012-05-29 02:16  TXT2DBF_20120723ing\msado15.tli
     文件        2093  2007-04-29 11:09  TXT2DBF_20120723ing\MyAdoConn.cpp
............此处省略38个文件信息