We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim cn As ADODB.Connection Dim strSQL As String Dim lngRecsAff As Long Set cn = New ADODB.Connection cn.Open _ "Provider = sqloledb;" & _ "Data Source=WSP0470.datasource.com;" & _ "Initial Catalog=QTS;" & _ "User ID=user;" & _ "Password=me;" For i = 2 To lastrow strSQL = "INSERT INTO .." cn.Execute strSQL, lngRecsAff, adExecuteNoRecords If lngRecsAff = 0 Then 'there was a problem and no record was added qtyRowsFailed = qtyRowsFailed + 1 Else 'all cool qtyRowsAddedToDatabase = qtyRowsAddedToDatabase + lngRecsAff End If Next i
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|count values within multiple bands||7||34|
|Get average for unknown number of cells per degree..||3||37|
|Excel + CountIfs + two colums||5||37|
|Combining match and vlookup???||4||27|
Join the community of 500,000 technology professionals and ask your questions.