被豢养的罂粟书包网:ADO插入记录的问题,高手过来帮帮忙

来源:百度文库 编辑:中科新闻网 时间:2024/05/01 11:12:36
Private Sub Command2_Click()(更新按钮)
clearfield
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Command3_Click()(确定按钮)
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text
rs.Fields(2) = Text3.Text
rs.Fields(3) = Text4.Text
rs.Update
rs.Close
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "dsn=fee;uid=;pwd="
cn.ConnectionTimeout = 30
cn.Open
If cn.State = adStateOpen Then
MsgBox "Connection to fee successful!"
ssql = "select * from stu_base "
Set rs = cn.Execute(ssql)
End If
End Sub
这里我要实现插入一条新记录,但运行后显示不支持更新。。
他说实时错误3251,当前记录集不支持更新

NTFS文件系统 的问题,请确保你的 数据库 有写入权限。
你可以把程序 拷贝到 FAT32 的盘下进行操作
也可以 修改 权限,everyone 的写入权限