|
Tags
|
|
|
|
Author: Orion - Replies: 3 - Views: 2536
|
Merhaba.
aşağıdaki sorgu ile ado ile bağlandığım mdb dosyasından verileri alıyorum.
Tablomda Alan1 ve Alan2 adlı alanalar var.
Fakat ben bu sorguya birde dosyanın o anda bulunduğu yolu ve dosya adınıda yazmak istiyorum.(esasında sabit bir metin veya string bir değer yazmak istiyorum demek daha doğru olur.).
Kodlarım aşğıdadır teşekkür ederim. 
[code=vba]dosya_yolu = "C:\Evren"
dosya_adı = "test.mdb"
strsgl = "Select Alan1,Alan2,(Buraya Dosya yolunu ve adını yazmak istiyorum) from tablo1"
|
|
Apartman / Site Yönetim Programı ADO ile
|
|
Merhaba Arkadaşlar,
Apartman aidat, banka, alacak ve borçlarını takip etmek için ekteki programı yazdım. Buradaki site tamamen banka ile çalışıyor. Yani tahsilat ve ödemeler bankadan, kasa çalışmıyor.
Ancak programda biraz daha geliştirme yapamak gerekiyor. Özellikle sitenin özelliklerine göre eklemeler gerekebilir.
Bu programın en büyük özelliği formlarda tamamen ADO kodları çalışıyor.
Malumunuz ADO ile kod yazarken bütün alanları isimlendirmek ve tek tek kayıt ederken kodlamanız ger
|
|
ADO_TR
|
Küçük bir Türkçe ADO örneği..
Hem Class modul hem de ADO i anlamak açısından fikir verebilir.
Module1:
Kod: Private AD_TR As ADO_TR.KapaliBaglanti
Sub Test()
Dim X As Object
Set AD_TR = New ADO_TR.KapaliBaglanti
With AD_TR
.Ac MSJetOLEDB_4_0, "c:\aaa.mdb"
Set X = .KayitSet("select * from [tablo1]", TR_Dinamik, TR_Serbest)
[a1].CopyFromRecordset X
.Kapat_KayitSet
.Kapat_Baglanti
End With
Set AD_TR = Nothing
End Sub
Class Module :
|
Author: Orion - Replies: 6 - Views: 5746
|
Merhaba.
Aşağıdaki kodla ISIM alanındaki textbox1 de bulunan kayıt sayısını almak istiyorum.ISIM alanı stringtir.
Ama sonuç -1 olarak çıkıyor.Oysa en az 1 kayıt var.
VT ms sql compact 3,5
Teşekkür ederim.
SQL SET rs1 = NEW ADODB.Recordset SET rs1 = UserForm1.conn.EXECUTE("select Count(ISIM) from [ISIM]" _ & " where ISIM = '" & TextBox1.Text & "';") MsgBox rs1.RecordCount
|
|
TABLO SIRA NO DÜZENLEME ADO İLE MÜMKÜN MÜ?
|
|
Selam olsun herkese..
Amacım kayıt silme nedeniyle tablomda değişen P_sira numaralarını aynı tabloda sahte sıra numarası oluşturup bu sahte numaraları Dlookup fonksiyonu ile aşağıdaki gibi buldurup P_sira nolara kaydettirebiliyorum.Yalnız bunun için gördüğünüz gibi bir form ve
formun veri kaynağıda tablom olursa ve formun üzerine P_sira no değiştikçe buluyor.
'Şİmdi sorum şu ADO Kayıt Güncelleme işlemi ile bu işlemi tüm tabloya bir tuşla yaptırma imkanımız varmı? Yani Tablodaki p_Ssira (Sahte
|
|
SiralaME() Sıra numarası oluşturma (ADO/Acces/SQL(işlevsiz)'in diz çöküşü!)
|
[color=#800080][size=medium][font=Times New Roman]
SiralaME Sorgular için sıra numarası oluşturma (SQL'in diz çöküşü!)
 http://dl.dropbox.com/u/79396533/Access.ME/SiralaME.zip
Her şey ektedir. en az ve öz kodla ve sağlam yapıyla hızlıca sıra numarası verdirmeye çalıştım. SQL,ADO,DAO,SQL(Dcount) yarıştırıldı. Uzun denemeler sonucu oluşturduğum Dcount ile olan fonksiyon açık ara öne geçti ama bu sefer de sorgu sonuçlarını gösteriminde takılma oluyor! Yine de gayet iyi oldu. Sorguda oal
|
Author: modalı - Replies: 41 - Views: 24263
|
ADO nun Access te nasıl kullanıldığı ile ilgili bir PowerPoint sunumu hazırladım.
Herkese iyi çalışmalar.
|
Author: Orion - Replies: 3 - Views: 4201
|
|
merhaba aşağıdaki kod ile excelde ado kullanarak tablo oluştueyorum.
Sorun yok.Oluşuyor .Ancak ilk(id değişkeni olarak tanımladığım ad ile oluşacak olan) sütundaki id alanını otomatik numara yapamdım.
Normal integer alan oluyor.
Kodlarım aşağıdadır ilgilenelere teşekkür ederim.
Bir alanlara verilere NULL bırakamıyorum.Otamatik sayı haricindekileri null değer bıarakabilirsem iyi olacak.Şimdi veri girmezsem bir şeyin ayarı regereud gibi bir şey dedi ayrlanmamış.null değeri giremezsizniz dedi.Teşek
|
|
ADO ve SQL ile süzmeden sonra hangi isimden kaçtane listelendiğini bulmak.
|
|
Soy isme göre süzme yaptıktan sonra listboxta listelenen isimlerin sayısını nasıl bulabilirim.
|
|
ado ile mssql tablosundan sorgu yapma
|
|
aşağıdaki modül ile mssql veritabanına bağlanıyorum
--------------------------------------------------------------------------------------------
Public Function SqlServerConnStringGetir() As String
Dim BaglantiTuru As String
Dim ServerName As String: ServerName = "DESKTOP-aaa0"
Dim DatabaseName As String: DatabaseName = "MARKET"
Dim UserName As String: UserName = "sa"
Dim Password As String: Password = "4857"
SqlServerConnStringGetir = "DRIVER={SQL Server};SE
|
