//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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
SqlDataAdapter.Update(DataSet);
自己感觉像是编辑不是添加!
必须把本地得datatable写回数据库
this.sqlDataAdapter1.Update(dataSet1);
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)
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))