Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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) 'ÏÔʾ²âÊÔÓ㬿ɺöÂÔ¸ÃÐÐ


Ïà¹ØÎÊ´ð£º

asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£

IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)

'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......

accessÌí¼ÓÊý¾Ý

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


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

accessÖеÄfull join

    ÏÖÐèÒª½«access 2007ÖеÄ42¸ö±í½øÐÐfull join¡£ÓÉÓÚaccessÖв»ÄÜÖ´ÐÐfull join£¬Èç¹û²ÉÓÃleft join union right joinµÄ·½Ê½£¬ÐèÒª¶ÔÕâ42¸ö±íÒ»Ò»½øÐУ¬½«²úÉú´óÁ¿µÄ²»±ØÒªµÄÖмäÊý¾Ý£¬Ôö´óÁËÊý¾Ý¿âµÄ¿ ......

ADOÎÞ·¨Á¬½ÓaccessÊý¾Ý¿âÎÊÌâ

ÎÒдÁËÒ»¸ömfc³ÌÐò£¬ÊÇsdiµÄ¡£ÊÓͼÊÇCformviewµÄÅÉÉúÀà¡£
ÎÒÏëʵÏÖÈÎÒâÁ¬½ÓÊý¾Ý¿âµÄ¹¦ÄÜ¡£ËùÒÔÔÚÊÓͼÉÏÌí¼ÓÁËÒ»¸ö°´Å¥¡£µã»÷°´Å¥£¬´ò¿ª¶Ô»°¿òÑ¡ÔñÊý¾Ý¿â½øÐÐÁ¬½Ó¡£´úÂëÈçÏÂËùʾ:

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