Knight Online Private Serverlar
Knight Online Private Serverlar

Knight Online Private Serverlar Hakkındaki Tüm Paylaşımlar.
 
AnasayfaTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Visual Basic'de SQL Server Bilgileri + Açıklamaları + İşlemleri

Aşağa gitmek 
YazarMesaj
Corleone
Administrator
Administrator
avatar

Tuttuğu Takım : Beşiktaşlı
Ruh Hâli : Neşeli
Mesaj Sayısı : 1541
Kullanıcı Puanı : 35001
Saygınlık : 10381
+500 Repliler
Üyelik Tarihi : 24/07/09
Yaş : 23
Şubesi : Ä°stanbul

MesajKonu: Visual Basic'de SQL Server Bilgileri + Açıklamaları + İşlemleri   Çarş. Ağus. 12, 2009 3:03 pm

Öncelikle merhaba,şimdi vbde sql ile ilgili biraz işlem yapmayı göstereceğim!..

CTRL + T 'ye basın Microsoft ADO lu bişey olcak seçin onu tamam diyin ;(

Öncelikle yeni bir proje açın.SQL ile bağlantı kurabilmek için fonksiyon tanımlamak gerekmektedir ve aşağıdaki kodu General Declarations bölümüne yapıştırın ;
Kod:
Dim conn As New ADODB.Connection
Dim ozl As New ADODB.Connection
Dim rst As New ADODB.Recordset


SQL Server Bağlantı Kodları;

Local -) Kod:
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ozal"
.Open
End With

yukarıda ozal gördüğünüz yer db ismidir,oraya db isminizi yazabilirsiniz!:..

Remote(uzak sql) -)
Kod:
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB;Data Source=127.0.0.1,1433;Network Library=DBMSSOCN;Initial Catalog=KN_Online;User ID=sa;Password=ozal;"
.Open
End With

127.0.0.1 = ip | KN_Online = DB İsmi | sa = kullanıcı ismi | ozal = şifre
NOT:IP'yi yazdıktan sonra ,1433 eklemeyi unutmayın!..
[Bağlandığınız sistemin 1433 portunu açmayı unutmayınız!:.]




Gelelim işlemlere

UPDATE (güncellemek,düzenlemek)

Örneğin text1 deki kullanıcı adının idaysını 0 yapalım
text1 ve command1 ekliyip,aşağıdaki kodu command1 in click olayına ekleyiniz!:.
text1 = kullanıcı ismi | command1 = işlermi gerçekleştirecek
Kod:
conn.BeginTrans 'isterseniz burayı silin
conn.Execute "UPDATE TB_USER SET idays=0 where strAccountID='" & Text1 & "'"
conn.CommitTrans 'isterseniz burayı silin

(( Şimdi siz başka şeylerde isterseniz,onun için kodu vereyim ))
Kod:
conn.Execute "UPDATE table ismi SET sutün=editleyeceğiniz değer where hangi sutündeki=hangi sutündeki neresinin neresi"



SELECT (seçmek)

Örneğin text1 deki kullanıcı adının şifresini öğrenelim
text1 ve command1 ekliyip,aşağıdaki kodu command1 in click olayına ekleyiniz!:.
text1 = kullanıcı adı | command1 = işlemi gerçekleştiren
Kod:
Dim pwsec As String
Dim pw As String
pwsec = "Select strPasswd From TB_USER Where strAccountID = '" & Text1 & "'"
rst.Open sql, conn, 1, 3
conn.BeginTrans
conn.Execute (pwsec)
conn.CommitTrans
pw = rst![strPasswd]
MsgBox pw



DELETE (silmek)

Örneğin text1 deki karakteri askıdan kurtaralım
text1 ve command1 ekliyip,aşağıdaki kodu command1 in click olayına ekleyiniz!:.
text1 = char ismi | command1 = işlemi gerçekleştiren!..
Kod:
Dim islem As String
islem = "DELETE FROM CURRENTUSER Where strCharID='" & Text1 & "'"
conn.BeginTrans
conn.Execute (islem)
conn.CommitTrans
MsgBox text1 + " adlı karakteri başarıyla askıdan kurtardınız!.."



INSERT INTO (eklemek)

Örneğin yeni kullanıcı adı oluşturalım..
şimdi text1,text2,text3 ve command1 oluşturalım!..
text1 = kullanıcı adı | text2 = sifre | text3 = sifre tekrarı

Command1 click olayına sunu atın;
Kod:
If Not text2 = text3 Or text2 .Text = "" Then
MsgBox "Lütfen tam doldurunuz!..", vbInformation - vbCritical, "Hata Oluştu !"
Else
kayıt
End If

Sonra aşağıdaki kodu boş bir alana sallayın
Kod:
Public Function kayıt()
Dim dal As String
text1.MaxLength = 10 ' kullanıcı ismi maximum 10 karakter
text2.MaxLength = 8 ' şifre maximum 8 karakter
dal = "INSERT INTO tb_user(strACcountID, strPasswd, strSocNo, idays) VALUES ('" & text1 & "' ,'" & text2 & "','0','6')"
rst.Open dal, conn, 1, 3
MsgBox "" & text1 & " başarıyla kayıt oldunuz...", vbInformation, "Kayıt başarısı"
End Function

6 idaystir,değiştirebilirsiniz!...



PROSEDÜR ÇALIŞTIRMAK!! (11 Eylül 08 / geçmi ne )
Kod:
conn.execute "exec procİsmi '" & Text1 & "' , '" & Text2 & "'"

// tabi bu işlemleri gerçekleştirmek için sql bağlantısı gerekir,bunu unutmayınız!..Başka SQL bağlantılarıyla denemeyin,verdiklerimi kullanın işte!.. \\
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://k2private.yetkin-forum.com
 
Visual Basic'de SQL Server Bilgileri + Açıklamaları + İşlemleri
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight Online Private Serverlar :: Programlama :: Görsel Programlama-
Buraya geçin: