May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Function Add_Record1() 'Dim cn As ADODB.Connection Dim rs As Recordset 'Set cn = New ADODB.Connection Dim name name = Text3.Text Dim query For y = 1 To numberofsignals For i = 1 To numberofrows If i - Tradingdelay >= 1 Then If close_price(i) <> "" And signal(i - Tradingdelay, y) <> "" And close_price(i - Tradingdelay) <> "" Then query = "INSERT INTO " & name & ".dbo.[Data] ([Date],Signal,Equity) values ('" & datum(i) & "','" & signal(i, y) & "','" & equity(i, y) & "')" Set rs = ado.Execute(query) End If End If Next Next Debug.Print ("Processingnr:" & processingnumber) End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|all the possible sequences for numbers 1,2,3,4,5,6,7,8,9,10 in groups of 5.||5||63|
|MS SQL Conditional WHERE clause||3||49|
|How do I partition this table on date?||5||54|
|Create a list of Worksheets based on Cell Value||14||14|
Join the community of 500,000 technology professionals and ask your questions.