Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
Dim sqltxt As String
sqltxt = "delete tmpksb"
Set conn = New ADODB.Connection
conn.ConnectionString = "dsn=KS;uid=MICROSOF-45B405;pwd=;"
conn.Open
conn.Execute sqltxt
If condstr = "" Then
sqltxt = "insert into tmpksb select * from ksb "
Else
sqltxt = "insert into tmpksb select * from ksb where " + condstr
End If
conn.Execute sqltxt
conn.Close
DataEnvironment1.Command1 '´ò¿ªÊý¾ÝÔ´
DataEnvironment1.rsCommand1.Requery 'Ë¢ÐÂ
DataReport1.Show vbModal
DataEnvironment1.rsCommand1.Close
End Sub
´úÂë¡£¡£¡£¡£´úÂë¡£¡£¡£¡£ÄÃÀ´ÎÒÃÇ¿´Ï¡£¡£¡£
Private Sub Comm1_Click()
Dim sqltxt As String
sqltxt = "delete tmpksb"
Set conn = New ADODB.Connection
conn.ConnectionString = "dsn=KS;uid=MICROSOF-45B405;pwd=;"
conn.Open
conn.Execute sqltxt
debug.print condstr '¿´Êä³öʲô
If condstr = "" Then
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......