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µ÷
Ïà¹ØÎÊ´ð£º
ÓÃjsp×ö¶«Î÷¸øÍêÈ«²»¶®mysqlµÄÈËÓ㬿ÉÊDZ¸·ÝʱֻÓпÕÎļþ£¬ÕâÊÇʲôÇé¿ö£¬
×îºÃÓÐÔ´´úÂ룬лл
Æäʵ±¸·ÝµÄ¹ý³ÌÎÒÏë´ó¸ÅÊÇÕâÑùµÄ£º
½«±íAÖеÄÊý¾Ý·Åµ½ArrayListÖУ¬È»ºó½«Õâ¸öArrayListÖеÄÊý¾ÝÔÙ´æµ½±íBÖС£ ......
ÎÒ֮ǰµ¼ÈëµÄÊý¾Ý¿â£¬ÏÖÔÚɾ³ý²»ÁË£¬ÓÃÁËÃüÁîÐк͹¤¾ß¶¼²»ÐУ¬ÖØÆôÒ²²»ÐУ¬ÕâÊÇÎªÊ²Ã´ÄØ£¿
ÄãÊÇÈçºÎɾ³ýµÄ£¿
ÓÐʲôÌáʾ£¿
ÎÊÌâ˵Ã÷Ô½Ïêϸ£¬»Ø´ðÒ²»áԽ׼ȷ£¡²Î¼ûÈçºÎÌáÎÊ¡££¨ÌáÎʵÄÖǻۣ©
......
ÎÒÊÇÓÃmysql×Ô´øµÄC API
if(mysql_real_connect(&mysql,"125.0.0.108","root","root","home",3306,NULL,0))
{
AfxMessageBox("Êý¾Ý¿âÁ¬½Óʧ°Ü") ......
ÎÒÒÔǰ°²×°ÁËÒ»´Î£¬ºóÀ´Ð¶ÔØÁË£¬ÏÖÔÚÔÙ°²×°µÄʱºò£¬Ìáʾ´íÎó£º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.
¿ ......
±í½á¹¹ÈçÏ£º
begin_ip end_ip add1 add2
------------------- ......