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
Ïà¹ØÎÊ´ð£º
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
ÈçºÎÔÚvcÖÐʹÓÃADOXΪaccessÊý¾Ý¿âÌí¼ÓÒ»¸öÓû§?
лл!
ßí?ÔõôûÈËÀ´¿´¿´Ñ½?
ÎÒŪ ÁË ºÃ¾ÃÁË,¶¼Ã»Ò»µãÍ·Ð÷!
ÄÇλ´ó´óÀ´¾È¾È¼±Ñ½!
ллÁË!
Ìí¼ÓÒ»¸öÓû§ÊÇʲôÒâ˼£¿£¿Ìí¼ÓÒ»ÕÅ±í£¿£¿»¹ÊÇ´´½¨Ò» ......
select * from ±íÃû
±íÀïÓÐ100ÌõÊý¾Ý£¬¿ÉÊÇÖ»²éѯ³öÇ°90Ìõ£¬ÆäÓàµÄ²»ÏÔʾ¡£ÒªÊǸù¾ÝID²éѯ£¬ÆäÓàµÄÒ²¿ÉÒԲ鵽¡£
ÕâÊÇʲôÎÊÌâ°¡£¿
ѹËõMDBÊÔÊÔ¡¡OR¡¡Ð½¨Ò»¸öMDB£¬µ¼Èë¾É±íÊý¾Ý£¬ÔÙ²éѯÊÔÊÔ
ÉÏ´«ÄãµÄ± ......
ÎÒÓà ado ·ÃÎÊaccess¿âʱ Óà select * from user_info where user_id=ÕÅÈý ¾Í³ö´í£¬Èç¹ûÈ¥µô where user_id £¬Ö»ÊÇselect * from user_info¾ÍûÎÊÌâ Ϊʲô²»ÄܼÒÑ¡ÔñÄØ °ï°ïæ½â´ðһϠлл
select * from user_in ......
ÔõÑùÇå³ýACCESS»º´æ
ACCESS°æÓеãÀäÇå
Õâ¸öÄÄλ¸ßÈË»á
СµÜ¼±ÓÃ
²»»á SORRY
»°ËµÂ¥Ö÷ ÎÒÔÚSQLµÄµÚÒ»¸öÎÊÌⶼÊÇÄã½â¾öµÄ ллÄã ÎÒÓ¡ÏóÉî¿Ì
ÒýÓÃ
²»»á SORRY
»°ËµÂ¥Ö÷ ÎÒÔÚSQLµÄµÚÒ» ......