Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Август 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 341
от 10.08.2006, 10:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 186, Экспертов: 24
В номере:Вопросов: 2, Ответов: 4

Вопрос № 51145: Здравствуйте Эксперты! Подскажите, как в макросе Excel 2003 сделать простейшую вещь :( : что-то типа: str = ActiveCell.Cells.Text ActiveCell.Cells.Text = str(1) + str(5) Сама задача проста - мне необходимо в да...
Вопрос № 51146: Здравствуйте уважаемые эксперты. Вопрос 1. как подключит к приложению vb 6.0 БД access 2000 или 2003. я смог подключит толка БД access 97а версии выше не получается. Вопрос 2. ест у vb 6.0 обновления (как у windows sp2)? если ест, пожалуйста,...

Вопрос № 51.145
Здравствуйте Эксперты!

Подскажите, как в макросе Excel 2003 сделать простейшую вещь :( :

что-то типа:

str = ActiveCell.Cells.Text
ActiveCell.Cells.Text = str(1) + str(5)

Сама задача проста - мне необходимо в дате (текстовое поле) поменять местами месяц и год - программа пишет 08/04/06, а надо естественно 04/08/06 :( в дельфи и других языках могу сам, надо именно в Excel'е.
Отправлен: 04.08.2006, 14:54
Вопрос задал: LanK (статус: Студент)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 12)
Отвечает: Александр Шевченко
Здравствуйте, LanK!
Sub NormalDate()
Dim str As String
Dim st As String
Dim s() As String

str = ActiveCell.Cells.Text
s = Split(str, "/")
st = s(0)
s(0) = s(1)
s(1) = st
str = Join(s, "/")
ActiveCell.FormulaR1C1 = str
End Sub
---------
Вместо внутренней почты лучше стучитесь в аську
Ответ отправил: Александр Шевченко (статус: Студент)
Ответ отправлен: 04.08.2006, 15:40
Оценка за ответ: 5
Комментарий оценки:
Отлично! Спасибо.
Может еще подскажете как сделать FOR для всего столбца?

Вопрос № 51.146
Здравствуйте уважаемые эксперты.
Вопрос 1. как подключит к приложению vb 6.0 БД access 2000 или 2003. я смог подключит толка БД access 97а версии выше не получается.
Вопрос 2. ест у vb 6.0 обновления (как у windows sp2)? если ест, пожалуйста, укажите силку на сайт с которого можно скачать обновления.
Заранее благодарю
Отправлен: 04.08.2006, 15:13
Вопрос задал: RAMA (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Александр Шевченко
Здравствуйте, RAMA!
Скорее всего вы используете старую версию DAO. Используйте библиотеку "Microsoft DAO 3.6 Object Library".
---------
Вместо внутренней почты лучше стучитесь в аську
Ответ отправил: Александр Шевченко (статус: Студент)
Ответ отправлен: 04.08.2006, 15:48
Оценка за ответ: 1
Комментарий оценки:
я исползую "Microsoft DAO 3.6 Object Library"нопочемута не работает
Отвечает: Кокорич Вадим Леонидович
Здравствуйте, Maisashvili Ramaz / RAMA!

1. Проверьте версию компонента Microsoft Data Access Component (MDAC) - ОНА НЕ ДОЛЖНА БЫТЬ НИЖЕ 2.6, а желательно даже выше. Последнюю версию можно скачать с сайта Microsoft ("http://www.microsoft.com/download"). У меня база данных, созданная в Access 2003, прекрасно работает с VB 6.0.
2. Если Вы используете отдельную версию VB 6.0, то она должна уже быть с 5-м сервиспаком. Стандартный комплекс Microsoft Visual Studio (там также есть VB) тоже идет с 5-м сервиспаком. Однако можно скачать следующие компоненты для улучшения работы продуктов:
- VBRUN60SP6.EXE (для Visual Basic):
http://updates.ya1.ru/develop/vbrun60sp6.exe
- VS6SP6.EXE (для Visual Studio): ftp://195.245.194.48/pub/soft/windows/updates/develop/vs6sp6.exe
---------
Труд сделал обезьяну человеком, а лень человека - программистом !
Ответ отправил: Кокорич Вадим Леонидович (статус: 3-ий класс)
Ответ отправлен: 05.08.2006, 08:38
Оценка за ответ: 5
Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, Maisashvili Ramaz / RAMA!
1. Предположим, есть БД c:11db1.mdb и в ней одна таблица - tt. Вот как можно к ней подключиться
Sub ee()
Dim conn As New ADODB.Connection
Dim r As ADODB.Recordset

conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "c:11db1.mdb"

Set r = conn.Execute("Select * From tt")
While Not r.EOF
MsgBox r.Fields(0).Value
r.MoveNext
Wend

conn.Close
End Sub

2. Сервиспаки есть, но качать их не имеет смысла - более 50 Мб.
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (мь!тарь) (статус: Студент)
Ответ отправлен: 05.08.2006, 14:53

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.35 от 27.07.2006 		Яндекс Rambler's Top100
В избранное