ÓÐÒ»¸ö³ÌÐòҪд£¬ÐèÒª»á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
Ïà¹ØÎÊ´ð£º
±àÒëÆ÷£ºC-Free4
mysql µ¥¶À°²×°µÄ£¬ÏÖÔÚΪapache+php+mysql¿ÉÒÔʹÓá£
×î½üÔÚÁ·Ï°c£¬c++£»ÏëÓÃc£¬c++Á¬½ÓÏÂÎÒµÄmysql£¬ºÃ¶àµØ·½¶à˵mysql.hÕÒ²»µ½¡£¶øÇÒÎÒmysqlûÓÐËùνµÄincludeÎļþ¼Ð°¡¡£
Íü¸ßÊÖÖ¸µãÒ»¶ ......
ÎÒÒѾ°´Õս̳ÌÉÏÅäÖÃtomcatµÄserver.xml
<Context path = "/POS" docBase = "POS" debug = "5" reloadable = "true" crossContext = "true" workDir = &quo ......
String SQL="insert into ѧÉúÐÅÏ¢±í values(StudentNumber,StudentName,StudentAge)";ÆäÖÐStudentNumber,StudentName,StudentAge¶¼ÊDZäÁ¿¡£ÕâÑùд²»¶Ô¡¡µ½µ×¸Ãզд°¡
Íò·Ö¸Ðл£¡
String SQL=&q ......
String sqlCount="select count(*) from usertable where username='"+
userName+"'";Õâ¾ä»° ʲôÒâ˼°¡£¡
Õâ¾ä»°Êä³ö³öÀ´¾ÍÊÇ
select count(*) from usertable where username='ÄãµÄ±äÁ¿ ......
MysqlÖÐÊÇ·ñÓÐÕâÑùµÄȨÏÞÉèÖÃ
ÓÐÒ»¸öÁд洢µÄÊÇÊÖ»úºÅ£¬Ä³Ò»Óû§µÄȨÏÞÔÚ¶ÁÈ¡µÄʱºòÖ»ÏÔʾǰ¼¸Î»£¬ºó¼¸Î»ÓÃÆäËû×Ö·ûÀýÈç*´úÌæ¡£ÀýÈç123456¶Á³öÀ´ÊÇ123***
£¿
¿ÉÒÔ×ö¸öÊÓͼ£¬È»ºó²»¸øÕâ¸öÕ˺űíµÄȨÏÞ£¬½ö¸øÕâ¸öVI ......