Admin
Admin
Mesaj Sayısı : 88
Kayıt tarihi : 25/07/09
Yaş : 31
Nerden : Düzce
 | Konu: 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..! | |
|
Latest images 
