请问能够查询到，但是不能加入数据

本帖最后由 bcrun 于 2011-12-24 09:54:50 编辑 Adodc1.Recordset.Update
==>
Adodc1.Recordset.Updatebatch
一样啊。写入不了。。。。 Adodc1.RecordSource = "select * from betlist where home='" + Text4(2).Text + "' and away='"+ Text4(3).Text + "'"
  If Adodc1.Recordset.RecordCount > 0 Then
  'Adodc1.Recordset.AddNew
  If Text4(7) <> "" And Text4(8) <> "" And Text4(9) <> "" Then
  Adodc1.Recordset.Fields(11) = Text4(7) 'n1
  Adodc1.Recordset.Fields(12) = Text4(8) 'nx
  Adodc1.Recordset.Fields(13) = Text4(9) 'n2
  GoTo oddsok
  End If
  Adodc1.Recordset.Update
  Adodc1.Refresh
  End If 把 Adodc1.Recordset.AddNew 这句注释掉吧，这句是新增记录的意思
三楼、四楼已正解了吧！恰恰就不是这么简单，删除addnew还是不能加入，目前还真不知道原因。把属性里边的添加到下一行选项更改一下，改为连续添加。

引用 6 楼 justin919 的回复:

恰恰就不是这么简单，删除addnew还是不能加入，目前还真不知道原因。



Adodc1.RecordSource = "select * from betlist where home='" + Text4(2).Text + "' and away='"+ Text4(3).Text + "'"

  If Adodc1.Recordset.RecordCount > 0 Then

  ''''''''''''''Adodc1.Recordset.AddNew

  If Text4(7) <> "" And Text4(8) <> "" And Text4(9) <> "" Then

  Adodc1.Recordset.Fields(11) = Text4(7) 'n1

  Adodc1.Recordset.Fields(12) = Text4(8) 'nx

  Adodc1.Recordset.Fields(13) = Text4(9) 'n2

  '''''''''''''''''''''''''''GoTo oddsok

  End If

  Adodc1.Recordset.Update

  Adodc1.Refresh

  End If

引用 8 楼 chinaboyzyq 的回复:

引用 6 楼 justin919 的回复:

恰恰就不是这么简单，删除addnew还是不能加入，目前还真不知道原因。

VB code

Adodc1.RecordSource = "select * from betlist where home='" + Text4(2).Text + "' and away='"+ Text4(3).Text + "'"
If Ad……

用了兄弟这个覆盖源码来写入,结果是写入进去了，但是写在了数据表开始的第一行对应的fileds，但是并没有写入到我查询到后的那条数据上面。奇怪了。无论怎么修改，都是写入到了数据表开始的第一行，并没有反应到查询到的那行，不知道是不是和主键什么有关系呢？

补充：VB ,  基础类