Вопрос : Проблема электронная таблица Perl

Hi,

This отнесено к моей более предыдущей проблеме сегодня. Здесь вместо трудн-кодирвоания вопрос я кладу их в лист первенствовать и читаю его. Лист первенствовать прикреплен. Но выход первенствует лист не получает произведенным с всеми рядками, им пуст. Куда я иду неправильно? реально оцененная помощь

Any, как обычно. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
># " class= " id= " codeSnippet786631 
new ($xls_file);
мо $worksheet = $workbook->addworksheet («журнальные записи оприходование»);
мо $worksheet1 = $workbook->addworksheet («удостоверение подлинности»);

мо $format1 = $workbook->add_format ();
мо $format2 = $workbook->add_format ();
мо $format3 = $workbook->add_format (=> «mm/dd/yy num_format ");


$format1->set_size (12);
$format1->set_bold ();
$format1->set_color («синь ");
$format1->set_align («центр ");
$format1->set_bg_color («желтый цвет ");

#$format2->set_num_format («Дженерал ");

############# определяет WorkBook для ############################### вопросов SQL

мо $sql_parser = электронная таблица:: ParseExcel->new ();
мо $sql_workbook = $sql_parser->parse («/ms/user/s/sayantag/SQL_Queries.xls»);
мое $sql_worksheet;

############################################################################

мое $col=0;
мое $row=0;

foreach мое $i (

 «JRNL_ID»
, «ACCTNG_PERIOD_ID»
, «FCP_ID»
, «LDGR_TYPE_CDE»
, «BA_HRCHY_ID»
, «BA_NID»
, «LE_HRCHY_ID»
, «LE_NID»
, «REGION_HRCHY_ID»
, «REGION_NID»
, «ASSET_ID»
, «QTP_KEY_ID»
, «CHANGE_CTGRY_ID»
, «ELIMINATION_ID»
, «SRC_ID»
, «JRNL_VAL»
, «EFFECTIVE_DTE»
, «RULE_ID»
, «JRNL_SET_ID»
, «CCY»
, «TRANSLATED_CCY»
, «UOM_CCY»
, «RUN_GROUP_ID»
, «BA_CNTRPTY_ID»
, «INTERCPNY_CNTRPTY_ID»
, «REGION_CNTRPTY_ID»
, «TICKET_REF_NO»
, «MASTER_TICKET_REF_NO»
, «HEADER_ID»	   

)

{

$worksheet->write (0, $col++, $i, $format1);

}

Вопрос Accesing ################## от SQL запрашивает ##################### WorkBook

для $sql_worksheet ($sql_workbook->worksheets ()) {

мо ($row_min, $row_max) = $sql_worksheet->row_range ();
мо ($col_min, $col_max) = $sql_worksheet->col_range ();

 для моего $row ($row_min. $row_max) {for## ##First
 для моего $col ($col_min. $col_max) {for## ##Second
   мо $cell = $sql_worksheet->get_cell ($row, $col);
     если ($col==0 && $row! && =0 (eq «Query1» $sql_worksheet->get_cell ($row, 0)))  { 
       $col++;
       мо $query = $sql_worksheet->get_cell ($row, $col) - >value;
##############################################################################
мо $dbh = DBI->connect («dbi: MSDB2: NQ200001», '', '', {«RaiseError» => 1}) или 
          умрите «не смогите соединиться к базе данных: $DBI:: errstr»;

мо $sql = «$query»;



мо $sth = $dbh->prepare ($sql);

$sth->execute ();



$row = 1;

пока (мо $a = $sth->fetchrow_hashref ()) {

$worksheet->write ($row, определенное 0, (($a-> {«JRNL_ID»})? $a-> {«JRNL_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 1, (($a-> {«ACCTNG_PERIOD_ID»})? $a-> {«ACCTNG_PERIOD_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 2, (($a-> {«FCP_ID»})? $a-> {«FCP_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 3, (($a-> {«LDGR_TYPE_CDE»})? $a-> {«LDGR_TYPE_CDE»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 4, (($a-> {«BA_HRCHY_ID»})? $a-> {«BA_HRCHY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 5, (($a-> {«BA_NID»})? $a-> {«BA_NID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 6, (($a-> {«LE_HRCHY_ID»})? $a-> {«LE_HRCHY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 7, (($a-> {«LE_NID»})? $a-> {«LE_NID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 8, (($a-> {«REGION_HRCHY_ID»})? $a-> {«REGION_HRCHY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 9, (($a-> {«REGION_NID»})? $a-> {«REGION_NID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 10, (($a-> {«ASSET_ID»})? $a-> {«ASSET_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 11, (($a-> {«QTP_KEY_ID»})? $a-> {«QTP_KEY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 12, (($a-> {«CHANGE_CTGRY_ID»})? $a-> {«CHANGE_CTGRY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 13, (($a-> {«ELIMINATION_ID»})? $a-> {«ELIMINATION_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 14, (($a-> {«SRC_ID»})? $a-> {«SRC_ID»}:  «[NULL] "), $format2);
$worksheet->write ($row, определенное 15, (($a-> {«JRNL_VAL»})? $a-> {«JRNL_VAL»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 16, (($a-> {«EFFECTIVE_DTE»})? $a-> {«EFFECTIVE_DTE»}: «[NULL] "), $format3);
$worksheet->write ($row, определенное 17, (($a-> {«RULE_ID»})? $a-> {«RULE_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 18, (($a-> {«JRNL_SET_ID»})? $a-> {«JRNL_SET_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 19, (($a-> {«CCY»})? $a-> {«CCY»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 20, (($a-> {«TRANSLATED_CCY»})? $a-> {«TRANSLATED_CCY»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 21, (($a-> {«UOM_CCY»})? $a-> {«UOM_CCY»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 22, (($a-> {«RUN_GROUP_ID»})? $a-> {«RUN_GROUP_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 23, (($a-> {«BA_CNTRPTY_ID»})? $a-> {«BA_CNTRPTY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 24, (($a-> {«INTERCPNY_CNTRPTY_ID»})? $a-> {«INTERCPNY_CNTRPTY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 25, (($a-> {«REGION_CNTRPTY_ID»})? $a-> {«REGION_CNTRPTY_ID»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 26, (($a-> {«TICKET_REF_NO»})? $a-> {«TICKET_REF_NO»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 27, (($a-> {«MASTER_TICKET_REF_NO»})? $a-> {«MASTER_TICKET_REF_NO»}: «[NULL] "), $format2);
$worksheet->write ($row, определенное 28, (($a-> {«HEADER_ID»})? $a-> {«HEADER_ID»}: «[NULL] "), $format2);


$row++;
}

$sth->finish ();

} ###End если для SQL запрашивает ### WorkBook     
   
 

#################################### ЛИСТА ###################### ВТОРЫХ

$col=0;


foreach мое $i («NUM_ROWS», «NUM_PROCESSED», «NUM_FAILED», «NUM_OUTPUT_ROWS»)

{

$worksheet1->write (0, $col++, $i, $format1);

}

##################### Accesing SQL запрашивает ######################### WorkBook снова

если ($col==0 && $row! && =0 (eq «Query2» $sql_worksheet->get_cell ($row, 0)))  {
       $col++;
       мо $query = $sql_worksheet->get_cell ($row, $col) - >value;

мо $dbh = DBI->connect («dbi: MSDB2: NQ230001», '', '', {«RaiseError» => 1}) или
          умрите «не смогите соединиться к базе данных: $DBI:: errstr»;

мо $sql = «$query»;




мо $sth = $dbh->prepare ($sql);

$sth->execute ();


$row = 1;

пока (мо $a = $sth->fetchrow_hashref ()) {

$worksheet1->write ($row, 0, $a-> {«NUM_ROWS»}, $format2);
$worksheet1->write ($row, 1, $a-> {«NUM_PROCESSED»}, $format2);
$worksheet1->write ($row, 2, $a-> {«NUM_FAILED»}, $format2);
$worksheet1->write ($row, 3, $a-> {«NUM_OUTPUT_ROWS»}, $format2);

$row++;
}

$sth->finish ();
   } #########End если для the second time (для рабочий лист удостоверения подлинности первоначально произведенного архива) для SQL запрашивает ######## WorkBook
  }
 }
}
$workbook->close ();
#exit;


если (- s $xls_file) {, то

«печати \ n \ nFile быть сравненным произведено с безнулевым размером. \ n \ n»;

}

еще {

«печати \ n \ произведенное nFile нул-размера. Починка Pls вопросы и регенерирует их снова перед сравнивать \ n \ n»;

}
class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >SQL-Queries.xls (13 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
>the SQL " описания " class=
class=
>
class=

Ответ : Проблема электронная таблица Perl

Авиапорт курьерский имеет порт локальных сетей поэтому его можно соединиться к существующий сети и после этого передает wifi.

Я малознаком с фактическим процессом установки но согласно Apple он поддерживает обеспеченность WEP и WPA поэтому он был бы как безопасен как любой другой беспроволочный маршрутизатор если установка правильн.
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us