ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужно считать записи из dbgrid
25 сообщений из 174, страница 1 из 7
  1  все
Нужно считать записи из dbgrid
    #36648919
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim mas() As Integer
Dim db As Database

Private Sub Command1_Click()
For i =  1  To Data1.Recordset.EOF
mas(i)= DBGrid1.
Data1.Recordset.NextRecordset
End If
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub

Нужно считать с бдгрида записи в массив, а потом по этим записям сделать график в таком стиле:
http://www.mforum.ru/quality/i/sqi4-1b.gif
в дбгриде вот что:
...
Рейтинг: 0 / 0
25.05.2010, 23:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648920
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
...
Рейтинг: 0 / 0
25.05.2010, 23:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648927
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Что нужно добавлять в массив?
...
Рейтинг: 0 / 0
25.05.2010, 23:31
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648932
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Поищите тут по слову "MSChart"
...
Рейтинг: 0 / 0
25.05.2010, 23:38
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648951
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Мне нельзя это использовать. Мб есть другие варианты что бы нарисовать график по запросу? Без дополнительных библиотек...
...
Рейтинг: 0 / 0
26.05.2010, 00:04
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648954
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsМне нельзя это использовать. Мб есть другие варианты что бы нарисовать график по запросу? Без дополнительных библиотек...

прямоугольники, линии, метки - вперед
...
Рейтинг: 0 / 0
26.05.2010, 00:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648960
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
У меня не получается считать данные в массив:
Код: plaintext
mas(i)= DBGrid1.
Я не знаю как из дбгрида запись выбрать.
...
Рейтинг: 0 / 0
26.05.2010, 00:11
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648975
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
а че в dbgrid movenext нету?
...
Рейтинг: 0 / 0
26.05.2010, 00:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648990
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Есть ток dbgrid1.Move
Капец как я задолбался(((
...
Рейтинг: 0 / 0
26.05.2010, 00:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648996
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
в ado так
Код: plaintext
Me.Adodc1.Recordset.MoveNext
а в data нет типо
Код: plaintext
Data1.Recordset.Movenext
или обязательно с GRIDA данные брать?
хотя вроде разницы нет
...
Рейтинг: 0 / 0
26.05.2010, 00:54
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36648998
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Выбирайте из рекордсета
...
Рейтинг: 0 / 0
26.05.2010, 00:55
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649001
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
а в массив так загонять,примерно также думаю будет и в DATA
Код: plaintext
1.
2.
3.
4.
5.
ad1 = Me.Adodc1.Recordset.RecordCount
For i =  0  To ad1
mas(i)=Me.Adodc1.Recordset("mark_avto").Value
Me.Adodc1.Recordset.MoveNext
Next i
...
Рейтинг: 0 / 0
26.05.2010, 00:59
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649004
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
http://www.vbnet.ru/articles/Showarticle.aspx?id=178
зайди по ссылке там True DBGRID , можно использовать
вместо Dbgrid и как раз увидишь че как работает
...
Рейтинг: 0 / 0
26.05.2010, 01:02
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649009
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
С data1 тоже можно считывать?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim mas() As Integer
Dim db As Database
Dim rs As String

Private Sub Command1_Click()
rc = Data1.Recordset.RecordCount
For i =  0  To rc
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
Пишет переполнение
...
Рейтинг: 0 / 0
26.05.2010, 01:07
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649012
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05admbosscs,
http://www.vbnet.ru/articles/Showarticle.aspx?id=178
зайди по ссылке там True DBGRID , можно использовать
вместо Dbgrid и как раз увидишь че как работает

Не могу пользоваться другими библиотеками, только теми, что дам препод.
...
Рейтинг: 0 / 0
26.05.2010, 01:09
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649018
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsПишет переполнение

и чему равно Data1.Recordset("Выражение1").Value ?
...
Рейтинг: 0 / 0
26.05.2010, 01:13
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649022
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Shocker.ProbosscsПишет переполнение

и чему равно Data1.Recordset("Выражение1").Value ?
713175025
...
Рейтинг: 0 / 0
26.05.2010, 01:16
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649024
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscsShocker.ProbosscsПишет переполнение

и чему равно Data1.Recordset("Выражение1").Value ?
713175025

И куда вы пытаетесь это засунуть?
Код: plaintext
Dim mas() As Integer
...
Рейтинг: 0 / 0
26.05.2010, 01:18
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649030
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim mas() As Double
Dim db As Database
Dim rs As String

Private Sub Command1_Click()
rc = Data1.Recordset.RecordCount
For i =  0  To rs
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Становится на строку
For i = 0 To rs
Ошибка:
Type mismatch
...
Рейтинг: 0 / 0
26.05.2010, 01:24
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649031
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
bosscs
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
вам только с одного поля данные нужны или с двух?
...
Рейтинг: 0 / 0
26.05.2010, 01:25
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649032
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
неправильно
Код: plaintext
Dim rs As String
надо
Код: plaintext
Dim rs As Integer
...
Рейтинг: 0 / 0
26.05.2010, 01:27
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649037
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
bosscs,
Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
...
Рейтинг: 0 / 0
26.05.2010, 01:32
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649044
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
aduka05admbosscs,
bosscs
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
вам только с одного поля данные нужны или с двух?

Да блин мне хотя бы с одного считать, и то чудесно будет.
----
Код: plaintext
1.
2.
3.
4.
5.
For i =  0  To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
Subscript out of range

И вообще вы что то не то написали.

Я уже ввел сам 11 значений
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim mas() As Double
Dim db As Database
Dim rs As Integer

Private Sub Command1_Click()
'rc = Data1.Recordset.RecordCount
For i =  0  To  11 
mas(i) = Data1.Recordset("Âûðàæåíèå1").Value
Data1.Recordset.MoveNext
Next i
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub
Становится на
mas(i) = Data1.Recordset("Выражение1").Value
ошибка:
Subscript out of range.
Я уже не знаю что это мб.
...
Рейтинг: 0 / 0
26.05.2010, 01:41
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649048
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bosscs,

Почитайте уже какой-нибудь учебник про массивы и типы данных. Чукча не читатель, чукча писатель?
...
Рейтинг: 0 / 0
26.05.2010, 01:49
| Ответить | Цитировать | Написать  
Нужно считать записи из dbgrid
    #36649054
bosscs
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bosscs
Участник
Можно тогда уже конкретнее в чем у меня ошибка? Не правильно объявлен массив?
...
Рейтинг: 0 / 0
26.05.2010, 01:57
| Ответить | Цитировать | Написать  
25 сообщений из 174, страница 1 из 7
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужно считать записи из dbgrid
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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