//vb不熟,可能是这样
dim t as datatable =myDataSet.talbes(0)
dim r as datarow=t.newrow()
r.beginedit
r("id")=123
r("name")="dd"
r.endedit
t.rows.add(r)
t.acceptchanges----------------------------------------------------------------------
欢迎试用ASP.NET大文件上传组件(AspnetUpload 1.0 Release & 无刷新进度条)
http://www.cnblogs.com/bestcomy/archive/2004/06/09/14267.aspx
http://bestcomy.europe.webmatrixhosting.net
----------------------------------------------------------------------

解决方案 »

  1.   

    你只是在DataTable里加了数据,并没有在数据库里加,
    SqlDataAdapter.Update(DataSet);
      

  2.   

    r.beginedit
    自己感觉像是编辑不是添加!
      

  3.   

    只是在本地table里加入了数据,没有实际加到数据库中,
    必须把本地得datatable写回数据库 
      

  4.   

    必须调用Update()方法将插入的数据写回数据库中。代码如下:
    this.sqlDataAdapter1.Update(dataSet1);
      

  5.   

    //   vb不熟
    dim t as datatable = myDataSet.talbes(0)
    dim r as datarow = t.newrow()
    r("id") = 123
    r("name") = "dd"
    t.rows.add(r)
    DataAdapter.Update(DataSet)
      

  6.   

    各位高手:我试了一下,还是没有写到数据库中,帮忙再看一下,谢谢!
    MSGBOX跳出来的结果为0Dim myConn As New System.Data.OracleClient.OracleConnection("Data Source=bb;user=bb;password=bb")
            Dim myCommand As System.Data.OracleClient.OracleCommand = myConn.CreateCommand()
            Dim myDataAdapter As New OracleClient.OracleDataAdapter(myCommand)
            myCommand.CommandType = CommandType.Text
            myCommand.CommandText = "select * from wj"
            Dim mydataset As New DataSet()
            myDataAdapter.Fill(mydataset)
            Dim myTable As DataTable = mydataset.Tables(0)
            Dim myDatarow As DataRow
            myDatarow = myTable.NewRow
            myDatarow.BeginEdit()
            myDatarow(0) = "123"
            myDatarow.EndEdit()
            myTable.Rows.Add(myDatarow)
            myTable.AcceptChanges()
            MsgBox(myDataAdapter.Update(mydataset))