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µ÷
Ïà¹ØÎÊ´ð£º
±àÒëÆ÷£ºC-Free4
mysql µ¥¶À°²×°µÄ£¬ÏÖÔÚΪapache+php+mysql¿ÉÒÔʹÓá£
×î½üÔÚÁ·Ï°c£¬c++£»ÏëÓÃc£¬c++Á¬½ÓÏÂÎÒµÄmysql£¬ºÃ¶àµØ·½¶à˵mysql.hÕÒ²»µ½¡£¶øÇÒÎÒmysqlûÓÐËùνµÄincludeÎļþ¼Ð°¡¡£
Íü¸ßÊÖÖ¸µãÒ»¶ ......
ÓÃ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("Êý¾Ý¿âÁ¬½Óʧ°Ü") ......
ΪʲôÎÒÕ³Ìù´æ´¢¹ý³Ì´úÂëµÄʱºò¡£¡£¡£Öмä³öÏÖÕâ¸öÁË¡£¡£¡£
Display all 812 possibilities? (y or n)
? & ......
ÐèÒªÔÚMySQLÀïÃæÐ´¸ö´¢´æ¹ý³Ì,
·ÃÎÊoracleµÄÊý¾Ý.
Ŀǰ²»ÄÜ
oracle¿ÉÒԾͿÉÒÔÁ¬½Ómysql£¬Í¨¹ýodbc+dblinkÀ´Á¬½Ó
ûÓа취¡£Ä¿Ç°µÄMYSQLµÄ°æ±¾ÖÐÉв»Ö§³ÖÁ¬½Óµ½ÆäËüÊý¾Ý¿â£¬
ÕæÍ¦ÓÐÏë·¨µÄ ĿǰÎÒû×ö¹ý
......