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

VBÖ´Ðд洢¹ý³Ì³¬Ê±ÎÊÌâ

ÎÒͨ¹ýÈçÏ·½Ê½À´Ö´Ðд洢¹ý³Ì,¾­³£ÓÉÓÚ´æ´¢¹ý³ÌÒªÖ´Ðкܾöø³¬Ê±,ÄÇôÓÐÎް취ͨ¹ýVBÌá½»Ö´ÐжÔÓ¦´æ´¢¹ý³ÌµÄÖ¸Áîºó£¬Èúǫִ́ÐУ¬µÈ´ýÖ´ÐÐÍê³Éºó·µ»Ø³É¹¦½á¹û¸æÖªÇ°Ì¨VB½çÃæ£¬VB½çÃæ×îºóÌáʾÓû§Ö´Ðгɹ¦¡£
VB code:

Public Sub ConnectToServer()
Public Connstr As String
Public objConn As New ADODB.Connection
objConn.ConnectionTimeout = 200
objConn.CommandTimeout = 200
Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" & DBName & ";Data Source=" & DBServerIP & ";User ID=" & DBLoginID & ";Password=" & DBLoginpwd & ";"
objConn.Open Connstr
End Sub

Private Sub cmdHO01_Click()
objConn.Execute ("exec [dbo].[SP_GenReportHO01] " & Format(dtpfrom.Value, "YYYYMMDD"))
MsgBox "Ö´Ðгɹ¦"
End Sub


¹Ø×¢

±¾À´¾ÍÊÇVBÌá½»Ö´ÐжÔÓ¦´æ´¢¹ý³ÌµÄÖ¸Áîºó£¬Èúǫִ́ÐеÄ
ÊDz»ÊÇÄãµÄ£Ó£Ñ£ÌÓï¾äдµÄÓÐÎÊÌ⣬ִÐкóÒª´«Ë͵Ľá¹ûÖж«Î÷Ì«¶àÁË

ûÓÐʲô¿ÉÒÔ´«Ë͵ģ¬ÈôÎÒÔÚSQL²éѯ·ÖÎöÆ÷ÖÐÖ´Ðеϰ£¬¾ÍÌáʾִÐгɹ¦£¬Ò²Ã»ÓÐʲô·µ»ØµÄ¶«Î÷¡£Ä¿Ç°Ö÷ÒªÊÇÎҵĴ洢¹ý³ÌÖ´ÐпÉÄÜÐèÒª5-10·ÖÖÓ£¬ÄÇôÔÚVB½çÃæÌá½»ºó£¬¹ýÒ»»á¶ù¾ÍÌáʾ³¬Ê±£¬Ò²²»ÖªµÀ¾¿¾¹ÔÙ²»ÔÙÖ´ÐУ¬Ö´Ðнá¹ûÔõÑù¡£

ÒѾ­³¬³öVBµÄ·¶Î§ÁË,Äãµ÷ÓÃʱºò´«ÊäµÄÄÚÈݽö½öÊÇÒ»¸öÃû×ֺͼ¸¸ö²ÎÊý,Ó¦¸ÃÊÇ×î¿ìµÄÁË
¹À¼ÆÊÇÍøÂç»òЭÒéµÄÎÊÌâ,×ÜÖ®ÊÇͨѶ²»³©


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ