시각적 기본 오류 유사

-3

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 절 오류가 나타납니다. 이 오류를 해결하도록 도와주세요. 고맙습니다.시각적 기본 오류 유사

출처

2017-05-16 Siddhi

** txtmid **가 회원 테이블의 필드인지 확인 하시겠습니까? –

@Giorgio : 답장을 보내 주셔서 감사합니다. 데이터베이스에서 그것은 Mmid이지만 여기 순환 양식의 텍스트 상자는 txtmid – Siddhi

@Siddhi입니다. 질문에 넣은 노력의 양 때문에 StackOverflow 커뮤니티에서 많은 노력을 기대할 수 있을지 확신 할 수 없습니다. 코드를 형식화해야합니다 (다른 사람이 귀하를 위해 작성했습니다). 그리고 귀하의 제목은 질문 목록을 스캔하는 누군가에게 유용 할 필요가 있습니다. See [ask]. 그 말로는, 어떤 데이터베이스 (태그도 도움이 될 것입니다)에서 수동으로 select 문을 실행하고 그 내용을 확인하십시오. 그럼 고쳐주세요. –

이 시도 : 모든

첫째, (대신, 당신은 매우 오류 처리기를 사용한다)는 위험하기 때문에, On Error Resume Next를 제거합니다.

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

주 : 문자열 값은 작은 따옴표가 포함 된 경우 어쨌든, TEXT 타입의 필드, 당신은 실수를 방지하기 위해 '큰 따옴표'에() $를 교체 항상 사용해야합니다. 예 :

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 & "'"

당신은 오류가 발생합니다.

출처

2017-05-18 07:14:52

감사드립니다. – Siddhi

답변

관련 문제