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ş | 
 

 [Paylaşım]VB 6.0 -> SQL Bağlanmak + İşlemler [Görsel Anlatım]

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: [Paylaşım]VB 6.0 -> SQL Bağlanmak + İşlemler [Görsel Anlatım]   Çarş. Ağus. 12, 2009 6:05 pm

1-) ADO Nesenesini forma eklemek.
a) CTRL + T kısayolunu klavyemizden uyguluyoruz. Karşımıza "Components" pencresi karşımıza çıkıyor. Burdan hemen "M" tuşuna basalım ve "M" harfi ile başlayan nesneler gelsin. Burdan "Microsoft ADO Data Control 6.0 (OLEDB)" nesnesinin yanındaki tick (tik)'i işaretleyelim. Toll Box'umuza yeni bir nesne geldiğini farkedeceksiniz.

b) Tool Box'taki yeni nesneyi (Adodc) formumuza ekleyelim.
NOT: Bunu istediğiniz yere ekleyebilirsiniz. Form aktif olduğunda gözükmeyecektir.

Resim (#1 - #2 - #3)






2-) SQL Bağlantı kodlarını tanımlamak, Database(veritabanı)'na bağlanmak.
a) Formumuza çift tıklayıp kod bölümüne geçelim. "General Declarations" bölümüne şu kodu yazalım.

Alıntı:

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Evet, artık database'mize bağlanmaya çok az kaldı

b) Formumuza, 5 Adet Label, 5 Adet Text Box, 2 Adet Command Button Ekleyelim. (Resimdeki gibi şekilledirirsiniz.)
Ekledikten sonra, şu kodu olduğu gibi forma yapıştıralım. (Bitsin Bu Çile )

Alıntı:

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Uzak()
Text2.Text = Text2 + ",1433"
On Error GoTo hata
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB;Data Source='" & Text2 & "';Network Library=DBMSSOCN;Initial Catalog='" & Text3 & "';User ID='" & Text4 & "';Password='" & Text5 & "';"
.Open
End With
Exit Sub

hata:
MsgBox "Bağlantı sağlanılamadı!..", vbCritical, "Ko-Cuce"
End
End Sub

Private Sub LocalBağlantı()
On Error GoTo hata2
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1 & "'"
.Open
End With
Exit Sub

hata2:
MsgBox "Bağlantı sağlanılamadı!..", vbCritical, "Ko-Cuce"
End
End Sub


Private Sub
Command1_Click()
LocalBağlantı
End Sub

Private Sub
Command2_Click()
Uzak
End Sub

Private Sub Form_Load()
Label2.Caption = "IP Adresi"
Label3.Caption = "Database Adı"
Label4.Caption = "Kullanıcı Adı"
Label5.Caption = "Şifre"
Label1.Caption = "Database Adı"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Command1.Caption = "Bağlan!"
Command2.Caption = "Bağlan!"
End Sub

Private Sub
Frame2_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub
Label1_Click()

End Sub

Private Sub
Label2_Click()

End Sub

Private Sub
Label3_Click()

End Sub

Private Sub
Label4_Click()

End Sub

Private Sub
Label5_Click()

End Sub

Private Sub
Text1_Change()

End Sub

Private Sub
Text2_Change()

End Sub

Private Sub Text5_Change()

End Sub
Resim (#1 - #2)
This image has been resized. Click this bar to view the full image. The original image is sized 717x69 and weights 145KB.






3-) İşlemler

a) UPDATE (Güncelleme İşlemi)
Update işlemi gayet basittir. Hemen kodunu vereyim. Mesela forma 1 adet buton ekleyin ve içine şunları yazın. (Ben tüm orcları Morodona attırıcam.)

Alıntı:

conn.BeginTrans
conn.Execute "UPDATE USERDATA SET Zone where Zone = '1'"
conn.CommitTrans
Buton'a Tıkladığınızda, Lufersondaki tüm Orcları Morodona Atmış olucaksınız. "" İçindeki yere istediğiniz kodu yazıp çalıştırabilirsiniz. ("Update XTABLOSU set Neresi = '0' where Neresi = '1'") gibi

b) Select (Seçme İşlemi)
Select işlemi de kolaydır. Bunun için ben örnek olarak List1'in içine tüm Nickleri doldurucam.
Form'a 1 Adet ListBox ekleyelim. Ve şu kodu General Declarations bölümüne yapıştıralım

Alıntı:

Public Sub userbak()
Dim sql As String
sql = "Select strUserId, FROM userdata"
rst.Open sql, conn, 1, 3
Do Until rst.EOF
List1.AddItem rst!strUserId
rst.MoveNext
Loop
rst.Close
End Sub

Evet sub'umuz oluştu, fakat bunu nasıl kullanıcaz? Hatırlarsanız 2 Adet sub belirtmiştik, Uzak ve LocalBağlantı adında. Bunları şu şekilde değiştirelim;

Alıntı:

Private Sub Uzak()
Text2.Text = Text2 + ",1433"
On Error GoTo hata
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB;Data Source='" & Text2 & "';Network Library=DBMSSOCN;Initial Catalog='" & Text3 & "';User ID='" & Text4 & "';Password='" & Text5 & "';"
.Open
End With
userbak
Exit Sub
hata:
MsgBox "Bağlantı sağlanılamadı!..", vbCritical, "Ko-Cuce"
End
End Sub
Private Sub
LocalBağlantı()
On Error GoTo hata2
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1 & "'"
.Open
End With
userbak
Exit Sub
hata2:
MsgBox "Bağlantı sağlanılamadı!..", vbCritical, "Ko-Cuce"
End
End Sub
Ne Yapmış olduk? Kullanıcı bağlantı yaptığı anda User Listesi direk dolucak. Diğer işleme geçelim.


c) Inset Into (Değer Ekleme)

Insert into, bu da basit neyse anlatayım hemen.
Forma TextID ve TextPass ekleyin. şu kodu bir butona verin.
TextID K.Adı TextPass Şifreniz olucaktır.
Bu kodu butona verdiğinizde, kayıt olmuş olacaksınız. kendiniz değiştirebilirsiniz.





Dim kayıt As String
kayıt = "INSERT INTO tb_user(strACcountID, strPasswd, strSocNo, idays) VALUES ('" & textID & "' ,'" & textPass & "','0','6')"
rst.Open kayıt, conn, 1, 3

d) Prosedür Çalıştırma

Çok basittir. Ben servera reset atıcam siz değiştirir kullanırsınız, şu kodu bir butona verin. Butona tıkladığınızda (eğer rescode adında bir prosedür varsa) serverinize grade, np vs. resetleri atılacaktır.

Alıntı:

conn.execute = "exec rescode"
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://k2private.lforum.biz
 
[Paylaşım]VB 6.0 -> SQL Bağlanmak + İşlemler [Görsel Anlatım]
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: