如何在win2000下用ADO更新paradox数据库?

Question

现在可以正常打开，可以用GetCollect()正常读值，但AddNew()之后就会有异常:"未指定的错误",
用RemoteDataCtrl和DBGrid更新时也报错说数据库为只读.请有经验的朋友帮帮忙，有点急。

Answer 1

如果有谁能给出一个ADO操作Paradox最简单的例子，100分马上结贴。

Answer 2

Paradox的例子没看到过，可以先看看代码。

Answer 3

try
{
HRESULT hrCnnDB, hrRec;
_ConnectionPtr pCnnDB ;
_RecordsetPtr  pRecDB;
_variant_t vVal;

hrCnnDB = pCnnDB.CreateInstance(__uuidof(Connection));
hrRec = pRecDB.CreateInstance(__uuidof(Recordset));
pCnnDB->Open("Driver=Microsoft Paradox Driver(*.db );dbq=.", "", "", 0);

hrRec=pRecDB->Open((_bstr_t)"SELECT * FROM test.db\",(IDispatch*)pCnnDB, 
adOpenDynamic,
adLockOptimistic,
adCmdText); hrRec=pRec->Open((_bstr_t)"SELECT * FROM  初三一班",(IDispatch*)pCnn, 
adOpenDynamic,
adLockOptimistic,
adCmdText);


if(SUCCEEDED(hrRec))
{
vVal = pRecDB->GetCollect("名字"); //可以取值 pRecDB->PutCollect("名字", "老大");  //异常
}

pRecDB->Close();
pRec->Close();

}
catch (_com_error e) 
{
CString errormessage;
errormessage.Format("数据库错误!\r\n错误信息:%s",e.ErrorMessage());
AfxMessageBox(errormessage);///显示错误信息
}

Answer 4

pRecDB->PutCollect("名字", _variant_t("老大"));

Answer 5

照样出问题，其实是我贴代码的时候漏掉了的。现在最麻烦的是用微软的RemoteDataCtl加DBGrid的方式打开都同样不能修改，报错只读，而控件属性里的ReadOnly值是FALSE.现在急需一个能成功写Parfadox的例子，希望朋友们帮帮忙，谢谢。

Answer 6

Anybody can help ?

Answer 7

google 了一下，也没有看到Parfadox的例子

Answer 8

Dim oConn,strConnSet oConn=Server.CreateObject(“ADODB.Connection”)StrConn="Driver={Microsoft Paradox Driver (*.db)};" & _　　　　　　　　　 "DriverID=538;" & _　　　　　　　　　 "Fil=Paradox 5.X;" & _　　　　　　　　　 "DefaultDir=c:\dbpath\;" & _　　　　　　　　　 "Dbq=c:\dbpath\;" & _　　　　　　　　　 "CollatingSequence=ASCII;"oConn.Open strConn

Answer 9

有源码的请发一份吧，立刻结贴[email protected]