Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¿ÞÁË£¡¹ØÓÚEXCELµ¼ÈëACCESSµÄÎÊÌ⣡

°¦£¬ÓÉÓÚ²»É÷£¬²Ù×÷´ò°üÈí¼þµÄʱ¼ä°ÑÎÒ×öµÄϵͳŪ¶ªÁË£¬ÕæÊÇÎÞÄΣ¬ÏÖÔÚÓгöÏÖеÄÎÊÌâÁË£¬ÒÔǰ»¹ºÃºÃµÄ£¬ÕâÊÇÎÒ½«ECXELµ¼ÈëACCESSµÄ´úÂë¡£

Private Sub Command1_Click()
ExportExcelSheetToAccess "Sheet1", "D:\¹Ü¼Ó³µ¼äÐÅϢϵͳ\guanjiaxitong.xls", "xinxi", "D:\¹Ü¼Ó³µ¼äÐÅϢϵͳ\db1.mdb"
End Sub
  Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0;IMEX=1")
      Call db.Execute("Delete from [;database=" & sAccessDBPath & "]." & sAccessTable)

Call db.Execute("Insert into [;database=" & sAccessDBPath & "]." & sAccessTable & "  Select * from [" & sSheetName & "$]")
    MsgBox "Table exported successfully.", vbInformation, "Yams"
  End Sub

ÒÔǰµÄÊý¾ÝΪʲô¿ÉÒÔÅúÁ¿µ¼È룬ͬÑùµÄ´úÂëÊý¾ÝΪʲô²»ÄÜÅúÁ¿µ¼È룬ÏÖÔÚÖ»Äܵ¼ÈëÒ»ÌõÊý¾Ý£¬ÎÒÕæÊÇÎÞÄÎÁË£¬ÓôÃÆËÀÁË¡£Ï£Íû´ó¼ÒÄܰïæ½â¾öÏ£¬ÕâÊÇ×îºóÒ»µã·ÖÁË¡£
²âÊÔûÓÐÎÊÌ⣬¿´Êý¾ÝÄÄÀïÓÐÊ²Ã´ÌØÊâ

ûÓÐʲôµØ·½ÌØÊâµÄ£¬¾ÍÊÇÓÐЩµØ·½Êý¾ÝºÍ×Ö·û»ìºÏ¡£

Õâ¸öÎÊÌâ±È½Ï¸´ÔÓ,ÈçÐèÒªexcelÊý¾ÝÓë¿â±íÖеÄ×Ö¶ÎÀàÐÍÒ»ÖÂ;excelÖÐÓÐûÓÐÌØÊâ¸ñʽ;¹


Ïà¹ØÎÊ´ð£º

MSHFelxGrid Óë ACCESS MEMOÀàÐÍ×ֶεÄÒÉÎÊ

×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ

µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......

Çë½ÌÒ»¸öACCESSµÄ²éѯÓï¾ä£¡

Òª×éºÏ4ÕűíµÄ²éѯ£¬·Ö±ðÊÇA±í£¬B±í£¬C±í£¬D±í£»
A±í
Game_id  Game_Name
  1        abc


B±í
Category_ID  Category_Name  Game_id
  & ......

ʹÓÃRepeater¶ÁÈ¡access±í£¬Ò³Ãæ´ò¿ª·Ç³£Âý

accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×Ö¶Î from ±í  ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËÙ¶È£¡
Ò»´ÎÈ«²¿¶ÁÍê ......

ÇóÖú£º¹ØÓÚAccessÖС¾ÓÐЧÐÔ¹æÔò¡¿ ÔÚÏßµÈ

Access2007ÖÐÓÐÒÔÏÂÁ½¸ö±í¡£
A±í:×Ö¶Î_A1£¬×Ö¶Î_A2
B±í:×Ö¶Î_B1

ÎÒÏëʵÏÖµÄÊÇ£ºÓÃjava³ÌÐò²åÈ롾×Ö¶Î_B1¡¿µÄÖµÖ»ÄÜÊÇ¡¾×Ö¶Î_A1¡¿µÄÖµ£¬·ñÔòÌáʾ´íÎó£¬ÓÐûÓÐÕâÑùµÄÓÐЧÐÔ¹æÔò£¿

×¢£ºÎÒÔÚ¡¾²éÔÄ¡ ......

delphiÖÐACCESSµÄ×Ô¶¨Ò庯ÊýÔõôÓÃÄØ...

ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()

¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...

Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!


......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ