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µ÷
Ïà¹ØÎÊ´ð£º
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();
/* ......
ÎÒÒÔÇ°°²×°ÁËÒ»´Î£¬ºóÀ´Ð¶ÔØÁË£¬ÏÖÔÚÔÙ°²×°µÄʱºò£¬Ìáʾ´íÎó£ºError 1305.Error reading from file C:DOCUME~1\LOCALS~1\Temp\mysql_server.msi.Verify that the file exists and that you can access it.
¿ ......
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. ......
hi,
ÔÚÅäÖÃÎļþÖÐÅäÖÃÁËÂýÈÕÖ¾£¬µ«Êǵ½Ä¿±êÎļþ¼Ðϲ鿴ȴûÓУ¬ÇëÎÊÄÄÀï³öÎÊÌâÁË
1.ÅäÖÃÎļþ
log-slow-queries="D:/mysql/slowlog"
long_query_time=0.01
log-queries-not-using-inde ......