AccessTr.neT

Tam Versiyon: Access'te sql veritabanlı sohbet programı tablo yok sorgu yok - chat :)
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Merhaba,
Bu sohbet programında Access formları arayüz olarak kullanılmış database olarakta MS Sql server kullanılmıştır.

-Şimdilik programın gerçek çalışma şeklini göstermek için server olarak kendi bilgisayarımı kullanıyorum. Burda amaç siz programı MDE olarak çevirdiğinizde hiç bir tablo sorgu görmeden yani verilerin güvenliği sağlanmış halde nasıl bağlantı kurulup ve nasıl login sayfasında şifre ile giriş yapmadan verilere ulaşma imkanının bulunmadığını göstermek. Örneğin bu dosyayı mde olarak göndermiş olsaydım siz sadece login ile giriş yaparak görme yetkiniz olan yerleri görecektiniz. her istediğiniz verilere ulaşamayacaktınız.

-Tablolar ms Sql serverda bulunmaktadır.

-Sql ververe verebilmeniz için tabloları da ilişikte gönderiyorum. Sql servere vereceğiniz tablolarınızın yönetimi için Sql bölümünü inceleyiniz.

-Bu program sadece chat için değil diğer tüm yazılımlarınızda size verileriniz güvenliğini sağlamanıza ve güvenli şekilde programı çalıştırtmanızda yardımcı olacak bir nevi fikir verebilir.

-Bu programla bir bilgisayarı server olarak atayıp istenilen bilgisayar kadar ağ veya internet üzerinden programınızı kullandırmayı amaçlar. Örnek: Ankarada server olarak atanmış bilgisayarın Sql server'ında yüklü tablolara ülkenin her yanından kullanıcılara program yüklenmek şartıyla kullandırılabilir. Bu muhasebe programı da olabilir, insan kaynakları prg olabilir tüm yazılımlarda kullanılabilir.

-Biraz daha tecrübeli arkadaşlara hitap ediyor sanırım.

-Ayrıntılar gerektikçe burada, bu mesajda yazılmaya devam edilecektir.

Programdaki bir Özellikte ODBC veri kaynağında DSN olayını oluşturmuş olduğum kodlar ile kendi otomatik gerçekleştiriyor olması. Bu sayede ODBC veri kaynağı ile Sql server ile iletişime geçip istendiğinde bağlı tablo bile oluşturulabiliniyor.

odbc kayıt ve dsn oluşumuna örnek kod dökümü:

Kod:
Function DoesTblExist(strTblName As String) As Boolean
On Error Resume Next
Dim db As Database, tbl As TableDef
Set db = CurrentDb
Set tbl = db.TableDefs(strTblName)
If Err.Number = 3265 Then
DoesTblExist = False
Exit Function
End If
DoesTblExist = True
End Function

Function CreateODBCLinkedTables() As Boolean
On Error GoTo CreateODBCLinkedTables_Err
Dim strTblName As String, strConn As String
Dim db As Database, rs As Recordset, tbl As TableDef
' ---------------------------------------------
' şimdide odbc veri kaynağına kayıt oluyoruz.
' ---------------------------------------------
Set db = CurrentDb
DBEngine.RegisterDatabase "NCBBB", _
"SQL Server", _
True, _
"Description=AE" & _
Chr(13) & "Server=19.242.84.205\sqlexpress" & _
Chr(13) & "Database=ncmessenger"
' ---------------------------------------------
'odbc kaynağında oluşturulan dsn bilgileri ile ip numarası ve server adını kayıtlamış olduk.
' ---------------------------------------------
CreateODBCLinkedTables = True
'MsgBox "SQL Server İle Bağlantı Sağlandı.. Refreshed SQL ODBC Data Sources", vbInformation, "Sql Bağlantı"
CreateODBCLinkedTables_End:
Exit Function
CreateODBCLinkedTables_Err:
MsgBox Err.Description & "Bağlantı Yok! Sonra Tekrar Deneyin!", vbCritical, "Hata:"
Resume CreateODBCLinkedTables_End
End Function

Ayrıca program kullanıcıların kendi aralarında dosya transferleri yapmalarını da sağlayabiliyor. Ancak arka planda ftp bağlantıları yaparak dosya paylaşımlarını kullanıcıya bile hissettirmeden gerçekleştiriyor olması http ftp olayımızda fazla download upload olayı gerçekleştiriyor olmasından kota aşımına sebep oluyor. Bu nedenle şimdilik sadece şifreyi değiştirdim. Ancak siz isterseniz kendi ftp bilgilerinizi girerek kullanıcıların kendi aralarında dosya alışverişlerini yapmalarını sağlayabilirsiniz. ( Accesste kullanıcıların aynı anda birbirlerini dosya transferi olayı başka yerde yok Img-grin) )
selamlar.
Katkı paylaşımlarınız için teşekkürler. Maalesef rar dan çıkaramadım. Bu iş son zamanlarda sık olmaya başladı. saygılar...
dosya indirme sorunu genel..

bu arada programla ilgili resimleri ekleyeyim. çalışma şekli resimlerde görülebilir.
benremix tarayıcını yükselt veya mozilla kullan düzeliyor.
mehmet ve ozan hocalarımla yazıştık gayet güzel .. Img-grin
güzel çalışma için çok teşekkürler, dosya indirme sorununu sunucu ile görüştük, kullanıcının tarayıcısından kaynaklanan problem olabileceği, sunucudan kaynaklanmadığı belirtildi.

Tekrar teşekkürler
Sn Cüneyt Bey hemen denedim gerçekten öyle oldu. Yalnız benim tarayıcı İe8 idi. Şimdi Google Chrome ve Firefox denedim ikisi de açtı. İlgi ve yardımlarınız için teşekkürler.

Saygılar..
Sayfalar: 1 2 3