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

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

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

µ±Êý¾Ý¿â×Ö¶ÎΪ¡°Memo(Access±¸×¢)¡±µÄʱºò£¬Ê¹ÓÃMSHFlexGrid1.TextMatrixÈ¡µÃµÄÖµ²¢²»ÍêÈ«£¬³¤¶ÈÖ»ÓÐ999¸ö×Ö·û¡­¡­À§ÈÅÁËÒ»Ì죬Çë¸ßÈËÃÇÀ´²âÊÔ²¢ËµËµ½â¾ö·½°¸¡£ÓÉÓÚÏ൱ԭÒò£¬ÅųýµôÐÞ¸ÄÊý¾Ý¿â×Ö¶ÎÀàÐ͵ķ½°¸¡£

Ô´ÂëÈçÏ£º
°üÀ¨¿Ø¼þ  textbox  x  1(¿É²»Òª£¬ÏÔʾ²âÊÔÓÃ),MSHFlexGrid  x  1,Label  x  1
Êý¾Ý¿âΪAccess,±íProductÄÚµÄSmallClassName×Ö¶ÎΪMemoÀàÐÍ£¬¼Ç¼Êý¾Ý³¬¹ý2000×Ö·û

Dim  con  As  New  ADODB.Connection
Dim  Gs  As  New  ADODB.Recordset

Private  Sub  Form_Load()
con.ConnectionString  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source= "  &  App.Path  &  "/DB.mdb;Persist  Security  Info=False "
con.Open
Gs.CursorLocation  =  adUseClient
Gs.Open  "select  *  from  product  where  smallClassName  like  '% ' ",  con,  1,  1
Set  MSHFlexGrid1.DataSource  =  Gs
Gs.Close
Text1.Text  =  MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,  1) 'ÏÔʾ²âÊÔÓ㬿ɺöÂÔ¸ÃÐÐ


Ïà¹ØÎÊ´ð£º

accessÌí¼ÓÊý¾Ý

sql="insert  into  users(username,password) values('aa','bbb')" 
conn.execute sql
²¹³ä£ºÔõô¼Ó²»½øÈ¥ÄØ£¿


ÒòΪaa,bbbÊÇÄã×Ô¼º¶¨ÒåµÄ±äÁ¿£¬Ëùд³ÉÕâ ......

Access²éÕÒÖØ¸´ÎÊÌâ

ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏ 
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡± 
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......

ÇóACCESSÊý¾Ý¿â

      ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
  ¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS

°²×°OFFICEʱѡÔñ°²×°ACCESS

°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË

officeÍêÕ ......

¼±¼±£¡£¡¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌâ

Çë½Ì¸ßÊÖ2¸öÎÊÌ⣺
1¡¢¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌ⣻ÔõôÏÂÃæ´úÂëÎÞ·¨´ò¿ªÊý¾Ý¿âѽ£¿
2¡¢ÏÂÃæµÄ´úÂë¿ÉÒÔ·ÃÎÊ¡°¹ú±êÂ롱×Ö¶ÎÖеÄËùÓмǼֵÂð£¿


¼±¼±£¡£¡£¡£¡£¡£¡£¡£¡

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