ÓÐÒ»¸ö³ÌÐòҪд£¬ÐèÒª»á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 ʹÓõÄʱºò ÓÃdos½¨Á¢µÄÊý¾Ý±í ÔÚdosÖÐÄÜÏÔʾ³öÖÐÎÄ
µ«ÊÇÔÚ ÆäËûµÄ¿ÉÊÓÒ³Ãæ ºÍÍøÒ³Öж¼ÏÔʾÂÒÂë ÈçºÎ½â¾ö£¿
ÔÚmysql¿ØÖÆÌ¨:show variables like 'char%';Ìù½á¹û³öÀ´¿´¿´¡£
mysqlÃüÁîÐÐģʽÏÂ: ......
ÎÒÓõÄÊÇÁ¬½Ó³Ø×öµÄ£¬ÅäÁ¬½Ó³ØµÄ·½·¨Ó¦¸ÃûÓÐ´í£¬ÎªÊ²¾ÍÊdzöÏÖÕâÖÖÎÊÌâ
javax.servlet.ServletException: javax.naming.NameNotFoundException: No object bound to name java:comp/env/test
ÇëÎÊ´óÏÀÃÇÕâÊÇÔ ......
CREATE DATABASE ADDRESSLIST;
USE ADDRESSLIST;
DROP TABLE IF EXISTS FRIEND;
CREATE TABLE FRIEND
(FRIEND_ID INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY ,
FRIEND_NAME VARCHAR(20) NOT N ......
±í
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 ......
hql = "select left('adfsadfasgsadgagsda',2)";
¾ÍÓÃÕâ¾äÓï¾ä ÔÚÊý¾Ý¿âÖÐÖ´ÐÐ
µ«ÊÇÔÚjava´úÂëÖÐ ÓÃHibernate Ö´ÐÐ ¾Í²»ÄÜÖ´ÐÐ £¿
ÕâÊÇʲôÎÊÌ⣡£¡£¡
ÎÒÒѾ֪µÀÁË£¡
&n ......