Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Private Sub Start_Command_Click() Dim col As Integer Dim row As Integer Set cnn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset") stDB = "Path to db\db31.mdb" Range("B5") = Me.ComboBox1.Value Range("D5") = Me.ComboBox2.Value cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;" _ & "Data Source=" & stDB & ";" Range("A7:E888") = " " strSQL = " SELECT [T1.RB],[T1.ID],[T1.ID2], [T1." & Me.ComboBox1.Value & "] WHERE T1.Date= '" & Me.ComboBox2.Value & "' order by T1.RB " rst.Open strSQL, cnn col = 0 row = 6 Do While Not rst.EOF row = row + 1 col = 0 Do While col < rst.Fields.Count Cells(row, col + 1) = rst.Fields(col).Value col = col + 1 Loop rst.MoveNext Loop Set rst = Nothing: Set cnn = Nothing End Sub
|MS Access VBA Code for fields that are null and prevent the code from continuing||7||18|
|Excel: How would I make a depleting dropdown list that shows only values that havent been chosen before?||4||52|
|Index/Match with Multiple Criteria||2||15|
|Added a column screws up code||5||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!