SQLDMOÔÚVBÖеÄÓ¦ÓÃ
SQLDMOÔÚVBÖеÄÓ¦ÓÃ
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ¦ÓóÌÐò¿ÉÒÔÖ´ÐÐ SQL Server ÆóÒµ¹ÜÀíÆ÷Ö´ÐеÄËùÓй¦ÄÜ¡£
¡¡¡¡SQL-DMO ÓÃÓÚ±ØÐë°üº¬ SQL Server ¹ÜÀíµÄÈκÎ×Ô¶¯»¯»ò COM Ó¦ÓóÌÐò£¬ÀýÈ磺
¡¡¡¡1. ·â×° SQL Server ×÷Ϊ×Ô¼ºµÄÊý¾Ý´æ´¢²¢Ï뾡Á¿¼õÉÙÓû§µÄ SQL Server ¹ÜÀíÈÎÎñµÄÓ¦ÓóÌÐò¡£
¡¡¡¡2. ÔÚ³ÌÐò±¾Éí²¢ÈëÁËרÃŵĹÜÀíÂß¼µÄÓ¦ÓóÌÐò¡£
¡¡¡¡3. ÏëÔÚ×Ô¼ºµÄÓû§½çÃæÖм¯³É SQL Server ¹ÜÀíÈÎÎñµÄÓ¦ÓóÌÐò¡£
¡¡¡¡SQLDMO¶ÔÏóÀ´×ÔSQLDMO.dll£¬SQLDMO.dllÊÇËæSQL Server2000Ò»Æð·¢²¼µÄ¡£SQLDMO.dll×ÔÉíÊÇÒ»¸öCOM¶ÔÏó£¬Òò´Ë£¬ÔÚÄãµÄ.NETÏîÄ¿Àï±ØÐëÏÈÒýÓÃËü¡£
¡¡¡¡µÃµ½ÍøÂçÖеÄSQL·þÎñÆ÷µÄÁÐ±í£º
'µÃµ½SQL·þÎñÆ÷µÄÁбí
'±ØÐë°²×°SQL SERVER 2000 SP2 ¼°ÒÔÉÏ°æ±¾
Dim I As Short
Dim sqlApp As New SQLDMO.Application()
Dim ServerName As SQLDMO.NameList
ServerName = sqlApp.ListAvailableSQLServers
For i = 1 To ServerName.Count
cbServer.Items.Add(ServerName.Item(i))
Next
¡¡¡¡µÃµ½Ö¸¶¨SQL·þÎñÆ÷ËùÓÐÊý¾Ý¿âµÄÁÐ±í£º
'µÃµ½Ö¸¶¨SQL·þÎñÆ÷ËùÓÐÊý¾Ý¿âµÄÁбí
Dim sqlApp As New SQLDMO.Application()
Dim oServer As New SQLDMO.SQLServer()
oServer.Connect("(local)", "sa", "sa")
cboDatabase.Items.Clear()
Dim db As SQLDMO.Database
For Each db In oServer.Databases
Me.cboDatabase.Items.Add(db.Name)
Next
¡¡¡¡µÃµ½ËùÓÐµÄ±í¡¢ÊÓͼ¡¢´æ´¢¹ý³Ì£º
Dim I As Short
Dim oServer As New SQLDMO.SQLServer()
oServer.Connect("(local)", "sa", "sa")
Dim db As New SQLDMO.Database()
For I = 1 To oServer.Databases.Count
If oServer.Databases.Item(I, "dbo").Name = "Northwind" Then Exit For
Next
If I > oServer.Databases.Count Then Exit Sub
db = oServer.Databases.Item(I, "dbo")
ListBox1.Items.Clear()
'µÃµ½ËùÓеĴ洢¹ý³Ì
For I = 1 To db.StoredProcedures.Count
ListBox1.Items.Add(db.StoredProcedures.Item(I, "dbo").
Ïà¹ØÎĵµ£º
ÊÔ×ÅÓÃÁËÒ»ÏÂMindManager,ʹÓúÜÈÝÒ×,ÏÂÃæÊÇÎÒÁ·Ï°×Å×öµÄÒ»¸öͼÐÎ,Ï£ÍûÒÔºó»áÔ½ÓÃÔ½ÊìÁ·,×öµÃ¸üºÃ!
& ......
WindowsÖеÄ×ÀÃæͼ±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæͼ±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂÏ°Ï£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
Õâ¸öÊ ......
ÕâһƪÎÒÔÙ˵˵ˮ¾§±¨±íµÄÇé¿ö¡£ACCESSÖжÔӦˮ¾§±¨±í·½Ã棬´ó¼Ò¿ÉÄÜ»áÓöµ½µÄ×î¶àµÄÎÊÌâÓ¦¸Ã¾ÍÊÇ´ò¿ª±¨±íºó
»á³öÏÖÐèÒªµÇ¼µÄÎÊÌâ¡£
Õâ¸öÊÇΪʲôÄØ£¿Ã÷Ã÷ÎÒûÓÐÉèÖÃÃÜÂ룬Ôõô»áÓÐÒªÊäÈëÃÜÂëÄØ£¿Èç¹ûÄã¹»³Á×Å£¬Èç¹ûÄãµÄdebug¾Ñ鲻ȱ·¦µÄ»°£¬
Äã»á·¢ÏÖÔÚË®¾§±¨±íÌø³öÊäÈëÃÜÂëµÄµÇ¼¿òÖУ¬accessµÄ·¾¶²»ÊÇÎÒÏÖÔÚÊý¾Ý¿â· ......