Skip to main content

AccessTr.neT


Access'te sql veritabanlı sohbet programı tablo yok sorgu yok - chat :)

Access'te sql veritabanlı sohbet programı tablo yok sorgu yok - chat :)

#1
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.
.rar AccessTrChat5.rar (Dosya Boyutu: 683,2 KB | İndirme Sayısı: 290)
.rar ServericinTablolar.rar (Dosya Boyutu: 268,9 KB | İndirme Sayısı: 271)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Access'te sql veritabanlı sohbet programı tablo yok sorgu yok - chat :) - Yazar: cuneyt - 06/09/2009, 00:21
Task