Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

²ËÄñÇë¸ßÊÖ°ïæ£¬accessÁ½¸öÊý¾Ý¿âµÄÊý¾Ý²åÈëÎÊÌâ

½ñÌì×öÒ»¸öÊý¾ÝÉϱ¨ºÍÊý¾Ý½ÓÊÕµÄÏîÄ¿£¬¿¼ÂǸоõÓ¦¸Ãн¨Ò»¸öÒ»ÃþÒ»ÑùµÄתÃÅ×öÉϱ¨Êý¾ÝµÄÊý¾Ý¿â¡£

µ«ÊÇÎÊÌâÓÖ³öÏÖÁË£¬ÔõÑù½«Êý¾Ý¿âBÖС°±í1¡±µÄÊý¾Ý²åÈëµ½Êý¾Ý¿âA¡°±í1¡±ÖÐÄØ£¿
СµÜÔÚÏß¼±µÈ£¬Çë¸ßÊÖ°ïæ£¬²»Ê¤¸Ð¼¤£¡

ÒÔÏÂÊDZ¾È˵ÄÔ´´úÂ룬Çë¸ßÊÖÖ¸½Ì

Private Sub CmdInsert_Click()  '¿ªÊ¼µ¼ÈëÊý¾Ý
If MsgBox("ȷʵҪ½«Õâ " & Adodc2.Recordset.RecordCount & "ÌõÊý¾Ýµ¼ÈëÂð£¿", vbYesNo + vbQuestion) = vbYes Then

        Data1.Conn.Open
        Data1.Conn.Execute "" '½«Êý¾ÝÔ´adoconsb Öеġ°Éϱ¨¡±±íÖеÄËùÓÐÊý¾Ý²åÈëµ½¡°ÐÅÏ¢²É¼¯¡±±íÖУ¨¸ßÊÖ°ïæµÄ¹Ø¼ü£©
        Data1.Conn.Close
        Adodc1.RecordSource = "select * from ÐÅÏ¢²É¼¯"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1.Recordset
End If
End Sub

Private Sub CmdOpen_Click()  ' ´ò¿ªÔ¤µ¼ÈëµÄÊý¾Ý¿âÊý¾Ý
CmnDlg.ShowOpen  '´ò¿ªÔ¤µ¼ÈëµÄÊý¾Ý¿â
Sbsbk = CmnDlg.FileName  '¶ÁÈ¡Êý¾Ý¿âµÄ·¾¶
AdoConsb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Sbsbk & ";Jet OLEDB:Database Password=;Persist Security Info=False" 'Éϱ¨Êý¾ÝµÄÊý¾ÝÔ´
Adodc2.ConnectionString = AdoConsb
'-------------------------------------------
'ÏÔʾÒÑ´ò¿ªÔ¤


Ïà¹ØÎÊ´ð£º

ʹÓÃRepeater¶ÁÈ¡access±í£¬Ò³Ãæ´ò¿ª·Ç³£Âý

accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×Ö¶Î from ±í  ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËÙ¶È£¡
Ò»´ÎÈ«²¿¶ÁÍê ......

¹ØÓÚaccessÊý¾Ý¿âÁ¬½Ó¾ø¶Ô·¾¶µÄÎÊÌâÇó½â

Êý¾Ý¿âÁ¬½ÓÌáʾÈçϱ¨´í£¬¿´µÄ³öÀ´ÊÇÒ³ÃæÓëÊý¾Ý¿âÁ¬½ÓµÄÎÊÌ⣬ÏÖÔÚÎÒµÄÊÇÏà¶ÔÁ¬½Ó¡£
ÒªÔõô½«Æä¸Ã³É¾ø¶ÔÁ¬½ÓÄØ£¿ÎÒµÄÊý¾Ý¿âÎļþ·¾¶ÔÚ£º
D:\web\db
»¹ÊÇÒªÏÈлл´óÈËÃǰïÖúС°×²ËÎÒ


Microsoft O ......

ÎÒÕâACCESS±íµÄÏÔʾÈçºÎÇл»³ÉÏÂÃæÕâÕÅͼÀ´

ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º

ÎÒÏ£Íûµ÷Õû³É£º

ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ

PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ

Ö÷²Ëµ¥£¬ ÊÓͼ ......

DbgridÁ¬½ÓaccessÍ϶¯¹ö¶¯ÌõËÀ»ú£¿

DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿

ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿

Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£

ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......

ACCESSÎı¾¿ò³¤¶ÈÊǶàÉÙ? - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿

²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û

ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ