Есть база на MS SQL 2012 и фронтенд на MS Access 2013.
Есть проблема с определением имени пользователя в "серверном" запросе на аксессе.
Строка подключения запроса такая:

ODBC;DRIVER=SQL Server;SERVER=RODION-PC\SQLEXPRESS;DATABASE=mydb;UID=rodion;PWD=password

Подключение работает, данные получаются, но т.к. в запросе используется имя пользователя все данные отбираются от "sa".
Попробовал создать простой серверный запрос вида

SELECT SUSER_SNAME()

Выдает "sa". Такой же запрос из MS VS, если при подключении ввести этого же пользователя, дает правильный результат "rodion".
Откуда он берет пароль для "sa" не ясно, возможно пользуется "доверительным" соединением.
Пользователя на сервере созданы.

Пробовал создавать DNS для подключения, но на этой версии MS SQL сервера\клиента у меня не сохраняется пароль пользователя, т.е. при первом запросе данных из прилинкованных таблиц появляется запрос на ввод имени пользователя и пароля, при этом нет возможности его сохранить.

Собственно вопрос в том, как заставить аксесс использовать имя пользователя из соединения?

http://www.sql.ru/forum/1071103/ms-access-2013-ms-sql-2012-problema-s-imenem-polzovatelya

Здравтвуйте, подскажите пожалуйста. Делаю обработчик события для ПоляСоСписком на форме:
<sub>Private Sub ПолеСоСписком6_Change()
Me.НормаПоВедомости= CurrentProject.Connection.Execute("SELECT ВремяГруппПоПроекту.НормаВремени" _
& "FROM РаспредВедомость INNER JOIN ВремяГруппПоПроекту ON РаспредВедомость.Код = ВремяГруппПоПроекту.Ведомость" _
& "WHERE (((ВремяГруппПоПроекту.Подразделение)=' & Me.ПолеСоСписком0)&"And ((ВремяГруппПоПроекту.Ведомость)=РаспредВедомость.Код) And ((РаспредВедомость.Объект)=" & Me.ПолеСоСписком6 & "))").Fields(0)

End Sub</sub>

Т.е. хочу в поле на форме вывести значение запроса, условием для которого является выбранное значение в ПолеСоСписком на той же форме. Сам запрос я проверял - работает. Делал его в конструкторе запросов. Вот текст запроса из конструктора в режиме SQL:
_{SELECT ВремяГруппПоПроекту.НормаВремени
FROM РаспредВедомость INNER JOIN ВремяГруппПоПроекту ON РаспредВедомость.Код = ВремяГруппПоПроекту.Ведомость
WHERE (((ВремяГруппПоПроекту.Подразделение)=Forms!ПланированиеРабот!ПолеСоСписком0) And ((ВремяГруппПоПроекту.Ведомость)=РаспредВедомость!Код) And ((РаспредВедомость.Объект)=Forms!ПланированиеРабот!ПолеСоСписком6));}
В результате отладки вылетает ошибка: Expected: End of statement/ Где чего не хватает?

http://www.sql.ru/forum/1071067/end-of-statement-v-tekste-zaprosa-v-kode-na-vba

Приветствую, Форумчане!

Ранее тут хвастался, что умудрился совместить газопровод с водопроводом и получить газированную водку, т.е. MS Access и SAP BO1...

Но эти гады, т.е. руководство, которое глядит дальше горизонта, сразу задала вопрос о возможности всё это творить на мобильных телефонах. Ну типа организовать мобильную торговлю. Торговый агент бродит по клиентам и принимает заказы. База примитивная должна быть: дата, агент, код клиента, в подчиненке: код продукта и кол-во. Далее всё это скидывается в моё изобретение, а потом в SAP.

Вот я и хотел посоветоваться. Есть ли Ассеss для Андроида (или других ОС)? Если есть, то можно ли написать творение на стационаре и перебросить на телефон? Обновление данных, экспор/импорт, и т.д.?

Что можете сказать про эти ссылки

http://www.androidz.ru/bazy-dannyh-tag/access-2003-get-248667.html
http://suse.me/soft/microsoft-access/android/

Может есть какая-нить готовая похожая база, но с возможностью перебрасывать данные в читабельные для акцесса форматы?

http://www.sql.ru/forum/1071025/msaccess-i-android

Пытаюсь создать форму для ввода условий отбора данных для отчета.
Только начал изучать Access, нашел инструкцию на сайте MS http://office.microsoft.com/ru-ru/access-help/HP005187411.aspx
Статья рассчитана на Access 2003, поэтому на этапе:
"2. Создайте макрос для кнопки OK." т.к. не нашел макрокоманду «ЗадатьЗначение» (SetValue) в своей версии (Access 2013)
Возможно в 2013 версии описанная задача делается как-топ проще?

Собственно задача:
Вывести в отчете только данные согласно условиям на форме
Пример.
Есть таблица по гостиничным номерам. Абстрактно состоит из:
- id;
- название номера;
- дата заселения;
- дата выезда;
- проживающий;
Нужно что бы в отчете выводились только записи по конкретной дате (а еще лучше по диапазону) и конкретным номерам. Эти условия отбора (диапазон дат, название номера) вводит пользователь в форме.


Заранее спасибо за ответы.

http://www.sql.ru/forum/1070983/sozdanie-formy-dlya-vvoda-usloviy-otbora-dannyh-dlya-otcheta

Доброго дня господа !

Имею гетерогенный запрос реализуемый драйвером MJet
Выполняет объединение двух таблиц XLS+Oracle

Необходимо вместо таблицы [SLAN] - написать ТОЛСТЫЙ запрос (описать представлением неподходит)
т.е
rsA.Source = "select F1 from [Excel 8.0;HDR=YES;IMEX=1;DATABASE=C:\TEMP\RR10.xls].[RR] union all select NAIM from [" & S & "].[select * from T1 left join T2 on .....................................where ........]"

Возможно ли такая реализация ?

Private Sub CommandButton1_Click()
  Dim rsA As New ADODB.Recordset, S As String
  S = "ODBC;DRIVER={Oracle in OraClient11g_home1_32bit};UID=xxx;PWD=xxx_xxxxxxxx;DBQ=INFOBASE;SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=INFOBASE)))"
  rsA.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEMP\RR10.xls;Extended Properties=""Excel 8.0"""
  rsA.Source = "select F1 from [Excel 8.0;HDR=YES;IMEX=1;DATABASE=C:\TEMP\RR10.xls].[RR] union all select NAIM from [" & S & "].[SLAN]"
  rsA.Open
  rsA.Move (5)
  MsgBox rsA.Fields(0)
End Sub

http://www.sql.ru/forum/1070933/link-aya-tablica-oracle

Есть таблица вида:

ID Значение Iorder group 1 текст 1 2 текст 1 3 текст 1 1 текст 2 2 текст 2 3 текст 2 1 текст 3 2 текст 3 3 текст 3

Нужно проставить сортировку в столбце "Iorder" внутри каждой "group" т.е. результат нужен вот такой:

ID Значение Iorder group 1 текст 1 1 2 текст 2 1 3 текст 3 1 1 текст 1 2 2 текст 2 2 3 текст 3 2 1 текст 1 3 2 текст 2 3 3 текст 3 3

Начал делать перебором через рекордсет, запутался в циклах, голова под вечер совсем не варит.

http://www.sql.ru/forum/1070855/kak-prostavit-sortirovku

Здравствуйте, уважаемые форумчане. Пожалуйста, подскажите с двумя запросами. Если можно, то в sql формате.

Допустим, есть 2 таблицы.
1 таблица - clients : клиенты и анкетная инфа о них.
Id name adress
1
2
..
n


2 таблица - total_insurance - страховки, тип страховки, дата страховки.

id id_client type_of_insur sum_op date_op
1
2
..
m

Допустим, для каждого клиентского id должно быть 2 записи обязательных страховок. первая с типом страховки type_of_insur = 1, а вторая с типом страховки type_of_insur = 2.

а) Мне нужен запрос, который покажет клиентов, для id которых, нет записей в таблице total_insurance.

б) А так же запрос, который покажет записи type_of_insur = 2, если сумма по страховке этого же клиента в записе type_of_insur = 1 превышает 1000.

При громадной базе просто вручную сверять, конечно, нет времени. Подскажите, пожалуйста, как можно сделать такие запросы, или направьте туда, где знают.
Спасибо!

http://www.sql.ru/forum/1070848/svyazannye-zaprosy-i-need-help

Почему-то в результате выполнения через MS Access 2007 сохраненной процедуры (на MS SQL 2000):

ALTER PROCEDURE dbo.sp_Обновитьt
AS
DELETE FROM t
INSERT t
SELECT  *
FROM v

в таблицу t попадают лишь ровно 10 тыс. строк, при том что в v более 200 тыс. строк
По рекомендации с форума по MS SQL я добавил "SET ROWCOUNT 0".
В результате ХП выполняется значительно дольше, но в итоге выдает таймаут и результирующая таблица остается пустой. Как увеличить таймаут?
Прошу помощи у уважаемых участников форума.

http://www.sql.ru/forum/1070809/ne-hvataet-strok

Что эта за панель такая и как ей можно управлять (показать/скрыть) программно?

http://www.sql.ru/forum/1070805/panel-instrumentov-dlya-formatirovaniya-rtf-teksta-v-access-2007

Подскажите плиз !! как с помощью простого запроса на выборку отобрать несколько последних записей из таблицы

http://www.sql.ru/forum/1070793/prostoy-zapros-na-vyborku

Хочу вынести из процедуры однотипный кусок кода по созданию границ вокруг группы ячеек. В процедуру передаю объект Range.

Создал процедуру

Private Sub SetGrid(ExcelRange As Object)
On Error GoTo ErrorBlock
        
            ExcelRange.Borders(xlDiagonalDown).LineStyle = xlNone
            ExcelRange.Borders(xlDiagonalUp).LineStyle = xlNone
                
            With ExcelRange.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With ExcelRange.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With ExcelRange.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
          
            
            With ExcelRange.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With .Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With .Borders(xlInsideHorizontal)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
         End With

ErrorBlock:
      MsgBox Err & " " & Err.Description
    Err.Clear
    Exit Sub
End Sub

Вызываю так

SetGrid xlSheet.Range(xlSheet.Cells(4, 1), xlSheet.Cells(rst.RecordCount + 4, 3))

В процедуре SetGrid в первой же строке получаю "Application-defined or object-defined error"

http://www.sql.ru/forum/1070782/peredat-v-kachestve-parametra-obekt-excel

В таблице вместо данных появились знаки вопросов. Есть ли возможность вернуть нормальный вид?

http://www.sql.ru/forum/1070777/zakoruchki

Помогите,пожалуйста! все перерыла,не получается самостоятельно разобраться.
есть две таблицы: Таблица «Товары/Услуги» (10 записей) имеет следующую структуру: «Код това-ра/услуги», «Наименование товара/услуги», «Марка товара/Тип услуги», «Поставщик», «Цена», «Количество».
Таблица «Заказы» (20 записей) имеет следующую структуру: «Код заказа», «Дата», «Код товара/услуги», «Количество», «Скидка».

нужно сделать запрос -Товары/услуги, заказанные в определённый день

HELP!

http://www.sql.ru/forum/1070775/pomogite-s-zaprosami

есть проект прикрученный к MS SQL Server
есть главная форма которая работает на автозапуске при открытии проекта.
проект пишу на 2010м.
Критичная библиотека: Microsoft Excel 14.0 Object Library
при открытии в 2007м и 2003м соответствующий Missing.
При обновлении проекта приходится гонять по клиентским машинам, снимать галку с Missing:Microsoft Excel 14.0 Object Library
и выставлять Microsoft Excel 12.0 Object Library
Ибо мой код на форме автозапуска не работает:

Private Sub Form_Load()
'скрываем ленту для офф>=2007 и перепрописываем библиотеки в зависимости от версии офиса
Select Case Application.Version
    Case "14.0" '2010
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        On Error Resume Next
        Application.References.AddFromFile ("C:\Program Files\Microsoft Office\Office14\EXCEL.EXE")
        Application.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL")
        On Error GoTo 0
    Case "12.0" '2007
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        On Error Resume Next
        Application.References.AddFromFile ("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")
        Application.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL")
        On Error GoTo 0
    Case Else
End Select
'получаем юзера
Set MyObj = CreateObject("Wscript.shell")
Let strUser = MyObj.ExpandEnvironmentStrings("%username%")
Set MyObj = Nothing
'предварительно чистим блокировку самим же собой (в случае если сессия была оборвана сервером и в form_reserved висит незакрытый коннект)
DoCmd.RunSQL "delete from form_reserved where username = '" & strUser & "'"
'блокируем пользователя
DoCmd.RunSQL " insert into form_reserved values ('" & strUser & "','" & Now & "')"
End Sub

Прошу знающих помочь

http://www.sql.ru/forum/1070761/podvyazka-bibliotek-adp-v-zavisimosti-ot-versii-office

В коде :

app="D:/stm/bin/mysql/bin/mysqldump.exe --port=3306 -u root -p1234 mybase> d:\dddddd.sql"
Call ExecCmd(app, 0) '-не работает
shell (app, 0) '-не работает

app="D:/stm/bin/mysql/bin/mysqladmin.exe --port=3306 -u root -p1234 shutdown"
Call ExecCmd(app, 0) '-работает
shell (app, 0) '-работает...

...и другие внешние операции с mysql тоже работают
Однако если строку

D:/stm/bin/mysql/bin/mysqldump.exe --port=3306 -u root -p1234 mybase> d:\dddddd.sql

запустить через командную строку винды, то тоже все прекрасно работает.
в момент запуска mysqldump коннекта к таблицам мускула еще нет.
В чем может быть причина такого поведения акса?

http://www.sql.ru/forum/1070714/strannosti-shell-i-execcmd-zapusk-mysqldump

Здравствуйте, уважаемые специалисты. Столкнулся с проблемой - есть база на Аксесс 2013. Её надо импортировать на SQL Server и только на него - по заданию руководства, при этом конечно же сделать из БД Аксесса клиентское приложение.... а как вот этого добиться в 2013-й версии не пойму... В предыдущих версиях был мастер преобразования в формат SQL Server, а теперь только Sharepoint(что это такое вообще не в курсе). Как быть?

Модератор: Тема перенесена из форума "Microsoft SQL Server".

http://www.sql.ru/forum/1070692/sql-server-i-access-2013

Имеется некий запрос.
В нем необходимо создать дополнительное поле типа Boolean.
Как это сделать?

Если написать

Select *, False as NewField from t1

и сохранить в таблицу то тип NewField получается Number а не Boolean.

http://www.sql.ru/forum/1070639/kak-sozdat-v-zaprose-pole-tipa-boolean

Вот такой запрос, мне в нем нужно сначала стоимость найти 2х заказов, а потом из них максимальное выбрать, а не получается!
SELECT [номер заказа], max (стоимость) AS [стоимость заказа]
FROM (SELECT [номер заказа], sum (цена*колличество) as стоимость
FROM [Состав заказа] С, Товар Т
where С.[код товара] = Т.[код товара]
group by ([номер заказа])) ]
GROUP BY ([номер заказа]);

http://www.sql.ru/forum/1070632/kak-nayti-maksimalnoe-znachenie

Как оптимизировать и увеличить скорость работы БД. БД Локальная лежит на сетевом ресурсе, к ней подключаются пять человек. Очень долго происходит подключение и работа получается с тормозами.

Подскажите пожалуйста как можно оптимизировать работу БД?

БД = .accdb (в ней содержаться только таблицы)
Клиенская часть = .accde (В ней содержуться все формы, и вся графика)

******
Перебирай законных прав ингредиенты
И добовляй от жути, с каждого нутра!

http://www.sql.ru/forum/1070559/optimizaciya-raboty-lokalnoy-razdelnoy-bd

Добрый день!

Подскажите как сделать, чтоб в подчиненной форме выводились записи отфильтрованые по полю БР, значения которого указываются в поле со списком?

Спасибо!

http://www.sql.ru/forum/1070509/podchinennaya-forma