Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÇëÎÊÈçºÎÔÚ³ÌÐòÀïµ÷ÓôæÔÚ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



ÎÒÀ´ÍíÁË

°¡?¹þ.

×Ô¼ºÒƶ¯µ½·Ç¼¼ÊõÇø½áµôËãÁ˰É

¼¼ÊõÇø¹À¼


Ïà¹ØÎÊ´ð£º

asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£

IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)

'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......

ACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000

  ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......

´íÎóÐÅÏ¢Access violation....

ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......

¹ØÓÚDelphiÁ¬½ÓACCESSÊý¾Ý¿â²éѯÎÊÌâ

¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ