将vb转换为c#时出错 [英] I got an error while converting vb to c#
问题描述
我从vb.net转换为c#.net
CONVERSION 错误: 代码 可以 不 已转换。 详细信息:
- line 1 col 9: 无效 NonModuleDeclaration
请 检查 任何 < 原始 代码 和 尝试 再次。
我没有那么多of在vb.net中的nowledge。请你更正代码。
我用这个链接从vb转换为c#
http://converter.telerik.com/ [ ^ ]
我的代码是
< pre lang =css> 私有 Sub UpSqlSvr()
20 屏幕。 MousePointer = vbHourglass
Dim SQL As String
昏暗 strConAccess As String
Dim con_Access As New ADODB 。连接
'accountdata 。 mdb
30 cmdBar 。标题 = 正在更新 accountdata .mdb
40 如果 不 con_Access Nothing 然后 设置 con_Access = Nothing
50 strConAccess = Provider = Microsoft。 Jet 。 OLEDB 。< span class =code-leadattribute> 4 .0;数据源=& Ph & accountdata .mdb;持久安全 Info = False
60 con_Access 。 ConnectionString = strConAccess
70 con_Access 。 Open
80 SQL = SELECT * INTO [ ODBC;驱动程序= SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[ClientAc] FROM [ClientAc]
90 con_Access 。执行 SQL
100 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[ClientBankAc ] FROM [ClientBankAc]
110 con_Access 。执行 SQL
120 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERV ER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GL] FROM [GL]
130 con_Access 。执行 SQL
140 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GL1] FROM [GL1]
150 con_Access 。执行 SQL
160 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser < span class =code-leadattribute>& ; PWD =& mPwd & ;]。[GLAGE] FROM [GLAGE]
170 con_Access 。执行 SQL
180 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1] FROM [GLAGE1]
190 con_Access 。执行 SQL
200 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1CR ] FROM [GLAGE1CR]
210 con_Access 。执行 SQL
220 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1DR] FROM [GLAGE1DR]
230 con_Access 。执行 SQL
240 SQL = SELECT * INTO [ODBC;驱动程序= SQL Server; SERVER =& mServer < span class =code-leadattribute>& ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGE1undo] FROM [GLAGE1undo]
250 con_Access 。执行 SQL
260 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLAGEtrsf] FROM [GLAGEtrsf]
270 con_Acce ss 。执行 SQL
280 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLbakGst] FROM [GlbakGst]
290 con_Access 。执行 SQL
300 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =< span class =code-leadattribute>& DataFile & ; UID = & mUser & ; PWD =& mPwd & ;]。[GLDEPT] FROM [GLDEPT]
310 con_Access 。执行 SQL
320 SQL = SELECT * INTO [ ODBC;驱动程序= SQL Server; SERVER =& mServer & ; DATABASE =& Dat aFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLDEPT2] FROM [GLDEPT2]
330 con_Access 。执行 SQL
340 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& < span class =code-leadattribute> mUser & ; PWD =& mPwd & ;]。[GLFIN] FROM [GLFIN]
350 con_Access 。执行 SQL
360 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& ; mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLHEAD] < span class =code-leadattribute> FROM [GLHEAD]
370 con_Access 。执行 SQL
380 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =< span class =code-leadattribute>& mUser & ; PWD = & mPwd & ; ]。[GLHEAD1] FROM [GLHEAD1]
390 con_Access 。执行 SQL
400 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[GLpro1] FROM [GLpro1] \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Ledger] FROM [Ledger]\"
410 con_Access 。执行 SQL
420 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[Gltmp] FROM [Gltmp ]
430 con_Access 。执行 SQL
440 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& ; mPwd & ;]。[GLundo] FROM [Glundo]
450 con_Access 。执行 SQL
460 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =< span class =code-leadattribute>& mPwd & ;]。 [GSTAC] FROM [GSTAC]
470 con_Access 。执行 SQL
480 SQL = SELECT * INTO [ODBC; Driver = SQL Server; SERVER = & mServer & ;数据库=& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[gstpro] FROM [gstpro]
490 con_Access 。执行 SQL
500 SQL = SELECT * INTO [ODBC ; Driver = SQL Server; SERVER =& mServer & ; DATABASE =& DataFile & ; UID =& mUser & ; PWD =& mPwd & ;]。[INFACE] FROM [INFACE]
510 con_Access 。执行 SQL
520 SQL = \"SELECT * INTO [ ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[JournalListing] FROM [JournalListing]\"
530 con_Access.Execute SQL
540 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[JournalType] FROM [JournalType]\"
550 con_Access.Execute SQL
560 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer &
570 con_Access.Execute SQL
580 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LedgerGstSales] FROM [LedgerGstSales]\"
590 con_Access.Execute SQL
600 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Password] FROM [Password]\"
610 con_Access.< span class=\"code-leadattribute\">Execute SQL
620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tbbak] FROM [tbbak]\"
630 con_Access.Execute SQL
640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tbbaksum] FROM [tbbaksum]\"
650 con_Access.Execute SQL
660 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TClisting] FROM [TClisting]\"
670 con_Access.Execute SQL
680 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TDlisting] FROM [TDlisting]\"
690 con_Access.Execute SQL
700 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[test] FROM [test]\"
710 con_Access.Execute SQL
720 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TOClisting] FROM [TOClisting]\"
730 con_Access.Execute SQL
740 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TODlisting] FROM [TODlisting]\"
750 con_Access.Execute SQL
760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TrialBalance] FROM [TrialBalance]\"
770 con_Access.Execute SQL
780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TrsfLedger] FROM [TrsfLedger]\"
790 con_Access.Execute SQL
800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Serve r;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Vcontrol] FROM [Vcontrol]\"
810 con_Access.Execute SQL
'AH.mdb
820 cmdBar.Caption = \"Updating AH.mdb\"
830 If Not con_Access Is Nothing Then Set con_Access = Nothing
840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AH.mdb;Persist Security Info=False\"
850 con_Access.ConnectionString = strConAccess
860 con_Access.Open
870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[ACTYPE] FROM [ACTYPE]\"
880 con_Access.Execute SQL
890 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AH] FROM [AH]\"
900 con_Access.Execute SQL
910 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GSTIF] FROM [GSTIF]\"
920 con_Access.Execute SQL
930 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GstLink] FROM [GstLink]\"
940 con_Access.Execute SQL
'AR.mdb
950 cmdBar.Caption = \"Updating AR.mdb\"
960 If Not con_Acc ess Is Nothing Then Set con_Access = Nothing
970 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"AR.mdb;Persist Security Info=False\"
980 con_Access .ConnectionString = strConAccess
990 con_Access.Open
1000 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AR] FROM [AR]\"
1010 con_Access.Execute SQL
1020 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[ARAPL] FROM [ARAPL]\"
1030 con_Access.Execute SQL
'ARTEMP.mdb
'AuditTrail.mdb
1040 cmdBar.Caption = \"Updating AuditTrail.mdb\"
1050 If Not con_Access Is Nothing Then Set con_Access = Nothing
1060 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Sou rce=\" & Ph & \"\AuditTrail.mdb;Persist Security Info=False\"
1070 con_Access.ConnectionString = strConAccess
1080 con_Access.Open
1090 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailBP] FROM [AuditTrailBP]\"
1100 con_Access.Execute SQL
1110 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailBR] FROM [AuditTrailBR]\"
1120 con_Access.Execute SQL
1130 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCS] FROM [AuditTrailCS]\"
1140 con_Access.Execute SQL
1150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailGL] FROM [AuditTrailGL]\"
1160 con_Access.Execute SQL
1170 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailGRN] FROM [AuditTrailGRN]\"
1180 con_Access.Execute SQL
1190 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailINV] FROM [AuditTrailINV]\"
1200 con_Access.Execute SQL
1210 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailPJ] FROM [AuditTrailPJ]\"
1220 con_Access.Execute SQL
1230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailSJ] FROM [AuditTrailSJ]\"
1240 con_Access.Execute SQL
1250 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & ; \";].[AuditTrailSTK] FROM [AuditTrailSTK]\"
1260 con_Access.Execute SQL
'AuditTrail2.mdb
1270 cmdBar.Caption = \"Updating AuditTrail2.mdb\"
1280 If Not con_Access Is Nothing Then Set con_Access = Nothing
1290 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AuditTrail2.mdb;Persist Security Info=False\"
1300 con_Access.ConnectionString = strConAccess
1310 con_Access.Open
1320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCNP] FROM [AuditTrailCNP]\"
1330 con_Access.Execute SQL
1340 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCNS] FROM [AuditTrailCNS]\"
1350 con_Access.Execute SQL
1360 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";D ATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailCO] FROM [AuditTrailCO]\"
1370 con_Access.Execute SQL
1380 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailDO] FROM [AuditTrailDO]\"
1390 con_Access.Execute SQL
1400 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailPO] FROM [AuditTrailPO]\"
1410 con_Access.Execute SQL
1420 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailPR] FROM [AuditTrailPR]\"
1430 con_Access.Execute SQL
1440 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & ; \";PWD=\" & mPwd & \";].[AuditTrailQUOT] FROM [AuditTrailQUOT]\"
1450 con_Access.Execute SQL
1460 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile < span class=\"code-leadattribute\">& \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailSR] FROM [AuditTrailSR]\"
1470 con_Access.Execute SQL
'AuditTrail3.mdb
1480 cmdBar.Caption = \"Updating AuditTrail3.mdb\"
1490 If Not con_Access Is Nothing Then Set con_Access = Nothing
1500 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AuditTrail3.mdb;Persist Security Info=False\"
1510 con_Access.ConnectionString = strConAccess
1520 con_Access.Open
1530 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailDNP] FROM [AuditTrailDNP]\"
1540 con_Access.Execute SQL
1550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER= \" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailDNS] FROM [AuditTrailDNS]\"
1560 con_Access.Execute SQL
'AuditTrailAF.mdb
1570 cmdBar.Caption = \"Updating AuditTrailIAF.mdb\"
1580 If Not con_Access Is Nothing Then Set con_Access = Nothing
1590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\AuditTrailIAF.mdb;Persist Security Info=False\"
1600 con_Access.ConnectionString = strConAccess
1610 con_Access.Open
1620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailIAF] FROM [AuditTrailIAF]\"
1630 con_Access.Execute SQL
1640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailIAFap] FROM [AuditTrailIAFap]\"
1650 con_Access.Execute SQL
1660 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[AuditTrailIAFar] FROM [AuditTrailIAFar]\"
1670 con_Access.Execute SQL
'BANKAC.mdb
1680 cmdBar.Caption = \"Updating BANKAC.mdb\"
1690 If Not con_Access Is Not hing Then Set con_Access = Nothing
1700 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BANKAC.mdb;Persist Security Info=False\"
1710 con_Access.ConnectionString = strConAccess
1720 con_Access.Open
1730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BANKAC] FROM [BANKAC]\"
1740 con_Access.Execute SQL
'BILLOFCOMPONENT.mdb
1750 cmdBar.Caption = \"Updating BILLOFCOMPONENT.mdb\"
1760 If Not con_Access Is Nothing Then Set con_Access = Nothing
1770 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BILLOFCOMPONENT.mdb;Persist Security Info=False\"
1780 con_Access.ConnectionStr ing = strConAccess
1790 con_Access.Open
1800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &am p; \";PWD=\" & mPwd & \";].[BILLOFCOMPONENT] FROM [BILLOFCOMPONENT]\"
1810 con_Access.Execute SQL
'BILLOFMATERIAL.mdb
1820 cmdBar.Caption = \"Updating BILLOFMATERIAL.mdb\"
1830 If No t con_Access Is Nothing Then Set con_Access = Nothing
1840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BILLOFMATERIAL.mdb;Persist Security Info=False\"
1850 con_Access.ConnectionString = strConAccess
1860 con_Access.Open
1870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & < span class=\"code-leadattribute\">mUser & \";PWD=\" & mPwd & \";].[BILLOFMATERIAL] FROM [BILLOFMATERIAL]\"
1880 con_Access.Execute SQL
'Br.mdb
1890 cmdBar.Caption = \"Updating BR.mdb\"
1900 If Not con_Access Is Nothing Then Set con_Access = Nothing
1910 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Br.mdb;Persist Security Info=False\"
1920 con_Access.ConnectionString = strConAccess
1930 con_Access.Open
1940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID= \" & mUser & \";PWD=\" & mPwd & \";].[BR] FROM [BR]\"
1950 con_Access.Execute SQL
1960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BRDATEHEADER] FROM [BRDATEHEADER]\"
1970 con_Access.Execute SQL
1980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BRos] FROM [BRos]\"
1990 con_Access.Execute SQL
'BRAND.mdb
2000 cmdBar.Caption = \"Updating BRAND.mdb\"
2010 If Not con_Access Is Nothing Then Set con_Access = Nothing
2020 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\BRAND.mdb;Persist Security Info=False\"
2030 con_Access.ConnectionString = strConAccess
2040 con_Access.Open
2050 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BRAND] FROM [BRAND]\"
2060 con_Access.Execute SQL
2070 < span class=\"code-leadattribute\">SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MODEL] FROM [MODEL]\"
2080 con _Access.Execute SQL
'Budget.mdb
2090 cmdBar.Caption = \"Updating BUDGET.mdb\"
2100 If Not con_Access Is Nothing Then Set con_Access = Nothing
2110 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Budget.mdb;Persist Security Info=False\"
2120 con_Access.ConnectionString = strConAccess
2130 con_Access.Open
2140 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[Budget] FROM [Budget]\"
2150 con_Access.Execute SQL
'CASHBILL.mdb
2160 cmdBar.Caption = \"Updating CASHBILL.mdb\"
2170 If Not con_Access Is Nothing Then Set con_Access = Nothing
2180 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CASHBILL.mdb;Persist Security Info=False\"
2190 con_Access.ConnectionString = strConAccess
2200 con_Access.Open
2210 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbINVOICE] FROM [INVOICE]\"
2230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbINVOICEDETAILS] FROM [INVOICEDETAILS]\"
2240 con_Access.Execute SQL
'CASHBILLtmp.mdb
2250 cmdBar.Caption = \"Updating CASHBILLTEMP.mdb\"
2260 If Not con_Access
2270 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CASHBILLtmp.mdb;Persist Security Info=False\"
2280 con_Access.ConnectionString = strConAccess
2290 con_Access.Open
2300 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbtINVOICE] FROM [INVOICE]\"
2310 con_Access.Execute SQL
2320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataF ile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbtINVOICEDETAILS] FROM [INVOICEDETAILS]\"
2330 con_Access.Execute SQL
'CATEGORY.mdb
2340 cmdBar.Caption = \"Updating CATEGORY.mdb\"
2350 If Not con_Access Is Nothing Then Set con_Access = Nothing
2360 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CATEGORY.mdb;Persist Security Info=False\"
2370 con_Access.ConnectionString = strConAccess
2380 con_Access.Open
2390 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CATEGORY] FROM [CATEGORY]\"
2400 con_Access.Execute SQL
'CATEGORYSUPER.mdb
2410 cmdBar.Caption = < span class=\"code-leadattribute\">\"Updating CATEGORYSUPER.mdb\"
2420 If Not con_Access Is Nothing Then Set con_Access = Nothing
2430 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CATEGORYSUPER.mdb;Persist Security Info=False\"
2440 con_Access.ConnectionString = strConAccess
2450 con_Access.Open
2460 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CATEGORY1] FROM [CATEGORY1]\"
2470 con_Access.Execute SQL
2480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CATEGORY2] FROM [CATEGORY2]\"
2490 con_Access.Execute SQL
'Cbws.< span class=\"code-leadattribute\">mdb
2500 cmdBar.Caption = \"Updating Cbws.mdb\"
2510 If Not con_Access Is Nothing Then Set con_Access = Nothing
2520 strConAccess = \" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Cbws.mdb;Persist Security Info=False\"
2530 con_Access.ConnectionString = strConAccess
2540 con_Access.Open
2550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbwINVOICE] FROM [INVOICE]\"
2560 con_Access.Execute SQL
2570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cbwINVOICEDETAILS] FROM [INVOICEDETAILS]\"
258 0 con_Access.Execute SQL
'CN.mdb
2590 cmdBar.Caption = \"Updating CN.mdb\"
2600 If Not con_Access Is Nothing Then Set con_Access = Nothing
2610 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CN.mdb;Persist Security Info=False\"
2620 con_Access.ConnectionString = strConAccess
2630 con_Access.Open
2640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CN] FROM [CN]\"
2650 con_Access.Execute SQL
'COLOR.mdb
2660 cmdBar.Caption = \"Updating COLOUR.mdb\"
2670 If Not con_Access Is Nothing Then Set con_Acc ess = Nothing
2680 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\COLOR.mdb;Persist Security Info=False\"
2690 con_Access.ConnectionString = strConAccess
2700 con_Access
2710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[COLOR] FROM [COLOR]\"
2720 con_Access.Execute SQL
2730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SIZE] FROM [SIZE]\"
2740 con_Access.Execute SQL
'comment.mdb
2750 cmdBar.Caption = \"Updating comment.mdb\"
2760 If Not con_Access Is Nothing Then Set con_Access = Nothing
2770 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\comment.mdb;Persist Security Info=False\"
2780 con_Access.ConnectionSt ring = strConAccess
2790 con_Access.Open
2800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &a mp; \";PWD=\" & mPwd & \";].[comment] FROM [comment]\"
2810 con_Access.Execute SQL
'CONSGSTOCK.mdb
2820 cmdBar.Caption = \"Updating CONSGSTOCK.mdb\"
2830 If Not con_Access Is Nothing Then Set con_Access = Nothing
2840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CONSGSTOCK.mdb;Persist Security Info=False\"
2850 con_Access .ConnectionString = strConAccess
2860 con_Access.Open
2870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CONSGSTOCK] FROM [CONSGSTOCK]\"
2880 con_Access.Execute SQL
'CusLibLabel.mdb
2890 cmdBar.Caption = \"Updating CusLibLabel.mdb\"
2900 If Not con_Access Is Nothing Then Set con_Access = Nothing
2910 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CusLibLabel.mdb;Persist Security Info=False\"
2920 con_Access.ConnectionString = strConAccess
2930 con_Access.Open
2940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[cusLabel] FROM [Label]\"
2950 con_Access.Execute SQL
'CustomerContact.mdb
2960 cmdBar.Caption = \"Updating CustomerContact.mdb\"
2970 If Not con_Access Is Nothing Then Set con_Access = Nothing
2980 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CustomerContact.mdb;Persist Security Info=False\"
2990 con_Access.ConnectionString = strConAccess
3000 con_Access.Open
3010 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CustomerContact] FROM [CustomerContact]\"
3020 con_Access.Execute SQL
'CustomerGROUP.mdb
3030 cmdBar.Caption = \"Updating CustomerGROUP.mdb\"
3040 If Not con_Access Is Nothing Then Set con_Access = Nothing
3050 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CustomerGROUP.mdb;Persist Security Info=False\"
3060 con_Access.ConnectionString = strConAccess
3070 con_Access.Open
3080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CustomerGroup] FROM [CustomerGroup]\"
3090 con_Access.Execute SQL
'CUSTOMERPRICE.mdb
3100 cmdBar.Caption = \"Updating CUSTOMERPRICE.mdb\"
3110 If Not con_Access Is Nothing Then Set con_Access = Nothing
3120 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\CUSTOMERPRICE.mdb;Persist Security Info=False\"
3130 con_Access.ConnectionString = strConAccess
3140 con_Access.Open
3150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer < span class=\"code-leadattribute\">& \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CUSTOMERPRICE] FROM [CUSTOMERPRICE]\"
3160 con_Access.Execute SQL
'DBGRID.mdb
3170 cmdBar.Caption = \"Updating DBGRID.mdb\"
3180 If Not con_Access Is Nothing Then Set con_Access = Nothing
3190 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\" & Ph & \"\DBGRID.mdb;Persist Security Info=False\"
3200 con_Access.ConnectionString = strConAccess
3210 con_Access.Open
3220 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[DBGRID] FROM [DBGRID]\"
3230 con_Access.Execute SQL
'DN.mdb
3240 cmdBar.Caption = \"Updating DN.mdb\"
3250 If Not con_Access Is Nothing Then Set con_Access = Nothing
3260 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DN.mdb;Persist Security Info=False\"
3270 con_Access.ConnectionString = strConAccess
3280 con_Access.Open
3290 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[DN] FROM [DN]\"
3300 con_Access.Execute SQL
'DO.mdb
3310 cmdBar.Caption = \"Updating DO.mdb\"
3320 If Not con_Access Is Nothing Then Set con_Access = Nothing
3330 strConAccess = \"Provider=Microsoft.Jet.O LEDB.4.0;Data Source=\" & Ph & \"\DO.mdb;Persist Security Info=False\"
3340 con_Access.ConnectionString = strConAccess
3350 con_Access.Open
3360 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server ;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doINVOICE] FROM [DO]\"
3370 con_Access.Execute SQL
3380 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doINVOICEDETAILS] FROM [DODETAILS]\"
3390 con_Access.Exec ute SQL
3400 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doFILLEDITEMS] FROM [FILLEDITEMS]\"
3410 con_Access.Execute SQL
'DocNo.mdb
3420 cmdBar.Caption = \"Updating DocNo.mdb\"
3430 If Not con_Access Is Nothing Then Set con_Access = Nothing
3440 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DocNo.mdb;Persist Security Info=False\"
3450 con_Access.ConnectionString = strConAccess
3460 con_Access.Open
3470 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noBillRec] FROM [BillRec]\"
3480 con_Access.Execute SQL
3490 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCaSaNo] FROM [CaSaNo]\"
3500 con_Access.Execute SQL
3510 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCO] FROM [CO]\"
3520 con_Access.Execute SQL
3530 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCreditNotePur] FROM [CreditNotePur]\"
3540 con_Access.Execute SQL
3550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCreditNoteSale] FROM [CreditNoteSale]\"
3560 con_Access.Execute SQL
3570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noCrSaNo] FROM [CrSaNo]\"
3580 con_Access.Execute SQL
3590 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noDebitNotePur] FROM [DebitNotePur]\"
3600 con_Access.Execute SQL
3610 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noDebitNoteSale] FROM [DebitNoteSale]\"
3620 con_Access.Execute SQL
3630 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noDO] FROM [DO]\"
3640 con_Access.Execute SQL
3650 SQL = \"SELECT * INTO [ODBC;Dr iver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJCash] FROM [GJCash]\"
3660 con_Access.Execute SQL
3670 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJno] FROM [GJno]\"
3680 con_Access.E xecute SQL
3690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJPurchase] FROM [GJPurchase]\"
3700 con_Access.Execute SQL
3710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noGJsales] FROM [GJsales]\"
3720 con_Access.Execute SQL
3730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noIssue] FROM [Issue]\"
3740 con_Access.Execute SQL
3750 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noPayBill] FROM [PayBill]\"
3760 con_Access.Execute SQL
3770 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noPurchaseReturn] FROM [PurchaseReturn]\"
3780 con_Access.Execute SQL
3790 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noPurno] FROM [Purno]\"
3800 con_Access.Execute SQL
3810 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noQUO] FROM [QUO]\"
3820 con_Access.Execute SQL
3830 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noSalesReturn] FROM [SalesReturn]\"
3840 con_Access.Execute SQL
'DOCNUMBER.mdb 'using rstockno (table)
3850 cmdBar.Caption = \"Updating DOCNUMBER.mdb\"
3870 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DOCNUMBER.mdb;Persist Security Info=False\"
3880 con_Access.ConnectionString = strConAccess
3890 con_Access.Open
3900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rstockno] FROM [rstockno]\"
3910 con_Access.Execute SQL
'DoLabel.mdb
3920 cmdBar.Caption = \"Updating DoLabel.mdb\"
3930 If Not con_Access Is Nothing Then Set con_Access = Nothing
3940 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DoLabel.mdb;Persist Security Info=False\"
3950 con_Access.ConnectionString = strConAccess
3960 con_Access.Open
3970 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[doLabel] FROM [Label]\"
3980 con_Access.Execute SQL
'DOLLAR.mdb
3990 cmdBar.Caption = \"Updating DOLLAR.mdb\"
4000 If Not con_Access Is Nothing Then Set con_Access = Nothing
4010 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\DOLLAR.mdb;Persist Security Info=False\"
4020 con_Access.ConnectionString = strConAccess
4030 con_Access.Open
4040 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DAT ABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CURRENCY] FROM [CURRENCY]\"
4050 con_Access.Execute SQL
4060 SQL = \"SELECT * INTO [ ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[DOLLAR] FROM [DOLLAR]\"
4070 con_Access.Execute SQL
'EXCHANGERATE.mdb
4080 cmdBar.Caption = \"Updating EXCHANGERATE.mdb\"
4090 If Not con_Access Is Nothing Then Set con_Access = Nothing
4100 strConAccess = \"Provider=Microsoft.
4110 con_Access.ConnectionString = strConAccess
4120 con_Access.Open
4130 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[EXCHANGERATE] FROM [EXCHANGERATE]\"
4140 con_Access.Execute SQL
'EXCHANGERATEmthly.mdb
4150 cmdBar.Caption = \"Updating EXCHANGERATEmthly.mdb\"
4160 If Not con_Access Is Nothing Then Set con_Access = Nothing
4170 strCon Access = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\EXCHANGERATEmthly.mdb;Persist Security Info=False\"
4180 con_Access.ConnectionString = strConAccess
4190 con_Access.Open
4200 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[EXCHANGERATEmthly] FROM [EXCHANGERATEmthly]\"
4210 con_Access.Ex ecute SQL
'GLFIN.mdb
4220 cmdBar.Caption = \"Updating GLFIN.mdb\"
4230 If Not con_Access Is Nothing Then Set con_Access = Nothing
4240 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLFIN.mdb;Persist Security Info=False\"
4250 con_Access.ConnectionString = strConAccess
4260 con_Access.Open
4270 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLFIN1] FROM [GLFIN]\"
4280 con_Access. Execute SQL
'GLFIN2.mdb
4290 cmdBar.Caption = \"Updating GLFIN2.mdb\"
4300 If Not con_Access Is Nothing Then Set con_Access = No thing
4310 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLFIN2.mdb;Persist Security Info=False\"
4320 con_Access.ConnectionString = strConAccess
4330 con_Access.Open
4340 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLFIN2] FROM [GLFIN]\"
4350 con_Access.Execute SQL
'GLFIN12.mdb
4360 cmdBar.Caption = \"Updating GLFIN12.mdb\"
4370 If Not con_Access Is Nothing Then Set con_Access = Nothing
4380 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLFIN12.mdb;Persist Security Info=False\"
4390 con_Access.ConnectionString = strConAccess
4400 con_Access.Open
4410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLFIN12] FROM [GLFIN12]\"
4420 con_Access.Execute SQL
'GLUNDO.mdb
4430 cmdBar.Caption = \"Updating GLUNDO.mdb\"
4440 If Not con_Access Is Nothing Then Set con_Access = Nothing
4450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GLUNDO.mdb;Persist Security Info=False\"
4460 con_Access.ConnectionString = strConAccess
4470 con_Access.< span class=\"code-leadattribute\">Open
4480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLHEADUNDO] FROM [GLHEADUNDO]\"
4490 con_Access.Execute SQL
4500 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLUNDO2] FROM [GLUNDO]\"
4510 con_Access.Execute SQL
'Graded.mdb
4520 cmdBar.Caption = \"Updating Graded.mdb\"
4530 If Not con_Access Is Nothing Then Set con_Access = Nothing
4540 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Graded.mdb;Persist Security Info=False\"
4550 con_Access.Conne ctionString = strConAccess
4560 con_Access.Open
4570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GradedDETAILS] FROM [GradedDETAILS]\"
4580 con_Access.Execute SQL
'GradedGP.mdb
4590 cmdBar.Caption = \"Updating GradedGP.mdb\"
4600 If Not con_Access Is Nothing Then Set con_Access = Nothing
4610 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GradedGP.mdb;Persist Security Info=False\"
4620 con_Access.ConnectionString = strConAccess
4630 con_Access.Open
4640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GradedGP] FROM [GradedGP]\"
4650 con_Access.Execute SQL
'grn.mdb
4660 cmdBar.Caption = \"Updating GRN.mdb\"
4670 If
4680 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\grn.mdb;Persist Security Info=False\"
4690 con_Access.ConnectionString = strConAccess
4700 con_Access.Open
4710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnFILLEDITEMS] FROM [FILLEDITEMS]\"
4720 con_Access.Execute SQL
4730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";D ATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnINVOICE] FROM [INVOICE]\"
4740 con_Access.Execute SQL
4750 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnINVOICEDETAILS] FROM [INVOICEDETAILS]\"
4760 con_Access.Execute SQL
'GRNHANDPHONE.mdb
4770 cmdBar.Caption = \"Updating GRNHANDPHONE.mdb\"
4780 If Not con_Access Is Nothing Then Set con_Access = Nothing
4790 strConAccess = \"Pr ovider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GRNHANDPHONE.mdb;Persist Security Info=False\"
4800 con_Access.ConnectionString = strConAccess
4810 con_Access.Open
4820 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GRNHEADER] FROM [GRNHEADER]\"
4830 con_Access.Execute SQL
4840 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GRNITEMS] FROM [GRNITEMS]\"
4850 con_Access.Execute SQL
'GrnLabel.mdb
4860 cmdBar.Caption = \"Updating GrnLabel.mdb\"
4870 If Not con_Access Is Nothing Then Set con_Access = Nothing
4880 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\GrnLabel.mdb;Persist Security Info=False\"
4890 con_Access.ConnectionString = strConAccess
4900 con_Access.Open
4910 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnLabel] FROM [Label]\" $b$ b 4920 con_Access.Execute SQL
'Grnws.mdb
4930 cmdBar.Caption = \"Updating Grnws.mdb\"
4940 If Not con_Access Is Nothing Then Set con_Access = Nothing
4950 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Grnws.mdb;Persist Security Info=False\"
4960 con_Access.ConnectionString = strConAccess
4970 con_Access.Open
4980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[grnwFILLEDITEMS] FROM [FILLEDITEMS]\"
4990 con_Access.Execute SQL
5000 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &am p; \";PWD=\" & mPwd & \";].[grnwINVOICE] FROM [INVOICE]\"
5010 con_Access.Execute SQL
' sql =\"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & sDataSource & \";DATABASE=inventory;].[grnwINVOICEDETAILS] FROM [INVOCIEDETAILS]\"
' con_Access.Execute Sql
'IMEI.mdb
5020 cmdBar.Caption = \"Updating IMEI.mdb\"
5030 If Not con_Access Is Nothing Then Set con_Access = Nothing
5040 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\IMEI.mdb;Persist Security Info=False\"
5050 con_Access.ConnectionString = strConAccess
5060 con_Access.Open
5070 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[IMEI] FROM [IMEI]\"
5080 con_Access.Execute SQL
'InvLabel.mdb
5090 cmdBar.Caption = \"Updating InvLabel.mdb\"
5100 If Not con_Access Is Nothing Then Set con_Access = Nothing
5110 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\InvLabel.mdb;Persist Security Info=False\"
5120 con_Access.ConnectionString = strConAccess
5130 con_Access.Open
5140 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invLabel] FROM [Label ]\"
5150 con_Access.Execute SQL
'INVOICE.mdb
5160 cmdBar.Caption = \"Updating INVOICE.mdb\"
5170 If Not con_Access Is Nothing Then Set con_Access = Nothing
5180 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\INVOICE.mdb;Persist Security Info=False\"
5190 con_Access.ConnectionString = strConAccess
5200 con_Access.Open
5210 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invINVOICE] FROM [INVOICE]\"
5220 con_Access.Execute SQL
5230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser &am p; \";PWD=\" & mPwd & \";].[invINVOICEDETAILS] FROM [INVOICEDETAILS]\"
5240 con_Access.Execute SQL
'INVTEMP.mdb
5250 cmdBar.Caption = \"Updating INVTEMP.mdb\"
5260 If Not
5270 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\INVTEMP.mdb;Persist Security Info=False\"
5280 con _Access.ConnectionString = strConAccess
5290 con_Access.Open
5300 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invtINVOICE] FROM [INVOICE]\"
5310 con_Access.Execute SQL
5320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & ; DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[invtINVOICEDETAILS] FROM [INVOICEDETAILS]\"
5330 con_Access.Execute SQL
'invws.mdb
'Issue.mdb
5340 cmdBar.Caption = \"Updating Issue.mdb\"
5350 If Not con_Access Is Nothing Then Set con_Access = Nothing
5360 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\Issue.mdb;Persist Security Info=False\"
5370 con_Access.ConnectionString = strConAccess
5380 con_Access.Open
5390 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[isINVOICE] FROM [INVOICE]\"
5400 con_Access.Execute SQL
5410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[isINVOICEDETAILS] FROM [INVOICEDETAILS]\"
5420 con_Access.Execute SQL
'LabelBS.mdb
5430 cmdBar.Caption = \"Updating LabelBS.mdb\"
5440 If Not con_Access Is Nothing Then Set con_Access = Nothing
5450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LabelBS.mdb;Persist Security Info=False\"
5460 con_Access.ConnectionString = strConAccess
5470 con_Access.Open
5480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LabelBS] FROM [LabelBS]\"
5490 con_Access.Execute SQL
'LabelPL.mdb
5500 cmdBar.Caption = \"Updating LabelPL.mdb\"
5510 If Not con_Access Is Nothing Then Set con_Access = Nothing
5520 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LabelPL.mdb;Persist Security Info=False\"
5530 con_Access.ConnectionString = strConAccess
5540 con_Access.Open
5550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LabelPL] FROM [LabelPL]\"
5560 con_Access.Execute SQL
'lic.mdb
5570 cmdBar.Caption = \"Updating lic.mdb\"
5580 If Not con_Access Is Nothing Then Set con_Access = Nothing
5590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\lic.mdb;Persist Security Info=False\"
5600 con_Access.ConnectionString = strConAccess
5610 con_Access.Open
5620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lic] FROM [lic]\"
5630 con_Access.Execute SQL
'lock.mdb
5640 cmdBar.Caption = \"Updating LOCK.mdb\"
5650 If Not con_Access Is Nothing Then Set con_Access = Nothing
5660 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\lock.mdb;Persist Security Info=False\"
5670 con_Access.ConnectionString = strConAccess
5680 con_Access.O pen
5690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[LOCK] FROM [LOCK]\"
5700 con_Access.Execute SQL
'LPPRICE.mdb
5710 cmdBar.Caption = \"Updating LPPRICE.mdb\"
5720 If Not con_Access Is Nothing Then Set con_Acces s = Nothing
5730 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LPPRICE.mdb;Persist Security Info=False\"
5740 con_Access.ConnectionString = strConAccess
5750 con_Access.Open
5760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lpCUSTOMER] FRO M [CUSTOMER]\"
5770 con_Access.Execute SQL
5780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lpPRICE] FROM [LPPRICE]\"
5790 con_Access.Execute SQL
'LSPRICE.mdb
5800 cmdBar.Caption = \"Updating LSPRICE.mdb\"
5810 If Not con_Access Is Nothing Then Set con_Access = Nothing
5820 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\LSPRICE.mdb;Persist Security Info=False\"
5830 con_Access.ConnectionString = strConAccess
5840 con_Access.Open
5850 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lsCUSTOMER] FROM [CUSTOMER]\"
5860 con_Access.Execute SQL
5870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & Data File & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[lsPRICE] FROM [LSPRICE]\"
5880 con_Access.Execute SQL
'MP.mdb
5890 cmdBar.Caption = \"Updating MP.mdb\"
5900 If Not con_Access Is Nothing Then Set con_Access = Nothing
5910 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\MP.md b;Persist Security Info=False\"
5920 con_Access.ConnectionString = strConAccess
5930 con_Access.Open
5940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MP] FROM [MP]\"
5950 con_Access.Execute SQL
5960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MPITEMS] FROM [MPITEMS]\"
5970 con_Access.Execute SQL
'MTHPYT.mdb
5980 cmdBar.Caption = \"Updating MTHYT.mdb\"
5990 If Not con_Access Is Nothing Then Set con_Access = Nothing
6000 strConAccess = \"Provider=Microsoft.Jet.OLEDB.
6010 con_Access.ConnectionString = strConAccess
6020 con_Access.Open
6030 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[mthpytGLAGE] FROM [GLAGE]\"
6040 con_Access.Execute SQL
6050 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[mthpytGLAGETRSF] FROM [GLAGETRSF]\"
6060 con_Access.Execute SQL
6070 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[MTHPYT] FROM [MTHPYT]\"
6080 con_Access.Execute SQL
6090 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[OPENINGBAL] FROM [OPENINGBAL]\"
6100 con_Access.Execute SQL
'PAYMENT.mdb
6110 cmdBar.Caption = \"Updating PAYMENT.mdb\"
6120 If Not con_Access Is Nothing Then Set con_Access = Nothing
6130 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PAYMENT.mdb;Persist Security Info=False\"
6140 con_Access.ConnectionString = strConAccess
6150 con_Access.Open
6160 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PAYMENT] FROM [PAYMENT]\"
6170 con_Access.Execute SQL
'PICKUP.mdb
'PLANT.mdb
6180 cmdBar.Caption = \"Updating PLANT.mdb\"
6190 If Not con_Access Is Nothing Then Set con_Access = Nothing
6200 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PLANT.mdb;Persist Security Info=False\"
6210 con_Access.ConnectionString = strConAccess
6220 con_Access.Open
6230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PLANT] FROM [PLANT]\"
6240 con_Access.Execute SQL
'PO.mdb
6250 cmdBar.Caption = \"Updating PO.mdb\"
6270 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PO.mdb;Persist Security Info=False\"
6280 con_Access.ConnectionString = strConAccess
6290 con_Access.Open
6300 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataF ile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poFILLEDITEMS] FROM [FILLEDITEMS]\"
6310 con_Access.Execute SQL
6320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poINVOICE] FROM [INVOICE]\"
6330 con_Access.Execute SQL
6340 SQL = \"SELEC T * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poINVOICEDETAILS] FROM [INVOICEDETAILS]\"
6350 con_Access.Execute SQL
'PoLabel.mdb
6360 cmdBar.Caption = \"Updating POLABEL.mdb\"
6370 If Not con_Access Is Nothing Then Set con_Access = Nothing
6380 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PoLabel.mdb;Persist Security Info=False\"
6390 con_Access.ConnectionString = strConAccess
6400 con_Access.Open
6410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[poLabel] FROM [Label]\"
6420 con_Access.Execute SQL
'POSTING.mdb
6430 cmdBar.Caption = \"Updating POSTING.mdb\"
6440 If Not con_Access Is Nothing Then Set con_Access = Nothing
6450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\POSTING.mdb;Persist Security Info=False\"
6460 con_Access.ConnectionString = strConAccess
6470 con_Access.Open
6480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[POSTING] FROM [POSTING]\"
6490 con_Access.
'PRICE.mdb
6500 cmdBar.Caption = \"Updating PRICE.mdb\"
6510 If Not con_Access Is Nothing Then Set con_Access = N othing
6520 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PRICE.mdb;Persist Security Info=False\"
6530 con_Access.ConnectionString = strConAccess
6540 con_Access.Open
6550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PRICE] FROM [PRICE]\"
6560 con_Access.Execute SQL
'PRICELAST.mdb
6570 cmdBar.Caption = \"Updating PRICELAST.mdb\"
6580 If Not con_Access Is Nothing Then Set con_Access = Nothing
6590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PRICELAST.mdb;Persist Security Info=False\"
6600 con_Access.ConnectionString = strConAccess
6610 con_Access.Open
6620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[laPRICE] FROM [PRICE]\"
6630 con_Access.Execute SQL
'PRICELIST.mdb
6640 cmdBar.Caption = \"Updating PRICELIST.mdb\"
6650 If Not con_Access Is Nothing Then Set con_ Access = Nothing
6660 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PRICELIST.mdb;Persist Security Info=False\"
6670 con_Access.ConnectionString = strConAccess
6680 con_Acc ess.Open
6690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PRICELIST] FROM [PRICELIST]\"
6700 con_Access.Execute SQL
'PROBATCH.mdb
6710 cmdBar.Caption = \"Updating PROBATCH.mdb\"
6720 If Not con_Access Is Nothing Then Set con_Access = Nothing
6730 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PROBATCH.mdb;Persist Security Info=False\"
6740 con_Access.ConnectionString = strConAccess
6750 con_Access.Open
6760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PROBATCH] FROM [PROBATCH]\"
6770 con_Access.Execute SQL
'product.mdb
6780 cmdBar.Caption = \"Updating PRODUCT.mdb\"
6790 If Not con_Access Is Nothing Then Set con_Access = Nothing
6800 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\product.mdb;Persist Security Info=False\"
6810 con_Access.ConnectionString = strConAccess
6820 con_Access.Open
6830 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PRODUCT] FROM [PRODUCT]\"
6840 con_Access.Execute SQL
'PS.mdb
6850 cmdBar.Caption = \"Updating PS.mdb\"
6860 If Not con_Access Is Nothing Then Set con_Access = Nothing
6870 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PS.mdb;Persist Security Info=False\"
6880 con_Access.ConnectionString = strConAccess
6890 con_Access.Open
6900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[PS] FROM [PS]\"
6910 con_Access.Execute SQL
6920 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & ; mUser & \";PWD=\" & mPwd & \";].[PSDESC] FROM [PSDESC]\"
6930 con_Access.Execute SQL
'PURCHASESRETURN.mdb
6940 cmdBar.Caption = \"Updating PURCHASESRETURN.mdb\"
6950 If Not con_Access Is Nothing Then Set con_Access = Nothing
6960 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\PURCHASESRETURN.mdb;Persist Security I nfo=False\"
6970 con_Access.ConnectionString = strConAccess
6980 con_Access.Open
6990 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[prINVOICE] FROM [INVOICE]\"
7000 con_Access.Execute SQL
7010 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[prINVOICEDETAILS] FROM [INVOICEDETAILS]\"
7020 con_Access.Execute SQL
'QuLabel.mdb
7030 cmdBar .Caption = \"Updating QuLabel.mdb\"
7040 If Not con_Access Is Nothing Then Set con_Access = Nothing
7050 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\QuLabel.mdb;Persist Security Info=False\"
7060 con_Access.ConnectionString = strConAccess
7070 con_Access.Open
7080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quLabel] FROM [Label]\"
7090 con_Access.Execute SQL
'QUOT.mdb
7100 cmdBar.Caption = \"Updating QUOT.mdb\"
7110 If Not con_Access Is Nothing Then Set con_Access = Nothing
7120 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\QUOT.mdb;Persist Security Info=False\"
7130 con_Access.ConnectionString = strConAccess
7140 con_Access.Open
7150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVE R=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quFILLEDITEMS] FROM [FILLEDITEMS]\"
7160 con_Access.Execute SQL
7170 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quINVOICE] FROM [SALESORDER]\"
7180 con_Access.Execute SQL
7190 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[quINVOICEDETAILS] FROM [SALESORDERDETAILS]\"
7200 con_Access.Execute SQL
'RAWINFO.mdb
7210 cmdBar.Caption = \"Updating RAWINFO.mdb\"
7220 If Not con_Access Is Nothing Then Set con_Access = Nothing
7230 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\RAWINFO.mdb;Persist Security Info=False\"
7240 con_Access.ConnectionString = strConAccess
7250 con_Access.Open
7260 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CAT] FROM [CAT]\"
7270 con_Access.Execute SQL
7280 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RAWINFO] FROM [RAWINFO]\"
7290 con_Access.Execute SQL
'RAWSTOCK.mdb
7300 cmdBar.Caption = \"Updating RAWSTOCK.mdb\"
7310 If Not con_Access Is Nothing Then Set con_Access = Nothing
7320 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\RAWSTOCK.mdb;Persist Security Info=False\"
7330 con_Access.ConnectionString = strConAccess
7340 con_Access.Open
7350 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawBATCHINFO] FROM [BATCHINFO]\"
7360 con_Access.Execute SQL
7370 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawRSTOCKDETAILS] FROM [RSTOCKDETAILS]\"
7380 con_Access.Execute SQL
7390 SQL = \"SELECT * INTO [ ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawRSTOCKHEAD] FROM [RSTOCKHEAD]\"
7400 con_Access.Execute SQL
7410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rawRSTOCKLIST] FROM [RSTOCKLIST]\"
7420 con_Access.Execute SQL
'rawstockstatus.mdb
7430 cmdBar.Caption = \"Updating rawstockstatus.mdb\"
7440 If Not con_Access Is Nothing Then Set con_Access = Nothing
7450 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\rawstockstatus.mdb;Persist Security Info=False\"
7460 con_Access.ConnectionString = strConAccess
7470 con_Access.Open
7480 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RAWSTATUS] FROM [RAWSTATUS]\"
7490 con_Access.Execute SQL
'RECEIPT.mdb
7500 cmdBar.Caption = \"Updating RECEIPT.mdb\"
7510 If Not con_Access Is Nothing Then Set con_Access = Nothing
7520 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\RECEIPT.mdb;Persist Security Info=False\"
7530 con_Access.ConnectionString = strConAccess
7540 con_Access.Open
7550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RECEIPT] FROM [RECEIPT]\"
7560 con_Access.Execute SQL
'REPORTFILE.mdb
7570 cmdBar.Caption = \"Updating REPORTFILE.mdb\"
7580 If Not con_Access Is Nothing Then Set con_Access = Nothing
7590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\REPORTFILE.mdb;Persist Security Info=False\"
7600 con_Access.ConnectionString = strConAccess
7610 con_Access.Open
7620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[repDO] FROM [DO]\"
7630 con_Access.Execute SQL
7640 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \" ;PWD=\" & mPwd & \";].[repINVOICE] FROM [INVOICE]\"
7650 con_Access.Execute SQL
'ROOM.mdb
7660 cmdBar.Caption = \"Updating ROOM.mdb\"
7670 If Not co n_Access Is Nothing Then Set con_Access = Nothing
7680 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\ROOM.mdb;Persist Security Info=False\"
7690 con_Access.ConnectionString = strConAccess
7700 con_Access.Open
7710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[ROOM] FROM [ROOM]\"
7720 con_Access.Execute SQL
'rpt.mdb
7730 cmdBar.Caption = \"Updating RPT.mdb\"
7740 If Not con_Access Is Nothing Then Set con_Access = Nothing
7750 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\rpt.mdb;Persist Security Info=False\"
7760 con_Access.ConnectionString = strConAccess
7770 con_Access.Open
'7780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptClientAc] FROM [ClientAc]\"
'7790 con_Access.Execute SQL
'7800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptClientBankAc] FROM [ClientBankAc]\"
'7810 con_Access.Execute SQL
7820 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" < span class=\"code-leadattribute\">& mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptGLAGEtrsf] FROM [GLAGEtrsf]\"
7830 con_Access.Execute SQL
7840 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptGLAGETRSFMBM] FROM [GLAGETRSFMBM]\"
7850 con_Access.Execute SQL
7860 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptGLFIN] FROM [GLFIN]\"
7870 con_Access.Execute SQL
7880 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD =\" & mPwd & \";].[rptGSTAC] FROM [GSTAC]\"
7890 con_Access.Execute SQL
7900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptJournalListing] FROM [JournalListing]\"
7910 con_Access.Execute SQL
7920 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptLedger] FROM [Ledger]\"
7930 con_Access.Execute SQL
'7940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptLedgerGstSales] FROM [LedgerGstSales]\"
'7950 con_Access.Execute SQL
< span class=\"code-leadattribute\">7960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptOPENITEMSTAC] FROM [OPENITEMSTAC]\"
7970 con_Access.Execute SQL
7980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RPT] FROM [RPT]\"
7990 con_Access.Execute SQL
con_Access.Execute SQL
8000 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RPTHEADER] FROM [RPTHEADER]\"
8010 con_Access.Execute SQL
8020 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTClisting] FROM [TClisting]\"
8030 con_Access.Execute SQL
8040 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTDlisting] FROM [Tdlisting]\"
8050 con_Access.Execute SQL
8060 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTOClisting] FROM [Toclisting]\"
8070 con_Access.Execute SQL
8080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTODlisting] FROM [TODlisting]\"
8090 con_Access.Execute SQL
8100 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & Dat aFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[rptTrialBalance] FROM [TrialBalance]\"
8110 con_Access.Execute SQL
'RS.MDB
8120 cmdBar.Caption = \"Updating RS.mdb\"
8130 If Not con_Access Is Nothing Then Set con_Access = Nothing
8140 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\rs.mdb;Persist Security Info=False\"
8150 con_Access.ConnectionString = strConAccess
8160 con_Access.Open
8170 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[RS] FROM [RS]\"
8180 con_Access.Execute SQL
'SALESORDER.mdb
8190 cmdBar.Caption = \"Up dating SALESORDER.mdb\"
8200 If Not con_Access Is Nothing Then Set con_Access = Nothing
8210 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SALESORDER.mdb;Persist Security Info=False\"
8220 con_Access.ConnectionString = strConAccess
8230 con_Access.Open
8240 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE =\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soFILLEDITEMS] FROM [FILLEDITEMS]\"
8250 con_Access.Execute SQL
8260 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soINVOICE] FROM [SALESORDER]\"
8270 con_Access.Execute SQL
8280 SQ L = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soINVOICEDETAILS] FROM [SALESORDERDETAILS]\"
8290 con_Access.Execute SQL
'SalesRep.mdb
8300 cmdBar.Caption = \"Updating SalesRep.mdb\"
8310 If Not con_Access Is Nothing Then Set con_Access = Nothing
8320 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SALESREP.mdb;Persist Security Info=False\"
8330 con_Access.ConnectionString = strConAccess
8340 con_Access.Open
8350 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SALESREP] FROM [SALESREP]\"
8360 con_Access.Execute SQL
'SALESRETURN.mdb
8370 cmdBar.Caption = \"Updating SALESRETURN.mdb\"
8380 If Not con_Access Is Nothing Then Set con_Access = Nothing
8390 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SALESRETURN.mdb;Persist Security Info=False\"
8400 con_Access.ConnectionString = strConAccess
8410 con_Access.Open
8420 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[srINVOICE] FROM [INVOICE]\"
8430 con_Access.Execute SQL
8440 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[srINVOICEDETAILS] FROM [INVOICEDETAILS]\"
8450 con_Access.Execute SQL
'SERVICECARD.mdb
8460 cmdBar.Caption = \"Updating SERVICECARD.mdb\"
8470 If Not con_Access Is Nothing Then Set con_Access = Nothing
8480 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICECARD.mdb;Persist Security Info=False\"
8490 con_Access.ConnectionString = strConAccess
8500 con_Access.Open
8510 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICECARD] FROM [SERVICECARD]\"
8520 con_Access.Execute SQL
8530 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICECARDITEM] FROM [SERVICECARDITEM]\"
8540 con_Access.Execute SQL
8550 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICERECORD] FROM [SERVICERECORD]\"
8560 con_Access.Execute SQL
'SERVICEINFO.mdb
8570 cmdBar.Caption = \"Updating SERVICEINFO.mdb\"
8580 If Not con_Access Is Nothing Then Set con_Access = Nothing
8590 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICEINFO.mdb;Persist Security Info=False\"
8600 con_Access.ConnectionString = strConAccess
8610 con_Access.Open
8620 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICEINFO] FROM [SERVICEINFO]\"
8630 con_Access.Execute SQL
'SERVICEINTERVAL.mdb
8640 cmdBar.Caption = \"Updating SERVICEINTERVAL.mdb\"
8650 If Not con_Access Is Nothing Then Set con_Access = Nothing
8660 strConAccess = \"Provid er=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICEINTERVAL.mdb;Persist Security Info=False\"
8670 con_Access.ConnectionString = strConAccess
8680 con_Access.Open
8690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICEINTERVAL] FROM [SERVICEINTERVAL]\"
8700 con_Access.Execute SQL
'SERVICESTATUS.mdb
8710 cmdBar.Caption = \"Updating SERVICESTATUS.mdb\"
8720 If Not con_Access Is Nothing Then Set con_Access = Nothing
8730 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SERVICESTATUS.mdb;Persist Security Info=False\"
8740 con_Access.ConnectionString = strConAccess
8750 con_Access.Open
8760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SERVICESTATUS] FROM [SERVICESTATUS]\"
8770 con_Access.Execute SQL
'shan.mdb
8780 cmdBar.Caption = \"Updating SHAN.mdb\"
8790 If Not con_Access Is Nothing Then Set con_Access = Nothing
8800 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\shan.mdb;Persist Security Info=False\"
8810 con_Access.ConnectionString = strConAccess
8820 con_Access.Open
8830 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[noINV] FROM [table1]\"
8840 con_Access.Execute SQL
'SNTRAN.mdb
8850 cmdBar.Caption = \"Updating SNTRAN.mdb\"
8860 If Not con_Access Is Nothing Then Set con_Access = Nothing
8870 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SNTRAN.mdb;Persist Security Info=False\"
8880 con_Access.ConnectionString = strConAccess
8890 con_Access.Open
8900 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[snCB] FROM [CB]\"
8910 con_Access.Execute SQL
8920 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[snDO] FROM [DO]\"
8930 con_Access.Execute SQL
8940 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUse r & \";PWD=\" & mPwd & \";].[snINVOICE] FROM [INVOICE]\"
8950 con_Access.Execute SQL
'SOENQUIRY.mdb
8960 cmdBar.Caption = \"Updating SOENQUIRY.mdb\"
8970 If Not con_Access Is Nothing Then Set con_Access = Nothing
8980 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SOENQUIRY.mdb;Persist Security Info=False\"
8990 con_Access.ConnectionString = strConAccess
9000 con_Access.Open
9010 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soeINVOICE] FROM [SALESORDER]\"
9020 con_Access.Execute SQL
'SoLabel.mdb
9030 cmdBar.Caption = \"Updating SoLabel.mdb\"
9040 If Not con_Access Is Nothing Then Set con_Access = Nothing
9050 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SoLabel.mdb;Persist Security Info=False\"
9060 con_Access.ConnectionString = strConAccess
9070 con_Access.Open
9080 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile &a mp; \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[soLabel] FROM [Label]\"
9090 con_Access.Execute SQL
'SS.mdb
9100 cmdBar.Caption = \"Updating SS.mdb\"
9110 If Not con_Access Is Nothing Then Set con_Access = Nothing
9120 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SS.mdb;Persist Security Info=False\"
9130 con_Access.ConnectionString = strConAccess
9140 con_Access.Open
9150 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SS] FROM [SS]\"
9160 con_Access.Execute SQL
'SSADMIN.mdb
9170 cmdBar.Caption = \"Updating SSADMIN.mdb\"
9180 If Not con_Access Is Nothing Then Set con_Access = Nothing
9190 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SSADMIN.mdb;Persist Security Info=False\"
9200 con_Access.ConnectionString = strConAccess
9210 con_Access.Open
9220 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SSADMIN] FROM [SSADMIN]\"
9230 con_Access.Execute SQL
'STAFF.mdb
9240 cmdBar.Caption = \"Updating SSTAFF.mdb\"
9250 If Not con_Access Is Nothing Then Set con_Access = Nothing
9260 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STAFF.mdb;Persist Security Info=False\"
9270 con_Access.ConnectionString = strConAccess
9280 con_Access.Open
9290 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" &am p; DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STAFF] FROM [STAFF]\"
9300 con_Access.Execute SQL
'STATEMENTGROUP.mdb
9310 cmdBar.Caption = \"Updating STATEMENTGROUP.mdb\"
9320 If Not con_Access Is Nothing Then Set con_Access = Nothing
9330 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & P h & \"\STATEMENTGROUP.mdb;Persist Security Info=False\"
9340 con_Access.ConnectionString = strConAccess
9350 con_Access.Open
9360 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & amp; \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STATEMENTGROUP] FROM [STATEMENTGROUP]\"
9370 con_Access.Execute SQL
'STATETYPE.mdb
9380 cmdBar.Capti on = \"Updating STATETYPE.mdb\"
9390 If Not con_Access Is Nothing Then Set con_Access = Nothing
9400 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STATETYPE.mdb;Persist Security Info=False\"
9410 con_Access.ConnectionString = strConAccess
9420 con_Access.Open
9430 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STATETYPE] FROM [STATETYPE]\"
9440 con_Access.Execute SQL
'STKprice.mdb
9450 cmdBar.Caption = \"Updating STKprice.mdb\"
9460 If Not con_Access Is Nothing Then Set con_Access = Nothing
9470 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STKprice.mdb;Persist Security Info=False\"
9480 con_Access.ConnectionString = strConAccess
9490 con_Access.Open
9500 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STKprice] FROM [STKPrice]\"
9510 con_Access.Execute SQL
'STOCK.mdb
952 0 cmdBar.Caption = \"Updating STOCK.mdb\"
9530 If Not con_Access Is Nothing Then Set con_Access = Nothing
9540 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCK.mdb;Persist Security Info=False\"
9550 con_Access.ConnectionString = strConAccess
9560 con_Access.Open
9570 SQL = \"SELECT * INTO [ODBC; Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[stkBATCHINFO] FROM [BATCHINFO]\"
9580 con_Access.Execute SQL
9590 SQL < span class=\"code-leadattribute\">= \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[REPORTDATE] FROM [REPORTDATE]\"
9600 con_Access.Execute SQL
9610 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STOCKDETAILS] FROM [STOCKDETAILS]\"
9620 con_Access.Execute SQL
9630 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STOCKHEAD] FROM [STOCKHEAD]\"
9640 con_Access.Execute SQL
9650 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & Da taFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[STOCKLIST] FROM [STOCKLIST]\"
9660 con_Access.Execute SQL
'STOCKbf.mdb
9670 cmdBar.Caption = \"Updating STOCKBF.mdb\"
9680 If Not con_Access Is Nothing Then Set con_Access = Nothing
9690 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKbf.mdb;Persist Security Info=False\"
9700 con_Access.ConnectionString = strConAccess
9710 con_Access.Open
9720 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfBATCHINFO] FROM [BATCHINFO]\"
9730 con_Access.Execute SQL
9740 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfREPORTDATE] FROM [REPORTDATE]\"
9750 con_Access.Execute SQL
9760 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfSTOCKDETAILS] FROM [STOCKDETAILS]\"
9770 con_Access.Execute SQL
9780 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[bfSTOCKHEAD] FROM [STOCKHEAD]\"
9790 con_Access.Execute SQL
9800 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \"; PWD=\" & mPwd & \";].[bfSTOCKLIST] FROM [STOCKLIST]\"
9810 con_Access.Execute SQL
'STOCKbfTemp.mdb
9820 cmdBar.Caption = \"Updating SSTOCKbfTemp.mdb\"
9830 If Not con_Access Is Nothing Then Set con_Access = Nothing
9840 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKbfTemp.mdb;Persist Security Info=False\"
9850 con_Access.ConnectionString = strConAccess
9860 con_Access.Open
9870 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpBATCHINFO] FROM [BATCHINFO]\"
9880 con_Access.Execute SQL
9890 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpREPORTDATE] FROM [REPORTDATE]\"
9900 con_Access.Execute SQL
9910 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpSTOCKDETAILS] FROM [STOCKDETAILS]\"
9920 con_Access.Execute SQL
9930 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpSTOCKHEAD] FROM [STOCKHEAD]\"
9940 con_Access.Exe cute SQL
9950 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[tmpSTOCKLISTS] FROM [STOCKLIST]\"
9960 con_Access.Execute SQL
'STOCKIST.mdb
9970 cmdBar.Caption = \"Updating SSTOCKIST.mdb\"
9980 If Not con_Access Is Nothing Then Set con_Access = Nothing
9990 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKIST.mdb;Persist Security Info=False\"
10000 con_Access.ConnectionString = strConAccess
1 0010 con_Access.Open
10020 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd &am p; \";].[STOCKIST] FROM [STOCKIST]\"
10030 con_Access.Execute SQL
'STOCKMDBbatchInfo.mdb
10040 cmdBar.Caption = \"Updating SSTOCKBATCHINFO.mdb\"
10050 If Not con_Access Is Nothing
10060 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKMDBbatchInfo.mdb;Persist Security Info=False\"
10070 con_Access.ConnectionString = strConAccess
10080 con_Access.Open
10090 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[BATCHINFO] FROM [BATCHINFO]\"
10100 con_Access.Execute SQL
'StockMthly.mdb
10110 cmdBar.Caption = \"Updating SSTOCKMTHLY.mdb\"
10120 If Not con_Access Is Nothing Then Set con_Access = Nothing
10130 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\StockMthly.mdb;Persist Security Info=False\"
10140 con_Access.ConnectionString = strConAccess
10150 con_Access.Open
10160 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";P WD=\" & mPwd & \";].[StockMthly] FROM [StockMthly]\"
10170 con_Access.Execute SQL
'STOCKOUT.mdb
10180 cmdBar.Caption = \"Updating SSTOCKOUT.mdb\"
10190 If Not con_Access Is Nothing Then Set con_Access = Nothing
10200 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\STOCKOUT.mdb;Persist Security Info=False\"
10210 con_Access.ConnectionString = strConAccess
10220 con_Access.Open
10230 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[stoINVOICE] FROM [INVOICE]\"
10240 con_Access.Execute SQL
10250 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[stoINVOICEDETAILS] FROM [INVOICEDETAILS]\"
10260 con_Access.Execute SQL
'SupLibLabel.mdb
10270 cmdBar.Caption = \"Updating SupLibLabel.mdb\"
10280 If Not con_Access Is Nothing Then Set con_Access = Nothing
10290 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SupLibLabel.mdb;Persist Security Info=False\"
10300 con_Access.ConnectionString = strConAccess
10310 con_Access.Open
10320 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[supLabel] FROM [Label]\"
10330 con_Access.Execute SQL
'SYSINFO.mdb
10340 cmdBar.Caption = \"Updating SYSINFO.mdb\"
10350 If Not con_Access Is Nothing Then Set con_Access = Nothing
10360 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\SYSINFO.mdb;Persist Security Info=False\"
10370 con_Access.ConnectionString = strConAccess
10380 con_Access.Open
10390 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer < span class=\"code-leadattribute\">& \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[CONTROL] FROM [CONTROL]\"
10400 con_Access.Execute SQL
10410 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLAP] FROM [GLAP]\"
10420 con_Access.Execute SQL
10430 < span class=\"code-leadattribute\">SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[GLPASS] FROM [GLPASS]\"
10440 c on_Access.Execute SQL
'TAXCODE.mdb
10450 cmdBar.Caption = \"Updating TAXCODE.mdb\"
10460 If Not con_Access Is Nothing Then Set con_Access = Nothing
10470 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\TAXCODE.mdb;Persist Security Info=False\"
10480 con_Access.ConnectionString = strConAccess
10490 con_Access.Open
10500 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[TAXCODE] FROM [TAXCODE]\"
10510 con_Access.Execute SQL
'UDF.mdb
10520 cmdBar.Caption = \"Updating UDF.mdb\"
10530 If Not con_Access Is Nothing Then Set con_Access = Nothing
10540 strConAccess = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Ph & \"\UDF.mdb;Persist Security Info=False\"
10550 con_Access.ConnectionString = strConAccess
10560 con_Access.Open
10570 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfCASHBILL] FROM [CASHBILL]\"
10580 con_Access.Execute SQL
10590 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfDO] FROM [DO]\"
10600 con_Access.Execute SQL
10610 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfFORMULA] FROM [FORMULA]\"
10620 con_Access.Execute SQL
10630 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfGRN] FROM [GRN]\"
10640 con_Access.Execute SQL
10650 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfINVOICE] FROM [INVOICE]\"
10660 con_Access.Execute SQL
10670 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfPO] FROM [PO]\"
10680 con_Access.Execute SQL
10690 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfPURCHASESRETURN]
10700 con_Access.Execute SQL
10710 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfQUOT] FROM [QUOT]\"
10720 con_Access.Execute SQL
10730 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFil e & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[udfSALESORDER] FROM [SALESORDER]\"
10740 con_Access.Execute SQL
10750 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" &
10760 con_Access.Execute SQL
'USERPT.mdb
10770 cmdBar.Caption = \"Updating USERPT.mdb\"
10780 If Not con_Access Is Nothing Then Set con_Access = Nothing
10790 strConAccess = \"Provider=Microsoft.Jet.OLEDB .4.0;Data Source=\" & Ph & \"\USERPT.mdb;Persist Security Info=False\"
10800 con_Access.ConnectionString = strConAccess
10810 con_Access.Open
10820 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER =\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[USERPT] FROM [USERPT]\"
10830 con_Access.Execute SQL
'WAREHOUSE.mdb
10840 cmdBar.Caption = \"Updating WAREHOUSE.mdb\"
10850 If Not con_Access Is Nothing Then Set con_Access = Nothing
10860 strConAccess = \"Provider=Microsoft.Jet. OLEDB.4.0;Data Source=\" & Ph & \"\WAREHOUSE.mdb;Persist Security Info=False\"
10870 con_Access.ConnectionString = strConAccess
10880 con_Access.Open
10890 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[WAREHOUSE] FROM [WAREHOUSE]\"
10900 con_Access.Execute SQL
'wc.mdb
10910 cmdBar.Caption = \"Updating WC.mdb\"
10920 If Not con_Access Is Nothing Then Set con_Access = Nothing
10930 strConAccess = \"Provider=Microsoft.
10940 con_Access.ConnectionString = strConAccess
10950 con_Access.Open
10960 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[SN] FROM [SN]\"
10970 con_Access.Execute SQL
10980 SQL = \"SELECT * INTO [ODBC;Driver=SQL Server;SERVER=\" & mServer & \";DATABASE=\" & DataFile & \";UID=\" & mUser & \";PWD=\" & mPwd & \";].[WC] FROM [WC]\"
10990 con_Access.Execute SQL
11000 MsgBox \"Updated server\"
11010 cmdBar.Visible = False
11020 Screen.MousePointer = vbDefault
End SubTake off the line numbers.
(This bit added because the solution is too sh ort otherwise)Hi
Yes remove line numbers and Check if condition,it show error conversion in telerik convertor
If Not con_Access Is Nothing Then Set con_Access = Nothing
So change if condition in vb code
If Not con_Access Is Nothing Then Set con_Access = Nothing
to
If Not con_Access Is Nothing Then
con_Access = Nothing
End IF
and then convert ur code.
Note :in all if condition need to change in vb code and then convert to C#
You can always convert VB.NET to C# and visa versa automatically. You can get especially good quality and comprehensive translation using open-source ILSpy.请参阅我以前的回答:代码解释,C#到VB .NET [ ^ ]。
-SA
I got an error like this while converting from vb.net to c#.net
CONVERSION ERROR: Code could not be converted. Details:
-- line 1 col 9: invalid NonModuleDeclaration
Please check for any errors in the original code and try again.
I don't have that much of knowledge in vb.net.Would u please correct the code.
I have used this link to convert from vb to c#
http://converter.telerik.com/[^]
My code is
Private Sub UpSqlSvr()
20 Screen.MousePointer = vbHourglass
Dim SQL As String
Dim strConAccess As String
Dim con_Access As New ADODB.Connection
'accountdata.mdb
30 cmdBar.Caption = "Updating accountdata.mdb"
40 If Not con_Access Is Nothing Then Set con_Access = Nothing
50 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "accountdata.mdb;Persist Security Info=False"
60 con_Access.ConnectionString = strConAccess
70 con_Access.Open
80 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ClientAc] FROM [ClientAc]"
90 con_Access.Execute SQL
100 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ClientBankAc] FROM [ClientBankAc]"
110 con_Access.Execute SQL
120 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GL] FROM [GL]"
130 con_Access.Execute SQL
140 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GL1] FROM [GL1]"
150 con_Access.Execute SQL
160 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE] FROM [GLAGE]"
170 con_Access.Execute SQL
180 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1] FROM [GLAGE1]"
190 con_Access.Execute SQL
200 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1CR] FROM [GLAGE1CR]"
210 con_Access.Execute SQL
220 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1DR] FROM [GLAGE1DR]"
230 con_Access.Execute SQL
240 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGE1undo] FROM [GLAGE1undo]"
250 con_Access.Execute SQL
260 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAGEtrsf] FROM [GLAGEtrsf]"
270 con_Access.Execute SQL
280 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLbakGst] FROM [GlbakGst]"
290 con_Access.Execute SQL
300 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLDEPT] FROM [GLDEPT]"
310 con_Access.Execute SQL
320 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLDEPT2] FROM [GLDEPT2]"
330 con_Access.Execute SQL
340 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN] FROM [GLFIN]"
350 con_Access.Execute SQL
360 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLHEAD] FROM [GLHEAD]"
370 con_Access.Execute SQL
380 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLHEAD1] FROM [GLHEAD1]"
390 con_Access.Execute SQL
400 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLpro1] FROM [GLpro1]"
410 con_Access.Execute SQL
420 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Gltmp] FROM [Gltmp]"
430 con_Access.Execute SQL
440 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLundo] FROM [Glundo]"
450 con_Access.Execute SQL
460 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GSTAC] FROM [GSTAC]"
470 con_Access.Execute SQL
480 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[gstpro] FROM [gstpro]"
490 con_Access.Execute SQL
500 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[INFACE] FROM [INFACE]"
510 con_Access.Execute SQL
520 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[JournalListing] FROM [JournalListing]"
530 con_Access.Execute SQL
540 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[JournalType] FROM [JournalType]"
550 con_Access.Execute SQL
560 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Ledger] FROM [Ledger]"
570 con_Access.Execute SQL
580 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LedgerGstSales] FROM [LedgerGstSales]"
590 con_Access.Execute SQL
600 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Password] FROM [Password]"
610 con_Access.Execute SQL
620 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tbbak] FROM [tbbak]"
630 con_Access.Execute SQL
640 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tbbaksum] FROM [tbbaksum]"
650 con_Access.Execute SQL
660 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TClisting] FROM [TClisting]"
670 con_Access.Execute SQL
680 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TDlisting] FROM [TDlisting]"
690 con_Access.Execute SQL
700 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[test] FROM [test]"
710 con_Access.Execute SQL
720 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TOClisting] FROM [TOClisting]"
730 con_Access.Execute SQL
740 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TODlisting] FROM [TODlisting]"
750 con_Access.Execute SQL
760 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TrialBalance] FROM [TrialBalance]"
770 con_Access.Execute SQL
780 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TrsfLedger] FROM [TrsfLedger]"
790 con_Access.Execute SQL
800 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Vcontrol] FROM [Vcontrol]"
810 con_Access.Execute SQL
'AH.mdb
820 cmdBar.Caption = "Updating AH.mdb"
830 If Not con_Access Is Nothing Then Set con_Access = Nothing
840 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AH.mdb;Persist Security Info=False"
850 con_Access.ConnectionString = strConAccess
860 con_Access.Open
870 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ACTYPE] FROM [ACTYPE]"
880 con_Access.Execute SQL
890 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AH] FROM [AH]"
900 con_Access.Execute SQL
910 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GSTIF] FROM [GSTIF]"
920 con_Access.Execute SQL
930 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GstLink] FROM [GstLink]"
940 con_Access.Execute SQL
'AR.mdb
950 cmdBar.Caption = "Updating AR.mdb"
960 If Not con_Access Is Nothing Then Set con_Access = Nothing
970 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "AR.mdb;Persist Security Info=False"
980 con_Access.ConnectionString = strConAccess
990 con_Access.Open
1000 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AR] FROM [AR]"
1010 con_Access.Execute SQL
1020 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ARAPL] FROM [ARAPL]"
1030 con_Access.Execute SQL
'ARTEMP.mdb
'AuditTrail.mdb
1040 cmdBar.Caption = "Updating AuditTrail.mdb"
1050 If Not con_Access Is Nothing Then Set con_Access = Nothing
1060 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrail.mdb;Persist Security Info=False"
1070 con_Access.ConnectionString = strConAccess
1080 con_Access.Open
1090 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailBP] FROM [AuditTrailBP]"
1100 con_Access.Execute SQL
1110 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailBR] FROM [AuditTrailBR]"
1120 con_Access.Execute SQL
1130 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCS] FROM [AuditTrailCS]"
1140 con_Access.Execute SQL
1150 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailGL] FROM [AuditTrailGL]"
1160 con_Access.Execute SQL
1170 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailGRN] FROM [AuditTrailGRN]"
1180 con_Access.Execute SQL
1190 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailINV] FROM [AuditTrailINV]"
1200 con_Access.Execute SQL
1210 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailPJ] FROM [AuditTrailPJ]"
1220 con_Access.Execute SQL
1230 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailSJ] FROM [AuditTrailSJ]"
1240 con_Access.Execute SQL
1250 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailSTK] FROM [AuditTrailSTK]"
1260 con_Access.Execute SQL
'AuditTrail2.mdb
1270 cmdBar.Caption = "Updating AuditTrail2.mdb"
1280 If Not con_Access Is Nothing Then Set con_Access = Nothing
1290 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrail2.mdb;Persist Security Info=False"
1300 con_Access.ConnectionString = strConAccess
1310 con_Access.Open
1320 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCNP] FROM [AuditTrailCNP]"
1330 con_Access.Execute SQL
1340 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCNS] FROM [AuditTrailCNS]"
1350 con_Access.Execute SQL
1360 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailCO] FROM [AuditTrailCO]"
1370 con_Access.Execute SQL
1380 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailDO] FROM [AuditTrailDO]"
1390 con_Access.Execute SQL
1400 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailPO] FROM [AuditTrailPO]"
1410 con_Access.Execute SQL
1420 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailPR] FROM [AuditTrailPR]"
1430 con_Access.Execute SQL
1440 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailQUOT] FROM [AuditTrailQUOT]"
1450 con_Access.Execute SQL
1460 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailSR] FROM [AuditTrailSR]"
1470 con_Access.Execute SQL
'AuditTrail3.mdb
1480 cmdBar.Caption = "Updating AuditTrail3.mdb"
1490 If Not con_Access Is Nothing Then Set con_Access = Nothing
1500 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrail3.mdb;Persist Security Info=False"
1510 con_Access.ConnectionString = strConAccess
1520 con_Access.Open
1530 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailDNP] FROM [AuditTrailDNP]"
1540 con_Access.Execute SQL
1550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailDNS] FROM [AuditTrailDNS]"
1560 con_Access.Execute SQL
'AuditTrailAF.mdb
1570 cmdBar.Caption = "Updating AuditTrailIAF.mdb"
1580 If Not con_Access Is Nothing Then Set con_Access = Nothing
1590 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\AuditTrailIAF.mdb;Persist Security Info=False"
1600 con_Access.ConnectionString = strConAccess
1610 con_Access.Open
1620 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailIAF] FROM [AuditTrailIAF]"
1630 con_Access.Execute SQL
1640 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailIAFap] FROM [AuditTrailIAFap]"
1650 con_Access.Execute SQL
1660 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[AuditTrailIAFar] FROM [AuditTrailIAFar]"
1670 con_Access.Execute SQL
'BANKAC.mdb
1680 cmdBar.Caption = "Updating BANKAC.mdb"
1690 If Not con_Access Is Nothing Then Set con_Access = Nothing
1700 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BANKAC.mdb;Persist Security Info=False"
1710 con_Access.ConnectionString = strConAccess
1720 con_Access.Open
1730 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BANKAC] FROM [BANKAC]"
1740 con_Access.Execute SQL
'BILLOFCOMPONENT.mdb
1750 cmdBar.Caption = "Updating BILLOFCOMPONENT.mdb"
1760 If Not con_Access Is Nothing Then Set con_Access = Nothing
1770 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BILLOFCOMPONENT.mdb;Persist Security Info=False"
1780 con_Access.ConnectionString = strConAccess
1790 con_Access.Open
1800 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BILLOFCOMPONENT] FROM [BILLOFCOMPONENT]"
1810 con_Access.Execute SQL
'BILLOFMATERIAL.mdb
1820 cmdBar.Caption = "Updating BILLOFMATERIAL.mdb"
1830 If Not con_Access Is Nothing Then Set con_Access = Nothing
1840 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BILLOFMATERIAL.mdb;Persist Security Info=False"
1850 con_Access.ConnectionString = strConAccess
1860 con_Access.Open
1870 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BILLOFMATERIAL] FROM [BILLOFMATERIAL]"
1880 con_Access.Execute SQL
'Br.mdb
1890 cmdBar.Caption = "Updating BR.mdb"
1900 If Not con_Access Is Nothing Then Set con_Access = Nothing
1910 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Br.mdb;Persist Security Info=False"
1920 con_Access.ConnectionString = strConAccess
1930 con_Access.Open
1940 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BR] FROM [BR]"
1950 con_Access.Execute SQL
1960 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BRDATEHEADER] FROM [BRDATEHEADER]"
1970 con_Access.Execute SQL
1980 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BRos] FROM [BRos]"
1990 con_Access.Execute SQL
'BRAND.mdb
2000 cmdBar.Caption = "Updating BRAND.mdb"
2010 If Not con_Access Is Nothing Then Set con_Access = Nothing
2020 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\BRAND.mdb;Persist Security Info=False"
2030 con_Access.ConnectionString = strConAccess
2040 con_Access.Open
2050 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BRAND] FROM [BRAND]"
2060 con_Access.Execute SQL
2070 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MODEL] FROM [MODEL]"
2080 con_Access.Execute SQL
'Budget.mdb
2090 cmdBar.Caption = "Updating BUDGET.mdb"
2100 If Not con_Access Is Nothing Then Set con_Access = Nothing
2110 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Budget.mdb;Persist Security Info=False"
2120 con_Access.ConnectionString = strConAccess
2130 con_Access.Open
2140 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[Budget] FROM [Budget]"
2150 con_Access.Execute SQL
'CASHBILL.mdb
2160 cmdBar.Caption = "Updating CASHBILL.mdb"
2170 If Not con_Access Is Nothing Then Set con_Access = Nothing
2180 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CASHBILL.mdb;Persist Security Info=False"
2190 con_Access.ConnectionString = strConAccess
2200 con_Access.Open
2210 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbINVOICE] FROM [INVOICE]"
2220 con_Access.Execute SQL
2230 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbINVOICEDETAILS] FROM [INVOICEDETAILS]"
2240 con_Access.Execute SQL
'CASHBILLtmp.mdb
2250 cmdBar.Caption = "Updating CASHBILLTEMP.mdb"
2260 If Not con_Access Is Nothing Then Set con_Access = Nothing
2270 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CASHBILLtmp.mdb;Persist Security Info=False"
2280 con_Access.ConnectionString = strConAccess
2290 con_Access.Open
2300 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbtINVOICE] FROM [INVOICE]"
2310 con_Access.Execute SQL
2320 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbtINVOICEDETAILS] FROM [INVOICEDETAILS]"
2330 con_Access.Execute SQL
'CATEGORY.mdb
2340 cmdBar.Caption = "Updating CATEGORY.mdb"
2350 If Not con_Access Is Nothing Then Set con_Access = Nothing
2360 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CATEGORY.mdb;Persist Security Info=False"
2370 con_Access.ConnectionString = strConAccess
2380 con_Access.Open
2390 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CATEGORY] FROM [CATEGORY]"
2400 con_Access.Execute SQL
'CATEGORYSUPER.mdb
2410 cmdBar.Caption = "Updating CATEGORYSUPER.mdb"
2420 If Not con_Access Is Nothing Then Set con_Access = Nothing
2430 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CATEGORYSUPER.mdb;Persist Security Info=False"
2440 con_Access.ConnectionString = strConAccess
2450 con_Access.Open
2460 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CATEGORY1] FROM [CATEGORY1]"
2470 con_Access.Execute SQL
2480 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CATEGORY2] FROM [CATEGORY2]"
2490 con_Access.Execute SQL
'Cbws.mdb
2500 cmdBar.Caption = "Updating Cbws.mdb"
2510 If Not con_Access Is Nothing Then Set con_Access = Nothing
2520 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Cbws.mdb;Persist Security Info=False"
2530 con_Access.ConnectionString = strConAccess
2540 con_Access.Open
2550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbwINVOICE] FROM [INVOICE]"
2560 con_Access.Execute SQL
2570 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cbwINVOICEDETAILS] FROM [INVOICEDETAILS]"
2580 con_Access.Execute SQL
'CN.mdb
2590 cmdBar.Caption = "Updating CN.mdb"
2600 If Not con_Access Is Nothing Then Set con_Access = Nothing
2610 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CN.mdb;Persist Security Info=False"
2620 con_Access.ConnectionString = strConAccess
2630 con_Access.Open
2640 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CN] FROM [CN]"
2650 con_Access.Execute SQL
'COLOR.mdb
2660 cmdBar.Caption = "Updating COLOUR.mdb"
2670 If Not con_Access Is Nothing Then Set con_Access = Nothing
2680 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\COLOR.mdb;Persist Security Info=False"
2690 con_Access.ConnectionString = strConAccess
2700 con_Access.Open
2710 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[COLOR] FROM [COLOR]"
2720 con_Access.Execute SQL
2730 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SIZE] FROM [SIZE]"
2740 con_Access.Execute SQL
'comment.mdb
2750 cmdBar.Caption = "Updating comment.mdb"
2760 If Not con_Access Is Nothing Then Set con_Access = Nothing
2770 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\comment.mdb;Persist Security Info=False"
2780 con_Access.ConnectionString = strConAccess
2790 con_Access.Open
2800 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[comment] FROM [comment]"
2810 con_Access.Execute SQL
'CONSGSTOCK.mdb
2820 cmdBar.Caption = "Updating CONSGSTOCK.mdb"
2830 If Not con_Access Is Nothing Then Set con_Access = Nothing
2840 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CONSGSTOCK.mdb;Persist Security Info=False"
2850 con_Access.ConnectionString = strConAccess
2860 con_Access.Open
2870 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CONSGSTOCK] FROM [CONSGSTOCK]"
2880 con_Access.Execute SQL
'CusLibLabel.mdb
2890 cmdBar.Caption = "Updating CusLibLabel.mdb"
2900 If Not con_Access Is Nothing Then Set con_Access = Nothing
2910 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CusLibLabel.mdb;Persist Security Info=False"
2920 con_Access.ConnectionString = strConAccess
2930 con_Access.Open
2940 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[cusLabel] FROM [Label]"
2950 con_Access.Execute SQL
'CustomerContact.mdb
2960 cmdBar.Caption = "Updating CustomerContact.mdb"
2970 If Not con_Access Is Nothing Then Set con_Access = Nothing
2980 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CustomerContact.mdb;Persist Security Info=False"
2990 con_Access.ConnectionString = strConAccess
3000 con_Access.Open
3010 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CustomerContact] FROM [CustomerContact]"
3020 con_Access.Execute SQL
'CustomerGROUP.mdb
3030 cmdBar.Caption = "Updating CustomerGROUP.mdb"
3040 If Not con_Access Is Nothing Then Set con_Access = Nothing
3050 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CustomerGROUP.mdb;Persist Security Info=False"
3060 con_Access.ConnectionString = strConAccess
3070 con_Access.Open
3080 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CustomerGroup] FROM [CustomerGroup]"
3090 con_Access.Execute SQL
'CUSTOMERPRICE.mdb
3100 cmdBar.Caption = "Updating CUSTOMERPRICE.mdb"
3110 If Not con_Access Is Nothing Then Set con_Access = Nothing
3120 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\CUSTOMERPRICE.mdb;Persist Security Info=False"
3130 con_Access.ConnectionString = strConAccess
3140 con_Access.Open
3150 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CUSTOMERPRICE] FROM [CUSTOMERPRICE]"
3160 con_Access.Execute SQL
'DBGRID.mdb
3170 cmdBar.Caption = "Updating DBGRID.mdb"
3180 If Not con_Access Is Nothing Then Set con_Access = Nothing
3190 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DBGRID.mdb;Persist Security Info=False"
3200 con_Access.ConnectionString = strConAccess
3210 con_Access.Open
3220 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[DBGRID] FROM [DBGRID]"
3230 con_Access.Execute SQL
'DN.mdb
3240 cmdBar.Caption = "Updating DN.mdb"
3250 If Not con_Access Is Nothing Then Set con_Access = Nothing
3260 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DN.mdb;Persist Security Info=False"
3270 con_Access.ConnectionString = strConAccess
3280 con_Access.Open
3290 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[DN] FROM [DN]"
3300 con_Access.Execute SQL
'DO.mdb
3310 cmdBar.Caption = "Updating DO.mdb"
3320 If Not con_Access Is Nothing Then Set con_Access = Nothing
3330 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DO.mdb;Persist Security Info=False"
3340 con_Access.ConnectionString = strConAccess
3350 con_Access.Open
3360 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doINVOICE] FROM [DO]"
3370 con_Access.Execute SQL
3380 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doINVOICEDETAILS] FROM [DODETAILS]"
3390 con_Access.Execute SQL
3400 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doFILLEDITEMS] FROM [FILLEDITEMS]"
3410 con_Access.Execute SQL
'DocNo.mdb
3420 cmdBar.Caption = "Updating DocNo.mdb"
3430 If Not con_Access Is Nothing Then Set con_Access = Nothing
3440 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DocNo.mdb;Persist Security Info=False"
3450 con_Access.ConnectionString = strConAccess
3460 con_Access.Open
3470 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noBillRec] FROM [BillRec]"
3480 con_Access.Execute SQL
3490 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCaSaNo] FROM [CaSaNo]"
3500 con_Access.Execute SQL
3510 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCO] FROM [CO]"
3520 con_Access.Execute SQL
3530 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCreditNotePur] FROM [CreditNotePur]"
3540 con_Access.Execute SQL
3550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCreditNoteSale] FROM [CreditNoteSale]"
3560 con_Access.Execute SQL
3570 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noCrSaNo] FROM [CrSaNo]"
3580 con_Access.Execute SQL
3590 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noDebitNotePur] FROM [DebitNotePur]"
3600 con_Access.Execute SQL
3610 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noDebitNoteSale] FROM [DebitNoteSale]"
3620 con_Access.Execute SQL
3630 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noDO] FROM [DO]"
3640 con_Access.Execute SQL
3650 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJCash] FROM [GJCash]"
3660 con_Access.Execute SQL
3670 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJno] FROM [GJno]"
3680 con_Access.Execute SQL
3690 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJPurchase] FROM [GJPurchase]"
3700 con_Access.Execute SQL
3710 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noGJsales] FROM [GJsales]"
3720 con_Access.Execute SQL
3730 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noIssue] FROM [Issue]"
3740 con_Access.Execute SQL
3750 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noPayBill] FROM [PayBill]"
3760 con_Access.Execute SQL
3770 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noPurchaseReturn] FROM [PurchaseReturn]"
3780 con_Access.Execute SQL
3790 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noPurno] FROM [Purno]"
3800 con_Access.Execute SQL
3810 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noQUO] FROM [QUO]"
3820 con_Access.Execute SQL
3830 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noSalesReturn] FROM [SalesReturn]"
3840 con_Access.Execute SQL
'DOCNUMBER.mdb 'using rstockno (table)
3850 cmdBar.Caption = "Updating DOCNUMBER.mdb"
3860 If Not con_Access Is Nothing Then Set con_Access = Nothing
3870 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DOCNUMBER.mdb;Persist Security Info=False"
3880 con_Access.ConnectionString = strConAccess
3890 con_Access.Open
3900 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rstockno] FROM [rstockno]"
3910 con_Access.Execute SQL
'DoLabel.mdb
3920 cmdBar.Caption = "Updating DoLabel.mdb"
3930 If Not con_Access Is Nothing Then Set con_Access = Nothing
3940 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DoLabel.mdb;Persist Security Info=False"
3950 con_Access.ConnectionString = strConAccess
3960 con_Access.Open
3970 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[doLabel] FROM [Label]"
3980 con_Access.Execute SQL
'DOLLAR.mdb
3990 cmdBar.Caption = "Updating DOLLAR.mdb"
4000 If Not con_Access Is Nothing Then Set con_Access = Nothing
4010 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\DOLLAR.mdb;Persist Security Info=False"
4020 con_Access.ConnectionString = strConAccess
4030 con_Access.Open
4040 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CURRENCY] FROM [CURRENCY]"
4050 con_Access.Execute SQL
4060 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[DOLLAR] FROM [DOLLAR]"
4070 con_Access.Execute SQL
'EXCHANGERATE.mdb
4080 cmdBar.Caption = "Updating EXCHANGERATE.mdb"
4090 If Not con_Access Is Nothing Then Set con_Access = Nothing
4100 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\EXCHANGERATE.mdb;Persist Security Info=False"
4110 con_Access.ConnectionString = strConAccess
4120 con_Access.Open
4130 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[EXCHANGERATE] FROM [EXCHANGERATE]"
4140 con_Access.Execute SQL
'EXCHANGERATEmthly.mdb
4150 cmdBar.Caption = "Updating EXCHANGERATEmthly.mdb"
4160 If Not con_Access Is Nothing Then Set con_Access = Nothing
4170 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\EXCHANGERATEmthly.mdb;Persist Security Info=False"
4180 con_Access.ConnectionString = strConAccess
4190 con_Access.Open
4200 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[EXCHANGERATEmthly] FROM [EXCHANGERATEmthly]"
4210 con_Access.Execute SQL
'GLFIN.mdb
4220 cmdBar.Caption = "Updating GLFIN.mdb"
4230 If Not con_Access Is Nothing Then Set con_Access = Nothing
4240 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLFIN.mdb;Persist Security Info=False"
4250 con_Access.ConnectionString = strConAccess
4260 con_Access.Open
4270 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN1] FROM [GLFIN]"
4280 con_Access.Execute SQL
'GLFIN2.mdb
4290 cmdBar.Caption = "Updating GLFIN2.mdb"
4300 If Not con_Access Is Nothing Then Set con_Access = Nothing
4310 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLFIN2.mdb;Persist Security Info=False"
4320 con_Access.ConnectionString = strConAccess
4330 con_Access.Open
4340 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN2] FROM [GLFIN]"
4350 con_Access.Execute SQL
'GLFIN12.mdb
4360 cmdBar.Caption = "Updating GLFIN12.mdb"
4370 If Not con_Access Is Nothing Then Set con_Access = Nothing
4380 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLFIN12.mdb;Persist Security Info=False"
4390 con_Access.ConnectionString = strConAccess
4400 con_Access.Open
4410 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLFIN12] FROM [GLFIN12]"
4420 con_Access.Execute SQL
'GLUNDO.mdb
4430 cmdBar.Caption = "Updating GLUNDO.mdb"
4440 If Not con_Access Is Nothing Then Set con_Access = Nothing
4450 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GLUNDO.mdb;Persist Security Info=False"
4460 con_Access.ConnectionString = strConAccess
4470 con_Access.Open
4480 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLHEADUNDO] FROM [GLHEADUNDO]"
4490 con_Access.Execute SQL
4500 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLUNDO2] FROM [GLUNDO]"
4510 con_Access.Execute SQL
'Graded.mdb
4520 cmdBar.Caption = "Updating Graded.mdb"
4530 If Not con_Access Is Nothing Then Set con_Access = Nothing
4540 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Graded.mdb;Persist Security Info=False"
4550 con_Access.ConnectionString = strConAccess
4560 con_Access.Open
4570 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GradedDETAILS] FROM [GradedDETAILS]"
4580 con_Access.Execute SQL
'GradedGP.mdb
4590 cmdBar.Caption = "Updating GradedGP.mdb"
4600 If Not con_Access Is Nothing Then Set con_Access = Nothing
4610 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GradedGP.mdb;Persist Security Info=False"
4620 con_Access.ConnectionString = strConAccess
4630 con_Access.Open
4640 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GradedGP] FROM [GradedGP]"
4650 con_Access.Execute SQL
'grn.mdb
4660 cmdBar.Caption = "Updating GRN.mdb"
4670 If Not con_Access Is Nothing Then Set con_Access = Nothing
4680 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\grn.mdb;Persist Security Info=False"
4690 con_Access.ConnectionString = strConAccess
4700 con_Access.Open
4710 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnFILLEDITEMS] FROM [FILLEDITEMS]"
4720 con_Access.Execute SQL
4730 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnINVOICE] FROM [INVOICE]"
4740 con_Access.Execute SQL
4750 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnINVOICEDETAILS] FROM [INVOICEDETAILS]"
4760 con_Access.Execute SQL
'GRNHANDPHONE.mdb
4770 cmdBar.Caption = "Updating GRNHANDPHONE.mdb"
4780 If Not con_Access Is Nothing Then Set con_Access = Nothing
4790 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GRNHANDPHONE.mdb;Persist Security Info=False"
4800 con_Access.ConnectionString = strConAccess
4810 con_Access.Open
4820 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GRNHEADER] FROM [GRNHEADER]"
4830 con_Access.Execute SQL
4840 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GRNITEMS] FROM [GRNITEMS]"
4850 con_Access.Execute SQL
'GrnLabel.mdb
4860 cmdBar.Caption = "Updating GrnLabel.mdb"
4870 If Not con_Access Is Nothing Then Set con_Access = Nothing
4880 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\GrnLabel.mdb;Persist Security Info=False"
4890 con_Access.ConnectionString = strConAccess
4900 con_Access.Open
4910 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnLabel] FROM [Label]"
4920 con_Access.Execute SQL
'Grnws.mdb
4930 cmdBar.Caption = "Updating Grnws.mdb"
4940 If Not con_Access Is Nothing Then Set con_Access = Nothing
4950 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Grnws.mdb;Persist Security Info=False"
4960 con_Access.ConnectionString = strConAccess
4970 con_Access.Open
4980 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnwFILLEDITEMS] FROM [FILLEDITEMS]"
4990 con_Access.Execute SQL
5000 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[grnwINVOICE] FROM [INVOICE]"
5010 con_Access.Execute SQL
' sql ="SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & sDataSource & ";DATABASE=inventory;].[grnwINVOICEDETAILS] FROM [INVOCIEDETAILS]"
' con_Access.Execute Sql
'IMEI.mdb
5020 cmdBar.Caption = "Updating IMEI.mdb"
5030 If Not con_Access Is Nothing Then Set con_Access = Nothing
5040 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\IMEI.mdb;Persist Security Info=False"
5050 con_Access.ConnectionString = strConAccess
5060 con_Access.Open
5070 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[IMEI] FROM [IMEI]"
5080 con_Access.Execute SQL
'InvLabel.mdb
5090 cmdBar.Caption = "Updating InvLabel.mdb"
5100 If Not con_Access Is Nothing Then Set con_Access = Nothing
5110 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\InvLabel.mdb;Persist Security Info=False"
5120 con_Access.ConnectionString = strConAccess
5130 con_Access.Open
5140 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invLabel] FROM [Label]"
5150 con_Access.Execute SQL
'INVOICE.mdb
5160 cmdBar.Caption = "Updating INVOICE.mdb"
5170 If Not con_Access Is Nothing Then Set con_Access = Nothing
5180 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\INVOICE.mdb;Persist Security Info=False"
5190 con_Access.ConnectionString = strConAccess
5200 con_Access.Open
5210 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invINVOICE] FROM [INVOICE]"
5220 con_Access.Execute SQL
5230 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invINVOICEDETAILS] FROM [INVOICEDETAILS]"
5240 con_Access.Execute SQL
'INVTEMP.mdb
5250 cmdBar.Caption = "Updating INVTEMP.mdb"
5260 If Not con_Access Is Nothing Then Set con_Access = Nothing
5270 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\INVTEMP.mdb;Persist Security Info=False"
5280 con_Access.ConnectionString = strConAccess
5290 con_Access.Open
5300 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invtINVOICE] FROM [INVOICE]"
5310 con_Access.Execute SQL
5320 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[invtINVOICEDETAILS] FROM [INVOICEDETAILS]"
5330 con_Access.Execute SQL
'invws.mdb
'Issue.mdb
5340 cmdBar.Caption = "Updating Issue.mdb"
5350 If Not con_Access Is Nothing Then Set con_Access = Nothing
5360 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\Issue.mdb;Persist Security Info=False"
5370 con_Access.ConnectionString = strConAccess
5380 con_Access.Open
5390 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[isINVOICE] FROM [INVOICE]"
5400 con_Access.Execute SQL
5410 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[isINVOICEDETAILS] FROM [INVOICEDETAILS]"
5420 con_Access.Execute SQL
'LabelBS.mdb
5430 cmdBar.Caption = "Updating LabelBS.mdb"
5440 If Not con_Access Is Nothing Then Set con_Access = Nothing
5450 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LabelBS.mdb;Persist Security Info=False"
5460 con_Access.ConnectionString = strConAccess
5470 con_Access.Open
5480 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LabelBS] FROM [LabelBS]"
5490 con_Access.Execute SQL
'LabelPL.mdb
5500 cmdBar.Caption = "Updating LabelPL.mdb"
5510 If Not con_Access Is Nothing Then Set con_Access = Nothing
5520 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LabelPL.mdb;Persist Security Info=False"
5530 con_Access.ConnectionString = strConAccess
5540 con_Access.Open
5550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LabelPL] FROM [LabelPL]"
5560 con_Access.Execute SQL
'lic.mdb
5570 cmdBar.Caption = "Updating lic.mdb"
5580 If Not con_Access Is Nothing Then Set con_Access = Nothing
5590 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\lic.mdb;Persist Security Info=False"
5600 con_Access.ConnectionString = strConAccess
5610 con_Access.Open
5620 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lic] FROM [lic]"
5630 con_Access.Execute SQL
'lock.mdb
5640 cmdBar.Caption = "Updating LOCK.mdb"
5650 If Not con_Access Is Nothing Then Set con_Access = Nothing
5660 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\lock.mdb;Persist Security Info=False"
5670 con_Access.ConnectionString = strConAccess
5680 con_Access.Open
5690 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[LOCK] FROM [LOCK]"
5700 con_Access.Execute SQL
'LPPRICE.mdb
5710 cmdBar.Caption = "Updating LPPRICE.mdb"
5720 If Not con_Access Is Nothing Then Set con_Access = Nothing
5730 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LPPRICE.mdb;Persist Security Info=False"
5740 con_Access.ConnectionString = strConAccess
5750 con_Access.Open
5760 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lpCUSTOMER] FROM [CUSTOMER]"
5770 con_Access.Execute SQL
5780 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lpPRICE] FROM [LPPRICE]"
5790 con_Access.Execute SQL
'LSPRICE.mdb
5800 cmdBar.Caption = "Updating LSPRICE.mdb"
5810 If Not con_Access Is Nothing Then Set con_Access = Nothing
5820 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\LSPRICE.mdb;Persist Security Info=False"
5830 con_Access.ConnectionString = strConAccess
5840 con_Access.Open
5850 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lsCUSTOMER] FROM [CUSTOMER]"
5860 con_Access.Execute SQL
5870 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[lsPRICE] FROM [LSPRICE]"
5880 con_Access.Execute SQL
'MP.mdb
5890 cmdBar.Caption = "Updating MP.mdb"
5900 If Not con_Access Is Nothing Then Set con_Access = Nothing
5910 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\MP.mdb;Persist Security Info=False"
5920 con_Access.ConnectionString = strConAccess
5930 con_Access.Open
5940 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MP] FROM [MP]"
5950 con_Access.Execute SQL
5960 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MPITEMS] FROM [MPITEMS]"
5970 con_Access.Execute SQL
'MTHPYT.mdb
5980 cmdBar.Caption = "Updating MTHYT.mdb"
5990 If Not con_Access Is Nothing Then Set con_Access = Nothing
6000 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\MTHPYT.mdb;Persist Security Info=False"
6010 con_Access.ConnectionString = strConAccess
6020 con_Access.Open
6030 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[mthpytGLAGE] FROM [GLAGE]"
6040 con_Access.Execute SQL
6050 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[mthpytGLAGETRSF] FROM [GLAGETRSF]"
6060 con_Access.Execute SQL
6070 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[MTHPYT] FROM [MTHPYT]"
6080 con_Access.Execute SQL
6090 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[OPENINGBAL] FROM [OPENINGBAL]"
6100 con_Access.Execute SQL
'PAYMENT.mdb
6110 cmdBar.Caption = "Updating PAYMENT.mdb"
6120 If Not con_Access Is Nothing Then Set con_Access = Nothing
6130 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PAYMENT.mdb;Persist Security Info=False"
6140 con_Access.ConnectionString = strConAccess
6150 con_Access.Open
6160 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PAYMENT] FROM [PAYMENT]"
6170 con_Access.Execute SQL
'PICKUP.mdb
'PLANT.mdb
6180 cmdBar.Caption = "Updating PLANT.mdb"
6190 If Not con_Access Is Nothing Then Set con_Access = Nothing
6200 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PLANT.mdb;Persist Security Info=False"
6210 con_Access.ConnectionString = strConAccess
6220 con_Access.Open
6230 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PLANT] FROM [PLANT]"
6240 con_Access.Execute SQL
'PO.mdb
6250 cmdBar.Caption = "Updating PO.mdb"
6260 If Not con_Access Is Nothing Then Set con_Access = Nothing
6270 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PO.mdb;Persist Security Info=False"
6280 con_Access.ConnectionString = strConAccess
6290 con_Access.Open
6300 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poFILLEDITEMS] FROM [FILLEDITEMS]"
6310 con_Access.Execute SQL
6320 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poINVOICE] FROM [INVOICE]"
6330 con_Access.Execute SQL
6340 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poINVOICEDETAILS] FROM [INVOICEDETAILS]"
6350 con_Access.Execute SQL
'PoLabel.mdb
6360 cmdBar.Caption = "Updating POLABEL.mdb"
6370 If Not con_Access Is Nothing Then Set con_Access = Nothing
6380 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PoLabel.mdb;Persist Security Info=False"
6390 con_Access.ConnectionString = strConAccess
6400 con_Access.Open
6410 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[poLabel] FROM [Label]"
6420 con_Access.Execute SQL
'POSTING.mdb
6430 cmdBar.Caption = "Updating POSTING.mdb"
6440 If Not con_Access Is Nothing Then Set con_Access = Nothing
6450 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\POSTING.mdb;Persist Security Info=False"
6460 con_Access.ConnectionString = strConAccess
6470 con_Access.Open
6480 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[POSTING] FROM [POSTING]"
6490 con_Access.Execute SQL
'PRICE.mdb
6500 cmdBar.Caption = "Updating PRICE.mdb"
6510 If Not con_Access Is Nothing Then Set con_Access = Nothing
6520 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PRICE.mdb;Persist Security Info=False"
6530 con_Access.ConnectionString = strConAccess
6540 con_Access.Open
6550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PRICE] FROM [PRICE]"
6560 con_Access.Execute SQL
'PRICELAST.mdb
6570 cmdBar.Caption = "Updating PRICELAST.mdb"
6580 If Not con_Access Is Nothing Then Set con_Access = Nothing
6590 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PRICELAST.mdb;Persist Security Info=False"
6600 con_Access.ConnectionString = strConAccess
6610 con_Access.Open
6620 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[laPRICE] FROM [PRICE]"
6630 con_Access.Execute SQL
'PRICELIST.mdb
6640 cmdBar.Caption = "Updating PRICELIST.mdb"
6650 If Not con_Access Is Nothing Then Set con_Access = Nothing
6660 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PRICELIST.mdb;Persist Security Info=False"
6670 con_Access.ConnectionString = strConAccess
6680 con_Access.Open
6690 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PRICELIST] FROM [PRICELIST]"
6700 con_Access.Execute SQL
'PROBATCH.mdb
6710 cmdBar.Caption = "Updating PROBATCH.mdb"
6720 If Not con_Access Is Nothing Then Set con_Access = Nothing
6730 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PROBATCH.mdb;Persist Security Info=False"
6740 con_Access.ConnectionString = strConAccess
6750 con_Access.Open
6760 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PROBATCH] FROM [PROBATCH]"
6770 con_Access.Execute SQL
'product.mdb
6780 cmdBar.Caption = "Updating PRODUCT.mdb"
6790 If Not con_Access Is Nothing Then Set con_Access = Nothing
6800 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\product.mdb;Persist Security Info=False"
6810 con_Access.ConnectionString = strConAccess
6820 con_Access.Open
6830 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PRODUCT] FROM [PRODUCT]"
6840 con_Access.Execute SQL
'PS.mdb
6850 cmdBar.Caption = "Updating PS.mdb"
6860 If Not con_Access Is Nothing Then Set con_Access = Nothing
6870 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PS.mdb;Persist Security Info=False"
6880 con_Access.ConnectionString = strConAccess
6890 con_Access.Open
6900 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PS] FROM [PS]"
6910 con_Access.Execute SQL
6920 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[PSDESC] FROM [PSDESC]"
6930 con_Access.Execute SQL
'PURCHASESRETURN.mdb
6940 cmdBar.Caption = "Updating PURCHASESRETURN.mdb"
6950 If Not con_Access Is Nothing Then Set con_Access = Nothing
6960 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\PURCHASESRETURN.mdb;Persist Security Info=False"
6970 con_Access.ConnectionString = strConAccess
6980 con_Access.Open
6990 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[prINVOICE] FROM [INVOICE]"
7000 con_Access.Execute SQL
7010 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[prINVOICEDETAILS] FROM [INVOICEDETAILS]"
7020 con_Access.Execute SQL
'QuLabel.mdb
7030 cmdBar.Caption = "Updating QuLabel.mdb"
7040 If Not con_Access Is Nothing Then Set con_Access = Nothing
7050 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\QuLabel.mdb;Persist Security Info=False"
7060 con_Access.ConnectionString = strConAccess
7070 con_Access.Open
7080 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quLabel] FROM [Label]"
7090 con_Access.Execute SQL
'QUOT.mdb
7100 cmdBar.Caption = "Updating QUOT.mdb"
7110 If Not con_Access Is Nothing Then Set con_Access = Nothing
7120 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\QUOT.mdb;Persist Security Info=False"
7130 con_Access.ConnectionString = strConAccess
7140 con_Access.Open
7150 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quFILLEDITEMS] FROM [FILLEDITEMS]"
7160 con_Access.Execute SQL
7170 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quINVOICE] FROM [SALESORDER]"
7180 con_Access.Execute SQL
7190 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[quINVOICEDETAILS] FROM [SALESORDERDETAILS]"
7200 con_Access.Execute SQL
'RAWINFO.mdb
7210 cmdBar.Caption = "Updating RAWINFO.mdb"
7220 If Not con_Access Is Nothing Then Set con_Access = Nothing
7230 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\RAWINFO.mdb;Persist Security Info=False"
7240 con_Access.ConnectionString = strConAccess
7250 con_Access.Open
7260 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CAT] FROM [CAT]"
7270 con_Access.Execute SQL
7280 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RAWINFO] FROM [RAWINFO]"
7290 con_Access.Execute SQL
'RAWSTOCK.mdb
7300 cmdBar.Caption = "Updating RAWSTOCK.mdb"
7310 If Not con_Access Is Nothing Then Set con_Access = Nothing
7320 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\RAWSTOCK.mdb;Persist Security Info=False"
7330 con_Access.ConnectionString = strConAccess
7340 con_Access.Open
7350 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawBATCHINFO] FROM [BATCHINFO]"
7360 con_Access.Execute SQL
7370 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawRSTOCKDETAILS] FROM [RSTOCKDETAILS]"
7380 con_Access.Execute SQL
7390 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawRSTOCKHEAD] FROM [RSTOCKHEAD]"
7400 con_Access.Execute SQL
7410 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rawRSTOCKLIST] FROM [RSTOCKLIST]"
7420 con_Access.Execute SQL
'rawstockstatus.mdb
7430 cmdBar.Caption = "Updating rawstockstatus.mdb"
7440 If Not con_Access Is Nothing Then Set con_Access = Nothing
7450 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\rawstockstatus.mdb;Persist Security Info=False"
7460 con_Access.ConnectionString = strConAccess
7470 con_Access.Open
7480 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RAWSTATUS] FROM [RAWSTATUS]"
7490 con_Access.Execute SQL
'RECEIPT.mdb
7500 cmdBar.Caption = "Updating RECEIPT.mdb"
7510 If Not con_Access Is Nothing Then Set con_Access = Nothing
7520 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\RECEIPT.mdb;Persist Security Info=False"
7530 con_Access.ConnectionString = strConAccess
7540 con_Access.Open
7550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RECEIPT] FROM [RECEIPT]"
7560 con_Access.Execute SQL
'REPORTFILE.mdb
7570 cmdBar.Caption = "Updating REPORTFILE.mdb"
7580 If Not con_Access Is Nothing Then Set con_Access = Nothing
7590 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\REPORTFILE.mdb;Persist Security Info=False"
7600 con_Access.ConnectionString = strConAccess
7610 con_Access.Open
7620 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[repDO] FROM [DO]"
7630 con_Access.Execute SQL
7640 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[repINVOICE] FROM [INVOICE]"
7650 con_Access.Execute SQL
'ROOM.mdb
7660 cmdBar.Caption = "Updating ROOM.mdb"
7670 If Not con_Access Is Nothing Then Set con_Access = Nothing
7680 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\ROOM.mdb;Persist Security Info=False"
7690 con_Access.ConnectionString = strConAccess
7700 con_Access.Open
7710 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[ROOM] FROM [ROOM]"
7720 con_Access.Execute SQL
'rpt.mdb
7730 cmdBar.Caption = "Updating RPT.mdb"
7740 If Not con_Access Is Nothing Then Set con_Access = Nothing
7750 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\rpt.mdb;Persist Security Info=False"
7760 con_Access.ConnectionString = strConAccess
7770 con_Access.Open
'7780 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptClientAc] FROM [ClientAc]"
'7790 con_Access.Execute SQL
'7800 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptClientBankAc] FROM [ClientBankAc]"
'7810 con_Access.Execute SQL
7820 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGLAGEtrsf] FROM [GLAGEtrsf]"
7830 con_Access.Execute SQL
7840 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGLAGETRSFMBM] FROM [GLAGETRSFMBM]"
7850 con_Access.Execute SQL
7860 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGLFIN] FROM [GLFIN]"
7870 con_Access.Execute SQL
7880 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptGSTAC] FROM [GSTAC]"
7890 con_Access.Execute SQL
7900 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptJournalListing] FROM [JournalListing]"
7910 con_Access.Execute SQL
7920 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptLedger] FROM [Ledger]"
7930 con_Access.Execute SQL
'7940 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptLedgerGstSales] FROM [LedgerGstSales]"
'7950 con_Access.Execute SQL
7960 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptOPENITEMSTAC] FROM [OPENITEMSTAC]"
7970 con_Access.Execute SQL
7980 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RPT] FROM [RPT]"
7990 con_Access.Execute SQL
con_Access.Execute SQL
8000 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RPTHEADER] FROM [RPTHEADER]"
8010 con_Access.Execute SQL
8020 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTClisting] FROM [TClisting]"
8030 con_Access.Execute SQL
8040 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTDlisting] FROM [Tdlisting]"
8050 con_Access.Execute SQL
8060 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTOClisting] FROM [Toclisting]"
8070 con_Access.Execute SQL
8080 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTODlisting] FROM [TODlisting]"
8090 con_Access.Execute SQL
8100 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[rptTrialBalance] FROM [TrialBalance]"
8110 con_Access.Execute SQL
'RS.MDB
8120 cmdBar.Caption = "Updating RS.mdb"
8130 If Not con_Access Is Nothing Then Set con_Access = Nothing
8140 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\rs.mdb;Persist Security Info=False"
8150 con_Access.ConnectionString = strConAccess
8160 con_Access.Open
8170 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[RS] FROM [RS]"
8180 con_Access.Execute SQL
'SALESORDER.mdb
8190 cmdBar.Caption = "Updating SALESORDER.mdb"
8200 If Not con_Access Is Nothing Then Set con_Access = Nothing
8210 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SALESORDER.mdb;Persist Security Info=False"
8220 con_Access.ConnectionString = strConAccess
8230 con_Access.Open
8240 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soFILLEDITEMS] FROM [FILLEDITEMS]"
8250 con_Access.Execute SQL
8260 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soINVOICE] FROM [SALESORDER]"
8270 con_Access.Execute SQL
8280 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soINVOICEDETAILS] FROM [SALESORDERDETAILS]"
8290 con_Access.Execute SQL
'SalesRep.mdb
8300 cmdBar.Caption = "Updating SalesRep.mdb"
8310 If Not con_Access Is Nothing Then Set con_Access = Nothing
8320 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SALESREP.mdb;Persist Security Info=False"
8330 con_Access.ConnectionString = strConAccess
8340 con_Access.Open
8350 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SALESREP] FROM [SALESREP]"
8360 con_Access.Execute SQL
'SALESRETURN.mdb
8370 cmdBar.Caption = "Updating SALESRETURN.mdb"
8380 If Not con_Access Is Nothing Then Set con_Access = Nothing
8390 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SALESRETURN.mdb;Persist Security Info=False"
8400 con_Access.ConnectionString = strConAccess
8410 con_Access.Open
8420 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[srINVOICE] FROM [INVOICE]"
8430 con_Access.Execute SQL
8440 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[srINVOICEDETAILS] FROM [INVOICEDETAILS]"
8450 con_Access.Execute SQL
'SERVICECARD.mdb
8460 cmdBar.Caption = "Updating SERVICECARD.mdb"
8470 If Not con_Access Is Nothing Then Set con_Access = Nothing
8480 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICECARD.mdb;Persist Security Info=False"
8490 con_Access.ConnectionString = strConAccess
8500 con_Access.Open
8510 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICECARD] FROM [SERVICECARD]"
8520 con_Access.Execute SQL
8530 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICECARDITEM] FROM [SERVICECARDITEM]"
8540 con_Access.Execute SQL
8550 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICERECORD] FROM [SERVICERECORD]"
8560 con_Access.Execute SQL
'SERVICEINFO.mdb
8570 cmdBar.Caption = "Updating SERVICEINFO.mdb"
8580 If Not con_Access Is Nothing Then Set con_Access = Nothing
8590 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICEINFO.mdb;Persist Security Info=False"
8600 con_Access.ConnectionString = strConAccess
8610 con_Access.Open
8620 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICEINFO] FROM [SERVICEINFO]"
8630 con_Access.Execute SQL
'SERVICEINTERVAL.mdb
8640 cmdBar.Caption = "Updating SERVICEINTERVAL.mdb"
8650 If Not con_Access Is Nothing Then Set con_Access = Nothing
8660 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICEINTERVAL.mdb;Persist Security Info=False"
8670 con_Access.ConnectionString = strConAccess
8680 con_Access.Open
8690 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICEINTERVAL] FROM [SERVICEINTERVAL]"
8700 con_Access.Execute SQL
'SERVICESTATUS.mdb
8710 cmdBar.Caption = "Updating SERVICESTATUS.mdb"
8720 If Not con_Access Is Nothing Then Set con_Access = Nothing
8730 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SERVICESTATUS.mdb;Persist Security Info=False"
8740 con_Access.ConnectionString = strConAccess
8750 con_Access.Open
8760 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SERVICESTATUS] FROM [SERVICESTATUS]"
8770 con_Access.Execute SQL
'shan.mdb
8780 cmdBar.Caption = "Updating SHAN.mdb"
8790 If Not con_Access Is Nothing Then Set con_Access = Nothing
8800 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\shan.mdb;Persist Security Info=False"
8810 con_Access.ConnectionString = strConAccess
8820 con_Access.Open
8830 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[noINV] FROM [table1]"
8840 con_Access.Execute SQL
'SNTRAN.mdb
8850 cmdBar.Caption = "Updating SNTRAN.mdb"
8860 If Not con_Access Is Nothing Then Set con_Access = Nothing
8870 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SNTRAN.mdb;Persist Security Info=False"
8880 con_Access.ConnectionString = strConAccess
8890 con_Access.Open
8900 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[snCB] FROM [CB]"
8910 con_Access.Execute SQL
8920 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[snDO] FROM [DO]"
8930 con_Access.Execute SQL
8940 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[snINVOICE] FROM [INVOICE]"
8950 con_Access.Execute SQL
'SOENQUIRY.mdb
8960 cmdBar.Caption = "Updating SOENQUIRY.mdb"
8970 If Not con_Access Is Nothing Then Set con_Access = Nothing
8980 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SOENQUIRY.mdb;Persist Security Info=False"
8990 con_Access.ConnectionString = strConAccess
9000 con_Access.Open
9010 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soeINVOICE] FROM [SALESORDER]"
9020 con_Access.Execute SQL
'SoLabel.mdb
9030 cmdBar.Caption = "Updating SoLabel.mdb"
9040 If Not con_Access Is Nothing Then Set con_Access = Nothing
9050 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SoLabel.mdb;Persist Security Info=False"
9060 con_Access.ConnectionString = strConAccess
9070 con_Access.Open
9080 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[soLabel] FROM [Label]"
9090 con_Access.Execute SQL
'SS.mdb
9100 cmdBar.Caption = "Updating SS.mdb"
9110 If Not con_Access Is Nothing Then Set con_Access = Nothing
9120 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SS.mdb;Persist Security Info=False"
9130 con_Access.ConnectionString = strConAccess
9140 con_Access.Open
9150 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SS] FROM [SS]"
9160 con_Access.Execute SQL
'SSADMIN.mdb
9170 cmdBar.Caption = "Updating SSADMIN.mdb"
9180 If Not con_Access Is Nothing Then Set con_Access = Nothing
9190 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SSADMIN.mdb;Persist Security Info=False"
9200 con_Access.ConnectionString = strConAccess
9210 con_Access.Open
9220 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SSADMIN] FROM [SSADMIN]"
9230 con_Access.Execute SQL
'STAFF.mdb
9240 cmdBar.Caption = "Updating SSTAFF.mdb"
9250 If Not con_Access Is Nothing Then Set con_Access = Nothing
9260 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STAFF.mdb;Persist Security Info=False"
9270 con_Access.ConnectionString = strConAccess
9280 con_Access.Open
9290 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STAFF] FROM [STAFF]"
9300 con_Access.Execute SQL
'STATEMENTGROUP.mdb
9310 cmdBar.Caption = "Updating STATEMENTGROUP.mdb"
9320 If Not con_Access Is Nothing Then Set con_Access = Nothing
9330 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STATEMENTGROUP.mdb;Persist Security Info=False"
9340 con_Access.ConnectionString = strConAccess
9350 con_Access.Open
9360 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STATEMENTGROUP] FROM [STATEMENTGROUP]"
9370 con_Access.Execute SQL
'STATETYPE.mdb
9380 cmdBar.Caption = "Updating STATETYPE.mdb"
9390 If Not con_Access Is Nothing Then Set con_Access = Nothing
9400 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STATETYPE.mdb;Persist Security Info=False"
9410 con_Access.ConnectionString = strConAccess
9420 con_Access.Open
9430 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STATETYPE] FROM [STATETYPE]"
9440 con_Access.Execute SQL
'STKprice.mdb
9450 cmdBar.Caption = "Updating STKprice.mdb"
9460 If Not con_Access Is Nothing Then Set con_Access = Nothing
9470 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STKprice.mdb;Persist Security Info=False"
9480 con_Access.ConnectionString = strConAccess
9490 con_Access.Open
9500 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STKprice] FROM [STKPrice]"
9510 con_Access.Execute SQL
'STOCK.mdb
9520 cmdBar.Caption = "Updating STOCK.mdb"
9530 If Not con_Access Is Nothing Then Set con_Access = Nothing
9540 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCK.mdb;Persist Security Info=False"
9550 con_Access.ConnectionString = strConAccess
9560 con_Access.Open
9570 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[stkBATCHINFO] FROM [BATCHINFO]"
9580 con_Access.Execute SQL
9590 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[REPORTDATE] FROM [REPORTDATE]"
9600 con_Access.Execute SQL
9610 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKDETAILS] FROM [STOCKDETAILS]"
9620 con_Access.Execute SQL
9630 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKHEAD] FROM [STOCKHEAD]"
9640 con_Access.Execute SQL
9650 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKLIST] FROM [STOCKLIST]"
9660 con_Access.Execute SQL
'STOCKbf.mdb
9670 cmdBar.Caption = "Updating STOCKBF.mdb"
9680 If Not con_Access Is Nothing Then Set con_Access = Nothing
9690 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKbf.mdb;Persist Security Info=False"
9700 con_Access.ConnectionString = strConAccess
9710 con_Access.Open
9720 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfBATCHINFO] FROM [BATCHINFO]"
9730 con_Access.Execute SQL
9740 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfREPORTDATE] FROM [REPORTDATE]"
9750 con_Access.Execute SQL
9760 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfSTOCKDETAILS] FROM [STOCKDETAILS]"
9770 con_Access.Execute SQL
9780 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfSTOCKHEAD] FROM [STOCKHEAD]"
9790 con_Access.Execute SQL
9800 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[bfSTOCKLIST] FROM [STOCKLIST]"
9810 con_Access.Execute SQL
'STOCKbfTemp.mdb
9820 cmdBar.Caption = "Updating SSTOCKbfTemp.mdb"
9830 If Not con_Access Is Nothing Then Set con_Access = Nothing
9840 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKbfTemp.mdb;Persist Security Info=False"
9850 con_Access.ConnectionString = strConAccess
9860 con_Access.Open
9870 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpBATCHINFO] FROM [BATCHINFO]"
9880 con_Access.Execute SQL
9890 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpREPORTDATE] FROM [REPORTDATE]"
9900 con_Access.Execute SQL
9910 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpSTOCKDETAILS] FROM [STOCKDETAILS]"
9920 con_Access.Execute SQL
9930 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpSTOCKHEAD] FROM [STOCKHEAD]"
9940 con_Access.Execute SQL
9950 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[tmpSTOCKLISTS] FROM [STOCKLIST]"
9960 con_Access.Execute SQL
'STOCKIST.mdb
9970 cmdBar.Caption = "Updating SSTOCKIST.mdb"
9980 If Not con_Access Is Nothing Then Set con_Access = Nothing
9990 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKIST.mdb;Persist Security Info=False"
10000 con_Access.ConnectionString = strConAccess
10010 con_Access.Open
10020 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[STOCKIST] FROM [STOCKIST]"
10030 con_Access.Execute SQL
'STOCKMDBbatchInfo.mdb
10040 cmdBar.Caption = "Updating SSTOCKBATCHINFO.mdb"
10050 If Not con_Access Is Nothing Then Set con_Access = Nothing
10060 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKMDBbatchInfo.mdb;Persist Security Info=False"
10070 con_Access.ConnectionString = strConAccess
10080 con_Access.Open
10090 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[BATCHINFO] FROM [BATCHINFO]"
10100 con_Access.Execute SQL
'StockMthly.mdb
10110 cmdBar.Caption = "Updating SSTOCKMTHLY.mdb"
10120 If Not con_Access Is Nothing Then Set con_Access = Nothing
10130 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\StockMthly.mdb;Persist Security Info=False"
10140 con_Access.ConnectionString = strConAccess
10150 con_Access.Open
10160 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[StockMthly] FROM [StockMthly]"
10170 con_Access.Execute SQL
'STOCKOUT.mdb
10180 cmdBar.Caption = "Updating SSTOCKOUT.mdb"
10190 If Not con_Access Is Nothing Then Set con_Access = Nothing
10200 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\STOCKOUT.mdb;Persist Security Info=False"
10210 con_Access.ConnectionString = strConAccess
10220 con_Access.Open
10230 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[stoINVOICE] FROM [INVOICE]"
10240 con_Access.Execute SQL
10250 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[stoINVOICEDETAILS] FROM [INVOICEDETAILS]"
10260 con_Access.Execute SQL
'SupLibLabel.mdb
10270 cmdBar.Caption = "Updating SupLibLabel.mdb"
10280 If Not con_Access Is Nothing Then Set con_Access = Nothing
10290 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SupLibLabel.mdb;Persist Security Info=False"
10300 con_Access.ConnectionString = strConAccess
10310 con_Access.Open
10320 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[supLabel] FROM [Label]"
10330 con_Access.Execute SQL
'SYSINFO.mdb
10340 cmdBar.Caption = "Updating SYSINFO.mdb"
10350 If Not con_Access Is Nothing Then Set con_Access = Nothing
10360 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\SYSINFO.mdb;Persist Security Info=False"
10370 con_Access.ConnectionString = strConAccess
10380 con_Access.Open
10390 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[CONTROL] FROM [CONTROL]"
10400 con_Access.Execute SQL
10410 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLAP] FROM [GLAP]"
10420 con_Access.Execute SQL
10430 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[GLPASS] FROM [GLPASS]"
10440 con_Access.Execute SQL
'TAXCODE.mdb
10450 cmdBar.Caption = "Updating TAXCODE.mdb"
10460 If Not con_Access Is Nothing Then Set con_Access = Nothing
10470 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\TAXCODE.mdb;Persist Security Info=False"
10480 con_Access.ConnectionString = strConAccess
10490 con_Access.Open
10500 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[TAXCODE] FROM [TAXCODE]"
10510 con_Access.Execute SQL
'UDF.mdb
10520 cmdBar.Caption = "Updating UDF.mdb"
10530 If Not con_Access Is Nothing Then Set con_Access = Nothing
10540 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\UDF.mdb;Persist Security Info=False"
10550 con_Access.ConnectionString = strConAccess
10560 con_Access.Open
10570 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfCASHBILL] FROM [CASHBILL]"
10580 con_Access.Execute SQL
10590 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfDO] FROM [DO]"
10600 con_Access.Execute SQL
10610 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfFORMULA] FROM [FORMULA]"
10620 con_Access.Execute SQL
10630 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfGRN] FROM [GRN]"
10640 con_Access.Execute SQL
10650 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfINVOICE] FROM [INVOICE]"
10660 con_Access.Execute SQL
10670 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfPO] FROM [PO]"
10680 con_Access.Execute SQL
10690 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfPURCHASESRETURN] FROM [PURCHASESRETURN]"
10700 con_Access.Execute SQL
10710 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfQUOT] FROM [QUOT]"
10720 con_Access.Execute SQL
10730 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfSALESORDER] FROM [SALESORDER]"
10740 con_Access.Execute SQL
10750 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[udfSALESRETURN] FROM [SALESRETURN]"
10760 con_Access.Execute SQL
'USERPT.mdb
10770 cmdBar.Caption = "Updating USERPT.mdb"
10780 If Not con_Access Is Nothing Then Set con_Access = Nothing
10790 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\USERPT.mdb;Persist Security Info=False"
10800 con_Access.ConnectionString = strConAccess
10810 con_Access.Open
10820 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[USERPT] FROM [USERPT]"
10830 con_Access.Execute SQL
'WAREHOUSE.mdb
10840 cmdBar.Caption = "Updating WAREHOUSE.mdb"
10850 If Not con_Access Is Nothing Then Set con_Access = Nothing
10860 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\WAREHOUSE.mdb;Persist Security Info=False"
10870 con_Access.ConnectionString = strConAccess
10880 con_Access.Open
10890 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[WAREHOUSE] FROM [WAREHOUSE]"
10900 con_Access.Execute SQL
'wc.mdb
10910 cmdBar.Caption = "Updating WC.mdb"
10920 If Not con_Access Is Nothing Then Set con_Access = Nothing
10930 strConAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ph & "\wc.mdb;Persist Security Info=False"
10940 con_Access.ConnectionString = strConAccess
10950 con_Access.Open
10960 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[SN] FROM [SN]"
10970 con_Access.Execute SQL
10980 SQL = "SELECT * INTO [ODBC;Driver=SQL Server;SERVER=" & mServer & ";DATABASE=" & DataFile & ";UID=" & mUser & ";PWD=" & mPwd & ";].[WC] FROM [WC]"
10990 con_Access.Execute SQL
11000 MsgBox "Updated server"
11010 cmdBar.Visible = False
11020 Screen.MousePointer = vbDefault
End Sub
Take off the line numbers.
(This bit added because the solution is too short otherwise)
Hi Yes remove line numbers and Check if condition,it show error conversion in telerik convertor
If Not con_Access Is Nothing Then Set con_Access = Nothing
So change if condition in vb code
If Not con_Access Is Nothing Then Set con_Access = Nothing
to
If Not con_Access Is Nothing Then con_Access = Nothing End IF
and then convert ur code.
Note :in all if condition need to change in vb code and then convert to C#
You can always convert VB.NET to C# and visa versa automatically. You can get especially good quality and comprehensive translation using open-source ILSpy. Please see my past answer: Code Interpretation, C# to VB.NET[^].
—SA
这篇关于将vb转换为c#时出错的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!