Form veya raporlarda SQL kodu neden kullanılır,

Katılım
16 Şubat 2007
Mesajlar
323
Excel Vers. ve Dili
office 2003 prof.tr
Arkadaşlar merhaba,
Herhangi bir form yada sorgunun kayıt kaynağı olarak sorgular bölümünde hazırlanmış bir sorgu yerine kod ile kayıtların form yada rapora çağrılması yönteminin veritabanının performansına olumlu veya olumsuz herhangi bir etkisi var mıdır?
 
Katılım
22 Ocak 2007
Mesajlar
815
Excel Vers. ve Dili
2003
aslında bir farkı yoktur ama bir kaç değişik ilişki tanımlaycaksan yada kriter beliteceksen yani şu olduğunda şu bilgileri al bu olduğunda bu bilgileri al yada ikisi birden olduğunda hem ondan hemde bundan al verileri diyeceksen şol sorgularını kod ile kullanmak gerekir yada diyelim sen başka bir bilgisayardaki şifreli bir veritabanından veri alacaksın işte o zaman şifreyi bir şekilde o veritabanına girmen gerekirki hem şifreyi girecen hem sorguyu çalıştıracan işte onu ancak kod ile yapabilirsin

şuna benzer birşey burda direkt tablonun kendisi alınıyor ama sen şol ile bir kısmınıda alabilirsin

Dim ret As Long

ret = PwdTransferDatabase( _
"123456", _
acImport, _
"Microsoft Access", _
"c:\MiBd.mdb", _
acTable, _
"MiTabla", _
"MiTabla")

If ret = -1 Then
MsgBox "tablo alınıyor"
Else
MsgBox "arıza " & ret _
& " tabloyok 'MiTabla'"
End If
Function PwdTransferDatabase( _
Pwd As String, _
Optional TransferType _
As AcDataTransferType = acImport, _
Optional DatabaseType, _
Optional DatabaseName, _
Optional ObjectType As AcObjectType = acTable, _
Optional Source, _
Optional Destination, _
Optional StructureOnly, _
Optional StoreLogin) As Long

Dim db As Object 'DAO.Database

On Error GoTo err_PwdTransferDatabase
Set db = DBEngine.OpenDatabase( _
DatabaseName, _
True, _
False, _
";PWD=" & Pwd)

DoCmd.TransferDatabase _
TransferType, _
DatabaseType, _
DatabaseName, _
ObjectType, _
Source, _
Destination, _
StructureOnly, _
StoreLogin

PwdTransferDatabase = -1

exit_Function:

If Not db Is Nothing Then
db.Close
Set db = Nothing
End If

Exit Function

err_PwdTransferDatabase:

PwdTransferDatabase = Err.Number
Resume exit_Function

End Function
 
Üst