rss sql ru access programming
rss_sql_ru_access_programming

 -

rss_sql_ru_access_programming

 - e-mail

 

 -

LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


-

, 26 2014 . 04:18 +
! - , - . (http://kladr.ws/zagruzka-microsoft-access)
/ ( ), - , . , "". ( ).
Dim strSQL

SysCmd acSysCmdInitMeter, " ...", 13 '  

SysCmd acSysCmdUpdateMeter, 0 ' 

On Error GoTo err_kod

SysCmd acSysCmdUpdateMeter, 1 ' 

'    KLADR
DoCmd.TransferDatabase acLink, "dBase III", Application.CurrentProject.Path, , "KLADR.DBF", "KLADR"

SysCmd acSysCmdUpdateMeter, 2 ' 
' 
CurrentDb.Execute "Delete * from ;"

SysCmd acSysCmdUpdateMeter, 3 ' 

strSQL = "INSERT INTO  (, , INDEX) SELECT clng(Left([KLADR]![code],2)) AS ,  [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS , KLADR.INDEX FROM KLADR WHERE (((Right([KLADR]![code],11))='00000000000'));"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 4 ' 
' 
CurrentDb.Execute "Delete * from ;"

SysCmd acSysCmdUpdateMeter, 5 ' 

strSQL = "INSERT INTO  (, , , INDEX) SELECT clng(Left([KLADR]![code],2)) AS ,  CLng(Mid([KLADR]![code],3,3)) AS , [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS , KLADR.INDEX FROM KLADR WHERE ((Mid([KLADR]![code],3,3)<>'000') AND (Right([code],8)='00000000'));"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 6 ' 

' 
CurrentDb.Execute "Delete * from ;"

SysCmd acSysCmdUpdateMeter, 7 ' 
'===============================================================
'ͨ
strSQL = "INSERT INTO  (, , , , INDEX) SELECT CLng(Left([KLADR]![code],2)) AS , CLng(Mid([KLADR]![code],3,3)) AS , CLng(Mid([KLADR]![code],6,3)) AS , [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS , KLADR.INDEX FROM KLADR WHERE (Mid([KLADR]![code],6,3)<>'000')  AND (Right([code],5)='00000'));"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 8 ' 

' ˨ 
CurrentDb.Execute "Delete * from ;"

SysCmd acSysCmdUpdateMeter, 9 ' 

' 
strSQL = "INSERT INTO  (, , , , , , INDEX) SELECT CLng(Left([KLADR]![code],2)) AS , CLng(Mid([KLADR]![code],3,3)) AS , CLng(Mid([KLADR]![code],6,3)) AS , CLng(Mid([KLADR]![code],9,3)) AS , [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS , KLADR.INDEX FROM KLADR WHERE (Mid([KLADR]![code],9,3)<>'000');"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 10 ' 

'===============================================================

'    KLADR
DoCmd.DeleteObject acTable, "KLADR"

SysCmd acSysCmdUpdateMeter, 11 ' 

'    STREET
DoCmd.TransferDatabase acLink, "dBase III", Application.CurrentProject.Path, , "STREET.DBF", "STREET"

SysCmd acSysCmdUpdateMeter, 12 ' 

' 
CurrentDb.Execute "Delete * from ;"

SysCmd acSysCmdUpdateMeter, 13 ' 

strSQL = "INSERT INTO  (, , , , , INDEX) SELECT CLng(Left([STREET]![code],2)) AS , CLng(Mid([STREET]![code],3,3)) AS , CLng(Mid([STREET]![code],6,6)) AS , CLng(Mid([STREET]![code],12,4)) AS , [STREET]![NAME] & ' ' & [STREET]![SOCR] AS , STREET.INDEX FROM STREET WHERE (Mid([STREET]![code],12,4)<>'0000')"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 14 ' 

'    STREET
DoCmd.DeleteObject acTable, "STREET"

SysCmd acSysCmdUpdateMeter, 15 ' 

SysCmd acSysCmdRemoveMeter

exit_sub:
Exit Sub

err_kod:
Debug.Print Err.Description

http://www.sql.ru/forum/1112559/zagruzka-kladr-a-vo-vnutrennie-tablicy


— — : [1] []
 

:
: 

: ( )

:

  URL