All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Sub load_users() Dim cnn As ADODB.Connection Dim connectionString As String Dim rst1 As ADODB.Recordset Dim rst2 As ADODB.Recordset Dim strSQL As String Dim User_ID As String Dim User_PWD As String Dim Initial_Catalog As String 'Nom de la base de données Dim Workstation_ID As String Dim Data_Source As String Application.ScreenUpdating = False On Error GoTo Verif_Connexion User_ID = "my login " '"SYGES" User_PWD = "my password" ' "SYGES2014" Initial_Catalog = "DATABASE" Data_Source = "url" Workstation_ID = "url" ' Set cnn = New ADODB.Connection connectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" & User_ID & ";PWD=" & User_PWD & ";Initial Catalog=" & Initial_Catalog & ";Data Source=" & Data_Source & ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=" & Workstation_ID & ";Use Encryption for Data=False;Tag with column collation when possible=False;" ThisWorkbook.Sheets("my_sheet").Range("A2:AZ65536").Value = "" strSQL = "select login, password from MYTABLE " cnn.Open connectionString Set rst = cnn.Execute(strSQL) ThisWorkbook.Sheets("my_sheet").Activate ' HERE IS MY QUESTION 'This put the result in the worksheet 'I would like to have it in an array inside the code instead to displa it in the worksheet ThisWorkbook.Sheets("my_sheet").Range("D7").CopyFromRecordset rst rst.Close cnn.Close Set rst = Nothing Set cnn = Nothing end sub
|How can I sort the data shown in Sheet 1 and copy it to Sheet 2?||8||31|
|VB loop to open the file from the network drive||30||67|
|Concatenating multiple comments into one row||16||46|
|Find the last position of specific character in a cell Excel||7||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!