Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.