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
Ïà¹ØÎĵµ£º
Ìí¼Ó
Á½¸öTEXT(multiline=true)
Ò»¸ö°´Å¥
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" 'ÏÈÇå¿Õtext2
For i = 1 To Len(Text1.Text)
DoEve ......
ÔÚ×îеÄWindows Workflow Fonudation(WF4, ÏÂÎÄÖн«¼ò³ÆWF4)ÖУ¬WFÖÐÒýÈëÁËVB expression£¬Óû§¿ÉÒÔͨ¹ývb±í´ïʽΪ±äÁ¿¸³Öµ¡£ÓÐÐËȤµÄÅóÓÑ¿ÉÒÔ°²×°VS 2010£¬È»ºóʹÓÃÒ»ÏÂÕâ¸ö¹¦ÄÜ¡£¹ØÓÚÕâ¸ö¹¦ÄܵIJο¼£¬Çë¿´£ºhttp://msdn.microsoft.com/en-us/library/ee342461.aspx ʲô£¿ ²»ÖªµÀɶÊÇWF£¬Å¶£¬ÐÒ¿÷ÄãÓöµ½ÎÒ£¬ ......
c:\windows\sytem32\ieframe.dll\1ÕÒ²»µ½,´íÎó½â¾ö·½°¸.
Õâ¸öieframe.dllÊÇvbÖÐWebBrowser µ÷ÓõĿؼþ£¬µ±ÄãÓÃvbÔٴδò¿ªÄãµÄ¹¤³ÌÖ®ºó£¬¾Í¿ÉÒÔ·¢ÏÖÒÔǰµÄWebBrowser ¿Ø¼þûÓÐÁË¡£¶øÇÒÔٴμÓÔØÒ²ÊDz»ÄܵÄÁË£¬Õâʱ¾ÍÐèÒªÓõ½ÏÂÃæµÄ·½·¨À´´¦Àí£º
°ÑÒÔÏÂÄÚÈÝ×ö³ÉÒ»¸ö×¢²á±íÎļþfixieframe.reg£¬µ¼Èë×¢²á±í¼´¿É£º
Windows Re ......
VBÈí¼þ¹¤³Ìʦ£º
ְλÃèÊö£º
1¡¢½øÐбàÂë¡¢²âÊÔ£»
2¡¢Ôڹ涨ʱ¼äÄÚÌá½»Ô´´úÂë¡£
¸ÚλҪÇó£º
1¡¢ÊìϤMS SQLÊý¾Ý¿â£»
2¡¢ÊìϤVB 6.0£»
3¡¢ÓÐÒµÎñϵͳ¿ª·¢¾Ñ飻
4¡¢¾ß±¸Á¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬ÇÚ·Ü¡¢ÉϽø£»
5¡¢´óר»òÕßÒÔÉÏѧÀú£»
6¡¢¾ßÓÐ1Äê»òÕßÒÔÉÏÏà¹Ø¹¤×÷¾Ñé £»
7¡¢ÊìϤC#ÓÅÏÈ¡£
VBÐÂÊÖ¡¢³õ¼¶³ÌÐòÔ±¹«Ë¾Ìṩרà ......