Приветствую всех.

Задача сделать базу на MySql + Access2003

На сервере MySql завел базу и сделал в базе табличку.

SELECT id2, txt2 FROM pww2_schema.new_table;

Задача вывести в табличую форму ее содержание.

Сделал подключение к базе

    Dim oConn As Object
    Set oConn = New ADODB.Connection
 
    oConn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
               "SERVER=127.0.0.1;" & _
               "DATABASE=pww2_schema;" & _
               "UID=root;" & _
               "PASSWORD=pww41900;" & _
               "PORT:3306;" & _
               "Option=3;"
    
    If oConn.State = adStateOpen Then
        'MsgBox "Ok connected!"
    Else
        MsgBox "Error - not connect... "
    End If

К серверу могу обратиться и получить записи вот так

    Dim cmd As ADODB.Command  'переменная в которой будет запрос
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
    Set rec = New ADODB.Recordset
    
    Set cmd.ActiveConnection = oConn 'указываем соединение см.выше
    cmd.CommandText = "SELECT * FROM pww2_schema.new_table;" 'запрос к БД
    cmd.CommandType = adCmdText
    cmd.Execute
     
    Set rec.ActiveConnection = oConn
    rec.Open cmd
    Debug.Print (rec.Fields("id2").Value)
    'потом закрыть и прибить rec, cmd, oConn 

А дальше не получается отобразить содержание таблицы в форму.
Побывал и mdb, и adp форматы.
В интернете находил решения на DAO, но не проверял их (не знаком с DAO близко).

Отзовитесь кто знает решение подобной проблемы.

https://www.sql.ru/forum/1307604/access-mysql

Доброго времени суток.
Нужно прилинковать к Access 2007 таблицу Excel (XLSX). Проблема в том, что некоторые текстовые столбцы содержат текст больше 255 символов, но не везде, а в середине-конце таблицы. Видимо из-за этого эти поля определяются Access-ом не как МЕМО, а как текстовые поля. Можно ли как-нибудь принудительно указать формат поля при прилинковывании? Файлы огромные, поэтому обработка с помощью VBA нежелательна (очень медленно).
Заранее премного благодарен.

https://www.sql.ru/forum/1307569/mozhno-li-prinuditelno-ukazat-razmer-tekstovyh-poley-pri-prilinkovyvanii-fayla-excel

Добрый день!

Даны числа:
a1, a2, ..., an
b1, b2, ..., bn

Нужно получить все сочетания чисел a и b, например: a1,b1; a1,b2; a1,b3 ...

Раньше делал это в Экселе, но сейчас количество пар чисел больше 100 тыс. и все пары просто не умещаются на листе.

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

Спасибо!

https://www.sql.ru/forum/1307561/zapros-na-kolichestvo-sochetaniy

Вопрос в заголовке.

Access 2010. В строке меню, справа, в самом конце находится кнопка вызова справки Access. Рядом с ней ещё есть стрелка для сворачивания/разворачивания ленты меню. У меня эта кнопка имеет вид синего кружочка со знаком вопроса внутри. (Её вид вообще-то зависит от настроек экрана).

Можно ли как либо убрать эту кнопку? В Access 2003 можно было убрать поле для ввода вопроса со строки меню. Можно ли нечто подобное реализовать и здесь?


-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1307550/mozhno-li-ubrat-knopku-vyzova-spravki-v-stroke-menu-access

Недавно надо было глянуть кое-какую информацию на сайте Алексея Козина http://msdatabase.ru/ "Разработка баз данных на Access + SQL".

А, кажется, недавно он был жив. Кто-нибудь что-нибудь знает о его судьбе?

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1307530/ischez-sayt-alekseya-kozina-msdatabase-ru

Приветствую всех! С прошедшими праздниками! Помогите разобраться, чего не хватает на компе, на котором возникает эта ошибка?

https://www.sql.ru/forum/1307515/oshibka-method-item-object-forms-failed-na-odnom-kompe-a-na-drugom-vse-rabotaet

В своих программах в 32-х битных версиях Access для создания диалога выбора файла я использовал чаще всего функции GetOpenFileName и GetSaveFileName из comdlg32.dll
Сейчас мне приходится переписывать одну из моих программ в 64-х битную версию.
Я исправил вызов функции в соответствии документа Win32API_PtrSafe (он тут на форуме пару раз выкладывался).
Но диалог выбора файла не запускается. В 32-х битных всё работает, а в 64-х - нет.

Просто не выводится окно выбора файла. Ни каких сообщений об ошибках. Просто не отрабатывает и всё. Как быть?

Тестовый пример прилагаю.

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1307493/getopenfilename-v-64-h-bitnyh-versiyah

Форумяне!
В банковских делах не силен: имеются валютные счета USD,EUR,GBR. Подскажите № счета уникален или уникально сочетание №счета>валюта?

https://www.sql.ru/forum/1307485/unikalnost

Добрый день.
ас2013. Нужно в форме воспроизводить видео, аудио, показывать картинки. Пробовал использовать штатный ActiveX WMP, но он не держит размеры и вообще как-то нестабильно работает. В общем, не справился я с ним. Да и возможностей управления не хватит видимо. Вариант - штатный VLC плагин, но никак не разберусь с его методами

Public VLCPlugin22 As VLCPlugin2
Set vlc22 = Me!VLCPlugin22.Object
...
.URL = [CurrentProject].[Path] & "\media\audio_man\" & Me!fs_ma_pinyin![audio_man]
vlc22.play

пишет что требуется объект.

Поиск по форуму результатов не дал, в сети вроде есть какие-то описания но как их прикрутить к аксессу я не понимаю.
Есть какие-нибудь рабочие примеры?
Спасибо.

https://www.sql.ru/forum/1307475/video-v-forme

Коллеги!
Как лучше проверить наличие уже введенной,но еще не сохраненной записи(что переход может быть совершен только при наличии записи/записей) в подчиненной форме

https://www.sql.ru/forum/1307468/podchinennaya-forma

Учусь работать с Access и зашла в тупик.
Проблема: По условию должны быть поступления и выплаты, может быть несколько поступлений/выплат на одну дату. При создании запроса, который должен отбирать и выдавать информацию по поступлениям всё отображается, кроме повторной даты. Т.е. у меня есть одно поступление за 01.12 и два поступления за 10.12, а в итоге запрос показывает одно за 01.12 и одно за 10.12 вместо двух.

В чем ошибка? Неправильно построен запрос или связи не те?

https://www.sql.ru/forum/1307448/zaprosy-ne-otobrazhaut-vsu-informaciu-chto-ya-delau-ne-tak

Добрый день. Есть перекрестный запрос с заголовками столбцов - датами из таблицы (формат dd.mm.yyyy). На выходе получаю заголовки столбцов dd_mm_yyyy.
Pivot Format([data],dd\/mm\/yyyy); ни к чему не приводят, уже все разделители попробовал. Кто решал проблему помогите. Я знаю решение есть.

https://www.sql.ru/forum/1307416/format-daty-zagolovki-stolbcov-v-perekrestnom-zaprose

Добрый день!
Прошу помочь.
Создал простенький запрос в конструкторе на выгрузку данных из таблицы с условием по одному из столбцов. На форме создано поле со списком. Скопировал sql запрос в код и изменил часть условия WHERE на значение из поля со списком. Выдает ошибку синтаксиса в части: (([Спр_кодов 80020 и ASKP].[Наименование предприятия]=" & potr & "));

Часть кода:
' значение поля со списком
potr = Me.Выбор_потребителя
' запрос
sq = "SELECT ([Спр_кодов 80020 и ASKP].Идентификатор) FROM [Спр_кодов 80020 и ASKP] WHERE (([Спр_кодов 80020 и ASKP].[Наименование предприятия]=" & potr & "));"
Set zap = CurrentDb.OpenRecordset(sq)

If zap.RecordCount <> 0 Then
i = 10

https://www.sql.ru/forum/1307382/oshibka-sintaksisa-pri-vypolnenii-zaprosa

Air Live Drive — программа, позволяющая подключать облачные хранилища как обычные локальные диски, что способствует значительному упрощению работы с ними. Поддерживаются самые популярные сервисы, в том числе наши Яндекс и Mail.ru.
Можно добавить в автозагрузку и выбрать, какие сервисы будут подключаться автоматически. Если вы часто обмениваетесь файлами или работаете с облачными хранилищами, то данная программа поможет вам сэкономить уйму времени.

Ну это я взял из описания программы.

Вопрос. А можно ли это использовать для многопользовательской работы через "облако"? Сам проверить пока не могу. Но описание вроде позволяет. Надо пробовать.

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1307361/air-live-drive

Вы, конечно, знаете и то, что в таблицах MS Access текстовые поля могут иметь значения с пробелами в конце, и то, что при просмотре/редактировании таблицы и выходе из поля "по Enter" MS Access эти пробелы удаляет ...

А знаете ли вы, что при связывании таблиц MS Access считает такие значения (с последними пробелами) тождественными значениям без конечных пробелов (и успешно по ним связывает таблицы)?

Внимание, вопрос: насколько такое поведение кошерно? И, кстати, задокументировано ли оно?

https://www.sql.ru/forum/1307341/stroki-s-poslednim-probelom-i-svyazyvanie-tablic

Коллеги подскажите какой нужно установить формат переменной

Pstr_3 = Me.Дата_от.Text
Rstr_4 = Дата_до.Text

Вот краткая инструкция

Private Sub кнопка_Click()
Dim Pstr_3 As String
Dim Pstr_4 As String
Pstr_3 = Me.Дата_от.Text
Rstr_4 = Дата_до.Text
Me.Filter = "дата between pstr_3 and pstr_4"
Me.FilterOn = True
End Sub

Спасибо.

https://www.sql.ru/forum/1307312/opredelenie-formata-peremennoy

Есть две формы - 1 и 2
Форма 2 открывается кодом из формы 1. В коде формы 1 после открытия формы 2 есть еще некоторые команды. В форме 2 тоже есть код на событие Открытие.
Блок 1 - форма 1 - открытие формы 2
Блок 2 - форма 1 - дополнительные команды после открытия формы 2
Блок 3 - форма 2 - команды на событие Открытие
Какова последовательность выполнения ? Блок 1-Блок 2 -Блок 3 или Блок 1-Блок 3-Блок 2?

https://www.sql.ru/forum/1307268/poryadok-vypolneniya

Здравствуйте!

Подскажите, каким способом в макросе данных AfterDelete отследить, было ли подтверждение пользователем удаления записи?
При выполнении команды УДАЛИТЬ ЗАПИСЬ срабатывает обработчик, написанный на vba (вызывается через оператор ЗадатьЛокПеременную в макросе данных).

сейчас в макросе данных такой код:

ЗадатьЛокПеременную =SetParametr(Old.ID)

Команда вызывает функцию, в которой находится логика дополнительной обработки, но функция вызывается, независимо от того, подтвердил ли пользователь удаление. Возникает ситуация, что запись не удалена, а обработчик срабатывает.

Требуется что-то вроде

Если <ЗАПИСЬ УДАЛЕНА> то ЗадатьЛокПеременную =SetParametr(Old.ID)

https://www.sql.ru/forum/1307243/afterdelete-makros-dannyh-s-proverkoy-podtverzhdeniya-udaleniya-zapisi

Привет!

У меня есть функция, вставляющая на панель инструментов поле для текущей даты. Функция выполняется при каждом открытии моей базы Access, благодаря макросу AutoExec.
Вот функция:

Public Function command_bar_create()
    Dim cbr As CommandBar
    Set cbr = Application.CommandBars("Настраиваемая 2")
    Dim cbrc As CommandBarComboBox
    Set cbrc = cbr.Controls.Add(Type:=msoControlComboBox, Before:=1, Temporary:=True)
    With cbrc
        .Caption = "Расчетная дата"
        .Style = msoComboLabel
        .Text = Date
        .AddItem Date
        .OnAction = "=date_current()"
    End With
    Set cbrc = Nothing
    Set cbr = Nothing
End Function

Есть ли возможность добавляемому на панель полю присвоить маску ввода?

https://www.sql.ru/forum/1307188/maska-vvoda-dlya-polya-na-paneli-instrumentov

Раньше связал с 4мя таблицами из одного файла, потом добавил в него еще две таблицы, связал их.
Теперь у меня в диспетчере только первые таблицы, новых нет, хотя данные в запросах отображаются, индексы не связались. Как это исправить?

https://www.sql.ru/forum/1307146/pochemu-v-dispetchere-ne-vse-svyazannye-tablicy