´úÂëÈçÏ£º
<%
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("Edu.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
.. ......
ż¶û³öÏÖµÄaccess violation´íÎó£¬MDIÖ÷´°ÌåÓÐ2¸ö²Ëµ¥°´Å¥´ò¿ª×Ó´°¿Úʱż¶û³öÏÖ£¬ÍêÈ«ÊÇËæ»úÐÔ£¬
µ¥²½µ÷ÊÔµÄʱºò²»»á³öÏÖ´íÎó£¨ÎÒÊÔ¹ý¼¸°Ù´Î£¬¶¼Ã»´íÎó£©
ij¸ö´íÎóµÄ°´Å¥´úÂ룺
procedure TMainForm.N48Click(Sender: TObject);
begin
if not Assigned(Data_xz_Form) then
& ......
ÎÒ¿´ÁËÏ£¬Ö»ÓиöÈÕÆÚ/ʱ¼äµÄ×Ö¶ÎÀàÐÍ£¬ÎÒÏñÏÂͼÕâÑùÉèÖú󣬲åÈëÒ»ÐÐÊý¾Ý:"2010-03-02"
µ«ÊÇÓÃǰ̨¿ª·¢µÄ³ÌÐò²éѯʱÏÔʾΪ£º
¡°2010-03-02 00:00:00¡±
ÇëÎÊÓÐʲô°ì·¨°ÑÕâ¸ö00:00:00È¥µô£¿
ÔÚÊý¾Ý¿âÖвåºÍÒ»¸ö±í£¬¼Ç¼ʱ¼ä£¬È»ºó¼ÓÈë <%=Rs("Time")%>
мÓÒ»¸ö¼ÇÂ¼Ê ......
ÎÒÏëÊÇÏÂÀ²Ëµ¥ÏÔʾaccessÊý¾Ý¿âµÄ´¬²°±íµÄ´¬²°Ãûºó£¬text2ÏàÓ¦ÏÔʾ´¬²°±íÖÐÕâÌõ´¬µÄ¶Öλ¡£ÎÒ²»ÖªµÀ´úÂëÔõôд£¬Ð´ÔÚÄÄÀÂé·³¸÷λÁ˸æËßÎÒÒ»Éù£¬Ð»Ð»¸÷λ
Private Sub Form_Load()
bAdd = False
Dim strsql2 As String
Dim rs As New ADODB.Recordset
strsql2 = "select * from [´¬²°±í] order by id ......
delphi7+accessÔõôʵÏÖÊý¾Ý¿â×·¼Ó¼Ç¼µ½Êý¾Ý¿âÖУ¿
ACCESSÓÐÊÖ¶¯×·¼Ó¹¦ÄÜ£¬¾ÉÊý¾Ý²»¶¯£¬°ÑеļÓÉÏ¡£ÎÒÏëÈÃÈí¼þʵÏÖÕâ¸ö¹¦ÄÜ£¬ÄÜʵÏÖÂð£¿
ÓÐûÓÐÀý×ÓÖ®ÀàµÄ£¿
·Ç³£¸Ðл£¡
ÊÇACCESS¼Óµ½ACCESSÀï¡£Á½¸öÈ˶¼²Ù×÷ACCESS¼Ç¼£¬ÎÒÏëÈÃÈí¼þÄÜ×Ô¼ººÏÆðÀ´¡£
ʵÏÖÊý¾Ý¿â×·¼Ó¼Ç¼µ½Êý¾Ý¿âÖУ¿
......
ÏÈÉÏ´úÂ룺
protected void Button2_Click(object sender, EventArgs e)
{
OleDbConnection oc = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db1.mdb"));
oc.O ......