Çë½Ì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
Ïà¹ØÎÊ´ð£º
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'ÒÚ'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
ΪʲôÉÏÒ»¸öÓÃvarcharת»»ºó¾ÍÖ»±£ÁôÁËÒ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
sqlÎÒÏëµÃµ½Ò»×Ö·û´®Îª:
sldkf|||sdeww
erkv|||rltdk
jemcl|||ligf
¾ÍÊÇ|||ºóÃæµÄ×Ö·ûÓÐʲôº¯ÊýÄܵõ½Âð£¿ÊÇÔÚsqlÓï¾äдµÄ£¬²»ÊÇÔÚÒ³ÃæÐ´µÄ£¬ÄÇλ¸ßÊÖÀ´Ö¸½ÌÏ£¬ÐÂÊÖ£¬Ð»Ð»
ÔνñÌì²»ÊÇдÁËô
select parsen ......
<table style="width: 1000px"><tr>
<td style="height: 38px; width: 35px;">
ÐÕÃû</td>
......