²ËÄñÇë¸ßÊÖ°ïæ£¬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
'-------------------------------------------
'ÏÔʾÒÑ´ò¿ªÔ¤
Ïà¹ØÎÊ´ð£º
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
ÒÑÖªÁ½¸öÊý¾Ý¿â£¬·Ö±ðΪBASE.MDB ºÍ BASE2.DBF
×ֶηֱðΪBASE.MDB:NAME NAME2 NAME3
A B C
D E F
......
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......