主题：对象名 'ProductID' 无效。ProductID为自动增量型主键

  关联子表新增行保存后，出现如下提示：

---------------------------

错误

---------------------------

System.Data.OleDb.OleDbException: 对象名 'ProductID' 无效。

   at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)

   at System.Data.OleDb.OleDbCommand.ExecuteNonQuery()

   at Foxtable.SQLCommand.ExecuteNonQuery()

---------------------------

确定  

---------------------------

 

ProductID为主键，自动增量型

 

 

请问是哪里出现了问题？

来个例子看看。

错误提示，似乎是你用SQLCommand出了问题。

 

打开时按CTRL,开发者密码888

，详情可以看附件中的示意图片

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:班组端软件.foxdb

此主题相关图片如下：a.jpg

外部SQLserver2000数据库，表Tab_P_Product，结构如下

3 ProductID int 4 0
0 ProductNo nvarchar 30 0
0 ProductName nvarchar 30 0
0 ProductDetail nvarchar 50 1
0 ExchangeNo nvarchar 30 1
0 OrderNo nvarchar 30 1
0 Mount int 4 1
0 BargainingDateTime datetime 8 1
0 CurrDateTime datetime 8 0
0 ProductFlag int 4 1
0 ProductTypeNo nvarchar 20 1
0 _Locked bit 1 1
0 _SortKey numeric 13 1
0 CardIssued bit 1 1

 

---------------------------

提示

---------------------------

无法定向表"_Tab_P_ProductOS，没有找到可用的关键列！

---------------------------

确定  

---------------------------

 

 

你将数据源转换为Access发上来吧。

最好先检查一下你使用SQLCommand的位置的代码，根据错误提示，是你的SQL语句语法错误。

BeforeSaveDataRow

Dim dr As DataRow = e.DataRow
Dim pf As String
If dr.RowState <> DataRowState.Added Then '如果不是新增行
    Return '那么返回
Elseif dr.IsNull("CurrDateTime") Then '如果没有输入日期
    e.Cancel = True '取消保存此行
    MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    pf = Format(dr("CurrDateTime"),"yyMM") '否则获得编号的前缀,两位年,两位月
End If
Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer
cmd1.C '设置数据源名称
cmd2.C
cmd1.commandText = "Select Count(*) From [_Tab_P_SerialNumbers] Where [Prefix] = '" & pf & "'"
If cmd1.ExecuteScalar = 0 Then '如果编号表不存在前缀的行,那么增加一行
    cmd1.commandtext = "Insert Into _Tab_P_SerialNumbers (Prefix, SequentialNumber) Values('" & pf & "',1)"
    cmd1.ExecuteNonQuery
End If
cmd1.commandText = "Select [SequentialNumber] From [_Tab_P_SerialNumbers] Where [Prefix] = '" & pf & "'"
Do
    Key = cmd1.ExecuteScalar() '从后台获得顺序号
    cmd2.commandText = "Update [ProductID] Set [SequentialNumber] = " & (Key + 1) & " Where [SequentialNumber] = " & Key & " And [Prefix] = '" & pf & "'"
    If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
        Exit Do '更新成功则退出循环
    End If
Loop
e.DataRow("ProductID") = pf & "-" & Format(Key,"0000")

 

DataRowAdding

'生成临时编号
Static Index As Integer = 9999
e.DataRow("ProductID") = Format(Date.Today(),"yyMM") & "-" & Index
Index = Index - 1

 

 

 

想把数据库表格重定向到ACCESS中，显示

---------------------------

提示

---------------------------

无法定向表"_Tab_P_ProductOS，没有找到可用的关键列！

---------------------------

确定  

---------------------------

 

用SQLSERVER导出方式，转换成ACCESS

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:db1.rar

问题可能在这里：

 

Update [ProductID]

 

这里的ProductID应该是表名，可以你的文件似乎并没有这个表啊