×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃ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ÊÇÄã×Ô¼º¶¨ÒåµÄ±äÁ¿£¬Ëùд³ÉÕâ ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......
Çë½Ì¸ßÊÖ2¸öÎÊÌ⣺
1¡¢¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌ⣻ÔõôÏÂÃæ´úÂëÎÞ·¨´ò¿ªÊý¾Ý¿âѽ£¿
2¡¢ÏÂÃæµÄ´úÂë¿ÉÒÔ·ÃÎÊ¡°¹ú±êÂ롱×Ö¶ÎÖеÄËùÓмǼֵÂð£¿
¼±¼±£¡£¡£¡£¡£¡£¡£¡£¡
vbÓïÑÔ´úÂëÈ ......