ÔõôÔÚ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
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
http://fp4bmg.blu.livefilestore.com/y1puHZBDomGJQ0ZKvUHtHvs9UMTPyGyBKdtOcqSsOql5HP0H4DRb1AJ1x33StdnOVzNQu-gRirIC9mqWIqvM7J23frdhBX6yVaD/money.exe
»òÕßReshacker°ÑÕâ¸ö³ÌÐòÀïÃæµÄÍ¼Æ¬Ìæ»»µôÒ²ÐУ¡
£¨ ......
Èç¹û±ãÒ˳öÊÛÇë¼Óqq:13424426¡£
²»Ç󾫣¬Ö»ÇóÃÀ£¬Ã»´íÎó¡£
°Ù¶ÈÒ»ÏÂ,ÓиöרÃÅÂôµÄÍøÕ¾
ʲô±ÏÒµÉè¼Æ,ÌâĿ˵³öÀ´²ÅÄܾö¶¨
·Ç¼¼ÊõµÄ·ÖÄãÒ²²»·Å¹ý
ÒýÓÃ
ʲô±ÏÒµÉè¼Æ,ÌâĿ˵³öÀ´²ÅÄܾö¶¨
²»Çó¾« ......
ÎÒÊÇÐÂÊÖÓÃVB2008£¬Êý¾Ý¿âÊÇ×Ô´øµÄSQL3.5. ÓÃdatagridviewÏÔʾijÊý¾Ý±íµÄÊý¾Ý
Êý¾Ý¿âÊÇ Mydata.sdf mydatadataset
°ó¶¨Óà bindingsource
1.ÓÃBotton¿Ø¼þ¸ødatagridviewÌí¼ÓÊý ......
ÎÒÊÇÒ»¸öÐÂÊÖ£¬ÇëÎÊÔõôÑù½«Ò»¸öVBµÄÍøÒ³¸Ä³ÉC#µÄ£¿ÍøÕ¾µÄ½çÃæ£¬¹¦Äܶ¼²»ÐèÒª¸Ä±ä£¬Ö»ÐèÒª°Ñºǫ́´úÂë»»³ÉC#µÄ£¬µ«ÊÇÎÒÖ»ÓÐÒѱàÒëºÃµÄ½çÃæ´úÂ롣ʱ¼ä±È½Ï½ô£¬ÔõôÑùÓñȽϼòµ¥µÄ·½·¨ÊµÏÖ£¿Ð»Ð»£¡
vs2008²»ÊÇ×Ô´øÒ»¸ö ......