ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL запрос
44 сообщений из 44, показаны все 2 страниц
  все  
SQL запрос
    #36643123
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Здравствуйте
Сразу к делу:
Код: plaintext
1.
2.
3.
4.
Private Sub Command2_Click()
Data1.RecordSource = "select * from [Автомобили] where [marka_auto] ='" & Text1.Text & "' " & "And [strana] ='" & Text2.Text & "'"
MsgBox Data1.RecordSource
Data1.Refresh
End Sub
У меня есть 2 текстбокса, в которых я ввожу значение1 - марку, и значение2 - страна. Все работает, из бд вытягивает записи. Но мне нужно сделать так, что бы когда, например, в поле "страна" нечего не ввести, оно выводило все записи этого поля. Есть идеи?
...
Рейтинг: 0 / 0
22.05.2010, 15:19
| Ответить | Цитировать | Написать  
SQL запрос
    #36643145
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
"where [marka_auto] ='" & Text1.Text & "' " & IIf(Text2.Text="", "", "And [strana] ='" & Text2.Text & "'")
...
Рейтинг: 0 / 0
22.05.2010, 15:44
| Ответить | Цитировать | Написать  
SQL запрос
    #36643180
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Спасибо за идею, но есть проблема:
Мне нужно сделать iif для всех полей, которые у меня будут.
Вот при попытке сделать для 2х полей, у меня уже пошли проблемы - когда писать and и where.
Код: plaintext
1.
Data1.RecordSource = "select * from [Автомобили] where IIf(Text1.Text = "", "", "[marka_auto] ='" & Text1.Text & "'") & "' " & IIf(Text2.Text = "", "", "And [strana] ='" & Text2.Text & "'")
И это у меня не работает(
...
Рейтинг: 0 / 0
22.05.2010, 16:25
| Ответить | Цитировать | Написать  
SQL запрос
    #36643184
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Очпросто.

Код: plaintext
1.
2.
3.
4.
t = "ляляля where 1=1"
If k1<>"" Then t=t+" and p1='"+k1+"'"
If k2<>"" Then t=t+" and p2='"+k2+"'"
If k3<>"" Then t=t+" and p3='"+k3+"'"
If k4<>"" Then t=t+" and p4='"+k4+"'"
...
Рейтинг: 0 / 0
22.05.2010, 16:29
| Ответить | Цитировать | Написать  
SQL запрос
    #36643186
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Чесно, нечего вообще не понял. Можно подробнее?
...
Рейтинг: 0 / 0
22.05.2010, 16:31
| Ответить | Цитировать | Написать  
SQL запрос
    #36643188
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsЧесно, нечего вообще не понял. Можно подробнее?

в переменной t формируется SQL-запрос, который вы выполните.
покурите мой пример повнимательней, а я ушел обедать.
...
Рейтинг: 0 / 0
22.05.2010, 16:32
| Ответить | Цитировать | Написать  
SQL запрос
    #36643205
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Минут десять смотрел, даже примерно не могу понять, что это. Просто я новичок, первый раз такое вижу Оо
...
Рейтинг: 0 / 0
22.05.2010, 17:03
| Ответить | Цитировать | Написать  
SQL запрос
    #36643206
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsМинут десять смотрел, даже примерно не могу понять, что это. Просто я новичок, первый раз такое вижу Оо

блин.
Что конкретно вам не ясно? Тут даже функций нет, только if и присваивание
...
Рейтинг: 0 / 0
22.05.2010, 17:04
| Ответить | Цитировать | Написать  
SQL запрос
    #36643216
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Мне не ясно как это вообще относится к моему примеру Оо
Можно написать как это вообще будет применяться в моем запросе? Или пример какой-нибудь с моим запросом, а то я вообще не рублю(
...
Рейтинг: 0 / 0
22.05.2010, 17:15
| Ответить | Цитировать | Написать  
SQL запрос
    #36643264
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну ё
Как же вы дальше-то программировать собираетесь...

Код: plaintext
1.
2.
3.
4.
Dim t As String
t=""
If Text1.Text<>"" Then t=t+" and [marka_auto] ='"+Text1.Text+"'"
If Text2.Text<>"" Then t=t+" and [strana] ='"+Text2.Text+"'"
Data1.RecordSource = "select * from [Автомобили] where 1=1"+t
...
Рейтинг: 0 / 0
22.05.2010, 18:13
| Ответить | Цитировать | Написать  
SQL запрос
    #36643286
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Ну написали бы вам такое когда вы начинали, вы бы тоже вряд ли поняли бы. ОГРОМНОЕ спасибо, просто магия) Действительно работает как я и хотел....Хотелось бы конечно понять как)
Код: plaintext
If Text1.Text <> "" Then t = t + " and [marka_auto] ='" + Text1.Text + "'"
Если текст1 не пустой тогда т="and [marka_auto] ='" + Text1.Text + "'"
чето не сильно понимаю(
Дальше
Код: plaintext
If Text2.Text <> "" Then t = t + " and [strana] ='" + Text2.Text + "'"
Если текс2 не пустой тогда and [marka_auto] ='" + Text1.Text + "'" = and [marka_auto] ='" + Text1.Text + "'" + " and [strana] ='" + Text2.Text + "'"
Я правильно понимаю?
Извените за глупый вопрос и кривой почерк, просто всегда хочется до конца разобрать.
...
Рейтинг: 0 / 0
22.05.2010, 18:47
| Ответить | Цитировать | Написать  
SQL запрос
    #36643302
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Ладно, наверное я понял. Но у меня появилась проблема.
Вот если делать этот запрос сразу после отерытия бд то все нормально, но если я до этого запроса открою какую-либо таблицу, тогда при выполнении запроса ошибка, из-за чего это мб? И можно ли это исправить?
...
Рейтинг: 0 / 0
22.05.2010, 19:15
| Ответить | Цитировать | Написать  
SQL запрос
    #36643315
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsВот если делать этот запрос сразу после отерытия бд то все нормально, но если я до этого запроса открою какую-либо таблицу, тогда при выполнении запроса ошибка, из-за чего это мб? И можно ли это исправить?

наверное потому что открыта какая-то таблица....

эта...
эта...
...
Рейтинг: 0 / 0
22.05.2010, 19:36
| Ответить | Цитировать | Написать  
SQL запрос
    #36643322
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Ну дак открыта та же самая таблица Автомобили.
...
Рейтинг: 0 / 0
22.05.2010, 19:47
| Ответить | Цитировать | Написать  
SQL запрос
    #36643344
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Подскажи пожалуйста как избавиться от ошибки
...
Рейтинг: 0 / 0
22.05.2010, 20:39
| Ответить | Цитировать | Написать  
SQL запрос
    #36643346
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscs Подскажи пожалуйста как избавиться от ошибки

Поменять переменную а на константу 17 в строке 23.

Я вам дал две ссылки. Когда изучите, мы это поймем и поможем вам исправить программу.
...
Рейтинг: 0 / 0
22.05.2010, 20:42
| Ответить | Цитировать | Написать  
SQL запрос
    #36643354
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Я прочел правила, не пойму что вы от меня хотите?
...
Рейтинг: 0 / 0
22.05.2010, 20:49
| Ответить | Цитировать | Написать  
SQL запрос
    #36643385
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Вам что ли сама программа нужна?
...
Рейтинг: 0 / 0
22.05.2010, 21:20
| Ответить | Цитировать | Написать  
SQL запрос
    #36643395
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
программа запустилась
ошибок не выдала
...
Рейтинг: 0 / 0
22.05.2010, 21:27
| Ответить | Цитировать | Написать  
SQL запрос
    #36643398
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Откройте БД.
Выберите таблицу автомобили в комбобоксе комбо1. Введите в текстбокс текст1 к примеру audi, и нажмите на кнопку. Вот и ошибка(
...
Рейтинг: 0 / 0
22.05.2010, 21:31
| Ответить | Цитировать | Написать  
SQL запрос
    #36643449
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsОткройте БД.
Выберите таблицу автомобили в комбобоксе комбо1. Введите в текстбокс текст1 к примеру audi, и нажмите на кнопку. Вот и ошибка(

Ваша постоянная проблема, что вы считаете всех экстрасенсами. Даже предоставив программу, вы все равно считаете, что все должны немедленно догадаться, что надо сделать.
Я вас уже отсылал к правилам форума и рекомендациям по оформлению сообщений, вы пропускаете мимо ушей.

По программе:
если заменить
Код: plaintext
Set rs = db.OpenRecordset(Combo1.Text)
на
Код: plaintext
Set rs = db.OpenRecordset("select * from " + Combo1.Text)
то ошибка возникать перестает, и вроде даже выводится нужное количество записей, но почему-то текст в ячейках не отображается.
Причем он не отображается даже если с самого начала (при выборе в комбобоксе1) вывести не всю таблицу, а только ее часть:
Код: plaintext
Set rs = db.OpenRecordset("select * from " + Combo1.Text + " where marka_auto='audi'")

Ни разу не специалист по Data и DBGrid, почему они так себя ведут - не знаю.
...
Рейтинг: 0 / 0
22.05.2010, 22:45
| Ответить | Цитировать | Написать  
SQL запрос
    #36643501
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
А можно ли как то сделать, что бы база данных как бы заново открылась, при нажатии кнопки Command2, или же обнулилась(Да вообщем любой вариант)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Command2_Click()
Dim t As String
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
t = ""
If Text1.Text <> "" Then t = t + " and [marka_auto] ='" + Text1.Text + "'"
If Text2.Text <> "" Then t = t + " and [strana] ='" + Text2.Text + "'"
If Text3.Text <> "" Then t = t + " and [LLeHa] =" + Text3.Text
If Text4.Text <> "" Then t = t + " and [KoJIu4ecTBo_DBepeu] =" + Text4.Text
If Text5.Text <> "" Then t = t + " and [O6beM_6aKa] =" + Text5.Text
If Text6.Text <> "" Then t = t + " and [Max_CKopocTb] =" + Text6.Text
If Text7.Text <> "" Then t = t + " and [MowHoCTb] =" + Text7.Text
Data1.RecordSource = "select * from [Автомобили] where 1=1" + t
MsgBox Data1.RecordSource
Data1.Refresh
End Sub

Что то вро ди этого, но это не работает.
...
Рейтинг: 0 / 0
23.05.2010, 00:08
| Ответить | Цитировать | Написать  
SQL запрос
    #36643502
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.Pro
Ваша постоянная проблема, что вы считаете всех экстрасенсами. Даже предоставив программу, вы все равно считаете, что все должны немедленно догадаться, что надо сделать.


У меня к вам нет никаких претензий, я вам нечего не говорил на счет экстрасенсов, и я не считаю что все должны немедленно догадаться что там не так. Меня устраивает любая помощь.
...
Рейтинг: 0 / 0
23.05.2010, 00:10
| Ответить | Цитировать | Написать  
SQL запрос
    #36643511
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Не знаю. Я по вашему коду даже не очень понимаю, гда база открывается с нужными целями, ибо файл базы вы открываете минимум три раза: в Data1, в db и в db1, все три соединения остаются открытыми, потом вы повторно открываете db зачем-то. А изначально присваиваете рекордсету из Data1 открытый рекордсет через db. В общем, кавардак какой-то....
...
Рейтинг: 0 / 0
23.05.2010, 00:25
| Ответить | Цитировать | Написать  
SQL запрос
    #36643545
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
А зачем их закрывать?

Код: plaintext
1.
2.
3.
4.
5.
Set db1 = OpenDatabase(CommonDialog1.FileName)
For Each tb1 In db1.QueryDefs
Combo2.AddItem tb1.Name
Next
Exit Sub

Тут я присваиваю дб1 что бы считать запросы. Без этого у меня не получается, а нужно ли закрывать вообще? И как тогда оно работать то будет? Ну в принципе после того как считать запросы можно было бы и закрыть, все равно потом опять открывается) Но я не знаю как) Да и все нормально работает, почти. Запрос блин не выполняется только, если таблица открыта, обидно
...
Рейтинг: 0 / 0
23.05.2010, 01:27
| Ответить | Цитировать | Написать  
SQL запрос
    #36643558
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsТут я присваиваю дб1 что бы считать запросы.

а зачем, если вы с тем же успехом можете читать запросы из уже открытого db

bosscsа нужно ли закрывать вообще? И как тогда оно работать то будет?

Вы когда из хородильника колбасу берете, тоже его не закрываете из соображений, что через час туда полезете за молоком? К тому же, вы этими установленными соединениями в дальнейшем не пользуетесь.

А кто "оно"? После того, как вы считали все таблицы и запросы, оно у вас больше нигде и не используется. Кроме того, при обработке клика в комбобоксе, вы db пытаетесь зачем-то открыть заново, хотя при этом никак не используете...

bosscsНо я не знаю как

Не поверите. Методом Close
...
Рейтинг: 0 / 0
23.05.2010, 01:46
| Ответить | Цитировать | Написать  
SQL запрос
    #36643567
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub OpenFile_Click()
On Error GoTo err1
CommonDialog1.CancelError = True
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Access|*.mdb"
CommonDialog1.ShowOpen
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
For Each tb In db.TableDefs
If Left(tb.Name,  4 ) <> "MSys" And Left(tb.Name,  4 ) <> "USys" Then
Combo1.AddItem tb.Name
End If
Next
db.Close

'Запросы
Set db = OpenDatabase(CommonDialog1.FileName)
For Each tb1 In db.QueryDefs
Combo2.AddItem tb1.Name
Next
Exit Sub
Я правильно вас понял?
...
Рейтинг: 0 / 0
23.05.2010, 02:02
| Ответить | Цитировать | Написать  
SQL запрос
    #36643572
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsЯ правильно вас понял?

нет.

Зачем дважды открывать базу?
...
Рейтинг: 0 / 0
23.05.2010, 02:08
| Ответить | Цитировать | Написать  
SQL запрос
    #36643573
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.ProПосле того, как вы считали все таблицы и запросы, оно у вас больше нигде и не используется. Кроме того, при обработке клика в комбобоксе, вы db пытаетесь зачем-то открыть заново, хотя при этом никак не используете...


Set Data1.Recordset = db.OpenRecordset(Combo1.Text)
По-моему тут по другому не напишешь, все вроде бы использую
...
Рейтинг: 0 / 0
23.05.2010, 02:10
| Ответить | Цитировать | Написать  
SQL запрос
    #36643577
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.ProbosscsЯ правильно вас понял?

нет.

Зачем дважды открывать базу?

Тю, действительно)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub OpenFile_Click()
On Error GoTo err1
CommonDialog1.CancelError = True
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Access|*.mdb"
CommonDialog1.ShowOpen
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
For Each tb In db.TableDefs
If Left(tb.Name,  4 ) <> "MSys" And Left(tb.Name,  4 ) <> "USys" Then
Combo1.AddItem tb.Name
End If
Next

'Запросы
For Each tb1 In db.QueryDefs
Combo2.AddItem tb1.Name
Next
Exit Sub
Работает, хотя в прошлый раз у меня что то не работало. Наверное потому и заново открывал
...
Рейтинг: 0 / 0
23.05.2010, 02:12
| Ответить | Цитировать | Написать  
SQL запрос
    #36643599
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Получилось избавиться от ошибки при выполнении запроса.
...
Рейтинг: 0 / 0
23.05.2010, 02:47
| Ответить | Цитировать | Написать  
SQL запрос
    #36643611
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
If Data1.Recordset.Fields.Count =  0  Then
MsgBox "Нет записей"
Exit Sub
End If
Хотел сделать, что бы если в дате1 нет записей, то выводило меседж. Но

Но вместо этого -
run time error "91"
object variable or with block variable not set
...
Рейтинг: 0 / 0
23.05.2010, 03:18
| Ответить | Цитировать | Написать  
SQL запрос
    #36643673
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Проверяйте EOF.
Fields - это поля, а не записи.

Но эта ошибка у вас не потому, что неправильно проверяете.
...
Рейтинг: 0 / 0
23.05.2010, 09:50
| Ответить | Цитировать | Написать  
SQL запрос
    #36643806
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
If Data1.Recordset.EOF = False Then
MsgBox "435345"
Exit Sub
End If

Вроди бы сделал как вы сказали
Да и пробовал много чего писать, эта ошибка меня преследует(
...
Рейтинг: 0 / 0
23.05.2010, 12:50
| Ответить | Цитировать | Написать  
SQL запрос
    #36644005
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsIf Data1.Recordset.EOF = False Then
MsgBox "435345"
Exit Sub
End If

Вроди бы сделал как вы сказали
Да и пробовал много чего писать, эта ошибка меня преследует(

Эта ошибка о том, что Recordet у вас равен Nothing. Любое обращение к нему приведет к этой ошибке, не важно, к Fields или к EOF
...
Рейтинг: 0 / 0
23.05.2010, 17:45
| Ответить | Цитировать | Написать  
SQL запрос
    #36644331
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Да я так и понял, но нечего подобного на ум не приходит. Если бд не открыта ошибка есть, если открыта не могу сделать
...
Рейтинг: 0 / 0
23.05.2010, 23:52
| Ответить | Цитировать | Написать  
SQL запрос
    #36644339
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Command2_Click()
Dim t As String
db.Close
Data1.DatabaseName = CommonDialog1.FileName
Set db = OpenDatabase(CommonDialog1.FileName)
t = ""
If Text1.Text <> "" Then t = t + " and [marka_auto] ='" + Text1.Text + "'"
If Text2.Text <> "" Then t = t + " and [strana] ='" + Text2.Text + "'"
If Text3.Text <> "" Then t = t + " and [LLeHa] =" + Text3.Text
If Text4.Text <> "" Then t = t + " and [KoJIu4ecTBo_DBepeu] =" + Text4.Text
If Text5.Text <> "" Then t = t + " and [O6beM_6aKa] =" + Text5.Text
If Text6.Text <> "" Then t = t + " and [Max_CKopocTb] =" + Text6.Text
If Text7.Text <> "" Then t = t + " and [MowHoCTb] =" + Text7.Text
Data1.RecordSource = "select * from [Автомобили] where 1=1" + t
MsgBox Data1.RecordSource
Data1.Refresh
End Sub
Вчера добавил это в кнопку, что бы бд заново открывалась. Сейчас опять ошибка та же самая( Хотя вчера работало, капец
...
Рейтинг: 0 / 0
24.05.2010, 00:03
| Ответить | Цитировать | Написать  
SQL запрос
    #36645653
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.Pro, благодарю за помощь. Кажись больше проблем нет, нужно правда еще сделать график, но тут у меня нет идей.
...
Рейтинг: 0 / 0
24.05.2010, 16:32
| Ответить | Цитировать | Написать  
SQL запрос
    #36645811
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsShocker.Pro, благодарю за помощь. Кажись больше проблем нет, нужно правда еще сделать график, но тут у меня нет идей.

поиск по слову "график" даст вам много идей.
...
Рейтинг: 0 / 0
24.05.2010, 17:16
| Ответить | Цитировать | Написать  
SQL запрос
    #36646133
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
вот, кстати...
...
Рейтинг: 0 / 0
24.05.2010, 19:59
| Ответить | Цитировать | Написать  
SQL запрос
    #36646306
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Я хочу сделать график соотношения марки автомобиля и его цены. Какой-то простенький, просто что бы он линиями соеденятся и было видно, какая марка самая дорогая и т.д
Я сгрупировал автомобили, и посчитал среднюю цену автомобиля определенной марки(В запросе)
Что дальше делать не пойму
...
Рейтинг: 0 / 0
24.05.2010, 22:33
| Ответить | Цитировать | Написать  
SQL запрос
    #36646313
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
это называется не график, а диаграмма.

думаю, что следует сначала придумать ее внешний вид
...
Рейтинг: 0 / 0
24.05.2010, 22:38
| Ответить | Цитировать | Написать  
SQL запрос
    #36646402
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
http://www.satio.by/i/photo/grafik_1.jpg
Вот что то в таком виде. Это вообще реально?
...
Рейтинг: 0 / 0
25.05.2010, 00:03
| Ответить | Цитировать | Написать  
SQL запрос
    #36646412
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
реально
...
Рейтинг: 0 / 0
25.05.2010, 00:10
| Ответить | Цитировать | Написать  
44 сообщений из 44, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / SQL запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2159742]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 62ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 93ms
get tp. blocked users:
 1ms
others: 220ms
total:  427ms
созд. / загр.: 427ms
x
x
Закрыть


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