Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Êý¾Ý¿â

      ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
  ¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS

°²×°OFFICEʱѡÔñ°²×°ACCESS

°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË

officeÍêÕ ......

ÎÒÕâACCESS±íµÄÏÔʾÈçºÎÇл»³ÉÏÂÃæÕâÕÅͼÀ´

ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º

ÎÒÏ£Íûµ÷Õû³É£º

ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ

PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ

Ö÷²Ëµ¥£¬ ÊÓͼ ......

ADOÏòACCESSÊý¾Ý¿â²åÈëÊý¾ÝÎÊÌ⣬¾È¼±

m_PriceÊÇfloatÐÍ
m_MonthÊÇctimeÐÍ
ÆäËüÊÇcstringÐÍ
´íÎóÌáʾ£ºµ¯³ö´íÎó¶Ô»°¿ò£¬×××.exe£­Ó¦ÓóÌÐò´íÎ󣬡­¡­¡­¡­¡­¡­¸ÃÄÚ´æ²»ÄÜΪ"read"
¸ßÊÖ¼±¾È¡«¡«¡«¡«µ½µ×Ó¦¸ÃÈçºÎд
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ