怎么用vc的ado实现vfp的dbf数据每秒3次导入到Oracle中~~~

[molong9bian]

救命啊~
怎么用vc的ado实现vfp的dbf数据每秒3次导入到Oracle中~~~
我要代码~
只要最简单的能实现该功能的代码就可以了~
哪位大大帮帮忙~
急用呀~

[xianyuxiaoqiang]

sf？

[lingyin55]

参考这个帖子

http://topic.csdn.net/t/20020520/13/736820.html

[mengde007]

这个不难；就是sql的几个命令就OK了；

[liliangbao]

参考：
http://topic.csdn.net/t/20020314/19/576692.html

[Maxwell]

打开数据库

_ConnectionPtr m_pConnection;
m_pConnection.CreateInstance("ADODB.Connection");
m_pConnection->Open(_bstr_t(LPCTSTR(m_strConnect)), "", "", adModeUnknown);

执行sql语句

try
{
	return m_pConnection->Execute(_bstr_t(lpszSQL), NULL, adCmdText);
}
catch (_com_error e)
{
	return FALSE;
} 

打开数据集

_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance("ADODB.Recordset");

try
{
	return SUCCEEDED(m_pRecordset->Open(_variant_t(LPCTSTR(m_strSQL)),
		_variant_t((IDispatch*)m_pConnection->GetConnection(), true),
		adOpenStatic, adLockOptimistic, adCmdText));
	}
	catch (_com_error e)
	{
		return FALSE;
	}
}

向后移动

m_pRecordset->MoveNext();

EOF

m_pRecordset->EOF

类型转换示例

short vartoi(const _variant_t& var)
{
	short value = 0;
	switch (var.vt)
	{
	case VT_BOOL:
		value = var.boolVal;
		break;
	case VT_UI1:
	case VT_I1:
		value = var.bVal;
		break;
	case VT_I2:
	case VT_UI2:
		value = var.iVal;
		break;
	case VT_NULL:
	case VT_EMPTY:
		value = 0;
		break;
	default:
	}
	return value;
}

value = vartoi(m_pRecordset->GetCollect(_variant_t(strFieldName)));

这是我从以前的代码中摘的，基本就这么个过程。dbf文件建个odbc连接之后也可以用ado访问。ado的连接字符串可以从vc的ado控件中得到。

[猫已经找不回了]

http://topic.csdn.net/t/20030514/16/1783378.html

[molong9bian]

看了那么多~ 我还是不会~~ 闷闷的~~

[molong9bian]

大哥~ 你好厉害~ 帮我写下行不~
要不我花钱跟你买~行不？~

[梅文海]

连接 Oracle 数据库：
Driver={Microsoft ODBC for Oracle};Server=127.0.0.1/test;Uid=;Pwd=;

连接 vfp 的不用我说了吧

其实这样的程序很好写的

另外我给你一个更简单的方案

你在你的机器上安装一个 SQL Server2000 ，然后随便选择一个数据库后，选导入或导出，数据源选择 vfp 的数据库，目标数据源选择 Oracle ，剩下的事情不用我再说了吧！