帮忙看看为什么不识别??Adodc1.RecordSource = "select * from A where 型号='" & Trim(txt型号.Text) & "'"

Question

Adodc1.RecordSource = "select * from A where 型号='" & Trim(txt型号.Text) & "'"
    Set rs = Adodc1.Recordset
    
    '判断是否有重复记录
    If rs.EOF = False Then                     
          MsgBox "型号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
          txt型号.SetFocus
.......

Answer 1

Adodc1.RecordSource = "select * from A where 型号='" & Trim(txt型号.Text) & "'"
adodc1.refresh
...

Answer 2

Adodc1.RecordSource = "select * from A where 型号='" & Trim(txt型号.Text) & "'"
Adodc1.refresh
Set rs = Adodc1.Recordset

Answer 3

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
sql = "select * from A where 型号='" & Trim(txt型号.Text) & "'"
cn.open CONNECTIONSTRING '连接字符串
rs.open sql,cn
if rs.eof and rs.bof then  
   msgbox "没有记录"
else
   set Adodc1.RecordSource=rs
   Adodc1.refrish
end if

Answer 4

最后忘记关闭了~~~rs.close
cn.close