MS Access и DBF файлы

Товарищи!
Будьте добры помочь в таком вопросе.
Имеется база данных в dbf файлах. При чем организована так, что на каждый месяц имеется отдельная папка, где находятся база данных по месяцу.
Каким образом организовать подключение к отдельным dbf файлам в этой базе, чтобы можно было выбирать определенные месяцы.
Спасибо

0

глянь это Связь с dbf

0

Сообщение от CyberБурундукЪ глянь это Связь с dbf

спасибо, хотелось бы автоматизировать процесс подхвата dbf файла.

0

http://support.microsoft.com/kb/176568
правда там на буржуйском

Добавлено через 2 минуты
а вот еще на одном из форумов код нашел

0

Данный код создает в access новую таблицу Spisok?

А как реализовать такое:
1. окно с выбором определенных месяцев
2. в соответствии с выбранными месяцами из dbf создается одна таблица с информацией выбранных месяцев

0

Сообщение от loader А как реализовать такое: 1. окно с выбором определенных месяцев 2. в соответствии с выбранными месяцами из dbf создается одна таблица с информацией выбранных месяцев

а зачем?
подключил все из дбф, а потом запросами его, запросами

0

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

0

Сообщение от loader если таблица будет создаваться при старте

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

0

еще уточнение, как в коде прописать несколько путей к dbf и импорт все в одну таблицу. и как учесть что некоторых dbf еще нет

0

loader, тот код (в посте 4 который) вообще работает ?

0

ругается на строку
dbCurrent.TableDefs.Append tdTarget

0

а таблицу ты правильно задал? или просто один к одному скопипасдил?

0

Эта строка:
tdTarget.Connect = "ODBC;DSN=Visual FoxPro Database;SourceDB=D:\dbf\bases\base.DBC; SourceType=DBC;Exclusive=Yes;BackgroundF etch=Yes;Collate=Machine;Null=Yes;Delete d=Yes;;TABLE=Spisok"
Выглядит так
tdTarget.Connect = "ODBC;DSN=Microsoft dBase;SourceDB=j:\01\db1.dbf;SourceType= DBF;Exclusive=Yes;BackgroundFetch=Yes;Co llate=Machine;Null=Yes;Deleted=Yes;;TABL E=table1"

Как правильно написать DSN= и SourceType=

т.к. пишет "ODBC - ошибка подключения к Microsoft dBase"

0

аналогичная проблема заставила задуматься как обойти это.

придумал сделать подключение dbf как xlc:
1. из аксесса открывает файл dbf в экселе
2. в екселе сохраняем его как xls
3. подключаем полученный xls к аксессу
для пользователя это не заметно, все делает прога

0

Сообщение от _oleg__ ...придумал сделать...

Это просто похвальба или нужны отзвывы о проге?

0

примерно както так


'подключение dbf с преобразованием в xls
vfile = File_Dialog("", "dbf")
filem = Left(vfile, Len(vfile) - 3) + "xls"
Call OpenExcel(vfile, "dbf", filem)


'экспорт в dbf с преобразованием из xml
vpath = Save_Dialog(Nz(Me.bankfilesub.Form![namefile])) 'dbf
vidfile1 = Mid(vpath, 1, Len(vpath) - 3) + "xml"
vidfile2 = Mid(vpath, 1, Len(vpath) - 3) + "xsd"
ExportXML acExportTable, vidtable, vidfile1, vidfile2, , , acUTF8, acExcludePrimaryKeyAndIndexes
Call OpenExcel(vidfile1, "xml", vpath)






Public Function File_Dialog(MyPath As Variant, typ As Variant) As Variant
Dim MyDial As FileDialog
Set MyDial = Application.FileDialog(msoFileDialogOpen )
MyDial.AllowMultiSelect = False
MyDial.Filters.Clear
Select Case typ
Case "xls"
MyDial.Filters.Add "xls", "*.xls"
Case "xml"
MyDial.Filters.Add "xml", "*.xml"
Case "dbf"
MyDial.Filters.Add "dbf", "*.dbf"
End Select
If Len(Trim(Nz(MyPath))) > 0 Then
MyDial.InitialFileName = MyPath
End If
MyDial.Title = "Выбор файла для Link-таблицы"
MyDial.Show
If MyDial.SelectedItems.Count > 0 Then
File_Dialog = MyDial.SelectedItems(1)
Else
File_Dialog = Null
End If
Set MyDial = Nothing
End Function


Public Function Save_Dialog(MyPath As Variant) As Variant
Dim intChoice As Integer
Dim MyDial As FileDialog

Set MyDial = FileDialog(msoFileDialogSaveAs)
MyDial.AllowMultiSelect = False
If Len(Trim(Nz(MyPath))) > 0 Then
MyDial.InitialFileName = MyPath
End If
intChoice = MyDial.Show
If intChoice <> 0 Then
Save_Dialog = MyDial.SelectedItems(1)
End If
Set MyDial = Nothing
End Function

Function OpenExcel(vf As String, tip As String, filem As String)
Dim XLa, oWb As Object
Set XLa = CreateObject("EXCEL.application")

If tip = "dbf" Then
Set oWb = XLa.workbooks.Open(vf)
oWb.SaveAs filem, 43
End If
If tip = "xml" Then
'Constant Value
'xlXmlLoadImportToList 2
'xlXmlLoadMapXml 3
'xlXmlLoadOpenXml 1
'xlXmlLoadPromptUser 0
Set oWb = XLa.workbooks.OpenXML(vf, , 2)
'Constant Value
'xlDBF3 8
'xlExcel9795 43
'xlHtml 44
'xlIntlAddIn 26
'xlIntlMacro 25
'xlTemplate 17
'xlTextWindows 20
'xlUnicodeText 42
'xlWebArchive 45
oWb.SaveAs filem, 8
End If
If tip = "xls" Then
Set oWb = XLa.workbooks.Open(vf)
End If
XLa.Application.Visible = True
XLa.Application.DisplayAlerts = False
Set oWb = Nothing
Set XLa = Nothing
End Function

Добавлено через 5 минут
в подключение забыл добавить строку самого подключение т.е. правильно так:

'подключение dbf с преобразованием в xls
vfile = File_Dialog("", "dbf")
filem = Left(vfile, Len(vfile) - 3) + "xls"
Call OpenExcel(vfile, "dbf", filem)
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel8, vn, filem, True

Добавлено через 3 минуты
написано с использованием материалов форумов и VB help

0