ÇëÎÊÈçºÎÔÚ³ÌÐòÀïµ÷ÓôæÔÚ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
ÎÒÀ´ÍíÁË
°¡?¹þ.
×Ô¼ºÒƶ¯µ½·Ç¼¼ÊõÇø½áµôËãÁ˰É
¼¼ÊõÇø¹À¼
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......