Dim company_tel As String
company_tel = company_tel1.Text
rst.Open "select * from company where company.company_tel1 like '%" + company_tel + "%' or company.company_tel1 is null", cnn, 1, 3
Dim company_tel As String
company_tel = company_tel1.Text
rst.Open "select * from company where company.company_tel1 like '%" + company_tel + "%'", cnn, 1, 3
如下更改:
Dim company_tel As String
company_tel = company_tel1.Text
rst.Open "select * from company where IsNull(company.company_tel1,'') like '%" + company_tel + "%'", cnn, 1, 3
语句如下
Dim company_tel As String
company_tel = company_tel1.Text
rst.Open "select * from company where company.company_tel1 like '%" + company_tel + "%'", cnn, 1, 3