主题：一运行就出错

Dim ck As DataTable
Dim cmd As New SqlCommand()
cmd.C
Try
    cmd.BeginTransaction()
    cmd.CommandText = "S elect * From Dlyndx"
    ck = cmd.ExecuteReader(True) '加上参数True,生成的DataTable可修改保存
    Dim dr As DataRow = ck.AddNew() '增加一个订单
    dr("DATE") = "2020-09-15"
    dr("btypeid") = "0002500044"
    dr("btypeid") = "00010"
    dr("ktypeid") = "00006"
    dr("SUMMARY") = "9.12燕瑞出武义2件(金额:638*0.44=280.72元.直调出库单:DO-2201-200912-0935)"
    dr("TOTAL") = "280.72"
    ck.Save()
    If ck.HasChanges Then '如果任何一个表保存失败
        cmd.Rollback()  '则回滚事务
    Else
        cmd.Commit()  '否则提交事务
    End If
Catch ex As Exception  '如果出错
    cmd.Rollback()  '则回滚事务
    MessageBox.Show(ex.Message, "错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try

 

 

 

运行出错

提示什么错误？

Dlyndx这个表没有主键：http://www.foxtable.com/webhelp/topics/1807.htm

我查询了一下，确实这个表格没有设置主键。我使用的管家婆，如果给表格设置了主键，会不会影响软件。这个问题要怎么验证

别人的数据库我没有办法判断是否有影响，您咨询管家婆吧

Dim cmd As new  SQLCommand
cmd.C
cmd.CommandText = "Insert Into Dlyndx (DATE,btypeid,etypeid,ktypeid,SUMMARY,TOTAL) Values(?,?,?,?,?,?)"
cmd.Parameters.Add("@DATE","01")
cmd.Parameters.Add("@btypeid",Date.Today)
cmd.Parameters.Add("@etypeid",100)
cmd.Parameters.Add("@ktypeid",100)
cmd.Parameters.Add("@SUMMARY",100)
cmd.Parameters.Add("@TOTAL",100)
cmd.ExecuteNonQuery

 

执行毫无反应

确定列名叫DATE的不是日期？叫btypeid的才是日期？