Question

VB ADO数据库请教 为什么删除不了数据库中的某一项数据？？？？

Private Sub Command1_Click()
Set Mydb1 = ExeCutesql("select * from 资料", Str_text)
Set MSHFlexGrid1.DataSource = Mydb1
End Sub///这一段是显示数据库的资料到MSHflexGrid控件中。。正常运行

Private Sub Command2_Click()
MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row
On Error Resume Next
Dim A

A = MsgBox("是否删除当前记录", vbYesNo + 32 + 256, "删除记录")
If A = vbYes Then
ExeCutesql "DELETE from 资料 where IC编号=" & Text1.Text & "", Str_text
'Mydb1.Requery
'If Mydb1.EOF Then Mydb1.MoveLast
'Call Db
Set Mydb1 = ExeCutesql("select * from 资料", Str_text)
Set MSHFlexGrid1.DataSource = Mydb1
End If
End Sub//这是点击某一项就从数据库中删除，但是数据库中却删除不了。。？？？？？？？？

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub MSHFlexGrid1_Click()
Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
End Sub
Private Function Db()
Set Mydb1 = ExeCutesql("select * from 资料", Str_text)
Set MSHFlexGrid1.DataSource = Mydb1
End Function

Answer 1

你的“IC编号”字段是不是字符型的？如果是的话，删除记录的sql语句中要用引号把Text1.Text的值括起来，如下：
ExeCutesql "DELETE from 资料 where IC编号='" & Text1.Text & "'", Str_text