ÇëÎÊÈçºÎÔÚ³ÌÐòÀïµ÷ÓôæÔÚACCESSÀïµÄ²ÎÊý²éѯ
ACCESSÖеIJÎÊý²éѯÔÚ´ò¿ªÊ±»áµ¯³ö¶Ô»°¿òÌáʾÓû§ÊäÈëÏàÓ¦µÄ²ÎÊý£¬Óû§ÊäÈë²ÎÊýÖµºó£¬²éѯ½á¹û²Å»á·µ»Ø¡£
ÏÖÔÚÏëÒªÔÚ³ÌÐòÀïµ÷ÓôæÔÚACCESSÀïµÄ²ÎÊý²éѯ¶ÔÏó£¬ÇëÎÊÈçºÎ×ö£¿¹Ø¼üÊÇÈçºÎÔÚÖ´Ðиòéѯ֮ǰ£¬ÈçºÎÔÚ³ÌÐòÀïΪ¸Ã²éѯµÄ²ÎÊý´«Öµ£¿
Áí£¬´æºÃµÄ²éѯºÜ¸´ÔÓ£¬²»ÏëÔÚ´úÂëÀïÖØÐÂдһ±é£¬ËùÒÔÏëÿ´Îµ÷ÓÃÕâ¸ö´æºÃµÄ²éѯ¡£
PS ÎÒÓõÄÊÇACCESS2003¡£
Ã²ËÆÕÒµ½´ð°¸ÁË£¬ÒÔǰ×ö¹ý±Ê¼Ç£¬ÍüµôÁË¡£
ËÀ´½Ó·Ö·Ö£¿
????
¼ÙÉèËù´æµÄ²éѯÃû½Ð¡°²éѯ1¡±£¬ÓÐÒ»¸ö²ÎÊý£¬²ÎÊýÃû½Ð¡°strA¡±£¬Ôò¿ÉÓÃÒÔÏ´úÂëÔÚVBA³ÌÐòÀïÉèÖòÎÊý²¢Ö´Ðиø²éѯ£º
VB code:
Public Function AppendX()
Dim cmdByRoyalty As ADODB.Command
Dim prmByRoyalty As ADODB.Parameter
Dim rstByRoyalty As ADODB.Recordset
Dim intRoyalty As String
Set cmdByRoyalty = New ADODB.Command
cmdByRoyalty.CommandText = "²éѯ1"
cmdByRoyalty.CommandType = adCmdStoredProc
intRoyalty = Trim(InputBox("ÊäÈë²ÎÊý:"))
Set prmByRoyalty = cmdByRoyalty.CreateParameter("strA", adChar, adParamInput, 255)
cmdByRoyalty.Parameters.Append prmByRoyalty
prmByRoyalty.Value = intRoyalty
Set cmdByRoyalty.ActiveConnection = CurrentProject.Connection
Set rstByRoyalty = cmdByRoyalty.Execute
End Function
ÎÒÀ´ÍíÁË
°¡?¹þ.
×Ô¼ºÒƶ¯µ½·Ç¼¼ÊõÇø½áµôËãÁ˰É
¼¼ÊõÇø¹À¼
Ïà¹ØÎÊ´ð£º
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
Âé·³¸÷λ°ïæ¿´¿´°¡
´úÂëÈçÏ£º
CoInitialize(NULL);
_ConnectionPtr pConn(__uuidof(Connection));
_RecordsetPtr pRst(__uuidof(Recordset));
pConn->ConnectionString="Provider ......
ÈçºÎ°ÑaccessÊý¾Ý¿âµÄÄÚÈݵ¼³öµ½workÎĵµÖнøÐб༴òÓ¡?лл
ÈçºÎÓÃVB±àд³ÌÐòʵÏÖ°ÑaccessÊý¾Ý¿âµÄÄÚÈݵ¼³öµ½workÎĵµÖнøÐб༴òÓ¡?
н¨µÄWordºÍÒÑÓеÄWordµÄ´úÂë¿Ï¶¨ÊDz»Ò»ÑùµÄ
ÕâµãLZ»¹ÐèÒªÖ¸Ã÷
......
ÎÒÓÐÁ½¸öaccessÊý¾Ý¿â£¬¼ÙÉè:a1.mdb£¬a2.mdb
ËüÃǶ¼ÓÐÒ»ÕŽṹһÑùµÄ±íproduct,ÎÒÏë°Ña2.mdbÀïÃæµÄproductµ¼Èëµ½a1.mdbµÄproductÀïÃæÈ¥£¬ÈçºÎʵÏÖ¿ìµã£¿Íû¸ßÊÖµãÏ¡£
ÒýÓÃ
Óõ¼Èëµ¼³ö²»ÐÐ??
......