ÓÐÒ»¸ö³ÌÐòҪд£¬ÐèÒª»áMYSQLµÄ£¬Óб¨³ê¡£
ÓÐÒ»¸ö³ÌÐò ¹¦ÄÜÖ÷ÒªÊÇ»ñÈ¡WINDOWS 2003serverÀïÃæµÄÓòµÄËùÓÐÓû§£¬È»ºóд½ømysqlÀïÃæ£¬Èç¹û¿ÉÒԵĸßÊÖÇëÁªÏµ£ºQ£º398706948
mail:mailxs@liyogroup.com
±¨³êÁªÏµºóÐÉÌ¡£Ð»Ð»
VB code:
Option Explicit
Private Sub Command1_Click()
Dim objSysRoot As Object 'ϵͳ¸ùĿ¼
Dim objAllUser As Object 'ËùÓÐÓû§ÐÅÏ¢
Dim objGroup As Object 'µü´ú¹¤×÷×é
Dim objUser As Object 'µü´úÓû§
Dim strDomainName As String 'ÓòÃû
Dim strLoginName As String 'ÓòµÇ¼Ãû
Dim strLoginPassWord As String 'ÓòµÇ½ÃÜÂë
Dim i As Integer
strDomainName = "" 'ÕâÀïÉèÖÃÄãµÄÓòÃû
strLoginName = "" 'ÕâÀïÉèÖÃÄãµÄÓòµÇ¼Ãû ÈκÎÒ»¸öÓòÕ˺žù¿É¡£
strLoginPassWord = "" 'µÇ¼Ãû¶ÔÓ¦µÄÃÜÂë
Set objSysRoot = GetObject("WinNT:")
Set objAllUser = objSysRoot.OpenDSObject("WinNT://" & strDomainName, strLoginName, strLoginPassWord, 0&)
i = 1
objAllUser.Filter = Array("User")
For Each objUser In objAllUser
For Each objGroup In objUser.Groups 'ÔÚÕâ¸öÑ»·Àï £¬Äã¿ÉÒÔ°ÑÊý¾Ý²åÈëMySqlÊý¾Ý¿â
ListView1.ListItems.Add , , objGroup.Name
Ïà¹ØÎÊ´ð£º
ÎÒÊÇÐÂÊÖ£¬³õѧMYSQL£¬Óкܶ಻¶®£¬Íû´Í½Ì£¡£¡
±ÈÈç˵ÎÒн¨Ò»¸öMYSQLÊý¾Ý¿âUSER Êý¾Ý¿âÖÐÓбíLIST
È»ºóÎÒÔÚVCÖÐн¨Ò»¸öMFC¶Ô»°¿ò¹¤³Ì£¬È»ºóÎÒÔõôÑù²ÅÄÜÓÃVC»ñµÃÊý¾Ý¿âÖбíµÄÊý¾Ý£¿
Ï£Íû¸ø³ö¾ßÌåµÄ²Ù×÷² ......
±í
CREATE TABLE `ch1` (
`id` int(10) unsigned zerofill NOT NULL AUTO_INCREMENT,
`no` int(10) unsigned DEFAULT NULL,
`dtime` datetime DEFAULT NULL,
PRIMARY KEY (`id ......
try
{
sql::Driver *driver;
sql::Connection *con;
//´´½¨Á¬½Ó
driver = get_driver_instance();
con = driver->connect("tcp://192.168.18.52:3306", "root", "1234 ......
ÈçÌâ¡£Äܲ»Äܸø¸öÀý×Ó£¬·Ç³£¸Ðл
°²×°mysqlʱ¼ÇµÃ×° Àà¿â£¬ÀïÃæÓÐ mysqlÌṩµÄº¯Êý½è¿Ú£¬ÓÃËüÀ´Á¬mysqlºÜ·½±ã
ºÃ¶«Î÷£¬¹²Í¬Ñ§Ï°
mysql++ À࣬ºÜ·½±ãºÜºÃÓã¡
ÌùÓÊÏ䣬·¢Äã
1.mysql api
2.myodbc
......
ÎÒÏÖÔÚÏëÓÃJSPʵÏÖQQÓÊÏäÀïµÄ¶¨Ê±·¢ËÍ£¬ÎÒÏëͨ¹ýÊý¾Ý¿â½øÐж¨Ê±²åÈëÊý¾Ý¡£
µ«²»ÖªµÀÈçºÎʵÏÖ£¬»òÕß´ó¼ÒÓиüºÃµÄ·½·¨£¬²»Ò»¶¨ËµÊÇÊý¾Ý¿â¡£
Çë´ó¼Ò¸øµãÒâ¼û£¬°ÝлÀ²¡£
quataz¶¨Ê±Æ÷×é¼þÊǸöºÜºÃµÄ½â¾ö·½°¸¡£
È ......