MYSQL´æ´¢¹ý³ÌVBµ÷Ó÷½·¨¡£
Private Sub Command1_Click()
Dim MyComm As New ADODB.Command '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
Dim param As ADODB.Parameter '¶¨ÒåÒ»¸ö²ÎÊý¶ÔÏó
With MyComm
.ActiveConnection = Cn 'Êý¾ÝÁ¬½Ó
.CommandText = "pp" '´æ´¢¹ý³ÌÃû³Æ
.CommandType = adCmdStoredProc '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢¹ý³Ì
.Prepared = True 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
Set param = .CreateParameter("@a", adInteger, adParamInput, 4, 3) 'ÉêÃ÷Ò»¸ö²ÎÊý
.Parameters.Append param '°Ñ²ÎÊýÌí¼Óµ½²ÎÊýÁбíÀï
Set Rs_GetList = .Execute 'Ö´Ðд˴洢¹ý³Ì£¬·µ»Ø¼Ç¼¼¯
End With
While Not Rs_GetList.EOF 'Ñ»·´òÓ¡¼Ç¼¼¯µÄ×Ö¶Î
Debug.Print Rs_GetList.Fields(0).Value
Rs_GetList.MoveNext
Wend
End Sub
Ïà¹ØÎĵµ£º
²Ù×÷Êý¾Ý¿â
µÇ¼µ½mysqlÖУ¬È»ºóÔÚmysqlµÄÌáʾ·ûÏÂÔËÐÐÏÂÁÐÃüÁÿ¸öÃüÁîÒԷֺŽáÊø¡£
1¡¢ ÏÔʾÊý¾Ý¿âÁÐ±í¡£
show databases;
ȱʡÓÐÁ½¸öÊý¾Ý¿â£ºmysqlºÍtest¡£ mysql¿â´æ·Å×ÅmysqlµÄϵͳºÍÓû§È¨ÏÞÐÅÏ¢£¬ÎÒÃǸÄÃÜÂëºÍÐÂÔöÓû§£¬Êµ¼ÊÉϾÍÊǶÔÕâ¸ö¿â½øÐвÙ×÷¡£
2¡¢ ÏÔʾ¿âÖе ......
ÎÒÔÚ°²×°XAMPP 1.7.0ʱ£¬°²×°³É¹¦ºó£¬´òËãÆô¶¯XAMPP¡£Apache˳ÀûÆô¶¯£¬µ«ÊÇMySqlÔõô¶¼Æô¶¯²»ÁË£¬ÌáʾµÄ´íÎóÊÇ£º
error:mysql service not started [-1]
ÎÒÖØÐÂ×°Á˼¸´Î¶¼²»ÐУ¬ÏÂÔØÁËÆäËûµÄ°æ±¾Ò²²»ÐУ¬ÎÒÕæ¸ã²»Çå³þΪʲô¡£ÎÒGoogleÁ˰ëÌ죬ÆðÏÈʱÖÐÎÄÍøÒ³£¬°´ÕÕ¼¸¸ö½â¾ö·½·¨×öÁ˶¼²»ÐУ¬¿Ï¶¨ÊÇûÓжÔÖ¢ÏÂÒ©°Ñ£¬È»ºóÎÒµ ......
1. ¶¨Òå
/*
Plugin system variables.
*/
static long sysvar_one_value;
static char *sysvar_two_value;
static MYSQL_SYSVAR_LONG(simple_sysvar_one, sysvar_one_value,
PLUGIN_VAR_RQCMDARG,
"Simple fulltext parser example system variab ......