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

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

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 Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım Smile

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

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 Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım Biggrin

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

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 Lwl Up Editör(lwl Atlama Exp Ayarlama) V.b 6.0 Anlatım Frown

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

» Usb Modemlerde Port Açma (Resimli Anlatım)
» SQL 2005 KuruLum , Kullanım [ ResimLi Anlatım ]
» Bir DB'den başka bir DB'e Char, Clan, Inn aktarma! [Resimli Anlatım]
» ~ 1299 Server Kurulumu Full [Resimli ve Detaylı Anlatım] ~
» KOPanel Kurulum , Düzenleme , SorunLar , Çözümler [RESİMLİ ANLATIM]