Question

VB中向数据库插入一行数据

m_cn.Open() '打开连接
m_cmd.CommandType = CommandType.Text '使用Text的命令类型并指定T-SQL命令作为SqlCommand对象的文本
m_cmd.CommandText = "insert into SC (Sno,Cno) values('" + s_No + "','" + c_No + "')"
m_cmd.ExecuteNonQuery()
'在SQL Server上执行指定（上面的）的T-SQL语句,适合不返回结果集
m_cn.Close()

Answer 1

Dim sql As String
sql = "select * from Teacher"
'这句有问题，肯定是修改第一行数据，应该是
sql = "select * from Teacher Order BY ID Desc"
Set rs = exesql(sql)
’在这里必须添加下面的语句：
rs.AddNew '新增数据
rs.Fields("管理员姓名") = Trim(Text1.Text)
rs.Fields("工号") = Trim(Text2.Text)
rs.Fields("管理员密码") = Trim(Text19.Text)
rs.Fields("性别") = Trim(Text3.Text)
rs.Fields("联系方式") = Trim(Text4.Text)
rs.Fields("家庭住址") = Trim(Text5.Text)
rs.Update
rs.Close

另外，我认为以下语句没有任何意义，不如删除：
rs.Fields("管理员姓名") = ""
rs.Fields("工号") = ""
rs.Fields("管理员密码") = ""
rs.Fields("性别") = ""
rs.Fields("联系方式") = ""
rs.Fields("家庭住址") = ""