[Çözüldü] makro

[ovural43]

Kod Seç Genişlet

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CreateObject("ADODB.Connection")
With cn
   .ConnectionString = "DSN=****;UID=***;PWD=***"
.Open
End With
Sheet = thisComponent.Sheets(0)
Cell = Sheet.getCellRangeByName("B1")
t1=Cell.String
Cell = Sheet.getCellRangeByName("C1")
t2=Cell.String

dim g as any
g="f"
strQuery = "SELECT FIRMA FROM a where GELTARIH between '" + t1 + "' and '" + t2 + "'"

rs.open strQuery,cn
rs.moveFirst
Do While  rs.EOF=false
' #########################
msgBox (rs.getString())
'#########################
         strQuery = "SELECT VERGINO,EMAIL,FIRMAAD FROM d where VERGINO='" + rs.fields(0).Value + "'"
         Set rs2 = cn.Execute(strQuery)



yukarıdaki makro kodu excelde calisiyordu .. open office kurduk windows ortamına .. ### satırlar arasinda ilk sql den dönen degerler geliyor ama tüm satırları alabiliyorum ..

normalde aktif satiri almam gerekiyor ki altta ikinci sql de her satırdaki degere göre islem yapmam gerekiyor ..

sabahtan beri ugrasiyorum bunu çözemedim ..


birde yine excelde dış veri al işlemi ile A1 hücresindeki değeri parametre olarak gönderip sql den bir sonuc dönüyordu .. simdi base(F4) e basıp o sql cümlesini yazabilirim ama A1 hücresindeki degeri parametre olarak al nasıl derin ??


normalde excelde

Kod Seç Genişlet

Select * from deneme where tarih = :$A$1

şeklide yazabiliyordum şimdi nasıl yapabilirim bilgisi olan varmıdır ??

[ovural43]

kodda sorunu buldum ileride ihtiyaci olanlar belki kullanır ..


rs.getString()

tüm kayıtları veriyor ..

rs.getString(,1) satır satır kayitları alıyor .. tabi birden fazla alan varsa aralarda <tab> karakteri oluyor ..

örnek olarak rs.getString(0,1,"|") şeklinde yaparsak alanlar arasında belirttigimiz karakterleri ekleyerek almış oluyor ..

tabi en son alanın sonunda satir sonu karakteri oldugu icin direk aldıgınız kodu kullanırsanız hata veriyor kod

bu yüzden gelende Replace(rs.getString(,1),chr(13),"") şeklinde alanları alırsak sağlıklı olur ...

Open Office 3.3 ve Openoffice Basic de denenmiştir ..

[if]

@ovural43, çözüldü ise çözüldü etiketi alabilir miyim?

[heartsmagic]

Hem çözüm yolu hem de etiket için teşekkür ederiz @ovural43.