Submit an article about your scariest tech experience—and the solution—and you’ll be automatically entered to win one of 4 fantastic tech gadgets.
rivate Sub SingleRcrd(ByRef iArrayBound As Integer, ByVal ThisSql As String) 'On Error GoTo ErrorHandler Dim rs As ADODB.Recordset Dim i As Integer Dim UploadArr(iArrayBound) Set rs = New ADODB.Recordset rs.Open ThisSql, conn, 1, 2 For i = 0 To iArrayBound UploadArr(i) = rs(i).Value Next i rs.Close Set rs = Nothing Set rs = New ADODB.Recordset rs.Open ThisSql, srvr_conn, 1, 2 For i = 0 To iArrayBound rs(i).Value = UploadArr(i) Next i rs.Update rs.Close Set rs = Nothing Exit Sub ErrorHandler: Beep ErrorHandler End Sub
sql = "SELECT EventName, EventDate, Club, Website, Weather, Comments, FeeIncrDate, TimingMethod, EventDirID, ShowOnline, " sql = sql & "OnlineReg, WhenShutdown, FeeIncrDate FROM Events WHERE EventID = " & lEventID Call SingleRcrd(12, sql)
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.