·t¶Â

Ãþ§O
clsADODBopenAcs

Option Explicit


Dim theCON As ADODB.Connection
Public theRST As ADODB.Recordset

Sub subConn(strFullName As String)
Dim strDrv As String

    strDrv = "Data Source=" & strFullName & ";"
    theCON.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & strDrv & "Jet OLEDBatabase Password=zxcvbnm,./;"
   
   
   
    '¨ä±K½X°Ñ¼Æ¦p¦ó³]©w
'theCON.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & strDrv & "Jet OLEDBatabase Password=yourpassword;"
   
End Sub

Sub subOpen(strCMn As String)
    theRST.Open Source:=strCMn, ActiveConnection:=theCON, _
                CursorType:=adOpenStatic, LockType:=adLockPessimistic, Options:=adCmdText
End Sub

Private Sub Class_Initialize()
    Set theCON = New ADODB.Connection
    Set theRST = New ADODB.Recordset
End Sub

Private Sub Class_Terminate()
    theCON.Close
    Set theRST = Nothing
    Set theCON = Nothing
End Sub

³o¬Oaccess ªºado ³s½uÃþ§O¡Aµ²¦X¤W¤@¬q¡A´N¥i¸ü¥X¸ê®Æ

·t¶Â

¥t¥~  ³oÃäªO¤W¦³­Ó¸ê®Æ¬d¸ß   ¨º¸Ì¬O½׾ ¦³«Ü¦h¸ê®Æ  §A¥i¥H¥h¬Ý¬Ý
¥t  §A¥i¥H¸Õ¥Î  vb2008  ¤U¥h¼g¡A·|¤ñ  vb6ÁÙ¦n¼gªº¦h¤F

·t¶Â

¦A¸É¥R¤@¤U  ³sµ²AccEss ªº°Ñ¼Æ

¸ê®Æ®w¸ô®| = "Z:\³¡ªù\»s³y¤¤¤ß\«~½èºÞ²z³¡\QM¸ê®Æ®w\FQCDataBase.mdb"
  mApp = "FQC"
  mApp1 = "ÀËÅç¤é´Á,ÀËÅç®É¶¡,¶g§O,¯Z§O,ÀËÅç¤H­û,¤u³æ¸¹½X,¼t°Ó¦WºÙ,²£«~½s¸¹,«~¦W,³W®æ,RUN¥d,¤j¼Ð,¤º¼Ð,¤p¼Ð,Hi-Pot,¥Ë¼Æ,ÀËÅçµ²ªG,²§±`Ãþ§O,²§±`¦ì¸m,²§±`½s½X,¤£¨}¶µ¥Ø,¤£¨}­ì¦],³B²z¤è¦¡,³Æµù"


mapp  ¬O table ªº¦WºÙ
mapp1  ¬O table  ªºÄæ¦ì¦WºÙ(¤£¬OÄæ¦ì¼Æ³á)

vpower

½Ð°Ý¶Â·t¤j¤j¬O§âExcel·í§@VBªº¸ê®Æ®w¶Ü?

¦A¦¸·PÁÂ,¬Ý¨Ó§Ú¯uªº¸Ó¥[ªo¤F,§Ú§¹¥þ¬Ý¤£À´

§Ú¥ý¨Ó¥h¤U¸üVB2008¦n¤F,·P®¦