Blockchain technology has already revolutionized finance thanks to Bitcoin. Now it's disrupting other areas, including the realm of data protection. Learn how blockchain is now being used to authenticate backup files and keep them safe from hackers.
Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _ "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=Gnnn;Data Source=126.96.36.199,6644;Use Procedure for Prepare=1;Auto " _ , _ "Translate=True;Packet Size=4096;Workstation ID=USER-PC;Use Encryption for Data=False;Tag with column collation when possible=Fal" _ , "se;Initial Catalog=psql"), Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdTable .CommandText = Array("""psql"".""Graham2"".""Performance""") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .SourceConnectionFile = _ "C:\Users\User\Documents\My Data Sources\188.8.131.52,1444 psql Performance.odc" .ListObject.DisplayName = "Table__184.108.40.206_1411_psql_Performance" .Refresh BackgroundQuery:=False End With ActiveCell.FormulaR1C1 = "Date" Range("D10").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.