×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃ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) 'ÏÔʾ²âÊÔÓ㬿ɺöÂÔ¸ÃÐÐ
Ïà¹ØÎÊ´ð£º
ÎÊÌâÈçÏ£º
ÓòéѯÓï¾ä
select * from tab where fil like 'CK090902'ÄܲéÕÒ³öÒ»Ìõ¼Ç¼²¢ÏÔʾ³öÀ´
¸ÄΪ
select * from tab where fil = 'CK090902'
¾Í²»ÄܲéÕÒµ½£¬Ò²ÏÔʾ²»³öÀ´ ......
sql="insert into users(username,password) values('aa','bbb')"
conn.execute sql
²¹³ä£ºÔõô¼Ó²»½øÈ¥ÄØ£¿
ÒòΪaa,bbbÊÇÄã×Ô¼º¶¨ÒåµÄ±äÁ¿£¬Ëùд³ÉÕâ ......
ÎÒÔÚACCESS²éѯÖн¨Á¢ÁËÒ»¸ö²éѯ,ÐèÒªÊäÈëÒ»¸ö²ÎÊý.
¼´Ë«»÷²éѯʱ,Ìø³ö"ÊäÈë²ÎÊýÖµ",È»ºóÊÖ¶¯ÊäÈëÏàÓ¦×Ö·û,²éѯ³É¹¦.
ÏÖÔÚÎÊÌâÊÇÔÚASPÖÐÖ±½Óµ÷ÓòéѯÏÔʾ"ÖÁÉÙÒ»¸ö²ÎÊýûÓб»Ö¸¶¨Öµ&qu ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÎÒ½¨Á¢2¸ö±í,±ÈÈçtable a table b
¼ÙÈçÎÒtable a µÄÖµµÃÊÇÍøÒ³Ìá½»ÊäÈë½øÀ´..
Äܲ»ÄÜÔÚaccessÓмÆË㹦ÄÜ,¼ÆËã½á¹û¸³Óètable b
Èç: ta ......