请问哪位大虾能帮我改下原程序,就是用一个按钮,然后在里面加入"增加记录"的程序,下面是源程序:但是老是报没有定义变量.

Private Sub cmadd_Click()
str1$ = "输入新记录"
str2$ = MsgBox(str1$, vbOKCancel, "添加记录")
If str2$ = vbOK Then
Text1.SetFocus
电脑数据库.Recordset.AddNew
End If
End Sub

把工程传给我看看

谢谢了哦！

private sub addcmd_Click()
    if msgbox("是否添加记录?",vbinformation+vbyesno,"提示")=vbyes then
        写记录的语句
    end if
end sub

Marer:
          非常感谢你的恢复!
你是站长还是........
我很高兴,在这里可以学到东西,而且比我上面的原程序还短(因为我是刚刚开始学VB)

我还有同样的问题,请看下面的代码: 下面是删除记录的代码,但是当我数据库里面没有数据的时候就会报错:"实时错误'3021',无当前记录' Private Sub cmdelete_Click() If MsgBox("是否确定要删除记录？", vbCritical + vbYesNo, "警告") = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext End If End Sub 上面怎样才能不出现这种问题?! 第二个问题: Private Sub cmsearch_Click() prompt$ = "输入完整姓名" searchstr$ = InputBox(prompt$, "查找姓名") Data1.Recordset.Index = "电脑名称:" Data1.Recordset.Seek "=", searchstr$ If Data1.Recordset.NoMatch Then MsgBox ("对不起,不能发现要查找的姓名") Data1.Recordset.MoveFirst End If End Sub 查找记录的原程序,但是我不知道怎么搞!?

在程序头部分写：on error resume next
或先查询是否有该条记录，如果有再删除，没有就不删除了呗

谢谢高手！ 但是第二个问题我还不知道呀！我改了一下：但是老提示＂这种对象类型不支持该操作！＂是那里出了问题？ Private Sub cmsearch_Click() Dim prompt As String, searchstr As String prompt$ = "输入完整姓名" searchstr$ = InputBox(prompt$, "查找姓名") Data1.Recordset.Index = "电脑名称:" Data1.Recordset.Seek "=", searchstr$ If Data1.Recordset.NoMatch Then MsgBox ("对不起,不能发现要查找的姓名") Data1.Recordset.MoveFirst End If End Sub

做个修改试试：（用ADODB来实现，因为DATA控件太不好用）
Private Sub cmsearch_Click()
    Dim prompt As String
    Dim SQL As String
    Dim rst As ADODB.RecordSet
    Dim Con As ADODB.Connection
    prompt=InputBox("输入完整姓名","查找姓名")
    Set Con=new ADODB.Connection
    Con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径"
    Con.Open
    Set rst=new ADODB.RecordSet
    SQL="select * from 表名 where 字段名='" & prompt & "'"
    rst.Open SQL,Con,1,3
    If rst.EOF=false and rst.BOF=false Then
        执行找到记录的操作
    Else
        MsgBox "对不起，不能发现要查找的姓名",VbInfomation,"提示"
    End If
    rst.close
    Con.close
    set rst=nothing
    set Con=nothing
End Sub

呵呵,这个ADODB我就不太会了,得回去学学,不会的再回来请教喽!谢谢!!