Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from tj", cn, 1, 3
rs.AddNew
rs("name") = txtname.Text
rs.update '要加这一句才可以的
End Sub
Set rs = New ADODB.Recordset
rs.Open "select * from tj", cn, 1, 3
rs.AddNew
rs("name") = txtname.Text
rs.update '要加这一句才可以的
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货