Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.
cn.Open strConnectionString strSQL = "SELECT * FROM dbo.ReceiptInfo WHERE Job = '54' ORDER BY CustomerID" Set rstReceivingInfo = CreateObject("ADODB.Recordset") 'Open the recordset object executing the SQL statement and return records rstReceivingInfo.Open strSQL,cn 'determine whether there are any records If rstReceivingInfo.EOF Then msgbox "Recordset is empty. Check your SQL string." Exit Function Else [b]dim TotalNetWt ' this is the variable I'm having trouble with[/b] 'if there are records then loop through them Do While NOT rstReceivingInfo.EOF ' this is where I'm trying to force the user of a numeric variable so I can add values [b]TotalNetWt = CDbl(TotalNetWt) + rstReceivingInfo("NetWt")[/b] rstReceivingInfo.MoveNext Loop End If rstReceivingInfo.Close set rstReceivingInfo = nothing cn.close set cn = 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.