| Вопрос: Внимание! Конкурс!! | Добавлено: 15.11.06 13:44 |
Автор вопроса:  nat-z
|
| Ответы | Всего ответов: 55 |
|
Номер ответа: 46 Автор ответа: nat-z Вопросов: 13 Ответов: 85 |
Профиль | | #46 | Добавлено: 22.11.06 01:17 |
|
Или у тебя с парнями не ладится?
Неправильные все мысли!! А за длл спасибо, но боюсь на ночь глядя ставить - испорчу - спать не смогу!! |
||
|
Номер ответа: 47 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #47 | Добавлено: 22.11.06 01:20 |
|
У меня работает вот так
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0  ata Source=" & App.Path & "\chit.mdb"
rs.ActiveConnection = cn rs.Open ("SELECT * FROM chitatel" 
Text1.Text = rs.Fields(1) Вот это ренальный ответ!! +2. Завтра же и попробую. И надо и rs, и cn? И за сжатие спасибо, + 1, теперь завтра может и что уже сотворю!! |
||
|
Номер ответа: 48 Автор ответа:  Shark ICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #48 | Добавлено: 22.11.06 12:02 |
| Надо именно так ничего лишнего не вижу | ||
|
Номер ответа: 49 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #49 | Добавлено: 22.11.06 12:02 |
|
Ура!!! dbf заработало!! Спасибо Александру!!
По поводу сжатия БД. Написала тупо как в примере на сайте: Private Sub All_pack_Click(Index As Integer) GBmenu.Xreg0 = MsgBox("Ñæàòèå òåêóùåé ÁÄ - " & GBmenu.Pth0 & "\" & GBmenu.Xnamestat & ". Ïîäòâåðäèòå", 52) If GBmenu.Xreg0 = 6 Then 'Çàêðûâàåì ÁÄ 'GB_param.Data1.Database.Close 'Вызываем метод CompactDatabase объекта DBEngine 'для сжатия, и сжимаем БД переименовывая ее BEngine.CompactDatabase GBmenu.Pth0 & "\" & GBmenu.Xnamestat, GBmenu.Pth0 & "\" & "copy.mdb"
'Уничтоваем старую БД Kill GBmenu.Pth0 & "\" & GBmenu.Xnamestat 'Присваиваем полученной, 'сжатой' БД 'ее прежнее имя im OldDB
im NewDB
OldDB = GBmenu.Pth0 & "\" & "copy.mdb" NewDB = GBmenu.Pth0 & "\" & GBmenu.Xnamestat Name OldDB As NewDB End If End Sub Мой файл data1 может быть открыт, а может быть и нет. Если без закрытия (а в реале я его даже не открываю) - быстро отрабатывает, но файл mdb не изменяется ни размером ни датой создания (т е наверно ничего и не делает). Если все-таки пытаюсь закрывать Data1, то то же самое только такое впечатление что еще какой-то процесс висит. С Connect и Recordset вроде пошло. Но тут же в операторах присвоения не берет конструкции типа:GB_zakaz1.Check .Visible (это у меня массивыLabel и CheckBox на форме) - "invalid use of property". А как правильно написать? i = 0 Do Until rs.EOF ''If GBind.npp = 1 Then If i < 10 Then GB_zakaz1.Label [1].Visible = True GB_zakaz1.Label .Enable = True GB_zakaz1.Label .Caption = gbind.Comment GB_zakaz1.Check .Visible = True GB_zakaz1.Check .Enable = True GB_zakaz1.Check .Caption = gbind.Name i = i + 1 End If ''Else ''End If rs.MoveNext Loop PS Текущее положение: АлександР - 6.5 Shark - 4,5 Я - 4 Остальная масса идет плотной толпой - по 0. Отстал только Brand: -1. |
||
|
Номер ответа: 50 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #50 | Добавлено: 22.11.06 17:52 |
| У label разве есть Enable, у CheckBox есть свойство Value(0-не отмечен, 1-отмечен, и еще 2-посмотри не помню). И еще если это массив, то после имени идет индекс в круглых скобках | ||
|
Номер ответа: 51 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #51 | Добавлено: 22.11.06 18:04 |
|
Если оставить DBEngine.CompactDatabase GBmenu.Pth0 & "\" & GBmenu.Xnamestat, GBmenu.Pth0 & "\" & "copy.mdb"
Новая база создается? И еще совет - объяви текстовую переменную и присвой значение GBmenu.Pth0 & "\" & GBmenu.Xnamestat, а потом везде где нужно ставь именно эту переменную, во первых так быстрее работает, а во вторых проверяешь путь один раз - потом не думаешь. |
||
|
Номер ответа: 52 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #52 | Добавлено: 22.11.06 19:42 |
|
DBEngine.CompactDatabase "Путь к базе", "Новое имя"
Kill "Путь к базе" FileCopy "Новое имя", "Путь к базе" Kill "Новое имя" У меня так работает только проверил. Еще в references надо галку на DAO поставить. |
||
|
Номер ответа: 53 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #53 | Добавлено: 23.11.06 12:27 |
|
И еще если это массив, то после имени идет индекс в круглых скобках - ущу вчера вечером сама исправила.
У меня так работает только проверил. Еще в references надо галку на DAO поставить. - у меня тоже почему-то с утра само заработало!! Наверно так по четным числам
Теперь у меня проблема очистки таблицы. Каким это оператором делается? Получается сейчас такая конструкция: cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0 ata Source=" & GBmenu.Pth0 & "\" & "GBmax.mdb"
rs.ActiveConnection = cn For i = 0 To GBmenu.Xw1 If GB_zakaz1.Check(i).Value = 1 Then ttt = "SELECT * FROM " & Trim(GB_zakaz1.Check(i).Caption) rs.Open ttt, cn ' îòêðûòèå ACCESS-ôàéëà '' а здесь надо этот открытый access-файл чистить!!! rs.Close ' çàêðûòèå ACCESS-ôàéëà End If |
||
|
Номер ответа: 54 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #54 | Добавлено: 23.11.06 19:25 |
| Очистка таблицы DELETE FROM table | ||
|
Номер ответа: 55 Автор ответа: nat-zВопросов: 13 Ответов: 85 |
Профиль | | #55 | Добавлено: 24.11.06 00:55 |
|
Спасибо.
+1 |
||