-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Доброго дня!
Обнаружил интересный сервис:
nofeehost.com и
asphost4free.com.
Там предлагают разместить БД в сети.
Раньше имел дело только с локальными базами и файл-серверными (с прилинкованными таблицами).
Тут же предлагают подключиться к базе следующим образом:
| автор |
|---|
How do I connect to my MS Access database?
Make sure your database is in the "db" directory in your file space.
Here is a sample ASP code to connect to a MS Access database.
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath("/USERNAME/db/yourdatabase.mdb")
oConn.Open(strConnection)
....
...
oConn.Close
|
Прошу научить, в каком месте программы указать Адо-конэкшн?
При открытии каждой формы это нужно делать?
И нужно ли как-то дополнительно настраивать клиент?
Спасибо!
http://www.sql.ru/forum/1094354/mdb-baza-na-hostinge
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Приветствую, коллеги.
Суть вот в чем, есть серверное приложение, использующее БД в формате MS Access. И это приложение не стартует, ругается что класс не зарегистрирован. Совместно с разрабами выяснили, что ADO не установлено или не работает.
При выполнении VBS-скрипта вываливается ошибка, та что в шапке темы. Сам скрипт
Option Explicit
' Путь к файлу БД. Должен содержать полное имя файла (включая диск, папку) до файла БД Access
Dim DBFile : DBFile = ChooseFile("C:\Documents and Settings\Futen\Рабочий стол\samo-agent\Ag.7.1.mdb")
Dim Catalog, objConn, SQuery
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = ConnectString
objConn.Open
Dim RecordsAffected
objConn.Execute "select * from [version]"
'Закрываем соединение
objConn.Close
Set objConn = Nothing
' MsgBox "База данных обновлена", vbInformation + vbOKOnly
'Выбор файла БД
Function ChooseFile(StartName)
Dim Str : Str = InputBox("Файл БД", "Укажите файл БД", StartName)
If Len(Str) = 0 Then
Wscript.Quit
End If
ChooseFile = Str
End Function
Function ConnectString()
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFile & ";"
End Function
Пробовал и AccessDatabaseEngine и MDAC ничего не помогает.. Что еще можно поставить ? Разрабы настаивают на корявости установленной винды и предлагают переустановить с офф образа. Чуть не забыл, винда ХР СП3
http://www.sql.ru/forum/1094346/nevozmozhno-sozdanie-obekta-konteynerom-activex-adodb-connection
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Как при помощи vba открыть подчиненную форму без связи с основной формой?
У меня такая задача:
Нужно чтобы при фокусе на контрол одной подчиненной формы выводилась другая подчиненная форма в исходном виде, без фильтров и связей.
Я заранее разместил свободную подчиненную форму на основной форме, чтобы она открывалась в конкретном месте.
Если использовать этот код:
Forms![Основная форма]!Справочники.SourceObject = "Подчиненная форма"
Подчиненная форма автоматически привязывается к основной и выводится не полностью.
Как убрать связь с основной формой при помощи VBA?
Заранее спасибо за ответы.
http://www.sql.ru/forum/1094287/otkryt-podchinennuu-formu
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Подскажите пожалуйста как сделать такой запрос считающий разницу между 2х дат в минутах минус не рабочее время, минус выходное время:
Есть 2 поля
Дата начала Дата конца
05.05.2014 12:07:27 12.05.2014 10:40:28
Разницу между 2х дат считаю в минутах:
Выражение1: DateDiff("n";[даты]![Дата начала];[даты]![Дата конца])
Отображает 9993 минут т.е. 166 часов т.е. 7 суток, но с 5 по 15 было 2 выходных, а рабочий день 8 часов.
Необходимо чтобы учитывался только 8 часовой рабочий день и выходные тоже не учитывались...
http://www.sql.ru/forum/1094268/raznica-mezhdu-2h-dat-minus-ne-rabochee-vremya-vyhodnye-dni
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте уважаемые программисты, столкнулся с такой проблемой есть функция SUM но она суммирует значения в рамках одного поля, мне же нужно проссумировать значения из разных полей (их 30 штук)
подскажите пожалуйста как можно сложить эти поля
к примеру
предмет | 1 | 2 | 3 | 4 | 5 | Всего |
математика | 1 | 1 | 1 | 2 | 2 | 7
русский | 2 | 1 | 1 | 2 | 2 | 8
английский | 2 | 1 | 4 | 2 | 2 | 11
Заранее благодарен
http://www.sql.ru/forum/1093950/summirovanie-poley
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Есть две таблицы
Клиенты
-ID
-Фамлия
-Имя
-Группа
Пропуски
-Клиент
-Дата
Связь Клиенты.ID - Пропуски.Клиент один ко многим
После заполнения вывожу таблицу типа
Клиент |Дата пропуска|
A | 01.05
B | 01.05
C | 01.05
B | 01.05
B | 01.05
A | 01.05
Нужно выдать таблицу где будет указано количество пропусков за определенную дату у каждого клиента
Типа:
Клиент| Количество пропусков|
A | 2
B | 3
C | 1
Сейча есть следующий запрос
SELECT Фамилия,Имя,Группа,Число,
(SELECT COUNT(Клиент) FROM Посещаемость WHERE (Клиент=Клиент) AND ( Число BETWEEN :pMinDate2 and :pMaxDate2 ) ) as Количество_пропусков
FROM Клиенты,Пропуски
WHERE (Клиенты.ID = Посещаемость.Клиент) AND (Число BETWEEN :pMinDate and :pMaxDate)
Но он в столбце Количество пропусков выдает количество всех клиентов которые есть за определенную дату
Т.е. выдает следующее
Клиент| Количество пропусков|
A | 6
B | 6
C | 6
Подскажите пожалуйста как изменить запрос что бы выдало только количество пропусков у определенного клиента?
http://www.sql.ru/forum/1093893/kak-poschitat-kolichestvo-zapisey-s-usloviyami
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Есть база данных, доступ к которой получают через программу непонятно какого разработчика с помощью BDE. Хочу перевести на access. Кто какие рекомендации даст по рациональности. Как в бд сделать так чтобы в неё записывался файл Word. В нынешней бд так и происходит. Какое отношение к ней имеют blob поля. Всё началось с того что программа перестала сохранять word в бд, во-вторых, нельзя изменить текст выгруженного в ворд документа. В ворде есть поля с @ это - что, при нажатии отобразить поля появляются в фигурных скобках типа mergefield. Хочу писать на visual basic. Кто подскажет с чего начать и как лучше в данной теме.
http://www.sql.ru/forum/1093756/kak-zapisat-v-bd-access-fayl-word
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
пытаюсь запустить в плеере несколько файлов но что то не выходит
Dim i As Integer
Dim x As Integer
Dim b As Long
Dim rs As DAO.Recordset
Dim strsql As String
strsql = "SELECT play.adress FROM play"
Set rs = CurrentDb.OpenRecordset(strsql)
x = rs.RecordCount
ReDim a(i = 1 To x)
For i = 1 To x
rs.MoveFirst
Do Until rs.EOF
a(i) = HyperlinkPart(rs.Fields("adress").Value)
rs.MoveNext
Loop
Next
b = ShellExecute(Application.hWndAccessApp, "open", a(i), 0, "C:\", SW_SHOWNORMAL)
Set rs = Nothing
ошибку пишет что а(i) индекс вышел за рамки
может быть из за того что для а(i) в декларации стоит тип стринг
подскажите пожалуйста ошибки (
http://www.sql.ru/forum/1093739/shellexecute-i-massiv
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
