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

Имею обращение через Microsoft Jet (так как провайдер ГЕТЕРОГЕНЕН !!!!!)

if WScript.Arguments.Count>0 then
    Set AdoSession=WScript.CreateObject("ADODB.Connection")
    AdoSession.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WORK\PM\db1.mdb;Mode=ReadWrite"
    AdoSession.ConnectionTimeout=0
    AdoSession.CommandTimeout=0
    AdoSession.Open
    AdoSession.Execute("insert into [Database=C:\WORK\an_aug_2013.xls;Excel 8.0;HDR=No;IMEX=0].[A1$]   values(456)")
    AdoSession.Execute("insert into [ODBC;Driver={Oracle in OraDb10g_home1};UID=XXX;PWD=XXX_20130901;DBQ=XXX_BANK.UUU;SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=INFOBANK)))].[XXX.A1] select F1 from [Database=C:\WORK\PM\an_aug_2013.xls;Excel 8.0;HDR=No;IMEX=0].[A1$]")
    A = "delete from A1 in """" [ODBC;Driver={Oracle in OraDb10g_home1};UID=XXX;PWD=XXX_20130901;DBQ=XXX_BANK.UUU;SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=INFOBANK)))]"
    MsgBox A
    AdoSession.Execute(A)
    AdoSession.Close
    Set AdoSession=Nothing
  end if
end if

Insert данных происходит нормально
Последующая очистка DELETE - не происходит
ERROR = Невозможно удаленние из указаннывх таблиц

Если команду (+ ДЛИННУЮ строка коннкта ) реализовать через базу Access все в порядке
В чем разница и как реализовать через VBS файл (база MDB как таковая не нужна)

Заранее благодарен !

http://www.sql.ru/forum/1077966/delete-v-udalennoy-baze

Дано таблица на 3000 записей с 13-ю полями с данными типа Integer.
Пользователь вводит какие-либо 13 чисел.
Нужно найти запись с наиболее близкими значениями полей. Приоритет полей оценивается в порядке возрастания.

Подскажите, пожалуйста, алгоритм решения!

P.S. Вариант когда все 13 чисел совпадают, уже решен.

http://www.sql.ru/forum/1077881/poisk-blizhayshego

Здравствуйте все!
Мне нужно в таблице ЦветКузова в поле Частота (Частота использования цвета) проставить Частоту (Веса) цветов.
Сначала с помощью мастера создал запрос на определение числа повторов цветов:

SELECT First(АвтоНаПродаже.КодЦветКузова) AS КодЦветКузова1, Count(АвтоНаПродаже.КодЦветКузова) AS Повторы
FROM АвтоНаПродаже
GROUP BY АвтоНаПродаже.КодЦветКузова
HAVING (((Count(АвтоНаПродаже.КодЦветКузова))>1));

Затем запрос ОбновитьЧастотуЦветов:

UPDATE ЦветКузова, ВесаЦветов SET ЦветКузова.Частота = [ВесаЦветов]![Повторы]
WHERE (((ЦветКузова.КодЦветКузова)=[ВесаЦветов]![КодЦветКузова1]));

При попытке выполнить этот запрос выдается сообщение: "В операции должен использоваться обновляемый запрос".
Что я сделал не так, и как правильно написать запрос на обновление?

http://www.sql.ru/forum/1077875/zapros-na-obnovlenie

Всем доброго дня, есть фрагмент кода, который в 2003 access-е, работает и все норм, суть в том что если не находится таблица с базой, выдается окно диалога, и указывается файл с таблицами, и затем связи перелинкуются, и открывается скрытая форма, а вот на 2010 access-е, выдает ошибку "3276 Invalid database object reference Недопустимая ссылка на объект Database" на открытии скрытой формы после перелинковки.
У кого нибудь такая проблема возникала, спасибо.

Private Sub Form_Open(Cancel As Integer)
Application.RefreshTitleBar
Call HideMenu
   
If CheckLinks Then
   DoCmd.OpenForm "f_Access", , , , , acHidden 'скрытая форма для поддержки коннекта.
   Call CreateMenu(1)
Else
   If Not RelinkTables Then
      MsgBox "Укажите файл БД"
      DoCmd.Quit
   Else
      DoCmd.OpenForm "F_Access", , , , , acHidden 'скрытая форма для поддержки коннекта.
      Call CreateMenu(1)
   End If
End If
Cancel = True
End Sub

http://www.sql.ru/forum/1077861/vydaet-oshibku-3276-pri-perelinkovke

Доброго всем времени суток!
Возможно тема и поднималась уже, но конкретного ответа найти так и не смог.
Вопрос в следующем.
Есть таблица "Договора" , в которой два поля Номер Договора и Дата договора.
Необходимо сделать ленточную форму, в которой будет 2 поля для ввода интервала дат (Date_Start и Date_End). По заполнению данных полей должны выводиться все договора попадающие в этот интервал введенных дат

За ранее благодарен!

http://www.sql.ru/forum/1077838/filtraciya-dannyh-po-vvedennomu-periodu-dat

Приветствую,

Ситуация такова:
Access 2003
Пока модернизировались формы (и немного структура) БД, в старой версии шел ввод данных. Теперь необходимо залить эти данные в новую версию БД. Заливке подлежат несколько связанных таблиц, структура и связи которых в новой БД осталась такой же, как и в старой. Новые таблицы пустые.

Как экспортировать сразу несколько таблиц и сохранить их id и связи? Это вообще возможно?

Спасибо.

http://www.sql.ru/forum/1077835/import-neskolkih-svyazannyh-tablic-iz-odnoy-bd-v-druguu

Добрый день! подскажите, пожалуйста, где я ошибаюсь?
Хочу программно менять масштаб осей диаграммы на форме.
Нашел такой способ:

Sub MinMax()

Dim obj_Diag3 As Object
Dim obj_Axis3 As Object

Set obj_Diag3 = Form_Diag2!Диаграмма3.Object
Set obj_Axis3 = obj_Diag3.axes(2)

obj_Axis3.MaximumScale = 110 ' тут вылетает с ошибкой: 1004 Run-time error Невозможно получить свойство MaximumScale класса Axis
obj_Axis3.MinimumScale = 100

End Sub

http://www.sql.ru/forum/1077833/zadat-masshtab-osey-diagrammy

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

http://www.sql.ru/forum/1077734/sohranit-instrukciu-tsql-kak-zapros-prochitat-instrukciu-zaprosa-iz-koda

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

http://www.sql.ru/forum/1077702/nakoplennaya-summa

Добрый день.
Хочу в референсах ГуглХром подключить. Может знает кто, как называется дллка?
Спасибо

http://www.sql.ru/forum/1077695/hochu-v-referensah-guglhrom-podkluchit

Господа, где то видел решение
но никак не могу найти.
Ткните носом пжлст

http://www.sql.ru/forum/1077685/zapusk-odnogo-ekzemplyara-prilozheniya-access-esli-prilozhenie-zapushheno-vyhod

Добрый день, господа!
Хочу добавить в ленту своего приложения следующий контрол:
editbox поиска по клиентам. В него вписывается полность или частично фамилия клиента, и по нажатию на enter должна открыться форма "Клиенты" только с теми записями, в которых в фамилии присутсвует вписанный фрагмент. В случае отсутствия выдать соответствующее сообщение.
В параметр функции Docmd.OpenForm не впишется же такое where условие, только если фамилия полностью написана можно записать в where.
Подскажите, пожалуйста, как организовать такой отбор данных?

http://www.sql.ru/forum/1077657/tekstovyy-poisk-v-access

1. Бросаем на форму Список (Список1).
2. В свойствах задаем тип источника данных - список значений.
3. В макете пишем число столбцов = 3 и задаем размеры например 2см;2см;2см

Нужно по кнопке делать следующее:
1. Очистить список.
2. Записать в список значения:
текст00 текст01 текст02
текст10 текст11 текст12
текст20 текст21 текст22
текст30 текст31 текст32

Заранее спасибо!

http://www.sql.ru/forum/1077656/kto-znaet-kak-programmno-zapolnit-spisok-znacheniyami

Добрый день. Помогите пожалуйста. Пытаюсь удалить запросом данные из таблицы tbl_1

DELETE tbl_1.Код FROM tbl_2 INNER JOIN tbl_1 ON tbl_2.Код = tbl_1.Код

Пишет: «Необходимо указать таблицу, содержащую удаляемые записи».
Что не так написала? Где ошибка, подскажите? Спасибо

http://www.sql.ru/forum/1077628/zapros-na-udalenie-zapisey

Здравствуйте!
Access 2010, для фильтра делаю запрос на объединение в поле со списком

SELECT OM.ID, OM.Name_OM_Kord, 2 AS [Prior]
FROM OM
union
SELECT 0 AS ID, "Все" AS Name_OM_Kord, 1 AS [Prior];

По отдельности запросы работают и выдают все ОК

Union брыкается,

Не подскажите что я делаю не так?

http://www.sql.ru/forum/1077599/union-pishet-chto-neobhodima-hotya-by-odna-tablica-ili-zapros

автор
UPDATE Клиенты SET Клиенты.PasSer = Left([Паспорт],4), Клиенты.PasNum = Mid([Паспорт],6,6), Клиенты.PasOrg = Mid([Паспорт],13,Len([Паспорт])-11), Клиенты.PasDate = Right([Паспорт],10);

PasOrg - не убирает 11 последних цифр - хоть убей :) Ждать день, чтобы посмотреть новым взглядом устал

Исходный текст поля 1234 123456 ОВД Приокского района Нижнего Новгорода, 01.01.2001

И по запятой отбивал InStr и знаки убирал по количество справа... Просто устал.

Помогите?

http://www.sql.ru/forum/1077595/razbivka-stolbca-na-sostavlyaushhie

Здравствуйте уважаемые форумчане!
Подскажите, если кто знает, как (или куда копать).
В форме есть поле, например, марка автомобиля. Также на форме есть объект WebBrowser. При выполнении

WebBrowser0.Object.Navigate МАРКА 

WebBrowser отображает поисковую страницу, которая определена службой поиска браузера по умолчанию.
Как сделать так, что бы можно было программно (VB) менять дополнительные критерии поиска, например, отобразить только картинки, только карты или выполнить поиск с другой поисковой системой.
Заранее спасибо!

http://www.sql.ru/forum/1077471/dopolnitelnye-usloviya-dlya-otobrazheniya-informacii-v-webbrowser

Уважаемые знатоки VBA
подскажите как можно осуществить отбор в отобранном.
Есть ленточная форма имеющая рекордсет на основе запроса

SQLstr = "SELECT* From td_data2014 ORDER BY td_data2014.vx DESC , td_data2014.vx_date DESC;"
Me.RecordSource = SQLstr

Затем пользователь делает допустим такой отбор

Private Sub isx_f_AfterUpdate()
Dim s As String
s = Me.isx_f.Text 'Определяем текст
    With Me.Form 'Выбираем форму
      If Len(s) <> 0 Then
        s = " WHERE ([isx]) = '" & s & "'"
      Else
        s = ";"
      End If
      If Me.arc = -1 Then
If Me.ГодАрхива = 2013 Then
      .RecordSource = "SELECT * FROM [td_data]" & s
      End If
      Else
      .RecordSource = "SELECT * FROM [td_data2014]" & s
      End If
      .Requery 'Меняем запрос
    End With
Me.isx_f = Null
End Sub

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

http://www.sql.ru/forum/1077470/otbor-v-otobrannom

Доброго времени суток.
Подскажите пожалуйста, возможно ли реализовать динамическую фильтрацию в поле со списком (выделено красным на рисунке), которое получено запросом. Т.е. набрал я цифру 8 и увидел бы только те записи, где присутствует восьмерка. Или набрал g8 и получил список строк с этими значениями.
Буду благодарен за помощь на конкретном примере.

http://www.sql.ru/forum/1077398/dinamicheskaya-filtraciya

Подскажите событие которое возникает в момент получение данных формы...
т..е. нажал юзер ф5... данные обновлились- и во этот бы момент перехватить

http://www.sql.ru/forum/1077397/sobytie-formy