Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
'Retrieve record from SQL Server Set cnt = New ADODB.Connection stADO = "Provider=SQLOLEDB.1;" & _ "Data Source=xxxx;Initial Catalog=Dynamics_BAK;User ID=report;Password=123" With cnt .CursorLocation = adUseClient .Open stADO .CommandTimeout = 0 End With 'SQL Statement stSQL = "select * from WMSORDERTRANS where SHIPMENTID = 'A10009480' order by linenum" Set rst = cnt.Execute(stSQL) If rst.RecordCount <> 0 Then rst.MoveFirst Do MsgBox rst("itemid") rst.MoveNext Loop Until rst.EOF rst.Close End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.