Database aşağıdaki şekilde bağlanıyorum
fakat aşağıdaki kodlarda yanlışlık yaptığımdan verileri sayfaya getiremiyorum. Galiba connection kısmında yanlış yapıyorum
Kod:
Public cnn As New ADODB.Connection
With ThisWorkbook
If .cnn.State = 1 Then Exit Sub
.cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User Id=ssret;Password=432;Data Source=192.168.0.1; Initial Catalog=MUH_2006"
.cnn.CursorLocation = adUseClient
.cnn.Open
End With
Kod:
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=MW32;Server=192.168.0.1;Service=8003;Charset=ISO8859-1;UID=public;Password=No" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT * FROM ( SELECT * FROM CIN WHERE 1=1 UNION ALL SELECT * FROM COUT WHERE 1=1 ) A WHERE KONAKLAMA IN ('COMP','HUSE' )" _
)
.Name = "MW32 kaynağından sorgula"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With