SQL kodunu VBA koduna dönüştüren yaralı bir mdb.

[modalı]

Bence yararlı bir çalışma!

 

[musba2924]

Sn. modalı Teşekkürler.

 

[abdi]

Sayın modalı, hocam
teşekkürler

 

[selami güzel]

sql

sn.modalı hocam teşekkürler

 

[betaport]

SQL den veri silme

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

 

[zafer]

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

 

[falp60]

Örnek kaybolmuş, linki yenileyebilirmisiniz. Bu arada başta modalı olmak üzere katkısı olan herkese teşekkürler..

 

[modalı]

SQL builder uygulamasını tekrar ekliyorum.

 

[hegu42]

teşekkürler sayın modalı

 

[TEKNİKAHMET]

sayın modalı çok teşekkür.