ÒÉ»ó£ºaccessÖÐÊÇ·ñÖ§³Öµã»÷µ¥Ôª¸ñÖ´ÐÐʼþµÄ¹¦ÄÜ
ExcelÖеÄaÁÐΪÐÕÃû£¬ÔÚij¸öÈ˵ÄÃû×ÖÉϵã»÷£¨ÈçÕÅÈý£©£¬³ÌÐòÄÜÖ´ÐÐij¸öʼþ£¨±ÈÈ絯³öÒ»Ìáʾ¿òµÈµÈ£©£¬VBAÈçÏ£º
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
MsgBox "ÄãÑ¡ÖÐÁË:" & Target.Text
End If
End Sub
ÔÚaccessÖÐÊÇ·ñÖ§³ÖÕâ¸ö¹¦ÄÜÄØ£¬Èç¹ûÎÒÏëµã»÷ aÁÐÕÅÈý ʱ²úÉúÖ´ÐÐʼþ£¬Ó¦¸ÃÈçºÎʵÏÖ£¬Ð»Ð»£¡
OK,ллDatheng¡£Íí·¹»ØÀ´ºóÊÔÁËÏ£¬³É¹¦ÏìÓ¦£¬ºÇºÇ¡£
Ïà¹ØÎÊ´ð£º
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
Çë´óÏÀÖ¸µã£¬¹òлÁË£¬×îºÃÓдúÂë
ÒªÓõ½ADOX¶ÔÏ󣬲éϰïÖúÎĵµ£¬
http://hyadliujing.blog.163.com/blog/static/4484507420091020969233/?mode=edit
ûÓÐÕÒµ½°¡ ¿´ÁËÄãµÄ²©¿ÍÁË£¬ÎÒÊÇÏ뽫accessÀïÃæµÄ¸½¼þ±£´æ ......