Question

如何使用Microsoft's OLE DB Provider for Visual Foxpro 9.0将默认值为newid("tablename")的主键插入FoxPro表中？

我有两个表，一个表的主键的默认值为newid("tablename")，另一个表的数据类型设置为Integer (AutoInc)。

当我尝试在insert表上运行相同的newid命令时，得到以下OleDbException：

Feature is not available

当我在以insert作为主键的表上运行Integer (AutoInc)时，它将起作用。

这是我要执行的代码：

public void InsertData()
{
    using(var connectionHandler = new OleDbConnection("Provider=VFPOLEDB.1;Data Source=\"C:\\path\\to\\db.dbc\";"))
    {
        var insertStatement = @"INSERT INTO mytable (mycol) values (?)";

        var insertCommand = new OleDbCommand(insertStatement, connectionHandler);

        insertCommand.Parameters.Add("mycol", OleDbType.Char).Value="blue";

        connectionHandler.Open();
        insertCommand.ExecuteNonQuery();
        connectionHandler.Close();
    }
}

由于此insert默认值，OLE是否有任何原因无法执行newid()？

解决我问题的另一种情况是，如果我在id子句中手动指定了insert。例如：

var insertStatement = @"INSERT INTO mytable (id, mycol) values (?, ?)";
insertCommand.Parameters.Add("id", OleDbType.Integer).Value = 199;
insertCommand.Parameters.Add("mycol", OleDbType.Char).Value = "blue";

此外，我还可以在此表上运行select * from tablename。

select代码段：

public DataTable GetData()
{
    var myData = new DataTable();

    using(var connectionHandler = new OleDbConnection("Provider=VFPOLEDB.1;Data Source=\"C:\\path\\to\\db.dbc\";"))
    {       
        var da = new OleDbDataAdapter();
        var mySQL = "select * from mytable";

        var myQuery = new OleDbCommand(mySQL, connectionHandler);
        connectionHandler.Open();

        da.SelectCommand = myQuery;

        da.Fill(myData);

        connectionHandler.Close();
    }

    return myData;
}

newid() SP：

function newId
parameter thisdbf
regional keynm, newkey, cOldSelect, lDone
keynm=padr(upper(thisdbf),50)
cOldSelect=alias()
lDone=.f.
do while not lDone
    select keyvalue from main!idkeys where keyname=keynm into array akey
    if _tally=0
        insert into main!idkeys (keyname) value (keynm)
        loop
    endif
    newkey=akey+1
    update main!idkeys set keyvalue=newkey where keyname=keynm and keyvalue=akey
    if _tally=1
        lDone=.t.
    endif
enddo
if not empty(cOldSelect)
    select &cOldSelect
else
    select 0
endif
return newkey

在一个单独的存储过程中，我尝试了以下操作来隔离关键字regional：

FUNCTION GetHello

regional hello

RETURN "HELLO WORLD"

这似乎可行（例如，将列的默认值设置为GetHello()，然后在OLEDB上运行插入）。

以下原因导致我的存储过程在OLEDB上失败，并显示“功能不可用”：

FUNCTION GetHello
LOCAL test
test="select * from customer"
&test
RETURN "hello"

Answer 1

感谢您分享SP代码！它显示了罪魁祸首。

尽管我很紧张地倾向于对该代码进行许多更正，但我只会对其进行足够的修改以使其在VFP和C＃上都能正常工作：

function newId
parameter thisdbf
regional keynm, newkey, nOldSelect, lDone
keynm=padr(upper(thisdbf),50)
nOldSelect=select()
lDone=.f.
do while not lDone
    select keyvalue from main!idkeys where keyname=keynm into array akey
    if _tally=0
        insert into main!idkeys (keyname) value (keynm)
        loop
    endif
    newkey=akey+1
    update main!idkeys set keyvalue=newkey where keyname=keynm and keyvalue=akey
    if _tally=1
        lDone=.t.
    endif
enddo
Select (m.nOldSelect)
return newkey

更改的部分仅与(if !empty(...)) block相关。

Answer 2

问题是存储过程中的此变量声明行：

regional keynm, newkey, cOldSelect, lDone

“ regional”关键字是旧版FoxPro 2.6 for DOS \ Windows的保留。它仅在屏幕构建器工具生成的程序中使用。显然，它仍然潜伏在Visual FoxPro中，以支持将旧FoxPro 2.6项目迁移到Visual FoxPro的功能，因为代码在VFP中可以正常工作。但是OLEDB驱动程序不支持它。

无论如何，您需要更改存储过程以使用：

local keynm, newkey, cOldSelect, lDone

...并重新编译它，您将需要Visual FoxPro。确保没有OLEDB或其他连接，然后在Visual FoxPro命令窗口中：

compile c:\path\to\mydatabase.dbc

Visual FoxPro 9 C＃OleDbAdapter插入-功能不可用

2 个答案: