VBÁ¬½ÓACCESSÊý¾Ý¿â¾«¼ò°æ
Option Explicit
Private Sub Form_Load()
'¹¤³Ì->ÒýÓÃ->Ñ¡ÖÐMicrosoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'Á¬½ÓÊý¾Ý¿âµÄ´úÂë¶Î
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\database\shujuku.mdb"
'×Ô¼º¸Ä¶¯Ò»ÏÂÉÏÃæµÄ·¾¶ºÍÎļþÃû¼´¿É£¬ÆäËûµÄ´úÂëÄã²»Àí½âÕÕÕ³ÌùÎÞ·Á
'¶Ôxingmingbiao±í½øÐвéѯ²Ù×÷
jiluji.Open "Select * from xingmingbiao", shujukulianjie
End Sub
==========================
http://www.bianceng.cn/Programming/vb/200812/11121.htm
http://zhidao.baidu.com/question/76929489.html?fr=qrl&cid=1073&index=2
http://topic.csdn.net/t/20060821/17/4965200.html
Ïà¹ØÎĵµ£º
Ò»¡¢ADO¼ò½é
ADO(Active Data Object£¬»î¶¯Êý¾Ý¶ÔÏó)ʵ¼ÊÉÏÊÇÒ»ÖÖ»ùÓÚCOM(×é¼þ¶ÔÏóÄ£ÐÍ)ÖеÄ×Ô¶¯»¯½Ó¿Ú(IDispatch)¼¼Êõ£¬²¢ÒÔOLE DB(¶ÔÏóÁ¬½ÓºÍÏâÈëµÄÊý¾Ý¿â)Ϊ»ù´¡£¬¾¹ýOLE DB¾«Ðİü×°ºóµÄÊý¾Ý¿â·ÃÎʼ¼Êõ£¬ÀûÓÃËü¿ÉÒÔ¿ìËٵĴ´½¨Êý¾Ý¿âÓ¦ÓóÌÐò¡£
ADOÌṩÁËÒ»×é·Ç³£¼òµ¥£¬½«Ò»°ãͨÓõÄÊý¾Ý·ÃÎÊϸ½Ú½øÐзâ×°µÄ¶ÔÏó¡£ÓÉÓ ......
½¨Ò»¸öÄ£¿é
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2¡¢Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......
Òý×Ô£ºhttp://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄÇé¿öÓÐÒÔϼ¸ÖÖ£º
1£©·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄaccessÊý¾Ý¿â
2£©·ÃÎÊÔ¶³ÌmssqlÊý¾Ý¿â»òoracleµÈÆäËû¹ØÏµÊý¾Ý¿â£¬µ«ÊÇÊý¾Ý¿âͨÐŶ˿ڱ»·À»ðǽ×èµ²»òÆäËûÍøÂçÔÒòÔì³ÉÎÞ·¨Ê¹Óøö˿Ú
±¾ÎĽöÔÚwindows2000 advance server,mdac2.8ϲâÊÔͨ¹ý£ ......