- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
[µo°Ý] ¤Þ¥ÎADO»yªkn²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- Private Sub clearNwCmd6_Click()
-
- Call comBindCmd56
- mLoadFile.mConstrCls = mconStr
-
- With mLoadFile
- Set .mShtCls = upDataSht1
- .pDataSource = mDataBasePath
- If .DataSourceExisted(dataPath) = True Then 'dataPath ¬° combobox «ü©w¸ê®Æ®w¦WºÙ
- 'Call .LoadDataSource(dataPath, mData1) ', multiPageNo)
- Call .clearDataNWSource(dataPath, getAppTxt5.Text)
- Else
- MsgBox "«ü©w³ø³æ¸¹½X¸ê®Æ¤£¦s¦b"
- End If
- End With
-
- End Sub
- Sub comBindCmd56()
- With upDataSht1
- getAppTxt5.Value = .Range("b2").Value
- End With
- dataPath = dataBaseComb2.Value '¥ý¥ÑcomBoBox1¨ú¥X¸ê®Æ®w¦WºÙ
- Select Case dataPath
-
- Case Is = "TRANCBS"
- mDataBasePath = "D:\trancbs\database\cbsData.mdb"
- mconStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
- 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" '´ú¸Õ
-
- End Select
- End Sub
- Public Function clearDataNWSource(ByVal dataPath As String, ByVal mAppNo As String)
-
- Application.ScreenUpdating = False
-
- On Error GoTo ErrHandle
- Set mCon = New ADODB.Connection
- Select Case dataPath
- Case Is = "MYSQL"
- With mCon
- .Open mconStr
- End With
- Case Else
- With mCon
- .Open mconStr & mDataSource
- End With
- End Select
- Set mRst = New ADODB.Recordset
- With mRst
- .ActiveConnection = mCon
- .CursorLocation = adUseClient
- .CursorType = adOpenDynamic
- .LockType = adLockPessimistic
- .Source = mSql
- .Open
- End With
-
- If Not mRst.EOF Then
- mData1 = mRst.GetRows
- End If
- 's = mRst.Fields.Count
- With mSht
- mRow = .Range("c" & .Rows.Count).End(xlUp).Row
- End With
-
- For m = 2 To mRow
- cStr1 = mSht.Cells(m, 1)
- cStr2 = mSht.Cells(m, 2)
- cStr3 = mSht.Cells(m, 3)
- cStr4 = mSht.Cells(m, 4)
- cStr5 = mSht.Cells(m, 5)
-
- mRst.MoveFirst
- Do Until mRst.EOF = True
- mStr1 = mRst.Fields("MSGCODE")
- mStr2 = mRst.Fields("SERSNO")
- mStr3 = mRst.Fields("¶µ¦¸¸¹½X")
- mStr4 = mRst.Fields("¼Æ¶q")
- mStr5 = mRst.Fields("UNITAMT")
- 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
- mRst.Fields("³ø³æ²b«").Value = """" '¥X²{¿ù»~ °õ¦æ¦Ü¦¹§Y¸õ¦ÜErrHandle
- mRst.Update
- Exit Do
- End If
- mRst.MoveNext
- Loop
- Next
-
- mRst.Close
- mCon.Close
-
- Set mRst = Nothing
- Set mCon = Nothing
- MsgBox "¤w§¹¦¨·s¼W«ü©wñ¼f¤å¸¹" & vbCrLf & "³ø³æ¸¹½X¡G" & mAppNo & "¦Ü¸ê®Æ®w¤º"
- Exit Function
- ErrHandle:
- LastErrNumber = Err.Number
- MsgBox Err.Number
- Debug.Print Err.Number
-
- LastErrDescription = Err.Description
- MsgBox Err.Description
- Debug.Print Err.Description
- If LastErrNumber = 13 Then '¦pªG¹J¨ì°}¦C ERR ®É¡Aª½±µ§ï¥Ñ MDATA1 °}¦C¨ú¥X¸ê®Æ¤º®e
- mErr mData1, dataPath
- End If
-
- Err.Clear
- End Function
½Æ»s¥N½X |
|