代码如下:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim sql As String
Dim sql1 As String
Dim temp As String
temp = Trim(Text1.Text)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
sql = "select * from t_user where sno='" & temp & "'"
rs.Open , sql, cn, 1, 1
If rs.EOFTrue Then
MsgBox "该学号已存在,请更换", 16 + 256, "错误"
Else
sql = "select * from t_user"
rs1.Open , sql, cn, 3, 2
rs1.AddNew
rs1!sno = temp
rs1!sname = Trim(Text2.Text)
rs1!ssex = Trim(Text3.Text)
rs1!sage = Trim(Text4.Text)
rs1!sdept = Trim(Text5.Text)
rs1.Update
MsgBox "成功添加一条数据", , "提示"
End If
End Sub
我的qq是554637930,请高手加我!
就即使我设成文本字段,也是这样的错误提示!
|