Question

VB中Text输入的内容写入到access数据库中

如图，求大神解答，目的：登记窗口中的信息进行记录，并能查询得到。。。我是VB小白，请不要嘲笑





Answer 1

Private Sub tianjia() '添加数据.
seta
sql = "select * from [user_info]"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("user_id") = Trim(txt_id.Text)
rs.Fields("user_name") = Trim(txt_name.Text)
rs.Fields("user_age") = Trim(txt_age.Text)
rs.Fields("user_sex") = Trim(cob_sex.Text)
rs.Fields("user_high") = Trim(txt_high.Text)
rs.Update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

追问

可以来点注释吗......0.0