Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
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
|Ajax Panel Not Updating When Triggered By Timer||4||71|
|ASP/VB email question||4||30|
|Help with preventing downloading a zip file||10||35|
|How to resolve SQL Server DB deadlock which makes my application hangs ?||6||21|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!