Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

java µ÷ÓÃmysql¿Í»§¶Ëµ¼È룬µ¼³öÊý¾Ý

 ×î½üÓöµ½Ò»¸öÐèÇóÒªÔÚlinuxÏÂÓÃjava µ÷ÓÃmysql¿Í»§¶ËÔ¶³ÌµÇ½mysql·þÎñÆ÷£¬´Ó¿Í»§¶Ë»úÆ÷µ¼Èëmysql½Å±¾£¬´Ómysql·þÎñÆ÷¶Ëµ¼³ö±íÖеÄÊý¾Ý¡£ÒÔÏÂÊÇÓõ½µÄÖ÷Òª·½·¨£º
Java ´úÂë 
/**  
 * µ¼ÈëÊý¾Ý  
  * @param  ½Å±¾µÄµØÖ·ºÍÃû³Æ  
 * @return ÊÇ·ñ³ ......

ubuntu ÏÂ MYSQL °²×°

°²×°MySQL
sudo apt-get install mysql-server mysql-admin mysql-navigator mysql-query-browser
Õâ¸öÓ¦¸ÃºÜ¼òµ¥ÁË£¬¶øÇÒÎÒ¾õµÃ´ó¼ÒÔÚ°²×°·½ÃæÒ²Ã»Ê²Ã´Ì«´óÎÊÌ⣬ËùÒÔÒ²¾Í²»¶à˵ÁË£¬ÏÂÃæÎÒÃÇÀ´½²½²ÅäÖá£
ÅäÖÃMySQL
×¢Ò⣬ÔÚUbuntuÏÂMySQLȱʡÊÇÖ»ÔÊÐí±¾µØ·ÃÎʵģ¬Èç¹ûÄãÒªÆäËû»úÆ÷Ò²Äܹ»·ÃÎʵϰ£¬ÄÇôÐèÒª¸Ä±ä/etc/m ......

MySQL Ë÷ÒýdzÎö

Ô­ÎÄÁ´½Ó£ºhttp://hi.baidu.com/171892549/blog/item/14818d0ac616ee34b1351dbd.html
ÔÚÊý¾Ý¿â±íÖУ¬Ê¹ÓÃË÷Òý¿ÉÒÔ´ó´óÌá¸ß²éѯËÙ¶È¡£
¼ÙÈçÎÒÃÇ´´½¨ÁËÒ»¸ö testIndex ±í£º
CREATE TABLE testIndex(i_testID INT NOT NULL,vc_Name VARCHAR(16) NOT NULL);
ÎÒÃÇËæ»úÏòÀïÃæ²åÈëÁË 1000 Ìõ¼Ç¼£¬ÆäÖÐÓÐÒ»Ìõ i_testID vc_Name ......

VBʹÓÃÊÖÐεÄͼ±ê

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ