в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:46Z

1 версия

Новая страница

==Export database==



<source lang="vb">

Sub docomd()
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\mydb.mdb", acTable, "employees", "employees"
End Sub
</source>

==Exporting to a Database==



<source lang="vb">

Sub trasferDB()
DoCmd.TransferDatabase acExport, "Microsoft Access", _
"C:\Sales.mdb", acTable, "tblSales", "IceCreamSales"
MsgBox "Sales data exported"
End Sub
</source>

==Import database==



<source lang="vb">

Sub transfer()
DoCmd.TransferDatabase acImport, "Microsoft Access", _
"C:\mydb.mdb", acTable, "tblI", "tblI"
End Sub
</source>

==Importing Spreadsheet Data Using Code==



<source lang="vb">

Sub ImportSpreadsheet()
DoCmd.TransferSpreadsheet _
TransferType:=acImport, _
SpreadsheetType:=acSpreadsheetTypeExcel12, _
TableName:="Employees", _
FileName:=CurrentProject.Path & "\Customer.Xls", _
HasFieldNames:=True
End Sub
</source>

==Importing Text Data Using Code==



<source lang="vb">

Sub ImportText()
DoCmd.TransferText _
TransferType:=acImportDelim, _
TableName:="Employees", _
FileName:=CurrentProject.Path & "\Customer.Txt"
End Sub
</source>

==transfer database acExport==



<source lang="vb">

Private Sub cmdSales_Click()
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Sales.mdb", acTable, "tblSales", "ISales"
End Sub
</source>

==Using the TransferDatabase Method==



<source lang="vb">

Sub ImportDatabase()
DoCmd.TransferDatabase _
TransferType:=acImport, _
DatabaseType:="dBASE III", _
DatabaseName:=CurrentProject.Path, _
ObjectType:=acTable, _
Source:="Employees", _
Destination:="tblCustomers", _
StructureOnly:=False
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Access/Database Transfer - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия