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

 Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 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: Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım   Çarş. Ağus. 12, 2009 3:43 pm

Açıklama: Arkadaşlar Kızmızı Renkle Gösterdiğim Yerler Genellikle Değişmez.

Projenize Ado Ekleyınız.( Ctrl+ T Orada Ado Yazıyor Onu Ekleyın ama Form a Eklemeyın


Form a Eklenecekler ;

Text1 local baglantı db adı yazılıyor
Text2 -3-4-5 Uzak Baglantı İçin sırayla ıp,dbadı, ıd,password
List1 Lwl LArı Görmek İçin
Text 6 Exp Mıktarını Yazmak İçin
Command 3 Local Baglantı nın Baglan Butonu
Command 4 uzak baglantının baglan butonu
Command 5 Kaydetmek İçin Buton

------------------------------------------

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Function BASLA()
On Error Resume Next
List1.Clear 'Burada Proje Bağlayınca List1 in İçinde Yazan Yazı Silinecek

rst.Open "Select level FROM level_up", conn, 1, 3 ' level up Sql de Baglanacagınız Tablenın Atıdır. level ise Level_Up Tablesı Icerısınde Buluna Bir Sütundur
Do Until rst.EOF
List1.AddItem rst!Level ' Burada level sutunundakılerın List1 de gözukmesı İçin
rst.MoveNext
Loop
rst.Close
Local Bağlantı İçim
Alıntı:

End Function
Private Sub Command3_Click()
On Error GoTo hata2
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1.Text & "'"
.Open
End With
MsgBox ("Tebrikler Başarıyla Bağlandınız."), vbInformation, "Bilgi"


BASLA
Exit Sub
hata2:
MsgBox "Baglanti saglanilamadı. Lütfen Tekrar Deneyiniz...!", vbCritical, "Hata"
End Sub


Uzak Bağlantı İçin
Alıntı:


Private Sub Command4_Click()
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
Frame1.Visible = False
BASLA
Exit Sub
hata:
MsgBox "Bağlantı sağlanılamadı. Lütfen Tekrar Deneyiniz...!", vbCritical
End

End Sub



Private Sub Command5_Click()
conn.Execute ("update LEVEL_UP set exp = '" & Text6 & "' where level = '" & List1.Text & "'") ' Burada levelup tablesınde list1 de sectıgımız yerın karsısına text 6 a yazdıgımız exp mıktarını kaydedecek.
End Sub


Private Sub List1_Click()
rst.Open "SELECT exp FROM LEVEL_UP WHERE level = '" & List1.Text & "'", conn, 1, 3 ' Buradayı Karıstırıyorum unuttum ama Yukarıdakılere Göre Değiştirisınız
Do Until rst.EOF
Text6 = rst!Exp 'lıst 1 de lwl secınde o lwl da kaç exp İstiyorsa text 1 de gozükecek
rst.MoveNext
Loop
rst.Close
End Sub



Biraz Karısık Oldu Kusura Bakmayın
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://k2private.lforum.biz
 
Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 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: