DAO删除某些数据后 再度读取数据库出错 报记录已删除，但数据库还存在其他合理数据

[zzcwyu]

Private Sub Command3_Click()//读取数据的
Dim mpatientid As String, mfirstname As String, mdob As String
Dim msurname As Integer

With mydr
entry = "名称" & Chr(9) & "单价" & Chr(9) & "码数" & Chr(9) & "日期"
MSFlexGrid1.AddItem entry
.MoveFirst
If .EOF Then
Exit Sub
End If
While Not .EOF
mpatientid = !名称
mfirstname = !单价
msurname = !码数
mdob = !日期

entry = mpatientid & Chr(9) & mfirstname & Chr(9) & msurname & Chr(9) & mdob
MSFlexGrid1.AddItem entry
.MoveNext
Wend
End With
End Sub

Private Sub Command4_Click()
Dim str As String
Dim rs1 As Recordset
str = Text4.Text
Set rs1 = mydd.OpenRecordset(" select * from shoesinf where 日期=#" & Format(str, "yyyy-MM-dd") & "# and 名称='" & Trim(Text1) & "'") //这个sql语句让我很无奈，我把日期放后面时老是说类型不匹配，希望能有人改下

MSFlexGrid1.Clear
MSFlexGrid1.Cols = 5
MSFlexGrid1.Rows = 0
If rs1.EOF Then
MsgBox "无效删除！"
Else
rs1.Delete
rs1.MoveFirst

MsgBox "成功删除！"
End If

End Sub

[zzcwyu]

怎么没人来答下啊

[lclichao2006]

Private Sub Command3_Click()//读取数据的
Dim mpatientid As String, mfirstname As String, mdob As String
Dim msurname As Integer

With mydr
entry = "名称" & Chr(9) & "单价" & Chr(9) & "码数" & Chr(9) & "日期"
MSFlexGrid1.AddItem entry
.MoveFirst
If .EOF Then
Exit Sub
End If
While Not .EOF
mpatientid = !名称
mfirstname = !单价
msurname = !码数
mdob = !日期

entry = mpatientid & Chr(9) & mfirstname & Chr(9) & msurname & Chr(9) & mdob
MSFlexGrid1.AddItem entry
.MoveNext
Wend
End With
End Sub

Private Sub Command4_Click()
Dim str As String
Dim rs1 As Recordset
str = Text4.Text
set rs1 as new recordset
rs1 = mydd.OpenRecordset(" select * from shoesinf where 日期=#" & Format(str, "yyyy-MM-dd") & "# and 名称='" & Trim(Text1) & "'") //这个sql语句让我很无奈，我把日期放后面时老是说类型不匹配，希望能有人改下

MSFlexGrid1.Clear
MSFlexGrid1.Cols = 5
MSFlexGrid1.Rows = 0
If rs1.EOF Then
MsgBox "无效删除！"
Else
rs1.Delete
rs1.MoveFirst

MsgBox "成功删除！"
End If

End Sub

[zzcwyu]

删除某些数据后，再读取数据时，出现记录已被删除的提示错误，mpatientid = !名称这句 显黄色，

[of123]

这样改：

Private Sub Command3_Click()//读取数据的
Dim mpatientid As String, mfirstname As String, mdob As String
Dim msurname As Integer

entry = "名称" & Chr(9) & "单价" & Chr(9) & "码数" & Chr(9) & "日期"
MSFlexGrid1.AddItem entry

With mydr
.Requery

.MoveFirst
If .EOF Then
Exit Sub
End If
While Not .EOF
mpatientid = !名称
mfirstname = !单价
msurname = !码数
mdob = !日期

entry = mpatientid & Chr(9) & mfirstname & Chr(9) & msurname & Chr(9) & mdob
MSFlexGrid1.AddItem entry
.MoveNext
Wend
End With
End Sub

Private Sub Command4_Click()

Dim n As Long

mydd.Execute "DELETE from shoesinf where 名称='" & Trim(Text1) & "' And 日期=#" & Format(Text4, "yyyy-MM-dd") & "#"),n

MSFlexGrid1.Clear
MSFlexGrid1.Cols = 5
MSFlexGrid1.Rows = 0
If n = 0 Then
MsgBox "无效删除！"
Else
MsgBox "成功删除！"
'mydr.ReQuery
End If

End Sub

[zzcwyu]

楼上的代码不行，我编译了下，删除后出现对话框无效删除（数据库还有数据存在），然后再读取一样是以前那个错，记录已被删除，实时错误3167

[zzcwyu]

读取数据是上面第一个按键的代码，不知错在哪