Blockchain technology has already revolutionized finance thanks to Bitcoin. Now it's disrupting other areas, including the realm of data protection. Learn how blockchain is now being used to authenticate backup files and keep them safe from hackers.
Dim rstest As ADODB.Recordset Dim SQLrs As String Dim cn As ADODB.Connection Dim strtest As String SQLrs = "SELECT tblProductNames.ID, tblProductNames.FName FROM tblProductNames WHERE (((tblProductNames.ID)=3));" strtest = "DSN=Berry_DatSQL;Integrated Security=True" cn = New ADODB.Connection cn.CursorLocation = CursorLocationEnum.adUseClient cn.Open(OdbcConnection1.ConnectionString, "", "", -1) rstest = New ADODB.Recordset rstest.Open(SQLrs, OdbcConnection1.ConnectionString, CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockOptimistic, 1) With rstest .MoveFirst() txtProduct.Text = rstest.Fields.Item(2).Value End With rstest.Close() rstest = Nothing
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.