Тема диплома:

  • View
    51

  • Download
    0

Embed Size (px)

DESCRIPTION

. :. : 5 ( ) : ..., .. :. - PowerPoint PPT Presentation

Transcript

: : 5 ( ) : ..., ..

1 : , , . , .2 : ; , , .3 , . , 2518 28.02.2005 . . :- ;- ;

4

5 . , .

6 WIFI, 3G, GPS

. . .

Sub _____()Dim VREMOn Error GoTo Err_Download_table_base_ClickDoCmd.CopyObject , "__copy", acTable, "_DoCmd.DeleteObject acTable, "_".. DoCmd.TransferDatabase acImport, "Microsoft Access", "F:\Mitch\\\CURIER_be.mdb", acTable, "", "" DoCmd.TransferDatabase acImport, "Microsoft Access", "F:\Mitch\\\CURIER_be.mdb", acTable, "", "DoCmd.DeleteObject acTable, "__copy"DoCmd.DeleteObject acTable, "_copy"VREM = MsgBox(" . ", vbOKOnly, " ")Exit_Download_table_base_Click:Exit SubErr_Download_table_base_Click: MsgBox Err.Number MsgBox Err.Description VREM = MsgBox("! . .", vbOKOnly + vbCritical, " ") VREM = MsgBox(" .", vbOKOnly + vbCritical, " ") Resume Exit_Download_table_base_ClickEnd Sub

INSERT INTO ( , , , , , , , , , , , , , , , , , , , ) IN 'C:\Documents and Settings\\ \\\CURIER_be.mdb'SELECT ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., Now() AS FROM ;

INSERT INTO ( , , , , , , , , , , , , , , , , , , , ) IN 'c:\windows\system32\database.mdb'SELECT ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., ., Now() AS FROM ; !