[µo°Ý] ½Ð°ÝVB6¦p¦ó³sµ²·sª©ªºACCESS©O?

algoji3ji3

½Ð°Ý¦U¦ì¤j¤jVB6«ç»ò³sµ²·sª©ªºACCESS§r~
§Ú¦bEXCEL VBA©³¤U§@·~³s½uOK~
¦ý¬O·h¨ìVB6´N¤£¦æ¤F~
¤]¸Õ¹L§ó·s¦¨VB6 SP6~ÁÙ¬O¤£¦æ~

Á`¬O·|¥X²{¡u°õ¦æ¶¥¬q¿ù»~'-2147467259 (80004005)¡v

¤Wºôª¦¤å¤F¦n¤[³£¥u¦³°w¹ï°ÆÀɦW¬Omdbªº¡A

¨S¦³°w¹ï¡uaccdb¡vªº~

½Ð°Ý¦U¦ì¤j¤j¦³¸Ñ¨M¿ìªk¶Ü?

¤U¸ü (19.09 KB)

2016-10-9 20:24

¤U¸ü (30.88 KB)

2016-10-9 20:24

1. Private Sub Command1_Click()
   
2.     RF = Text1.Text
   
3.     bb = Label1
   
4.     Call PPTR
   
5.    
   
6.     Label1 = AD
   
7. End Sub
   
8. 
   
9. 
   
10. Sub PPTR()
    
11. 
    
12. '1.³s½u¥N¸¹
    
13.     Dim myCon As ADODB.Connection '¶}¸ê®Æ®w
    
14.     Dim mywq As ADODB.Recordset '¶}¸ê®Æªí
    
15. 
    
16. '2.«Ø¥ßConnectionª«¥ó
    
17.     Set myCon = New ADODB.Connection
    
18. '3.³sµ²¸ê®Æ®w
    
19.     'ÅX°Êµ{¦¡Provider = Microsoft.ACE.OLEDB.12.0
    
20.     'Àɮצì¸mData Source=
    
21.     myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _
    
22.     "Data Source =C:\Users\algo\Desktop\PDR.accdb;" & _
    
23.     "Jet OLEDB:Database Password=a123;"
    
24. 
    
25.     myCon.CursorLocation = adUseClient
    
26. 
    
27. '4.«Ø¥ßRecordsetª«¥ó&³sµ²¸ê®Æªí
    
28.     '¿ï¨úSELECT+Äæ¦ì+FROM+¸ê®Æªí¦WºÙ+Where+Äæ¦ì¦WºÙ
    
29.    
    
30.     RF = " SELECT top 1 " & " ½s¸¹, " & " ©m¦W, " & " ¾°È, " & " ½s½X " & _
    
31.          " FROM PDA " & _
    
32.          " WHERE ½s½X " & _
    
33.          " LIKE  '" & P & "' "
    
34.    
    
35.     Set mywq = myCon.Execute(RF)
    
36.    
    
37.         AD = mywq.Fields("©m¦W")
    
38.    
    
39. '5.Ãö³¬³s½u
    
40.     myCon.Close
    
41.    
    
42. '6.¥á±óª«¥ó
    
43.     Set mywq = Nothing
    
44.     Set myCon = Nothing
    
45. End Sub

½Æ»s¥N½X

ACCESS³s½u.rar (584.84 KB)

¤U¸ü¦¸¼Æ: 2

2016-10-9 20:27

¤p»x

¤@¬qASPªºµ{¦¡½X¡A®v¥X¦Pªù½Ð°Ñ¦Ò
­«ÂI¬O§A¶}µoµ{¦¡ªº³o¥x¹q¸£¬O§_¦³¦w¸Ë2007¥H¤Wª©¥»ªºACCESS?

1. <%@Language=VBScript %>
   
2. <%
   
3. Dim adoCon
   
4. Dim rsLogbook
   
5. Dim strSQL
   
6. Set adoCon = Server.CreateObject("ADODB.Connection")
   
7. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DatabaseName.mdb")
   
8. Set rsLogbook = Server.CreateObject("ADODB.Recordset")
   
9. strSQL = "SELECT TableName.FieldName FROM TableName;"
   
10. rsLogbook.Open strSQL, adoCon
    
11. Response.Write ("<br>")
    
12. Response.Write (rsLogbook("FieldName"))
    
13. rsLogbook.Close
    
14. Set rsLogbook = Nothing
    
15. Set adoCon = Nothing
    
16. %>

½Æ»s¥N½X

algoji3ji3

¦^´_ 2# ¤p»x

ª©¤j±z¦n~
§Ú¸Õ¹L³s½u¡umdb¡v¡A¥i¥H³s½uµL»~~
¥Ø«e¬O­n³s½u¡uaccdb¡vÀÉ·|¦³¥X°ÝÃD~

¦w¸Ëªº¬O
vb6.0 sp6
Microsoft Access 2010
2007 Office system ÅX°Êµ{¦¡¡G¸ê®Æ³s½u¤¸¥ó
accessruntimeanddataconnectivity2007sp3-kb2526310-fullfile-zh-tw
AccessDatabaseEngine_X64

ª¦¤å¯à¸Ëªº³£¸Ë¤F....ÁÙ¬O¤£¦æ>"<¯S¨Ó¨D±Ï>"<

¤p»x

²©ö½d¨Ò¡A¦P¼Ë¥Î®v¥X¦PªùªºASP
­è¸Õ¹L

1. Set conobject = Server.CreateObject("ADODB.Connection")
   
2.          DBPath = Server.MapPath("mlebp-new.accdb")
   
3.          conobject.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & DBPath
   
4.         Set recobject=Server.CreateObject("ADODB.Recordset")

½Æ»s¥N½X

lpk187

¦^´_ 1# algoji3ji3


   ¦h¦¸´ú¸Õ¡A³£«ü¦V PDR.accdb ¬O­Ó·lÃaªºÀÉ¡AÁöµM¥i¥H¤â°Ê¥´¶}¡A¦ý¥ÎVB¥Î´N¬OµLªk¥´¶}¡A«Øij§A¦A°µ¤@­ÓÀÉ¥h´ú¸Õ

lpk187

¦^´_ 1# algoji3ji3

¥Î³o­ÓÀÉ¥h´ú¬Ý¬Ý
   
PDR.rar (369.38 KB)

¤U¸ü¦¸¼Æ: 4

2016-10-10 10:08