Help with code

G

Grant Reid

Hi

I have a piece of code that extracts data from my database, but wish to
modify it so that will use a connection string and sql query which I will
place in a named range. Can anyone help?

Here is my code.....

Sub Get_DB()
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;driver=SYBASE ASE ODBC
Driver;NA=158.76.47.9,5000;DB=master;UID=sa;PWD=", Destination:= _
Range("G20"))
.CommandText = Array( _
"SELECT sysdatabases.name, sysdatabases.dbid, sysdatabases.suid,
sysdatabases.status, sysdatabases.version, sysdatabases.logptr,
sysdatabases.crdate, sysdatabases.dumptrdate, sysdatabases.status2, sysd" _
, _
"atabases.audflags, sysdatabases.deftabaud, sysdatabases.defvwaud,
sysdatabases.defpraud, sysdatabases.def_remote_type,
sysdatabases.def_remote_loc, sysdatabases.status3, sysdatabases.status4" &
Chr(13) & "" & Chr(10) & "FROM mas" _
, "ter.dbo.sysdatabases sysdatabases")
.Name = "Query from GRANTR"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

Many Thanks - Grant
 
Top