MYSQL´æ´¢¹ý³Ìµ÷ÓòÎÊýµÄÎÊÌâ
Ö±½ÓÉÏ´úÂë°É
VB code:
Option Explicit
Private Sub Command1_Click()
Dim MyComm As New ADODB.Command
Dim Rs_GetList As New ADODB.Recordset
With MyComm
.ActiveConnection = Cn 'MarketConnÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
.CommandText = "pp(3)" '" 'SP_Ping_Dialtest" 'Ö¸¶¨´æ´¢¹ý³ÌÃû
.CommandType = adCmdStoredProc '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
.Prepared = True 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
' .Parameters(1) = "1"
Set Rs_GetList = .Execute
End With
'Set Rs_GetList = Cn.Execute("call pp()")
While Not Rs_GetList.EOF
Debug.Print Rs_GetList.Fields(0).Value
Rs_GetList.MoveNext
Wend
End Sub
ÉÏÃæÊÇVBµÄ´úÂë¡£CNͨ¹ýÊý¾ÝÔ´ºÍMYSQLÁªÏµÆðÀ´
ÏÂÃæÊÇ´æ´¢¹ý³ÌµÄ´úÂë
[code=SQL]
create procedure PP(a int)
begin
select * from t where s1>a;
end
[/code]
t±íµÄ¼Ç¼(1,2,3,4)
======================================================
ÎÊÌ⣺
µ÷Ó÷½·¨1£ºCommandText = "pp(3)" ²ÎÊý´øµ½ÕâÀ¼ÈÈ»ÕâÑù£¬ÄǺÍSTRSQLÖ±½Ó´«SQLÃüÁî½øÈ¥ÓÐʲô²»Í¬
µ÷Ó÷½·¨2£º' .Parameters(1) = 1 ²ÎÊý´«µÝ½øÈ¥ºó£¬ÔÚ×îºó Set Rs_GetList = .ExecuteµÄʱºò¾Í±¨´íÁË¡£
¶ÔÓÚVBµ÷
Ïà¹ØÎÊ´ð£º
×ö¸öÕ¾ÄÚËÑË÷£¬ÏÖÔÚÓÃlike ÕâÑùµÄЧÂÊʵÔÚÌ«µÍÁË£¬Ïë¸Ä³ÉÈ«ÎÄËÑË÷·½Ê½¡£
µ«¿´ÁËÍøÉÏ˵µÄÖÐÎÄÖ§³Ö²»ºÃ£¬ÏëÎÊһϸ÷λÐÖµÜÊÇÈçºÎ½â¾öÕâ¸öÎÊÌâµÄ£¿
µ¥¶À½¨Á¢Ö÷Ìâ±íºÍÄÚÈÝ±í ¼ìË÷Ö÷Ìâ
È»ºó¸ù¾ÝÖ÷Ìâ¼ìË÷Ä ......
Winform+MySQL×öÏîÄ¿£¬ÔÚ×¢ÖØÐÔÄܵÄÇé¿öÏ£¬ÎÒ¸ÃÈçºÎÈ¥Íê³ÉÕâÀàÐ͵ÄÏîÄ¿ÄØ£¡
Çë¸÷λ¸øÒÔÌáʾ¡£
ÄãÕâ¸ö·¶Î§Ì«¹ãÁË£¬ÎÒ˵2µãÖØÒªµÄ°É
1.WINFORM³ÌÐòÊǵ¥¶ÀÔËÐеÄCS³ÌÐò£¬ºÍBS²»Í¬£¬BSµÄѹÁ¦Ê¼ÖÕ¶¼ÔÚSERVERÉϵ쬶ÔC ......
MySqlÖвåÈ뵱ǰʱ¼äµÄ¸ÃÔõôд°¡£¿
now()
SQL code:
sqlÀïÊÇ£º
getdate()
ÒýÓÃ
now()
ѧϰ
SQL code:
select now();
SQL code:
TODAY()
?
SQL code:
select now();
/* ......
SELECT a.tguildname ,SUM(a.ct) + if (SUM(b.ct) IS NULL ,0,SUM(b.ct)) from (
SELECT tg.tguildname,c.cid, (
cf.fbb + cf.fgjbb + cf.fjybb + cf.fqb + cf.fgjqb + cf.fjyqb + cf.fqib + cf. ......
ΪʲôÎÒÕ³Ìù´æ´¢¹ý³Ì´úÂëµÄʱºò¡£¡£¡£Öмä³öÏÖÕâ¸öÁË¡£¡£¡£
Display all 812 possibilities? (y or n)
? & ......