Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
On Error GoTo ErrorHandler Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command Dim RS As New ADODB.Recordset conn.ConnectionString = ConStr conn.Open cmd.ActiveConnection = conn cmd.CommandText = "select 1 from test" cmd.CommandType = adCmdText RS.Open cmdCommand If RS.EOF = False Then RS.MoveFirst Do MsgBox (RS.Fields(0)) Loop Until RS.EOF = True RS.Close End If conn.Close ErrorHandler: MsgBox Err.Number & ": " & Err.Description Resume Next
|how to open Waze.com/livemap from address saved in DB?||26||115|
|A macro to Count the number of rows across all worksheets||3||47|
|Oracle SQL Insert Script to copy data between tables||8||28|
|Computer crashes, following error message in event manager||5||52|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!