vb .netʹÓÃOracleCommand.ExecuteNoquery insertÇë½Ì
ÐèÇó°ÑÁíÒ»¸öÊý¾Ý¿â²éѯ½á¹ûµÄDataSet insertµ½Oracle×ÊÁϿ⡣DataSet°üº¬ÓÐeqp_status, eqp_status_time£¬seq, seq_recipeµÈÀ¸Î»¡£insertÓï¾ä²ÉÓÃBatch·½Ê½£¬²¿·Ö´úÂëÈçÏ£º
'SQL£º
insert into table_a(status, eqp_status_time£¬seq, seq_recipe) values(:pStatus, :pEqpStatusTime, :pSeq, :pSeqRecipe)
'É趨SQL Parameter:
For i = 0 To intQuery - 1
drRow = dsNotExistEqpInfo.Tables(0).Rows(i)
objParam(0) = New DataBase.SqlParameter("pEqpStatus", CStr(drRow.Item("eqp_status")))
objParam(1) = New DataBase.SqlParameter("pEqpStatusTime", CType(drRow.Item("eqp_status_time"), Date))
objParam(2) = New DataBase.SqlParameter("pSeq", CType(drRow.Item("seq"), Integer))
objParam(3) = New DataBase.SqlParameter("pSeqRecipe", CType(drRow.Item("seq_recipe"), Integer))
Me.OraclePis2Connection.ExecuteNonQuery(strSql, objParam)
Next
'´òÓ¡³öÀ´µÄSQLÓï¾ä£º
INSERT INTO C_EQP_EQPX (eqp_status, eqp_status_time, seq, seq_recipe) VALUES ('RUN', 'RUN'Time, '0', '0'Recipe)
ÈçÉÏSQLÓï¾äÖеļӴÖ×ÖÌ壬CType(drRow.Item("eqp_status_time"), Date)='2010/01/01'£¬µ«insertÓï¾äÖÐֵȴΪ'RUN'Time£¬¼´CStr(drRow.Item("eqp_status"))+Time£¬ÇëÎÊ´ó¼ÒÓÐÓöµ½¹ýÕâ¸öÎÊÌâÂð£¿
{{--
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......