Mysql

[Rido66]

Arkadaşlar bana bu konuda yardım edecek bir arkadaş yok mu? ODBC de mysql tanımlı Microsoft Query de ben isteğimi karşılıyorum ama
Aşağıdaki kod ile işimi görüyorum:yardim:

SELECT o.dtldatetime, c.clientname, p.productname, o.log_sentproduct, o.price, o.currency, o.term, o.minimumprice, o.mpcurrency, o.minimumprice2, o.mp2currency, o.minimumprice3, o.mp3currency
FROM herkim_herkim.clients c, herkim_herkim.orderdetails o, herkim_herkim.orders od, herkim_herkim.products p
WHERE (o.dtldatetime>'2007-04-09 12:18:57') AND (p.id=o.productid) AND (o.orderid=od.id) AND (od.clientid=c.id) AND (o.opr_state='1') AND (c.autoapprove='0')
ORDER BY o.dtldatetime DESC

Benim istediğim ise '2007-04-09 12:18:57' devamlı değiştirdiğim tarih koşulunu excel de bir hücrede değiştirdiğimde sorgudaki bu tarihinde değişmesi. Sanırım bu da makro ile mümkün. Makro ile MYSQL veri tabanına nasıl bağlanabilirim bu konuda yardım istiyorum.
__________________

 

[zafer]

Merhaba



Dim tar As Date
tar = "13.01.2005"

...
...
WHERE (o.dtldatetime>& tar &)

tar değişkenini bir hücreyede atayabilirsiniz.

 

[Rido66]

TeŞekkÜr Ederİm İlgİnİz İÇİn Ama İlk Önce Mysql Servere BaĞlanmam Lazim Bunu Nasil Yapabİlİrİm Ve Benİm Sql Kodum V.b. DÜzenlenmİŞ Bİr Şekİlde Bİr Örnek Verİrsenİn Memnun Olurum

 

[Zeki Gürsoy]

Merhaba,
İhtiyacınıza göre düzenleyin.

Sub sql_baglan()
Dim baglan As Object, rs As Object, z As String, komut As String

Set baglan = CreateObject("ADODB.Connection")
'z = "Driver={SQL Server};Server=SERVERADI;Uid=KULANICIADI;pwd=SİFRE;database=VERİTABANIADI"
z = "Driver={SQL Server};Server=(local);database=deneme"
baglan.Open z

Set rs = CreateObject("ADODB.recordset")
komut = "SELECT * FROM [tablo1]"
rs.Open komut, baglan
[a1].CopyFromRecordset rs

Set rs = Nothing
Set baglan = Nothing
End Sub