Çë½ÌVB±¸·ÝSQLÊý¾Ý¿âµÄÎÊÌâ
ÓÃVB×öÁËÒ»¸öϵͳ£¬ÔÚµçÄÔAÉϲÙ×÷µçÄÔBµÄSQLÊý¾Ý¿â£¬ÏÖÔÚÔÚµçÄÔAÉϱ¸·ÝÊý¾Ý¿âʱ£¬Éú³ÉµÄ±¸·ÝÎļþ¶¼´æµ½ÁËBÉÏ£¬Ôõô²ÅÄÜ´æµ½AÉÏÄØ£¿ÔÚAÉϻָ´Êý¾Ý¿âÒ²ÊÇÒ»ÑùµÄ£¬AÉÏûÓб¸·ÝÊý¾Ý¿âÎļþ£¬Ôì³ÉÎÞ·¨»Ö¸´£¬Çë¸ßÊÖÖ¸µã¡£ÏÂÃæÊÇÎÒ½øÐб¸·ÝʱµÄ´úÂ룺 mSqlMaster = "provider=SQLOLEDB;server=" & IPstr & ";database=master;uid=sa;pwd=19801103"
cPmasterconn.CursorLocation = adUseClient
cPmasterconn.CommandTimeout = 0
cPmasterconn.Open mSqlMaster
On Error GoTo ERR_HAND
txtSQL = "backup database carddatabase to disk='" & mFile2 & "'"
Set rs = cPmasterconn.Execute(txtSQL)
MsgBox "¹§Ï²£º³É¹¦±¸·Ý½ñÈÕÊý¾Ý¿â£¡", vbInformation + vbOKOnly, "²Ù×÷Ìáʾ"
Exit Sub
ErrHandler:
MsgBox "ºÜÒź¶£¬±¸·Ý²»³É¹¦£¡", vbInformation + vbOKOnly, "²Ù×÷Ìáʾ"
Exit Sub
½øÐлָ´µÄʱºò²¿·Ö´úÂ룺
mSqlMaster = "provider=SQLOLEDB;server=" & IPstr & ";database=master;uid=sa;pwd=19801103"
cPmasterconn.CursorLocation = adUseClient
cPmasterconn.CommandTimeout = 0
cPmasterconn.Open mSqlMaster
On Error GoTo ERR_HAND
f MsgBox("´Ë²Ù×÷½«»Ö¸´ " & s & "!ÄúÈ·ÈÏÂð(Y/N)£¿", vbYesNo, "ϵͳÌáʾ!") = vbYes
Ïà¹ØÎÊ´ð£º
ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º
......
sql 2005Êý¾Ý¿âÎÒÏëµÃµ½Ò»×Ö·û´®Îª:
sldkf|||sdeww
erkv|||rltdk
jemcl|||ligf
¾ÍÊÇ|||ºóÃæµÄ×Ö·ûÓÐʲôº¯ÊýÄܵõ½Âð£¿ÊÇÔÚsqlÓï¾äдµÄ£¬²»ÊÇÔÚÒ³ÃæÐ´µÄ£¬ÄÇλ¸ßÊÖÀ´Ö¸½ÌÏ£¬ÐÂÊÖ£¬Ð»Ð»
ÔÎ µ ......
Êý¾Ý¿âÒªÔõôѧ²Å²»»áÏԵóéÏó°¡£¿
Õâ¾ÍÒª¿´ÄãÊʺÏʲô·½·¨ÁË£¬Õâ¾ßÌå²»ºÃ˵µÄ.....
ÔõôÁË£¬ÄѵÀ´ó¼Ò¶¼²»»á£¬»¹ÊÇÕæµÄÌ«³éÏó´ó¼Ò²»ÖªµÀÔõô˵°¡
½áºÏÄã²Ù×÷Êý¾Ý¿âµÄÌå»áºÍÀí½â£¬Ó¦¸ÃЧ¹û»á¸üºÃ¡£·ñÔò£¬Ò ......
½ñÌì×öÁËÒ»¸ö´æ´¢¹ý³Ì »·¾³ÊÇSQL2000Êý¾Ý¿â
´óÖÂÈçÏÂ
½¨Á¢ÁÙʱ±í
¶¨ÒåÔ±¹¤Óαê
Ñ»·Ô±¹¤£¨ÊôÓÚ1¸ö¹«Ë¾)
......