视觉基本像错误

问题描述 投票:-4回答:1
Private Sub txtmid_Change()
On Error Resume Next

Mmid = txtmid.Text

Adodc1.RecordSource = "select * from members where txtmid like '" & Mmid & "'"
Adodc1.Refresh

Mname = Adodc1.Recordset.Fields("Mname").Value
Expiryd = Adodc1.Recordset.Fields("Expiryd").Value

txtname.Text = Mname
txtedate(1).Text = Format(Expiryd, "dd / mm / yyyy")
End Sub

我收到FROM子句错误。请帮我解决这个错误。谢谢。

sql vb6 sql-like clause
1个回答
0
投票

试试这个:

首先,删除On Error Resume Next,因为它很危险(你应该使用一个非常错误的处理程序)。

Adodc1.RecordSource = "select * from members where Mmid = '" & Mmid & "'"

注意:无论如何,对于TEXT类型的字段,您应该始终使用Replace $()来'double quote'以避免在字符串值包含单引号时出错。例:

Dim sql As String
Dim sSearch As String
sSearch = "You are 'magic' developer"
sql = "SELECT * FROM Users WHERE Note = '" & Replace$(sSearch, "'", "''") & "'"

否则,在这种情况下,如果您使用(错误地):

sql = "SELECT * FROM Users WHERE Note = '" & sSearch & "'"

你会收到一个错误。

© www.soinside.com 2019 - 2024. All rights reserved.