ÇëÎÊÈçºÎÔÚ³ÌÐòÀïµ÷ÓôæÔÚ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.лл!!!
´ó¼Ò¶¼ ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
m_PriceÊÇfloatÐÍ
m_MonthÊÇctimeÐÍ
ÆäËüÊÇcstringÐÍ
´íÎóÌáʾ£ºµ¯³ö´íÎó¶Ô»°¿ò£¬×××.exe£Ó¦ÓóÌÐò´íÎ󣬡¡¡¡¡¡¸ÃÄÚ´æ²»ÄÜΪ"read"
¸ßÊÖ¼±¾È¡«¡«¡«¡«µ½µ×Ó¦¸ÃÈçºÎд
......