-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4

Invalid link!








Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://www.sql.ru/forum/actualtopics.aspx?bid=4.
Данный дневник сформирован из открытого RSS-источника по адресу http://www.sql.ru/forum/actualrss.aspx?id=4, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Вопрос по датам

Вторник, 30 Декабря 2014 г. 10:48 + в цитатник
Всем добрый день!
Следующая задача такая:
Поле0 = 08.11.2014
Мне нужно в остальные 12 поле показал вот так:
Поле1 = 08.12.2014
Поле2 = 08.01.2015
Поле3 = 08.02.2015
Поле4 = 08.03.2015
Поле5 = 08.04.2015
Поле6 = 08.05.2015
Поле7 = 08.06.2015
Поле8 = 08.07.2015
Поле9 = 08.08.2015
Поле10 = 08.09.2015
Поле11 = 08.10.2015
Поле12 = 08.11.2015
Помогите пожалуйста, Спасибо!

http://www.sql.ru/forum/1135258/vopros-po-datam


Как разрешить доступ к редактированию БД

Вторник, 30 Декабря 2014 г. 00:14 + в цитатник
Всем доброго времени суток!
Помогите, пожалуйста, решить следующую проблему.
Дали БД в Access2007 на доработку. Но когда открыла, режим конструктора недоступен для всех объектов. Т.е. например, таблицы могу просмотреть только в режиме таблицы. Режима конструктора даже в меню нет.
Как мне ее разблокировать?

http://www.sql.ru/forum/1135196/kak-razreshit-dostup-k-redaktirovaniu-bd


Медленная работы разделённой БД

Понедельник, 29 Декабря 2014 г. 15:32 + в цитатник
Доброго дня!
При разделении БД (данные выкладываю в общую папку, клиента локально) наблюдается сильное торможение. При этом, если разделение не делать и запустить базу с общей папки, то работает значительно быстрее. В чём может быть проблема? Сами таблицы весят около трёх метров, объём данных не очень большой. При локальном запуске всё вообще летает.

http://www.sql.ru/forum/1135119/medlennaya-raboty-razdelyonnoy-bd


Как пройти аутентификацию при подключении к веб-узлу?

Понедельник, 29 Декабря 2014 г. 14:13 + в цитатник
Есть процедурка, написанная в VBA под аксессом:

    strURL = "https://sub.site.ru/download/All"

    'Создаём элемент эксплорера
    Set IE = CreateObject("InternetExplorer.Application")
    'Переходим по адресу
    IE.navigate strURL
    Do While IE.Busy Or IE.ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop

+ листинг целиком
Private Sub btnRIC_Click()
    Dim strURL As String
    
    Dim IE As Object
    Dim hDoc As MSHTML.HTMLDocument
    Dim hCol As MSHTML.IHTMLElementCollection
    Dim hCell As MSHTML.IHTMLTableCell
    Dim hRow As MSHTML.IHTMLTableRow
    
    Dim HTTP As MSXML2.XMLHTTP
    
    Dim RS As ADODB.Recordset
    
    Dim i As Integer
    Dim sFileName
    Dim dFileDate As Date
    Dim sUrl As String
    
    Dim iFreeFile As Integer
    Dim vFileName As Variant
    Dim bFileDate() As Byte
    Dim sFolderName As String

On Error GoTo ErrHandler


    strURL = "https://sub.site.ru/download/All"
    sFolderName = "C:\11"

    'Создаём элемент эксплорера
    Set IE = CreateObject("InternetExplorer.Application")
    'Переходим по адресу
    IE.navigate strURL
    Do While IE.Busy Or IE.ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Loop

    'Грузим документ
    Set hDoc = New MSHTML.HTMLDocument
    Set hDoc = IE.Document
    Do While Not hDoc.ReadyState = "complete"
        DoEvents
    Loop
    
'    Dim SSS As String
'    SSS = hDoc.body.innerHTML
'    udfClipBoardSetData (SSS)

    'Грузим коллекцию однотипных элементов (getElementsBy...)
    Set hCol = hDoc.getElementsByClassName("NewPackage")
    For i = 0 To hCol.Length - 1
        Set hRow = hCol.Item(i)
        dFileDate = hRow.cells(0).innerText
        sFileName = hRow.cells(2).innerText
        sUrl = hRow.cells(2).all.Item(1)
        
        Set HTTP = New MSXML2.XMLHTTP
        HTTP.Open "GET", sUrl, False
        HTTP.send
        
        sFileName = sFolderName & "\" & sFileName
        'Проверяем, не существует ли уже этот файл?
        If Len(Dir(sFileName)) > 0 Then
            Kill sFileName
            If Len(Dir(sFileName)) > 0 Then
                MsgBox "Не удалось сохранить файл!", vbExclamation, "Ошибка открытия"
                GoTo ExitHere
            End If
        End If
        'Записываем данные
        iFreeFile = FreeFile
        Open sFileName For Binary Access Write As iFreeFile
        'Переписываем данные в массив - ибо из рекордсета он тянуть на прямую желает, но желает это коряво
        ReDim bFileDate(0 To LenB(HTTP.responseBody) - 1)
        bFileDate = HTTP.responseBody
        'Заливаем в файл
        Put iFreeFile, , bFileDate
        Close iFreeFile
        
    Next i

ExitHere:
    Set IE = Nothing
    Set hDoc = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Source & "-->" & Err.Number & ":" & Err.Description, vbExclamation, "Error"
    Resume ExitHere
    Resume
End Sub

На строке IE.navigate strURL сайт запрашивает авторизацию, которая выглядит так, как изображено на картинке.
Я что смог найти - прочитал, но всё равно не понял, как мне авторизироваться средствами VBA. Видимо, это тип аутентификации чисто виндусового сервера, через какие-то средства Windows...

Подскажите, как пройти аутентификацию в подобном случае?

Может, надо спросить в другом разделе, но я, если честно, хз куда обратиться, то ли в Visual Basic, то ли в HTML, JavaScript, VBScript, CSS то ли вообще в семейство Microsoft.NET... А аксессный форум такой родной :)

http://www.sql.ru/forum/1135098/kak-proyti-autentifikaciu-pri-podkluchenii-k-veb-uzlu


Несколько итогов в отчете

Понедельник, 29 Декабря 2014 г. 13:21 + в цитатник
Всем добрый день и с наступавшим!

Есть таблица:
ДатаТипНаименованиеКг
20.12.2014ФруктыЯблоко364
20.12.2014ФруктыГруша321
20.12.2014ОвощиПомидор374
20.12.2014ОвощиКапуста156


Можно ли организовать вот такую таблицу в Отчете? (С итогами каждого типа)

ДатаТипНаименованиеКг
20.12.2014ФруктыЯблоко364
20.12.2014ФруктыГруша321
Итого:685
20.12.2014ОвощиПомидор374
20.12.2014ОвощиКапуста156
Итого:530

Спасибо!

http://www.sql.ru/forum/1135088/neskolko-itogov-v-otchete


Дубликаты в таблице

Понедельник, 29 Декабря 2014 г. 12:44 + в цитатник
Суть такова:
имеется таблица со следующей структурой:
счетчик, числовой, текст, текст, текст, текст

в ней имеется повторяющиеся записи, повторяющиеся по 5 полям:
числовой, текст, текст, текст, текст

только индекс - счетчик является уникальным.

нужно удалить дубликаты, не выборку, а именно удаление строки.
причем не важно какую из дублирующих строк удалить

Помогите идеей, не сооброжу

http://www.sql.ru/forum/1135080/dublikaty-v-tablice


как связать числовое и текстовое (с числами) поля в запросе?

Понедельник, 29 Декабря 2014 г. 12:13 + в цитатник
Поле таблицы в базе - текстовое. прислали лист Excel. задача: найти совпадающие значения. подключил лист как связанную таблицу, и , хотя на листе у столбца формат "Общий", в связанной таблице поле становится числовым.
В итоге, связав в запросе эти поля, при попытке открыть запрос, получаю сообщение: "Несоответствие типа в выражении"
Как быть?

http://www.sql.ru/forum/1135070/kak-svyazat-chislovoe-i-tekstovoe-s-chislami-polya-v-zaprose


результаты запроса в форме?

Понедельник, 29 Декабря 2014 г. 09:11 + в цитатник
Подскажите пожалуйста как сделать форму, чтобы в ней отображались результаты запроса
SELECT WHERE
т.е. есть запросы с разными условиями, хотелось бы сделать много кнопок и назначить на эти кнопки запросы, чтобы при нажатии на эти кнопки результаты запросы не были в отдельном окне, а были в этой форме?

http://www.sql.ru/forum/1135041/rezultaty-zaprosa-v-forme


Время заданных суток, на которое пришлось максимальное количество клиентов

Воскресенье, 28 Декабря 2014 г. 17:33 + в цитатник
Имеется таблица сеансов подключения к интернету
№пп | логин | IP | Дата | время начала соединения | время окончания|

Нужно соорудить запрос на выборку:
-Время заданных суток, на которое пришлось максимальное количество клиентов

Пожалуйста помогите, почти всю курсовую сделал, лишь это остановило..
Вообще сам проект на делфи, база MS Access

http://www.sql.ru/forum/1134988/vremya-zadannyh-sutok-na-kotoroe-prishlos-maksimalnoe-kolichestvo-klientov


Измерить время вывода данных на форме, используя таймер и Recordset

Воскресенье, 28 Декабря 2014 г. 17:17 + в цитатник
Здравствуйте. Помогите, пожалуйста, реализовать следующее.

Необходимо, перемещаясь по записям в форме (с помощью Recordset), получить, какое время занимает вывод всех данных в этой форме.

У меня сейчас обработчик формы вот так выглядит. Я измеряю время загрузки изображений в форму с помощью функции timeGetTime(). И получаю время выполнения кода для каждой записи отдельно.

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Current()
    ' Если для записи текущего сотрудника имеется фотография,
    ' она отображается в форме. Если указанный файл не существует,
    ' либо если для текущего сотрудника поле имени файла пусто,
    ' надпись errormsg выводит соответствующее сообщение.
    Dim res As Boolean
    Dim fName As String
    Dim t As Long
    t = timeGetTime()
    path = CurrentProject.path
    On Error Resume Next
        ErrorMsg.Visible = False
        If Not IsNull(Me![Фотография]) Then
            res = IsRelative(Me![Фотография])
            fName = Me![Фотография]
            If (res = True) Then
                fName = path & "\" & fName
            End If
            Me![Картинка].Picture = fName
            Me![Картинка].Visible = True
            Me.PaintPalette = Me![Картинка].ObjectPalette
            If (Me![Картинка].Picture <> fName) Then
                Me![Картинка].Visible = False
                ErrorMsg.Caption = "Фотография не найдена"
                ErrorMsg.Visible = True
            End If
        Else
            Me![Картинка].Visible = False
            ErrorMsg.Caption = "Для добавления фотографии нажмите кнопку ""Добавить/изменить"""
            ErrorMsg.Visible = True
        End If
    MsgBox "Обработка данных длилась " & Format$((timeGetTime() - t) / 1000, "0.000") & " сек."
End Sub


Но у меня немножко другая задача стоит. Нужно получить время загрузки не каждой отдельной записи, а всех записей в форме при помощи Recordset, который, как я понимаю, позволяет перемещаться от записи к записи автоматически, а не вручную.

Дело в том, что у меня в каждой отдельной записи формы хранятся данные о каком-то сотруднике + его фотография. И таких записей 20 штук. Т.е. мне, грубо говоря, нужно узнать, сколько по времени будет занимать загрузка всех 20 фотографий в форму.

http://www.sql.ru/forum/1134985/izmerit-vremya-vyvoda-dannyh-na-forme-ispolzuya-taymer-i-recordset


Время заданных суток, на которое пришлось максимально количество

Воскресенье, 28 Декабря 2014 г. 15:43 + в цитатник
Имеется таблица сеансов подключения к интернету
№пп | логин | IP | Дата | время начала соединения | время окончания|

Нужно соорудить запрос на выборку:
-Время заданных суток, на которое пришлось максимальное количество клиентов

Пожалуйста помогите, почти всю курсовую сделал, лишь это остановило..
Вообще сам проект на делфи, база MS Access

http://www.sql.ru/forum/1134978/vremya-zadannyh-sutok-na-kotoroe-prishlos-maksimalno-kolichestvo


интеграция с Oracle или MS SQL Server 2008

Воскресенье, 28 Декабря 2014 г. 15:34 + в цитатник
Добрый день.

Вопрос юзера: возможно ли в Access создать табличные триггеры (before, after) ?

Цель - отследить добавление строк в мастер-таблице , продублировать изменения в другую таблицу.

http://www.sql.ru/forum/1134977/integraciya-s-oracle-ili-ms-sql-server-2008


Как открыть форму с паролем

Воскресенье, 28 Декабря 2014 г. 14:06 + в цитатник
Добрый день. Есть кнопка, по нажатию которой открывается форма. Как защитить открытие формы паролем? Прошу помощи.

http://www.sql.ru/forum/1134965/kak-otkryt-formu-s-parolem


Обновить данные таблицы на сервере через сравнение с таблицой у клиента

Воскресенье, 28 Декабря 2014 г. 14:05 + в цитатник
На сервере есть таблица "wProducts" с полями: [prID], [prName], [prPrice]
У клиента есть такая же таблица "tblProducts": [prID], [prName], [prPrice]

Также у клиента есть ЗАПРОС К СЕРВЕРУ "WebProducts":
SELECT wProducts.prID, wProducts.prName, wProducts.prPrice 
FROM wProducts;

И есть обычный запрос на выборку "edProducts", который отбирает измененные записи из таблицы "tblProducts":
SELECT tblProducts.prID, tblProducts.prName, tblProducts.prPrice
FROM tblProducts INNER JOIN WebProducts ON tblProducts.prID = WebProducts.prID
WHERE (((tblProducts.prName)<>[WebProducts].[prName])) OR (((tblProducts.prPrice)<>[WebProducts].[prPrice]));


Как теперь изменить соответствующие записи на таблице wProducts сервера по этим отобранным записям запроса "edProducts"?
Можно ли сделать это через ЗАПРОС К СЕРВЕРУ?
Или какие есть пути решения? (через связанную таблицу долго грузится)

http://www.sql.ru/forum/1134964/obnovit-dannye-tablicy-na-servere-cherez-sravnenie-s-tablicoy-u-klienta


Помогите создать бланк договора

Воскресенье, 28 Декабря 2014 г. 13:11 + в цитатник
Здравствуйте!
С помощью мастера создан запрос:

SELECT DISTINCTROW [Спецификация договора].[Код изделия], [Справочник единиц измерений].[Наименование единицы измерения], Format$([Спецификация договора].[Дата отгрузки],'mmmm yyyy') AS [Дата отгрузки по месяцам], [Список выпускаемых изделий].Цена, Sum([Спецификация договора].Количество) AS [Sum - Спецификация договора_Количество], [Список заказчиков].[Наименование заказчика], [Список заказчиков].Адрес, [Список заказчиков].Индекс, [Список заказчиков].ИНН, [Список заказчиков].Город, [Спецификация договора].[Номер договора], [Спецификация договора].[Дата отгрузки]
FROM [Список заказчиков] INNER JOIN ([Список договоров заключенных с заказчиком] INNER JOIN ([Список складов] INNER JOIN ([Справочник единиц измерений] INNER JOIN (([Список выпускаемых изделий] INNER JOIN [Спецификация ТТН] ON [Список выпускаемых изделий].[Код изделия] = [Спецификация ТТН].[Код изделия]) INNER JOIN [Спецификация договора] ON [Список выпускаемых изделий].[Код изделия] = [Спецификация договора].[Код изделия]) ON [Справочник единиц измерений].[Код единицы измерений] = [Список выпускаемых изделий].[Код единицы измерения]) ON [Список складов].[Номер склада] = [Список выпускаемых изделий].[Номер склада]) ON [Список договоров заключенных с заказчиком].[Номер договора] = [Спецификация договора].[Номер договора]) ON [Список заказчиков].[Код заказчика] = [Список договоров заключенных с заказчиком].[Код заказчика]
GROUP BY [Спецификация договора].[Код изделия], [Справочник единиц измерений].[Наименование единицы измерения], Format$([Спецификация договора].[Дата отгрузки],'mmmm yyyy'), [Список выпускаемых изделий].Цена, [Список заказчиков].[Наименование заказчика], [Список заказчиков].Адрес, [Список заказчиков].Индекс, [Список заказчиков].ИНН, [Список заказчиков].Город, [Спецификация договора].[Номер договора], [Спецификация договора].[Дата отгрузки], Year([Спецификация договора].[Дата отгрузки])*12+DatePart('m',[Спецификация договора].[Дата отгрузки])-1
HAVING (((Format$([Спецификация договора].[Дата отгрузки],'mmmm yyyy'))=[Введите месяц]));


На его основе делаю отчет (пример во вложении). Пытаюсь создать бланк договора с организацией. к договору прилагается спецификация, а нужно чтобы было примерно так:

ДОГОВОР №____
на поставку продукции
от «___» _____________20__г.

Поставщик:__________________ Получатель:___________________
(наименование) (наименование)
Заключили договор на период:
с «___»__________________20__г. по «___»__________________20__г.
Общая сумма договора составляет
_________________________________________________________________________
(сумма договора в ценах на момент заключения договора)
Адреса и реквизиты сторон:
Поставщик:
____________________________
(почтовый индекс)
____________________________
(город)

№ИНН______________________
Получатель:
____________________________
(почтовый индекс)
____________________________
(город)

№ИНН______________________


СПЕЦИФИКАЦИЯ
на поставку товаров к договору №___ от «__»________20__г.
Поставщик:________________
Получатель:_______________
Наименование товара Ед. изм. Месяц поставки Отпускная цена ед. изм. Количество Сумма




Поставщик:___________________ Получатель:___________________
(подпись)

Извините за кривизну вставки.
Резюме: нужен бланк договора с конкретной организацией на КАЖДОЙ странице.
Подскажите как это сделать!?

http://www.sql.ru/forum/1134957/pomogite-sozdat-blank-dogovora


Дизайнер таблиц - изменение признака Null любого поля не работает в сторонних программах

Воскресенье, 28 Декабря 2014 г. 12:20 + в цитатник
У меня есть MDB файл

Пробовал редактировать его из Database.net и LibreOffice, выбирал подключение MSAccess,
наверно, это напрямик через Jet без OLEDB/ODBC

убрать признак Null для поля получается, но после сохранения изменений, вернуть обратно не получается и значение по умолчанию становится read-only,
в Microsoft Access вроде бы таких проблем не было?

MS Access нет на машине, потому что он не включен в Office Home & Business 2010 и апгрейдов до полного офиса вроде бы не продается, поэтому хотелось бы сторонними редакторами поправить файл

Или может быть, кто-нибудь знает, где взять PostgreSQL, подготовленный для включения в свой установщик?

хорошо любителям Firebird, у них даже inprocess библиотека есть, но PostgreSQL мне нравится больше Firebird, более универсальный, перекрывает по функционалу, не люблю возиться со 100500 похожих сущностей, поэтому с SQLite и другими новыми связываться не хочется как и с Firebird

с MS Access Jet и PostgreSQL хоть опыт есть, знаю чего от них ждать можно

http://www.sql.ru/forum/1134951/dizayner-tablic-izmenenie-priznaka-null-lubogo-polya-ne-rabotaet-v-storonnih-programmah


Как создать подстановку с фильтром?

Воскресенье, 28 Декабря 2014 г. 12:08 + в цитатник
Простой пример. Есть три таблицы: Страны, Маршруты, Заявки. Каждый маршрут соответствует только одной стране.

Когда заполняешь заявки, сначала выбираешь страну (поле ID_Страны). С этой подстановкой я разобрался. Тут просто в поле "ID_Страны" в таблице "Заявки" все ID стран заменяются их именами.
Дальше я хочу чтобы в поле "ID_Маршрута" в таблице "Заявки" были только те маршруты которые принадлежат уже выбранной стране. Как это сделать? Надеюсь я понятно все объяснил

описания полей:
Страны
ID_Страны
НазваниеСтраны


Маршруты:
ID_Маршрута
ИмяМаршрута
ID_Страны

Заявки
ID_Страны
ID_Маршрута

http://www.sql.ru/forum/1134950/kak-sozdat-podstanovku-s-filtrom


сумма в примечании отчета

Суббота, 27 Декабря 2014 г. 15:16 + в цитатник
Добрый день!
В отчете есть "поле1" в котором происходит суммирование нескольких других полей. В примечании формы необходимо вывести сумму поля1, если использовать обычную формулу = Sum([Поле1]), то программа пишет что не найдено поле1. если же я в поле1 вставляю конкретное число а не формулу, то все Ок. Подскажите как решить.
Спасибо

http://www.sql.ru/forum/1134868/summa-v-primechanii-otcheta


Определение возраста

Суббота, 27 Декабря 2014 г. 08:40 + в цитатник
Добрый день!
Подскажите, пожалуйста, каким можно отобрать всех сотрудников, которым в заданный по условиям отбора год (текущий, следующий и т.д.) исполняется, к примеру, 50 лет?

http://www.sql.ru/forum/1134840/opredelenie-vozrasta


Проблема с запросом на добавление ошибка NULL

Пятница, 26 Декабря 2014 г. 22:10 + в цитатник
Доброго времени суток. Не могу запрос на добавление осуществить,выдает ошибку. Кто может подсказать в чем проблема ? вот БД

http://www.sql.ru/forum/1134807/problema-s-zaprosom-na-dobavlenie-oshibka-null



Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 107 106 [105] 104 103 ..
.. 1 Календарь