Можеть скажете как заставить это работат
Можеть скажете почему это не работает
Private Sub Text1_Change()
Adodc1.ConnectionString = "DSN=BIBlio"
Adodc1.RecordSource = " Select * From Authors where AU_ID Like '" & Text1.Text & "*'"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
Private Sub Text1_Change()
Adodc1.ConnectionString = "DSN=BIBlio"
Adodc1.RecordSource = " Select * From Authors where AU_ID Like '" & Text1.Text & "*'"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
А какое сообщение выводит BASIC или ничё не выводит вообще.:D
Ничего не выводит вообще
ничего не выводит вообще
Я вот тут подумал (что само по себе странно :D ), так вот может ошибка вот в чём:
[QUOTE=Алик]Adodc1.RecordSource = " Select * From [SIZE="4"]Authors [/SIZE] where AU_ID Like '" & Text1.Text & "*'"[/QUOTE]
Authors должно быть записано вот так `Authors`, по моему это должно выглядеть так. :) :) :)
[QUOTE=Алик]Adodc1.RecordSource = " Select * From [SIZE="4"]Authors [/SIZE] where AU_ID Like '" & Text1.Text & "*'"[/QUOTE]
Authors должно быть записано вот так `Authors`, по моему это должно выглядеть так. :) :) :)
Этот запрос с Data- ой нормально работает а с Adodc проблема
Data1.RecordSource = " Select * From Authors where AU_ID Like '" & Text1.Text & "*'" это работает нормально
Adodc1.RecordSource = " Select * From Authors where AU_ID Like '" & Text1.Text & "*'" а это нет
мне не понятно
Adodc1.RecordSource = " Select * From Authors where AU_ID Like '" & Text1.Text & "*'" а это нет
мне не понятно
Я конечно не знаю поможет ли тебе это, но я выкладываю здесь свой исходник. Попробуй может подчерпнёшь новых идей.:D :D :D :D