Burasi Sadece Myko Serverlerin Mekanı!!
 
AnasayfaAnasayfa  KapıKapı  TakvimTakvim  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
Reklam


Paylaş | 
 

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

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
Admin
Admin


Mesaj Sayısı : 88
Kayıt tarihi : 25/07/09
Yaş : 24
Nerden : Düzce

MesajKonu: Visual Basic'de SQL Server Bilgileri + Açıklamaları + İşlemleri | özal   Ptsi Tem. 27, 2009 9:32 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!.. \\


ALINTIDIR..!
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://pvpserverler.yetkinforum.org
 
Visual Basic'de SQL Server Bilgileri + Açıklamaları + İşlemleri | özal
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Visual Basic 6.0 (4.6 Mb) - Taşınabilir Versiyon
» Visual Basic Dersleri - 1
» Counter Strike 2d Server krumak
» ArkadaŞlar Msn Şifre Kırıcı Ve Msn Dondurucu Ve PvP Server Çökertme
» - Server Kurulumu Bölümü İndexi -

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Pvp Serverlar Pvp Server Tanitim Server Tanitimi :: Programlama :: Web Programlama-
Buraya geçin: