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

 Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım

Ö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: Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım   Ptsi Tem. 27, 2009 9:33 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://pvpserverler.yetkinforum.org
 
Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım
» EA Grafik Editör
» Counter Strike 2d Server krumak
» !!!Tüm LF2 Karakterleri Ve Geniş Anlatım!!!
» - 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: