modalı
20-02-2006, 19:06
Bence yararlı bir çalışma!
Tüm Versiyonu Göster : SQL kodunu VBA koduna dönüştüren yaralı bir mdb.
musba2924
20-02-2006, 19:24
Sn. modalı Teşekkürler. :D
abdi
26-05-2006, 07:21
Sayın modalı, hocam
teşekkürler
teşekkürler
selami güzel
27-05-2006, 23:10
sn.modalı hocam teşekkürler
betaport
11-07-2006, 11:25
Merhaba Hocalarım
Access te bir hazır tablo oluşturup SQL den gidip sildiğim birkaç bilgiyi yazmadan otomatikleştirmek istiyorum.
Enterprise Manager da herseferinde uğraşması vakit kaybı
DELETE FROM L_GOUSERS
DELETE FROM L_NET
DELETE FROM L_NET_006
acces te tek tuşa dokununca bunu nasıl yapabilirim
Şimdiden teşekkür ederim
Ümit
Umterzi@hotmail.com
Access te bir hazır tablo oluşturup SQL den gidip sildiğim birkaç bilgiyi yazmadan otomatikleştirmek istiyorum.
Enterprise Manager da herseferinde uğraşması vakit kaybı
DELETE FROM L_GOUSERS
DELETE FROM L_NET
DELETE FROM L_NET_006
acces te tek tuşa dokununca bunu nasıl yapabilirim
Şimdiden teşekkür ederim
Ümit
Umterzi@hotmail.com
zafer
11-07-2006, 12:20
Merhaba
Excel vba ile isterseniz.
VBA editöründe TOOLS/REFERENCES de microsoft activeX data object 2.8 işaretleyin
Aşağıdaki kodları Vba modülüne kopyalayınız.
Kodlar dosyaların içini silmektedir.
Normal olarak dosyaları direk silerseniz o an programa bağlı olan kullanıcılar hata verirler.
içlerini silerseniz hem hata almazsınız hemde aynı işi görmüş olursunuz.
takılan verilerden kurtulursunuz.
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, stsql As String
Private Sub sil()
databasename = "LOGO"
servername = "192.168.10.75"
user = "SA"
password = "XXXXXXXXXXX"
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & servername & ";INITIAL CATALOG=" & databasename & ";"
strConn = strConn & "UID=" & user & ";PWD=" & password
cnt.ConnectionString = strConn
stsql = "delete from l_gousers"
cnt.Open
rst.Open stsql, cnt, 1, 3
stsql = "delete from L_NET "
rst.Open stsql, cnt, 1, 3
stsql = "delete from L_NET_006 "
rst.Open stsql, cnt, 1, 3
cnt.Close
End Sub
Excel vba ile isterseniz.
VBA editöründe TOOLS/REFERENCES de microsoft activeX data object 2.8 işaretleyin
Aşağıdaki kodları Vba modülüne kopyalayınız.
Kodlar dosyaların içini silmektedir.
Normal olarak dosyaları direk silerseniz o an programa bağlı olan kullanıcılar hata verirler.
içlerini silerseniz hem hata almazsınız hemde aynı işi görmüş olursunuz.
takılan verilerden kurtulursunuz.
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, stsql As String
Private Sub sil()
databasename = "LOGO"
servername = "192.168.10.75"
user = "SA"
password = "XXXXXXXXXXX"
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=" & servername & ";INITIAL CATALOG=" & databasename & ";"
strConn = strConn & "UID=" & user & ";PWD=" & password
cnt.ConnectionString = strConn
stsql = "delete from l_gousers"
cnt.Open
rst.Open stsql, cnt, 1, 3
stsql = "delete from L_NET "
rst.Open stsql, cnt, 1, 3
stsql = "delete from L_NET_006 "
rst.Open stsql, cnt, 1, 3
cnt.Close
End Sub
falp60
10-10-2007, 15:07
Örnek kaybolmuş, linki yenileyebilirmisiniz. Bu arada başta modalı olmak üzere katkısı olan herkese teşekkürler..
modalı
10-10-2007, 16:44
SQL builder uygulamasını tekrar ekliyorum.
hegu42
11-10-2007, 07:13
teşekkürler sayın modalı
TEKNİKAHMET
11-10-2007, 08:09
sayın modalı çok teşekkür.
Özel Arama
vBulletin v3.7.2, Copyright ©2000-2012, Jelsoft Enterprises Ltd.