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)
Label1.Caption = Len(MSHFlexGrid1.TextMatrix(M
Ïà¹ØÎÊ´ð£º
±¾À´ÎÒÊÇÓÃACCESS+VB½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬
ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......
ÎÊÌâÈçÏ£º
ÓòéѯÓï¾ä
select * from tab where fil like 'CK090902'ÄܲéÕÒ³öÒ»Ìõ¼Ç¼²¢ÏÔʾ³öÀ´
¸ÄΪ
select * from tab where fil = 'CK090902'
¾Í²»ÄܲéÕÒµ½£¬Ò²ÏÔʾ²»³öÀ´ ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÔõÑùÇå³ýACCESS»º´æ
¿ª·¢Ê±ÁôÏµĻº´æ
ACCESS»º´æ ÊÇָʲô£¿
ÊDz»ÊÇÏëѹËõÊý¾Ý¿â£¿
¹ØÓÚ Access ÎļþµÄѹËõºÍÐÞ¸´
Microsoft Access ½«¶Ô Access ÎļþµÄѹËõºÍÐÞ¸´·ÅÔÚÒ»¸ö½ø³ÌÖ ......
ÎÒÓÐÒ»¸ö±í,
´óÖ½ṹʽÕâ¸öÑù×ÓµÄ
id itname fenlei1id fenlei2id num
1 ÎïÆ·1 1 &n ......