Verileri bir SQL db'den çekmek için Excel kullanıyorum. Kodu başka bir sorudan kullandım ve iyi çalışıyor. Şimdi gerçek tabloya ek olarak bir tablodan sütun isimlerini çekmek istiyorum. Her fld döngüsünü kullanarak isimleri alabileceğimi anladım. Ancak, sütunların sayısı değişebileceğinden, bunları Excel'in bir satırında yatay olarak doldurma sorunu hala var - bu yüzden her bir döngü için ya da benzer bir şeye ihtiyaç duyacağımı düşünüyorum.Sütun Adlarını SQL sorgusundan Excel'e Çekme
Sub GetDataFromADO()
'Declare variables'
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
'Open Connection'
objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;User ID=abc;Password=abc;"
objMyConn.Open
'Set and Excecute SQL Command'
Set objMyCmd.ActiveConnection = objMyConn
objMyCmd.CommandText = "select * from myTable"
objMyCmd.CommandType = adCmdText
objMyCmd.Execute
'Loop Names'
' WHAT TO DO HERE????'
'Open Recordset'
Set objMyRecordset.ActiveConnection = objMyConn
objMyRecordset.Open objMyCmd
'Copy Data to Excel'
ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)
End Sub
Başlıkların veri ile dizilmesini istemiyor musunuz? Veri A1'de başlar, ancak başlık aralığını A4 olarak ayarlamışsınız demektir. –
evet haklısın - kötü kopya ve benim tarafıma yapıştır. – firedrawndagger