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
|Return correspondent value or list after validate values on 2 columns (excel)||13||24|
|Excel 2016 lost MRU list||8||57|
|Delete row if does not start with 0||43||35|
|Need help with formula in excel||10||36|