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µÄ·¶Î§ÁË,Äãµ÷ÓÃʱºò´«ÊäµÄÄÚÈݽö½öÊÇÒ»¸öÃû×ֺͼ¸¸ö²ÎÊý,Ó¦¸ÃÊÇ×î¿ìµÄÁË
¹À¼ÆÊÇÍøÂç»òÐÒéµÄÎÊÌâ,×ÜÖ®ÊÇͨѶ²»³©
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......