ник: nika
Dim rst As ADODB.Recordset
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "SELECT Tab.Nr FROM Tab WHERE Tab.Nr1
Like '%" & sst & "%' And Tab. ID = " & st
Set rst = cmd.Execute
strDaten = rst.GetString
strDaten = Trim(strDaten)
strInhalt = obj.ActiveSheet.Cells(i, j)
If InStr(strDaten, strInhalt) = 0 Then
……
End If
|
Такая проблема хочу сравнить два стринга но почемуто сравниваются неправильно если
strDaten=”что-то” , strIhalt=”” функция InStr <> 0
в остальных случаях всё сравнивается нормально например если оба стринга пустые или только strDaten=”” или стринги имеют разные значения.
Посмотрите пожалуйста что я делаю не так.