Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!! / 8 сообщений из 8, страница 1 из 1
02.05.2008, 21:59
    #35290821
Sansey
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
у меня есть таблица из БД Access я ее подключил при помощи компонентов Data1 и DBGrid
Я хочу создать запрос, который будет осуществлять отбор даных по названию, введеному в компонент TextBox, я пишу в кнопку код следующего вида:
DataGrupi_Tovarov.RecordSource = "SELECT * FROM Grupi_tovorov where(nazva = Chr(34) & TextGrupi_Tovarov & Chr(34) )"
DataGrupi_Tovarov.Refresh

при запуске запроса выводиться ошибка слишком мало параметров и мне стыдно, но я не знаю что делать, хотя там должна быть элементарщина



Private Sub Command1_Click()
DataGrupi_Tovarov.RecordSource = "SELECT * FROM Grupi_tovorov where(nazva = Chr(34) & TextGrupi_Tovarov & Chr(34) )"
DataGrupi_Tovarov.Refresh
End Sub
...
Рейтинг: 0 / 0
02.05.2008, 22:29
    #35290833
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
Сделай:
Код: plaintext
1.
2.
3.
4.
Private Sub Command1_Click()
DataGrupi_Tovarov.RecordSource = "SELECT * FROM Grupi_tovorov where(nazva = Chr(34) & TextGrupi_Tovarov & Chr(34) )"
debug.print DataGrupi_Tovarov.RecordSource 
DataGrupi_Tovarov.Refresh
End Sub
и ужаснись какую фигню ты на самом деле просишь у сервера.

Названия темы надо делать по человечески. И не бойся, админы удаляют только спам.
...
Рейтинг: 0 / 0
02.05.2008, 23:30
    #35290853
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
Код: plaintext
1.
DataGrupi_Tovarov.RecordSource = "SELECT * FROM Grupi_tovorov where nazva = " & Chr( 34 ) & TextGrupi_Tovarov.Text &   Chr( 34 ) 
...
Рейтинг: 0 / 0
03.05.2008, 17:03
    #35291101
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
а вы уверены что Chr(34) а не Chr(39)
...
Рейтинг: 0 / 0
03.05.2008, 20:07
    #35291222
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
chr(39) для MSSQL
...
Рейтинг: 0 / 0
03.05.2008, 22:27
    #35291324
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
простите великодушно
я ведь действительно спутал с SQL SERVER
ACCESS давно не трогал
...
Рейтинг: 0 / 0
07.05.2008, 14:58
    #35299991
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
А не проще ли

Код: plaintext
DataGrupi_Tovarov.RecordSource = "SELECT * FROM Grupi_tovorov where nazva = '"  TextGrupi_Tovarov.Text &   "';"
...
Рейтинг: 0 / 0
07.05.2008, 15:03
    #35300017
Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!!
Пардон, & забыл. ИМХО - корректнее будет так:

Код: plaintext
1.
2.
Dim KU as String
KU = TextGrupi_Tovarov.Text
DataGrupi_Tovarov.RecordSource = "SELECT [Grupi_tovorov].* FROM Grupi_tovorov where [Grupi_tovorov].[nazva] = '"   & KU &   "';"
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите плиз! Умоляю!!! Админі не удаляйте ету тему покамесь не помогут!!! / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]