VB.NET如何插入sql记录，高手指点

Const sql As String = "INSERT INTO idc (name, tel) VALUES (22,11)"

Const cnStr As String = "Data Source=(local)Initial Catalog=masterIntegrated Security=FalseUser ID=saPassword=123456"

Dim cn As OleDbConnection = New OleDbConnection(cnStr)

Dim cmd As OleDbCommand = New OleDbCommand(sql)

cmd.ExecuteNonQuery()

rs.Open("select top 1 * from zhiwu ", conn, 1, 3)

修改为：

rs.Open("select * from zhiwu ", conn, 3, 3)

你上面的语句的打开方式是只读(,1,3)，不能插入的；并且限定位置(top 1)，无法插入。

rs.Fields(1).Value = 5 '试过rs.Fields(1) = 5，在编辑器就提示出错了

如果这个字段是数字，应该没有问题。

如果你是用SqlDataAdapter，那么你最后要加一句：

SqlDataAdapter.Update(objds,虚拟表名)

至于补充问题：

试试用这样的方法：

dim send,e as object

spdDetail2_CellClick(send,e)

或

spdDetail2_CellClick(nothing,nothing)

还再不行！那么你独立写一个方法就好了！

然后But_Clear_Click（...）调用这个方法，

其他地方需要也调用这个方法！

---