'調用webservice。需要安裝SoapToolkit30.EXE,並在工程中引用Microsoft Soap Type Library v3.0Sub CallWebService() Dim m_spClient As New SoapClient30 'SoapClient30對象執行個體化 m_spClient.MSSoapInit "http://localhost/MCISWebService/vbtest.asmx?WSDL" '引用webservice
'串連SQL資料庫Private Sub BindSQLData() Dim cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Rs.CursorLocation = adUseClient 'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security
…… If DateDiff("n", Now, ConvByteToDate) > 9 Then Open "c:\\errlog.log" For Append As #1 Print #1, "now:", Now '目前時間 Print #1, "=>datMeasDate:", datMeasDate '接收的採集時間 Print #1,
SQL Server 很奇怪的問題(2000/2005都有此問題):MM_BJJHMX表有主鍵自增列ID,另外還需要一列“序號”。執行下列語句 SELECT IDENTITY(INT,1,1) XH,A.* INTO #TB FROM MM_BJJHMX A WHERE BJJHID = 4 ORDER BY A.BJBM,A.BJMC; SELECT * FROM #TB DROP TABLE #TB;總是報錯:訊息 8108,層級 16,狀態 1,第 1 行無法使用 SELECT
需要注意的是,工具箱中預設沒有Microsoft Web Browser這個控制項添加瀏覽器控制項到工具箱中:右擊工具箱>>選擇項>>COM組件>>找到Microsoft Web Browser,添加到工具箱即可。這個控制項對應的類是AxSHDocVw.AxWebBrowser我這個只做了基本的訪問:browser.Navigate(comboBox1.Text);
public partial class Form1 : Form { public const int WM_DEVICECHANGE = 0x219; public const int DBT_DEVICEARRIVAL = 0x8000; public const int DBT_CONFIGCHANGECANCELED = 0x0019; public const int DBT_CONFIGCHANGED = 0x0