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

ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ

ÔõôÔÚVBÖаÑexcelÖеÄÊýµ¼Èëµ½Êý¾Ý¿âÖÐ
Ö±½ÓÔÚvbÖе÷ÓÃÊý¾Ý¿âµÄµ¼È빦ÄܽøÐе¼Èë¡£

×Ô¼º°Ù¶ÈÒ»ÏÂ,´úÂ뺣ÁËÈ¥ÁË,·½·¨Óкöà


²Î¿¼
http://blog.sina.com.cn/s/blog_4a384544010004zk.html

'ÅжÏÊý¾Ý¿âÖбíÊÇ·ñ´æÔÚ
  'ÔÚ
  ɾ³ý±í
  'Èç¹û²»ÔÚ
  Adodc1.RecordSource = "select * into test from [excel 8.0;database=" & App.Path & "\boox1.xls].[sheet1$]"
============
Õâ¸ö×î¼òµ¥ÁË


ÒÔǰ×öµÄ£º


Êý¾ÝÁ¿´óÁ˾ÍÂýËÀÈË

Äã¿´¿´
Private Sub Command3_Click()
'ÕÒ³öEXCELÎļþλÖÃ
CommonDialog1.ShowOpen
Dim data_jbxx As String
data_jbxx = CommonDialog1.FileName
If data_jbxx <> "" Then
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Êý¾Ý.MDB;Persist Security Info=False;Jet OLEDB:Database password=ÃÜÂë"
    Adodc1.RecordSource = "select * from ±íÃû "
    Adodc1.Refresh
    Set xlApp = CreateObject("Excel.Application") '´´½¨EXCELÓ¦ÓÃÀà
    xlApp.Visible = False 'ÉèÖÃEXCEL²»¿É¼û
    Set xlBook = xlApp.Workbooks.Open(data_jbxx) '´ò¿ªEXCEL¹¤×÷²¾
    Set xlsheet = xlBook.Worksheets(1) '´ò¿ªEXCEL¹¤×÷±í
    'xlsheet


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

ÓÃVBÔõôʵÏÖÕâ¸ö³ÌÐòµÄЧ¹û£¿

http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
»òÕßReshacker°ÑÕâ¸ö³ÌÐòÀïÃæµÄÍ¼Æ¬Ìæ»»µôÒ²ÐУ¡
£¨ ......

Çó£¬VB±ÏÒµÉè¼Æ¡£

Èç¹û±ãÒ˳öÊÛÇë¼Óqq:13424426¡£
²»Ç󾫣¬Ö»ÇóÃÀ£¬Ã»´íÎó¡£
°Ù¶ÈÒ»ÏÂ,ÓиöרÃÅÂôµÄÍøÕ¾

ʲô±ÏÒµÉè¼Æ,ÌâĿ˵³öÀ´²ÅÄܾö¶¨

·Ç¼¼ÊõµÄ·ÖÄãÒ²²»·Å¹ý
ÒýÓÃ
ʲô±ÏÒµÉè¼Æ,ÌâĿ˵³öÀ´²ÅÄܾö¶¨


²»Çó¾« ......

VB SQL3.5Êý¾Ý¿âÐÞ¸Ä

ÎÒÊÇÐÂÊÖÓÃVB2008£¬Êý¾Ý¿âÊÇ×Ô´øµÄSQL3.5. ÓÃdatagridviewÏÔʾijÊý¾Ý±íµÄÊý¾Ý
Êý¾Ý¿âÊÇ  Mydata.sdf    mydatadataset
°ó¶¨Óà bindingsource

1.ÓÃBotton¿Ø¼þ¸ødatagridviewÌí¼ÓÊý ......

VBתC#

ÎÒÊÇÒ»¸öÐÂÊÖ£¬ÇëÎÊÔõôÑù½«Ò»¸öVBµÄÍøÒ³¸Ä³ÉC#µÄ£¿ÍøÕ¾µÄ½çÃæ£¬¹¦Äܶ¼²»ÐèÒª¸Ä±ä£¬Ö»ÐèÒª°Ñºǫ́´úÂë»»³ÉC#µÄ£¬µ«ÊÇÎÒÖ»ÓÐÒѱàÒëºÃµÄ½çÃæ´úÂ롣ʱ¼ä±È½Ï½ô£¬ÔõôÑùÓñȽϼòµ¥µÄ·½·¨ÊµÏÖ£¿Ð»Ð»£¡
vs2008²»ÊÇ×Ô´øÒ»¸ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ