ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤Þ¥ÎADO»yªk­n²MªÅ¬Y¤@µ§¸ê®Æ¤ºªº¬Y¤@Äæ¦ì­È¥¢±Ñ

[µo°Ý] ¤Þ¥ÎADO»yªk­n²MªÅ¬Y¤@µ§¸ê®Æ¤ºªº¬Y¤@Äæ¦ì­È¥¢±Ñ

¦U¦ì¤j¤j¦n¡G

¤p§Ì¤S¹J¨ì¤@­ÓÃøÃD
·Q½Ð¦U¦ì¤j¤j¨ó§U¡C
¤p§Ì·Q¤Þ¥ÎADO»yªk
¨Ó±N¸ê®Æ®w«ü©w¦X¥GSQL»yªk¬Y¨Ç¸ê®Æ
ªº¬Y¤@Äæ¦ì¤º¸ê®Æ¨Ã±N¨ä²MªÅ
¥i¬O·|¥X²{¦p¤U°ÝÃD
ERROR NO:-2147217887
ERR DESCRIPTION:
¦h­«¨BÆJ¾Þ§@µo¥Í¿ù»~¡C½ÐÀˬd¨C¤@­Óª¬ºA­È¡C
  1. Private Sub clearNwCmd6_Click()
  2.    
  3.     Call comBindCmd56
  4.     mLoadFile.mConstrCls = mconStr
  5.    
  6.     With mLoadFile
  7.         Set .mShtCls = upDataSht1        
  8.         .pDataSource = mDataBasePath
  9.         If .DataSourceExisted(dataPath) = True Then  'dataPath ¬° combobox «ü©w¸ê®Æ®w¦WºÙ
  10.             'Call .LoadDataSource(dataPath, mData1)    ', multiPageNo)
  11.             Call .clearDataNWSource(dataPath, getAppTxt5.Text)
  12.         Else
  13.             MsgBox "«ü©w³ø³æ¸¹½X¸ê®Æ¤£¦s¦b"
  14.         End If
  15.     End With
  16.    
  17. End Sub
  18. Sub comBindCmd56()
  19.     With upDataSht1
  20.         getAppTxt5.Value = .Range("b2").Value
  21.     End With
  22.     dataPath = dataBaseComb2.Value     '¥ý¥ÑcomBoBox1¨ú¥X¸ê®Æ®w¦WºÙ
  23.     Select Case dataPath        
  24.         
  25.     Case Is = "TRANCBS"
  26.         mDataBasePath = "D:\trancbs\database\cbsData.mdb"
  27.         mconStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
  28.         mLoadFile.mSqlCls = "SELECT ¶µ¦¸_INV¥DÀÉ.MSGCODE,¶µ¦¸_INV¥DÀÉ.SERSNO,¶µ¦¸_INV¥DÀÉ.¶µ¦¸¸¹½X,¶µ¦¸_INV¥DÀÉ.¼Æ¶q,¶µ¦¸_INV¥DÀÉ.UNITAMT,¶µ¦¸_INV¥DÀÉ.³ø³æ²b­« FROM ¶µ¦¸_INV¥DÀÉ WHERE ¶µ¦¸_INV¥DÀÉ.MSGCODE AND SERSNO= '" & getAppTxt5.Text & "' ORDER BY ¶µ¦¸_INV¥DÀÉ.¶µ¦¸¸¹½X  ASC"        '´ú¸Õ        
  29.    
  30.     End Select
  31. End Sub
  32. Public Function clearDataNWSource(ByVal dataPath As String, ByVal mAppNo As String)
  33.    
  34.     Application.ScreenUpdating = False
  35.    
  36.     On Error GoTo ErrHandle   
  37.     Set mCon = New ADODB.Connection   
  38.     Select Case dataPath   
  39.     Case Is = "MYSQL"
  40.         With mCon
  41.             .Open mconStr
  42.         End With
  43.     Case Else
  44.         With mCon
  45.             .Open mconStr & mDataSource
  46.         End With
  47.     End Select
  48.     Set mRst = New ADODB.Recordset
  49.     With mRst
  50.         .ActiveConnection = mCon
  51.         .CursorLocation = adUseClient
  52.         .CursorType = adOpenDynamic      
  53.         .LockType = adLockPessimistic   
  54.         .Source = mSql
  55.         .Open
  56.     End With
  57.         
  58.     If Not mRst.EOF Then
  59.        mData1 = mRst.GetRows
  60.     End If
  61.     's = mRst.Fields.Count
  62.     With mSht
  63.         mRow = .Range("c" & .Rows.Count).End(xlUp).Row
  64.     End With
  65.    
  66.     For m = 2 To mRow   
  67.         cStr1 = mSht.Cells(m, 1)
  68.         cStr2 = mSht.Cells(m, 2)
  69.         cStr3 = mSht.Cells(m, 3)
  70.         cStr4 = mSht.Cells(m, 4)
  71.         cStr5 = mSht.Cells(m, 5)      
  72.         
  73.         mRst.MoveFirst
  74.         Do Until mRst.EOF = True
  75.             mStr1 = mRst.Fields("MSGCODE")
  76.             mStr2 = mRst.Fields("SERSNO")
  77.             mStr3 = mRst.Fields("¶µ¦¸¸¹½X")
  78.             mStr4 = mRst.Fields("¼Æ¶q")
  79.             mStr5 = mRst.Fields("UNITAMT")
  80.             If cStr1 = mRst.Fields("MSGCODE") And cStr2 = mRst.Fields("SERSNO") And cStr3 = mRst.Fields("¶µ¦¸¸¹½X") And cStr4 = mRst.Fields("¼Æ¶q") And cStr5 = mRst.Fields("UNITAMT") Then                  
  81.                   mRst.Fields("³ø³æ²b­«").Value = """"            '¥X²{¿ù»~ °õ¦æ¦Ü¦¹§Y¸õ¦ÜErrHandle  
  82.                   mRst.Update
  83.                   Exit Do
  84.             End If
  85.             mRst.MoveNext
  86.         Loop
  87.      Next

  88.    
  89.     mRst.Close
  90.     mCon.Close
  91.    
  92.     Set mRst = Nothing
  93.     Set mCon = Nothing
  94.     MsgBox "¤w§¹¦¨·s¼W«ü©wñ¼f¤å¸¹" & vbCrLf & "³ø³æ¸¹½X¡G" & mAppNo & "¦Ü¸ê®Æ®w¤º"
  95.     Exit Function
  96. ErrHandle:
  97.     LastErrNumber = Err.Number
  98.     MsgBox Err.Number
  99.     Debug.Print Err.Number
  100.    
  101.     LastErrDescription = Err.Description
  102.     MsgBox Err.Description
  103.     Debug.Print Err.Description
  104.     If LastErrNumber = 13 Then           '¦pªG¹J¨ì°}¦C ERR ®É¡Aª½±µ§ï¥Ñ MDATA1 °}¦C¨ú¥X¸ê®Æ¤º®e
  105.         mErr mData1, dataPath
  106.     End If
  107.    
  108.     Err.Clear

  109. End Function
½Æ»s¥N½X

¦^´_ 1# dechiuan999
¨S¸Õ¡A§Ú²q
mRst.Fields("³ø³æ²b­«").Value = """"     <<³o¬O«ü¤@­ÓÂù¤Þ¸¹
§ï¦¨¤U­±¬Ý¬Ý
mRst.Fields("³ø³æ²b­«").Value = ""
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00


    ¤j¤j±z¦n¡G
±z´£¨Ñªº»yªk¥¿¬O¤p§Ì¤Þ¥Îªº¤èªk¡A
¥i¯à¶K¤å®É¥X¿ù¡C¦¹¤èªk¤p§Ì¸Õ¹L¬O¤£¥i¦æ¡C
mRst.Fields("³ø³æ²b­«").Value = ""

¤p§Ì§ï¸Õ¥t¤@ºØ¤è¦¡¬OÂù¤Þ¸¹¤º¥[³æ¤Þ¸¹
«o¥i¥H°õ¦æ¡C¥u¬O¦p¦¹¸ê®ÆÄ椺·|©µ¦ù¨ä
¥¦°ÝÃD¤F¡C

·P®¦¤j¤j¡I

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD