Microsoft Access. Файлы mdb и accdb

Хранитель исходников

Admin1 — 2009-04-24T15:08:31Z

Вышла база данных хранитель исходников 'http://market.leadersoft.ru/Product.aspx?ProductID=5026'>http://market.leadersoft.ru/Product.aspx?ProductID=5026. Распространяется бесплатно. Цель ее - собрать разную информацию по программированию и продвижению программ в одном месте. Если кто-то хочет поделиться информацией, то можете выслать файлик (создайте отдельный), совместимый с этой программой (смотрите примеры Сайты.mdb, MsAccess.mdb) на help5 ... Это могут быть сайты для размещения программ, коды, доски объявлений (желательно их проверить), и т.п. Языки программирования могут быть тоже разные. Например, Deplhi.mdb, SQLServer.mdb, CSharp.mdb, VBnet.mdb и т.п.

FAQ конференции

All — 2007-07-05T05:05:08Z

В. Не могу открыть базу данных, Access говорит, что неправильный формат данных.

Это сиптомы того, что связи объектов в базе данных нарушены из-за многочисленных правок. Методы решения проблемы. а) Сделать копию базы б) Сжать ее в) Создать новую и экспортировать в нее объекты из старой базы г) использовать программы восстанавливающие ее структуру: 'http://www.granite.ab.ca/access/corruptmdbs.htm'>http://www.granite.ab.ca/access/corruptmdbs.htm

В. Как создать новый Recordset. Обязательно указываете библиотеку ADODB. Для других объектов все строится также.

Dim rstFrm As New ADODB.Recordset
Dim rstFrm As ADODB.Recordset

В. Как установить в таблице счетчик, начинающийся не с 1.

В поле таблицы - счетчик, используя SQL запрос, можно записать любое правильное значение. Далее оно будет использоваться, как стартовое число для автоназначения данных.
Есть пример от Microsoft, который позволяет задать значение счетчика в новой создаваемой таблице. 'http://support.microsoft.com/kb/202121/'>http://support.microsoft.com/kb/202121/

В. Запуск таймера для всего приложения, а не для формы

Достаточно при ЗАПУСКЕ приложения (например, из макроса AutoExec) открыть НЕВИДИМУЮ форму с таймером (DoCmd.OpenForm '...', acNormal, , , , acHidden), где и будут обрабатываться все события. Для передачи событий можно использовать текстовую глобальную переменную.

В. Не могу правильно передать данные в Microsoft Excel, текстовое поле не передается

В Excel 1 строка данных запроса определяет тип полей. Поэтому, если в поле запроса идут смешанные данные (1,2, A), то будет ошибка. Ячейкам Excel будет присвоен целый тип данных. Выход. Исправьте запрос так, чтобы в первой строке поля был текст A, а потом уже шли цифры: 1,2 и т.п.

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

Смотрите меню Сервис - Параметры - Правка и Поиск - Подтверждение

Уникальные значения в форме

igor78 — 2012-05-15T10:41:21Z

Подскажите пожалуйста. Нужно подсчитать кол-во уникальных значений в ленточной форме и вывести в примечания формы.

Расчет выражения

Admin1 — 2012-02-17T17:59:02Z

Подскажите пожалуйста возможно ли в VBA перевести строковую переменую типа '(10*5+100*2+100)*12' в числовой формат(Single, double)? Т.е. чтобы переменная получила значение строгового выражения (4200).

Экспорт отчета в Word...

Aleck_b — 2012-02-05T21:42:38Z

Здрасьте.

MSA 2003: односторонняя синхронизация mdb c применением параметра dbRepImportChanges

4007 — 2012-01-31T06:08:54Z

Имею две реплики:
предприятие:

Как получить разрешения на объекты

Admin1 — 2012-01-18T05:58:45Z

Данная функция позволяет прочитать все разрешения на объекты типа tables, т.е. запросы и таблицы Public Function GetPermissions()

Отправка таблицы или запроса в "Тексте" e-mail

epsilon_group — 2011-12-14T18:06:53Z

Добрый день!

Ошибка типа: Member already exists in an object module from which this object module derives

epsilon_group — 2011-12-19T18:51:37Z

Добрый вечер!
Referenses - есть

Отмена записи

Admin1 — 2011-11-15T03:26:48Z

Работаю над программой для учета личных финансов. В данный момент столкнулся со след.проблемой: при отрытии окна для создания новой записи (используется Recordset.AddNew), изменяя некот.поля, но не нажимая ввод записи (AddNew) и выходя из формы, новая запись всет-таки вводится. То есть пользователь отказывается от ввода, но он происходит. Тоже самое увидел в Вашей программе 'Договора и Анализ'. Подскажите пожалуйста решение данной проблемы.

Работа с удаленной базой даных

Admin1 — 2011-10-02T08:41:19Z

Какой вариант предпочтительней при разработке интерфейса базы данных, связанного с SQL Server. Я вижу два варианта. Это adp проект или mdb + adodb.recordset, когда открывается соединение и форма привязывается к рекорсету: Например, set me.recordset = rst

Примеры для Excel

Admin1 — 2011-08-15T13:19:23Z

ExcelExample()
Dim r As Integer, f As Integer
Dim vrecs As Variant
Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Dim fld As ADODB.Field
Set cn = New ADODB.Connection
'Microsoft OLE DB Provider for ODBC Drivers'
'DRIVER={Microsoft Excel Driver (*.xls)};DBQ=C:\mydb.mdb;'
Open
Print cn.ConnectionString
Set rs = New ADODB.Recordset
Open 'SELECT * FROM Employees', cn, adOpenDynamic, adLockOptimistic
For Each fld In rs.Fields
Print fld.Name,
Next
Print
For r = 0 To UBound(vrecs, 1)
For f = 0 To UBound(vrecs, 2)
Print vrecs(f, r),
Next
Print
Next
Print 'adAddNew: ' & rs.Supports(adAddNew)
Print 'adBookmark: ' & rs.Supports(adBookmark)
Print 'adDelete: ' & rs.Supports(adDelete)
Print 'adFind: ' & rs.Supports(adFind)
Print 'adUpdate: ' & rs.Supports(adUpdate)
Print 'adMovePrevious: ' & rs.Supports(adMovePrevious)
Close
Close
End Sub

Вставить строку в Excel, используя SQL

 
Public Sub WorksheetInsert()
  Dim Connection As ADODB.Connection
  Dim ConnectionString As String
  ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & ThisWorkbook.Path & '\Sales.xls;' & _
    'Extended Properties=Excel 8.0;'
 
  Dim SQL As String
 
  SQL = 'INSERT INTO [Sales$] VALUES('VA', 'On', 'Computers', 'Mid', 30)'
  Set Connection = New ADODB.Connection
  Call Connection.Open(ConnectionString)
 
  Call Connection.Execute(SQL, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adExecuteNoRecords)
  Connection.Close
  Set Connection = Nothing
End Sub

Открыть Excel через ADO

 
Sub Open_ExcelSpread()
   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   conn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
       'Data Source=' & CurrentProject.Path & _
       '\Report.xls;' & _
       'Extended Properties=Excel 8.0;'
   conn.Close
   Set conn = Nothing
End Sub

Использовать ADO для чтения данных в Excel

 
Public Sub SavedQuery()
 
  Dim Field As ADODB.Field
  Dim Recordset As ADODB.Recordset
  Dim Offset As Long
 
  Const ConnectionString As String = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydb.mdb;Persist Security Info=False'
 
  Set Recordset = New ADODB.Recordset
  Call Recordset.Open('[Sales By Category]', ConnectionString, _
    CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, _
    CommandTypeEnum.adCmdTable)
  If Not Recordset.EOF Then
    With Sheet1.Range('A1')
      For Each Field In Recordset.Fields
        .Offset(0, Offset).Value = Field.Name
        Offset = Offset + 1
      Next Field
      .Resize(1, Recordset.Fields.Count).Font.Bold = True
    End With
    Call Sheet1.Range('A2').CopyFromRecordset(Recordset)
    Sheet1.UsedRange.EntireColumn.AutoFit
  Else
    Debug.Print 'Error: No records returned.'
  End If
  Recordset.Close
  Set Recordset = Nothing
End Sub

Источник.

'http://vbex.ru/index.php/VBA/Excel/Access/Word/Excel/Excel_ADO'>http://vbex.ru/index.php/VBA/Excel/Access/Word/Excel/Excel_ADO

Конвертация данных

Admin1 — 2011-08-04T06:05:34Z

Dim accApp As Access.Application

Создать БД за вознаграждение

kln_3000 — 2011-07-19T12:16:34Z

Помогите создать БД за вознаграждение.

Проверка орфографии и пунктуации в Access...

Aleck_b — 2011-07-10T08:09:07Z

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

Ошибка типа The remote server machine does not exist or is unavailable при выводе в Word

epsilon_group — 2011-07-02T10:27:45Z

Добрый день! на основе кода по ' Создание документа Word по шаблону' http://www.leadersoft.ru/Rus/help/code/Default.aspx?go=product&ProductID=11875 мною создан код выводящий отчет из нескольких таблиц и данных. Отчеты типовые и вывод нужно производить многократно из Формы, содержащей список отчетов. При однократном созданни документа в MsWord, код создает файл MsWord заполняя его необходимыми данными и сохраняет его. При повторном созданни документа в MsWord из открытой формы, код создает файл MsWord, но уже не заполняет его необходимыми данными, MsWord отображает только пустой шаблон. Access выдают надпись 'The remote server machine does not exist or is unavailable' повторно можно создать документ MsWord только перезагрузив БД или, НЕ перезагрузив БД, если в коде сознательно сделать ошибку в самом конце кода, добавив строку, прирывающую выполнения кода например, когда появляется окно 'Object variable or with block variable not set' далее OK, Debug ( попадаем в редактирование кода ), закрываем код мой код заканчивается строками следующими строками: With app.ActiveDocument .Saved = True End With Set rng = Nothing Set tbl = Nothing Set app = Nothing app.Quit Err.Clear Exit Sub 999: MsgBox Err.Description 'Ошибка Err.Clear app.Quit End Sub Как я понял это распространненая проблема 'The remote server machine does not exist or is unavailable', но как ее разрешить эту проблему - не могу понять. Есть предложения по ее решению ? С уважением, Василий

передача данных в ворд

mouse72 — 2011-05-26T03:13:04Z

доброго времени суток. Тема избитая, но внятный ответ (для начинающего) я так и не нашёл. Имеется две таблицы (по несколько полей в каждой, одно из них числовое). С помощью запроса в одной из них подсчитывается сумма колонки. С помощью двух запросов (используются 2 запроса, чтобы не перемешивались строки) исходные таблицы сливаются в одну. На выходе получается одна новая таблица со всеми необходимыми для передачив ворд полями. В ворде имеется готовый шаблон для заполнения. Суть вопроса. Нужно перенести/передать все записи каждого из полей в соответствующие таблицы в ворде. Т.е. передать таблицу из акса в ворд как начинающего меня этот вопрос поставил в тупик

ФОРМАТИРОВАНИЕ СТОЛБЦОВ И СТРОК В ТАБЛИЦЕ MS WORD ПРИ ЕЕ СОСЗАДАНИИ

epsilon_group — 2011-04-28T13:26:03Z

В примере: http://market.leadersoft.ru/Product.aspx?ProductID=5055

Значение атрибута в XML...

Aleck_b — 2011-04-24T20:31:09Z

Здрасьте.
3
3

пересчет итогов

Умка6542 — 2011-03-28T19:25:33Z

Доброго всем времени суток!