SQLDMOÔÚVBÖеÄÓ¦ÓÃ
¡¡¡¡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").Name)
Next
'µÃµ½ËùÓеıí
For I = 1 To db.Tables.Count
ListBox1.Items.Add
Ïà¹ØÎĵµ£º
LOFº¯Êý£ºLOF£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ³¤¶È£¬³¤¶ÈÒÔ×Ö½ÚΪµ¥Î»¡£
LOCº¯Êý£ºLOC£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ¶ÁдλÖã¬LOCº¯ÊýµÄ·µ»ØÖµÎªlongÊý¾ÝÀàÐÍ¡£¶ÔÓÚËæ»úÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶ÔÎļþ½øÐжÁ³ö»òдÈëµÄ¼Ç¼ºÅ£»¶ÔÓÚ¶þ½øÖÆÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶Á³ö»òдÈëµÄ×Ö½ÚλÖã»¶ÔÓÚ˳ÐòÎļþ£¬·µ»ØµÄÊÇÎļþµÄµ ......
WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
1.ÓïÑÔ/»·¾³»ù´¡
--ÏîÄ¿µÄ×é³É
--ÓïÑÔ»ù´¡
----±äÁ¿µÄ×÷ÓÃÓòºÍÉú´æÆÚ
----»ù±¾Óï¾ä(forÑ»·,¸³ÖµÓï¾älet(ÆÕͨ±äÁ¿¸³Öµ),set(¶ÔÏóµÄ¸³Öµ,Ö»ÓÃset),·ÖÖ§Óï¾ä)
----¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é(Êý×éµÄÉùÃ÷,ÉÏϽçÈ·¶¨,¶¯Ì¬Êý×éµÄʹÓÃ,¶¨ÒåеÄÖ®ºó,Ôõô±£ÁôÒÔǰµÄÊý¾Ý)
----Ö÷ÒªµÄϵͳº¯ÊýºÍ¹ý³Ì(By ......
ʹÓÃVB½«ASP´úÂë·â×°µ½DLLÎļþÍêÕûʵÀý
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
ÓÃVB·â×°ASP£¬½¨Á¢SayHello²âÊÔ³ÌÐò
1¡¢´ò¿ªVB6£¬Ð½¨ActiveX DLL
2¡¢ÔÚ¹¤³ÌÒýÓÃÖмÓÈëMicrosoft Active Server Pages Object LibraryÑ¡Ôñ
3¡¢Ìî¼Ó´úÂëÈçÏ£º
'Code Start
'ÉùÃ÷²¿·Ö
Private MyScriptingContext ......