Access te Devrim :))) tablo yok sorgu yok. Herşey sql server

[cuneyta]

Merhaba,
Bombamı patlatayım dedim artık )) .. arkadaşlarım dostlarım faydalansın istedim. buyrun size tablo yok sorgu yok odbc veri kaynağını kendi oluşturuyor size sadece programı göndermek kalıyor.. verileriniz yüzde yüz güvende..
bu arada örneği görüp anlayasınız diye size sql serveri açık bıraktım.
benim sql server üzerinden örneği deneyebilirsiniz.
yapmanız gereken sqlserver 2005 express veya firebird yüklemek (firebird için biraz daha değişik kodlar oluşturdum öyle gerekiyor, onu isteyen olursa, onuda gönderirim,,,, şimdiki MS sql server için) ve bunların yönetim programlarınıda yüklüyorsunuz tabi.. sql serverda database oluşturuyorsunuz. ve oluşturduğunuz databaselere formdaki örneğim ve modüldeki örneğim gibi yollar oluşturuyorsunuz. bununla dilerseniz gerçek anlamda muhasebe programı veya insankaynakları veya dilediğiniz güvenli programı oluşturabilirsiniz. ayrıca bunlarla ilgili algoritma oluşturup hiç kimse ama hiç kimsenin verilerde değişiklik yapamayacağı duruma da getirebilirsiniz..(sql server yönetici dahil) benim önceki verileri şifreleme programıma bakabilirsiniz.. ayrıntı için benim chat programında buluşabiliriz.. ayrıca bu kodlar excel'de de kullanılabilir.
saygılar..

 

[pcman]

Süpersin üstat....

 

[cuneyta]

ayrıca bu tarz oluşturacağnız programla isterseniz tüm türkiyede otomasyon ağı oluşturun.. sql server veya firebird ile ..
saygılar..

 

[pcman]

formda kolan isimlerini yanlış yazmışsın şimdi çalışmıyor diye mesaj yamuruna tutmasınlar

 

[cuneyta]

valla şaşırmam ))

 

[nafis]

Sayın cuneyta;

Elinize sağlık Teşekkürler

 

[yeni54]

Bence formun kayıt kaynağını sp lere bağlamalısın.
(Konunun teknik detayları bir şekilde gündeme gelsin de bişeyler öğrenelim diye yazdım, yanlış anlaşılmasın)

Bir de, neden adp değil de mdb?

 

[cuneyta]

Bence formun kayıt kaynağını sp lere bağlamalısın.
(Konunun teknik detayları bir şekilde gündeme gelsin de bişeyler öğrenelim diye yazdım, yanlış anlaşılmasın)

Bir de, neden adp değil de mdb?

)) dostum bu sadece bir örnek.. istersen denetim kaynağına, istersen açılan kutuya, istersen liste kutusuna istediğin her yere kaynağı koyabilirsin.. ayrıca herkesin anlayacağı mdb uzantası olarak gönderdim.. istersen mde yap, istersen adp ist, istersen ade yap veya istersen mdb yap.. bari bunu sen söyleme yeni54 dostum ))

 

[yeni54]

cuneyta,
bunları etraflıca bildiğini biliyorum. Ancak, ikidir sadece program gönderiyorsun.
Bunların nasıl yapılabildiğini açman için kışkırtıyorum sadece.

 

[cuneyta]

cuneyta,
bunları etraflıca bildiğini biliyorum. Ancak, ikidir sadece program gönderiyorsun.
Bunların nasıl yapılabildiğini açman için kışkırtıyorum sadece.

peki ala dostum
eteğimizdeki bütün taşları dökelim
şimdiki anlatacaklarım bir access veritabanı var ortada hiç birşey yok sadece basit bir form ve formdaki bir komut düğmesi bir de textbox. textbox ismi yeni olsun komut düğmesi Tıklandığında olayına aşağıdakileri yazıyoruz:

Dim Conn As New ADODB.Connection
Conn = "ODBC;DATABASE=THY;UID=ahmet;PWD=123 DSN=THYBilet"
Conn.Open
Conn.Execute "insert into Müsteri(Passenger)values ('" & yeni & "')"

yani burda dedikki bu textboxa yazacağım yazıyı sql serverdaki THY databasendeki Müsteri tablosundaki Passenger alanına ekle.

benim servere uygulayabilirsiniz. tabiki isimleri göndermiş olduğum örneğe göre değiştirmeniz gerek..

yarın ki paylaşacağımız konu: aynı server aynı tablodaki bir kaydı değiştir. )

 

[karaayhan]

yürü be cüneyta kim tutar seni

teşekkürler kardeşim mükemmel bir çalışma olmuş...

 

[pcman]

Cüneyt kardeşim burda server kapalıysa bağlantının olmadığı olayı nasıl oluştururuz ?

Örneğide bilgi okuma olarak yazarsan sevinirim

peki ala dostum
eteğimizdeki bütün taşları dökelim
şimdiki anlatacaklarım bir access veritabanı var ortada hiç birşey yok sadece basit bir form ve formdaki bir komut düğmesi bir de textbox. textbox ismi yeni olsun komut düğmesi Tıklandığında olayına aşağıdakileri yazıyoruz:

Dim Conn As New ADODB.Connection
Conn = "ODBC;DATABASE=THY;UID=ahmet;PWD=123 DSN=THYBilet"
Conn.Open
Conn.Execute "insert into Müsteri(Passenger)values ('" & yeni & "')"

yani burda dedikki bu textboxa yazacağım yazıyı sql serverdaki THY databasendeki Müsteri tablosundaki Passenger alanına ekle.

benim servere uygulayabilirsiniz. tabiki isimleri göndermiş olduğum örneğe göre değiştirmeniz gerek..

yarın ki paylaşacağımız konu: aynı server aynı tablodaki bir kaydı değiştir. )

 

[modalı]

Sayın pcman,


Conn.Execute "insert into Müsteri(Passenger)values ('" & yeni & "')"
satırı sql kodu burada tabloya kayıt komutu verilmiş.

Siz

Conn.Execute "Select ................"

şeklinde bir cümle ile bilgi alabilirsiniz.

Server kapalıysa sanırım açmanın yolu yok. Serverın bulunduğu bilgisayar kapalıysa nasıl uzaktan açabiliriz?


İyi çalışmalar

 

[beab05]

Sayın Modalı sanırım sayın pcman'i yanlış anladınız. Orada eğer bağlantı yoksa bunu anlayabilmek için bir kod yapısı soruyor. "Bağlantı sağlanamadı" gibi bir msgbox mesela. Lakin sayın pcman'in daha önceki sorularından birinde aynen kendi istediğini yapan kodu verdiğini de biliyorum. Dolayısıyla o kod ile yapılabilir..

 

[pcman]

evet Sn. modalı beab05 dediği gibi demek istedim ama ben internet bağlantısını kontrol etmek istemiyorum internet olabilir ama server kapalı olabilir ozaman odbc sistemi epey bekletiyor

 

[beab05]

Aşağıdaki kodlarla bağlantı sınaması yaptırılabilir.

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
      "server=ipadresi;uid=kullanici_adi;pwd=sifre;database=database_ismi"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
MsgBox ("Baglantı Kuruldu...")
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If

 

[pcman]

Sn. beab05 Teşekkür ederim...

 

[pcman]

Sql

Burda sql koduyla alınan bilgiyi örneğin Me.Metin alanına nasıl yazıcaz ?

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
      "server=192.168.1.34;uid=sa;pwd=ist;database=ta"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
MsgBox ("Baglantı Kuruldu...")
cn.Execute "SELECT kimlik FROM ana"
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If

 

[modalı]

Sayın pcman,

Ozaman bir kayıt kümesi (recordset tanımlamanız gerekir)

Dim cn As ADODB.Connection

 [LEFT]Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
      "server=192.168.1.34;uid=sa;pwd=ist;database=ta"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
MsgBox ("Baglantı Kuruldu...")
rs.Open "SELECT kimlik FROM ana;",cnn, adOpenKeyset, adLockOptimistic

 
If rs.EOF = True Then
MsgBox "Tabloda kayıt yok."
Else
rs(0)=Me.Metin0
End If
rs.Close
cn.Close
Set cn = Nothing
 
Else
MsgBox ("Bağlantı Kurulamıyor!!")
End If[/LEFT]

Kodların sonunda açtığınız tüm elemanları kapatmanız Set ile atadığınız tüm elemanları da Nothing e atamanız gerekiyor.

İyi çalışmalar​