×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃ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) 'ÏÔʾ²âÊÔÓ㬿ɺöÂÔ¸ÃÐÐ
Ïà¹ØÎÊ´ð£º
sql="insert into users(username,password) values('aa','bbb')"
conn.execute sql
²¹³ä£ºÔõô¼Ó²»½øÈ¥ÄØ£¿
ÒòΪaa,bbbÊÇÄã×Ô¼º¶¨ÒåµÄ±äÁ¿£¬Ëùд³ÉÕâ ......
ÎÒ×öÁËÒ»¸öѧÉú»ñ½±ÐÅÏ¢µÄ±í£¬ÀïÃæ×Ö¶ÎÓкܶ࣬È磺ѧºÅ£¬ÐÕÃû£¬°à¼¶£¬ÁªÏµ·½Ê½£¬Äê¼¶£¬ÐÔ±ð£¬100Ã×£¬200Ã×£¬CET4£¬¼ÆËã»úµÈ¼¶,±¨¹ØÔ±£¬±¨¼ìÔ±£¬µÈµÈºÜ¶à£¬Ôõô²ð·Ö³É¼¸¸ö±í£¬ÈçºÎ×éÖ¯±í¼ä¹ØÏµ?
´ÓÄãµÄ˵Ã÷ÉÏ¿´²»³ö ......
´ó¼ÒºÃ£¬ÎÒÔÚÊý¾Ý±íÖж¨ÒåÒ»¸öÐèÒª½øÐÐÅÅÐòµÄÕûÊý×ֶΣ¬µ«ÊǸù¾ÝÓ¦ÓÃÐèÇ󣬸Ã×ֶεÄȡֵ·¶Î§ºÜ´ó£¬¼¸ºõÓÃÂúÁËÕû¸ö32볤¶È¡£
ÔÚAccess±íÖкÃÏñÖ»ÓС°³¤ÕûÐÍ¡±Êʺϳ¤¶ÈµÄÐèÒª¡£¿ÉÊÇÓÉÓÚ³¤ÕûÐÍÊÇ´ø·ûºÅÊýµÄ£¬Òò´ËÔÚ ......
СµÜÊǸöASPÐÂÊÖ£¬×î½üÓöµ½¸ö¼¬ÊÖµÄÎÊÌ⣬ÀûÓÃASP+ACCESSÊý¾Ý¿â×öÁ˸öÍøÕ¾³ÌÐò£¬ÏëҪʵÏÖ°´Ô·ݲéѯ³öÊý¾Ý£¬ÒѾ´´½¨ÁËÒ»¸öʱ¼ä×ֶΣ¬ÀïÃæ´æµÄ¶¼ÊÇ1999-9-1ÕâÑùµÄ¸ñʽ£¬Ìá½»°´Ô²éѯʱµÄ±íµ¥Ê±ÊÇÓõÄ×Ö·û´®£¬µ«ÊDz»» ......
ÎÒ½¨Á¢2¸ö±í,±ÈÈçtable a table b
¼ÙÈçÎÒtable a µÄÖµµÃÊÇÍøÒ³Ìá½»ÊäÈë½øÀ´..
Äܲ»ÄÜÔÚaccessÓмÆË㹦ÄÜ,¼ÆËã½á¹û¸³Óètable b
Èç: ta ......