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

¦p¦ó¥ÎVB6³sµ²ACCESS¸ê®Æ®w¬d¸ß,·s¼W,§R°£,­×§ï©O?

Ãþ§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¸ê®Æ
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

¥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
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

¦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Äæ¦ì¼Æ³á)
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2010-11-13 17:02 ½s¿è

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

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

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

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD