ADO ACCESS »ñÈ¡±íÃû
BOOL GetAllTables(LPCTSTR databasefile,CStringArray & dbtables)
{
//#import "msado15.dll" no_namespace rename("EOF", "adoEOF") //¿½±´ msado15.dll µ½¹¤³ÌĿ¼
_ConnectionPtr m_pConnection;
_RecordsetPtr m_pRecordset;
HRESULT hr;
try
{
CoInitialize(NULL);
hr = m_pConnection.CreateInstance(__uuidof(Connection));
hr =m_pRecordset.CreateInstance(__uuidof(Recordset));
if(SUCCEEDED(hr))
{
CString strconnection;
strconnection.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s",databasefile);
hr = m_pConnection->Open((_bstr_t)strconnection,"","",adModeUnknown);
m_pRecordset = m_pConnection->OpenSchema(adSchemaTables); &nb
Ïà¹ØÎĵµ£º
1¡¢VSS¿Í»§¶Ë´ò¿ª¹¤³ÌʱÌáʾ Access to file"\\***\rights.dat" denied
¸ÃÌáʾÊÇָûÓÐÍøÂç·ÃÎʵÄȨÏÞ£¬Óû§ÒªÔÚ¹²ÏíÎļþ¼ÐÓпÉдµÄȨÏ޲ſÉÒÔ¡£ÎÒÃÇÔÚÉèÖù²ÏíÎļþµÄʱºòÓ¦¸ÃÔÊÐíдÈë¡£
2¡¢ÎªVSSÉèÖû·¾³±äÁ¿
ĬÈÏÇé¿öÏÂÎÒÃÇÿ´Î´ò¿ªVSS¿Í»§¶ËÌî³äµÄÓû§Ãû¶¼Êǵ±Ç°ÏµÍ³µÇ½µÄÓû§£¬ÕâÑùʹÓÃÆðÀ´ºÜ²»·½±ã¡£Î ......
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 Sour ......
ÔÚaccessÖбíÖÐÊý¾Ýµ¼³öΪÎı¾Îļþµ½MySQLµÄÎÊÌ⣿
µ¼³öÎı¾Îļþʱºò£¬¿ÉÒÔÑ¡Ôñ×ֶηָô·û£¬À´°ÑÿһÁиô¿ª ºÍ Îı¾Ê¶±ð·û£¬À´°ÑcharÐÍÊý¾ÝÀ¨ÆðÀ´
ÎÒÏÖÔÚÓÓ£¬”×÷Ϊ×ֶηָô·û£¬²»Ê¹ÓÃÎı¾Ê¶±ð·û
Éú³ÉµÄÎı¾ÎļþÈçÏÂ
1£¬ÕÅÈý£¬ÄУ¬£¬Öйú ÉϺ££¬80501206
2£¬ÍõÎ壬Ů£¬Öйú ±±¾© ......
×îºóÔÚһλ´óÏÀµÄBLOGÉÏ¿´µ½
ÓÒ»÷“ÎҵĵçÄÔ”¡£µ¥»÷“ÊôÐÔ”¡£
ÔړϵͳÊôÐÔ”Öе¥»÷“¸ß¼¶”¡£
ÔÚ“ÐÔÄÜ”Öе¥»÷“ÉèÖÔ¡£
ÔÚ“ÐÔÄÜÑ¡Ïî”Öе¥»÷“Êý¾ÝÖ´Ðб£»¤”¡£
µ¥»÷“Ìí¼Ó”¡£Ñ¡ÔñÒªÔËÐеijÌÐò¡£
OK¡£¾ÍÕâô¼òµ¥ ......
Ò»Ö±¼áÐÅ×Ô¼ºSQLÓï¾äÍæµÄ»¹ÊDz»´íµÄ£¬µ«ÊÇÕâ¸ö¹ÖÒìµÄÎÊÌ⻹ÊÇһֱŪµÃÎÒºÜÀDZ·£¬Ò»ÉÏÎçµÄʱ¼äûÕÒµ½ÔÒò£¬oracle£¬ MSSQL£¬MySQL,DB2¶¼Íæ¹ý£¬¾ÍûÕâôÓôÃÆ¹ý¡£¡£´ÓÀàÐͶÔÓ¦µ½×ֶΡ£¡£ÔÙµ½Êý¾Ý¿â¹ÜÀíÉèÖᣡ£ËùÓÐÄܼì²éµÄ¶¼¼ì²éÁË¡£¡£»¹Ã»ÕÒµ½¡£¡£×îºóÕÒµ½ÔÒòÁË¡£¡£sum us ......