²ËÄñÇë¸ßÊÖ°ïæ£¬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
'-------------------------------------------
'ÏÔʾÒÑ´ò¿ªÔ¤
Ïà¹ØÎÊ´ð£º
accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×Ö¶Î from ±í ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËÙ¶È£¡
Ò»´ÎÈ«²¿¶ÁÍê ......
Êý¾Ý¿âÁ¬½ÓÌáʾÈçϱ¨´í£¬¿´µÄ³öÀ´ÊÇÒ³ÃæÓëÊý¾Ý¿âÁ¬½ÓµÄÎÊÌ⣬ÏÖÔÚÎÒµÄÊÇÏà¶ÔÁ¬½Ó¡£
ÒªÔõô½«Æä¸Ã³É¾ø¶ÔÁ¬½ÓÄØ£¿ÎÒµÄÊý¾Ý¿âÎļþ·¾¶ÔÚ£º
D:\web\db
»¹ÊÇÒªÏÈлл´óÈËÃǰïÖúС°×²ËÎÒ
Microsoft O ......
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......