Ïò¸÷λ¸ßÊÖÇóÖú¡£
ÎÒÓÃdelphi2009±àдÁËÒ»¸ö¹ÜÀíϵͳ£¬Ê¹ÓõÄÊÇaccessÊý¾Ý¿â¡£ÏÖÔÚÏëͨ¹ý¶àÈËÒ»Æð¼ÈëÊý¾Ýºó£¬½«Êý¾Ýµ¼³ö£¬µ¼³öµÄÊý¾Ý¿â°üº¬¶à¸öÏàͬµÄ±í¡£ÔÙ½«µ¼³öµÄÊý¾ÝÒÀ´Îµ¼È뵽ͬһ¸öÊý¾Ý¿âµÄÏàͬ±íÖУ¬µ¼ÈëÖ´ÐÐÓï¾äÈçÏ£º
procedure TMain.N_ImportClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:='insert into PERSON select * from openrowset(''Microsoft.Jet.OLEDB.4.0'',''C:\Documents and Settings\......\×ÀÃæ\PMIS.mdb'';'''';'''',PERSON)';
Query1.ExecSQL;
end;
PERSONΪÊý¾Ý¿âÖеÄÒ»¸ö±í£¬¸ÃÊý¾Ý¿âÎÞÓû§Ãû£¬ÎÞÃÜÂë¡£
µ±ÔËÐгÌÐòÖ´ÐС°Êý¾Ýµ¼È롱ʱ£¬×ÜÊÇÏÔʾ´íÎó£º
General SQL error.
[Microsoft][ODBC Microsoft Access Driver] from ×Ó¾äÓï·¨´íÎó¡£
Áìµ¼´ßµÄ½ô£¬¼±´ý¸÷λ¸ßÊÖ°ïæָ½ÌΪл£¡
ÄãµÄÊý¾Ý¿âÁ¬½ÓʱÊÇÉèÖÃODBCÊý¾ÝÔ´µÄ°É£¿°ÑODBCÊý¾ÝÔ´µÄ·¾¶ÉèÖóÉÒ»ÑùµÄ£¬ÁíÍâÎÒ¾õµÃÖ»ÊÇΪÁ˼ÈëÊý¾Ý£¬¿ÉÒÔÖ±½Ó¶Ôaccess½øÐвÙ×÷¾Í¿ÉÒÔÁË£¬²»ÓÃÕâôÂé·³µÄµ¼À´µ¼È¥
ллһ¥µÄͬ־£¬ÒòΪ¼ÈëµÄÊý¾Ý±È½Ï·±ÔÓ£¬Éæ¼°¶à¸ö±í£¬Í¬Ê±³ÌÐò»¹Óвéѯ¡¢Í¼±íͳ¼ÆµÈ¹¦ÄÜ£¬¼ÓÉϺܶà¼ÈëÈËÔ±²»»áʹÓÃaccess£¬ËùÒÔ²»ÄÜÖ±½ÓÓÃaccessÀ´×ö¡£
ÎÒµÄÊý¾ÝÁ¬½ÓÊÇÉèÖÃODBCÊý¾ÝÔ´µÄ£¬ÏµÍ³DSNϽ¨ÓÐPMIS£¬Â·¾¶ÒÑÉ裬¸Ã³ÌÐòµÄÆäËüÊý¾Ý²Ù×÷ÈçÊý¾ÝµÄ²åÈë¡¢Ð޸ġ¢É¾³ý¾ùÕý³£¡£Ö»ÊÇÊý¾Ýµ¼Èëʱ»á³öÏÖÕâ¸öÎÊÌâ¡£
³ÌÐòÆô¶¯Ê±database1¿Ø¼þÖ±½ÓÁ¬½ÓÊý¾Ý¿âPMIS.mdb£¬ÉÏÃæµÄQuery1.DatabaseName=PMIS
Ïà¹ØÎÊ´ð£º
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÎÊÌâÈçÏ£º
ÓòéѯÓï¾ä
select * from tab where fil like 'CK090902'ÄܲéÕÒ³öÒ»Ìõ¼Ç¼²¢ÏÔʾ³öÀ´
¸ÄΪ
select * from tab where fil = 'CK090902'
¾Í²»ÄܲéÕÒµ½£¬Ò²ÏÔʾ²»³öÀ´ ......
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
±í½á¹¹£º
ProductSeriesID ×Ô¶¯±àºÅ
ProductSeriesName Îı¾
ProductSeriesRemark ±¸×¢
Ö´ÐÐǰ
ProductSeriesID ProductSeriesName ProductSeriesRemark
2 LVϳµ¶ÏµÁÐ LVϳµ¶ÏµÁÐ
3 ÎÙ¸ÖÉá ......