- Katılım
- 8 Mart 2005
- Mesajlar
- 3,288
- Excel Vers. ve Dili
-
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba
İki adet table'den bir adet Views (gelirler)yaptım.
gelirler views'ını yaratırken sayısal alanları toplattım ve ay'ı koşula bağladım.
Benim istediğim bu ay koşulunu dışarıdan vba'dan komut vererek değiştirmek.
aşağıdaki örnekte sql tablosuna alanları güncelleme ve ekleme yapabiliyorum.
Benim istediğim bu ay koşulunu dışarıdan vba'dan komut vererek değiştirmek.
örneğin Alter komutu ile tablo isimlerini ve tablonun alan isimlerini değiştirebiliyoruz. Ay alanının koşul ifadesini de değiştirebilirmiyiz.
"stsql=ALTER table ........ where(ay=10)" gibi
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & server_ismi & ";INITIAL CATALOG=" & veritabanı_ismi & ";"
strConn = strConn & "UID=" & user & ";PWD=" & password
cnt.ConnectionString = strConn
cnt.Open
tablo_ismi = "aaa"
cnt.Open
stsql = "UPDATE " & tablo_ismi & " WHERE (AY" & " =" & whrdeg1d & ")"
rst.Open stsql, cnt, 1, 3
cnt.Close
Set rst = Nothing
Set cnt = Nothing
İki adet table'den bir adet Views (gelirler)yaptım.
gelirler views'ını yaratırken sayısal alanları toplattım ve ay'ı koşula bağladım.
Benim istediğim bu ay koşulunu dışarıdan vba'dan komut vererek değiştirmek.
aşağıdaki örnekte sql tablosuna alanları güncelleme ve ekleme yapabiliyorum.
Benim istediğim bu ay koşulunu dışarıdan vba'dan komut vererek değiştirmek.
örneğin Alter komutu ile tablo isimlerini ve tablonun alan isimlerini değiştirebiliyoruz. Ay alanının koşul ifadesini de değiştirebilirmiyiz.
"stsql=ALTER table ........ where(ay=10)" gibi
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & server_ismi & ";INITIAL CATALOG=" & veritabanı_ismi & ";"
strConn = strConn & "UID=" & user & ";PWD=" & password
cnt.ConnectionString = strConn
cnt.Open
tablo_ismi = "aaa"
cnt.Open
stsql = "UPDATE " & tablo_ismi & " WHERE (AY" & " =" & whrdeg1d & ")"
rst.Open stsql, cnt, 1, 3
cnt.Close
Set rst = Nothing
Set cnt = Nothing