Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÀûÓÃVB½øÐÐSQL2000µÄÊý¾Ý±¸·ÝºÍ»Ö¸´

 
Ò»¡¢Êý¾Ý±¸·Ý
¡¡¡¡±¸·ÝÓÐÁ½ÖÐÐÎʽÍêÈ«±¸·ÝºÍ²îÒ챸·Ý
¡¡¡¡ÍêÈ«±¸·Ý£ºÊǶÔÊý¾Ý¿â½øÐÐÍêÕû±¸·Ý£¬ÖÜÆÚ±È½Ï³¤£¬Èç1ÖܵÈ
¡¡¡¡²îÒ챸·Ý£ºÊǶԸüб¸·ÝµÄÊý¾Ý½øÐб¸·Ý£¬ÖÜÆÚ±È½Ï¶Ì£¬Èç1Сʱ
¡¡¡¡ÃüÁî½éÉÜ£º Backup Database [Êý¾Ý¿âÃû] To Disk=[±£´æÂ·¾¶ºÍÃû³Æ] With [ÆäËûÊôÐÔ]
¡¡¡¡´úÂë×¢ÊÍ£ºServerIP :SQLServerËùÔÚ»úÆ÷µÄ IP
¡¡¡¡¡¡¡¡¡¡¡¡¡¡jtsg:SQLServerÖÐÊý¾ÝµÄÃû³Æ
Public Cn As ADODB.Connection
Set Cn = New ADODB.Connection
strcon = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=jtsg;Data Source=" + ServerIp + ";" + _
"use procedure for prepare=1;auto translate=true;" + _
"use encryption for data=false;tag with column collation when possible=false"
Cn.ConnectionString = strcon
On Error Resume Next
Cn.Open
If Cn.Errors.Count > 0 Then
For i = 0 To Cn.Errors.Count - 1
If Cn.Errors(i).Number = -2147467259 Then
MsgBox "ÍøÂ粻ͨ»ò·þÎñÆ÷먦£¬ÇëÈ·ÈϺóÔÙÊÔ", vbOKOnly + vbInformation, "ÌáÐÑ"
Unload Me
Exit Sub
Exit For
End If
Next i
End If
¶þ¡¢ÍêÈ«±¸·Ý
Private Sub BackupAll()
Cn.Execute "backup database jtsg to disk='" + App.Path + "\backup\myjtsgall.bak' with name='jtsg backup all',description='Full Backup Of jtsg'"
MsgBox "Êý¾ÝÍêÈ«±¸·ÝÒѾ­Íê³É", vbOKOnly + vbInformation, "ÌáÐÑ"
End Sub
Èý¡¢²îÒ챸·Ý
Private Sub BackupDif()
Cn.Execute "backup database jtsg to disk='" + App.Path + "\backup\myjtsgdif.bak' with&nbs


Ïà¹ØÎĵµ£º

ÓÃADO¹ÜÀíSQL SERVER £¡

      ÔÚÈí¼þ¿ª·¢ÖУ¬³£³£ÐèҪΪ³ÌÐò½¨Á¢Sql ServerÊý¾Ý¿âµÄÔËÐл·¾³¡£Íê³ÉÈçÔÚSQL ServerÊý¾Ý¿âÖн¨Á¢É豸£¬½¨Á¢Êý¾Ý¿â£¬½¨Á¢±í¸ñ£¬·ÖÅäȨÏ޵ȹ¦ÄÜ£¬ÈçºÎ·½±ãµÄ½¨Á¢Ó¦ÓóÌÐòËùÐèSql Server»·¾³µÄÊý¾Ý¿â»·¾³£¬¶ø²»ÓÃÆô¶¯SQL Enterprise ManagerÄØ£¿
ÏÂÃæÀ´¿´£º 
¡¡¡¡Æô¶¯VB6.0£¬Ð½¨Ò»¸ö¹¤ ......

·ÀSQLÊý×Ö×¢È뺯Êý

·ÀSQLÊý×Ö×¢È뺯Êý
http://blog.csdn.net/cncco/archive/2007/10/03/1810540.aspx
·ÀSQL×¢È뺯Êý
³ÌÐò´úÂ룺
º¯Êý²¿·Ö========================================================================
'------------------------------------------------
'ÓÃ;:¼ì²éÊÇ·ñΪÊý×Ö,ÒÔ¼°Êý×ÖÊÇ·ñ³¬³ö·¶Î§
'ÊäÈë:¼ì²é×Ö·û,´ ......

½â¾öSQL Injection©¶´µÄÒ»¸öº¯Êý

½â¾öSQL Injection©¶´µÄÒ»¸öº¯Êý
http://blog.csdn.net/cncco/archive/2006/04/07/654254.aspx
º¯Êý
<%
Function CheckInput(str,strType)
   'º¯Êý¹¦ÄÜ£º¹ýÂË×Ö·û²ÎÊýÖеĵ¥ÒýºÅ£¬¶ÔÓÚÊý×Ö²ÎÊý½øÐÐÅжϣ¬Èç¹û²»ÊÇÊýÖµÀàÐÍ£¬Ôò¸³Öµ0
   '²ÎÊýÒâÒ壺  str      ......

v$sql,v$sqlarea,v$sqltextÓÐÊ²Ã´Çø±ð

v$sqltext
´æ´¢µÄÊÇÍêÕûµÄSQL
v$sqlarea
´æ´¢µÄSQL ºÍһЩÏà¹ØµÄÐÅÏ¢£¬±ÈÈçÀۼƵÄÖ´ÐдÎÊý£¬Âß¼­¶Á£¬ÎïÀí¶ÁµÈͳ¼ÆÐÅÏ¢
v$sql
´æ´¢µÄÊǾßÌåµÄSQL ºÍÖ´Ðмƻ®Ïà¹ØÐÅÏ¢£¬Êµ¼ÊÉÏ£¬v$sqlarea ¿ÉÒÔ¿´×ö v$sql ¸ù¾Ý sqltext µÈ ×öÁË group by Ö®ºóµÄÐÅÏ¢ ......

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 µÄÓ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ