quote:

Imports System.Data.OleDb

Public Class Form2
Dim baglanti As New SqlClient.SqlConnection("server=EXTRA-T3\BURAK;database=BURAKDATA;integrated security=true")
Dim komut As New SqlClient.SqlCommand
Dim adaptor As New SqlClient.SqlDataAdapter("Select*from ikincielpc", baglanti)
Dim ds As New DataSet

Public Sub goster()
ds.Clear()
adaptor.Fill(ds, "ikincielpc")
DataGridView1.DataSource = ds.Tables("ikincielpc")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
komut.Connection = baglanti
komut.CommandText = "insert into ikincielpc(carikod,adi_soyadi,uruntipi,islemci,model,ram,anakart,ekrankarti,optikokuyucu,sabitdisk,kasa,aciklama)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & TextBox11.Text & "','" & TextBox8.Text & "','" & TextBox3.Text & "','" & TextBox7.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "')"
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
Call goster()
End Sub


Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Kasa Bilgisayar" Then
TextBox11.Enabled = False
Else
TextBox11.Enabled = True
End If

If ComboBox1.Text = "Notebook" Then
TextBox3.Enabled = False
TextBox9.Enabled = False
Else
TextBox3.Enabled = True
TextBox9.Enabled = True
End If
End Sub

Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.Enabled = True
TextBox2.Enabled = True
Else
TextBox1.Enabled = False
TextBox2.Enabled = False
End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = "CR"
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""

End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call goster()
End Sub
Dim id As Integer
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Try
Dim satir As Integer
satir = DataGridView1.CurrentCell.RowIndex
TextBox1.Text = DataGridView1(1, satir).Value
TextBox2.Text = DataGridView1(2, satir).Value
ComboBox1.Text = DataGridView1(3, satir).Value
TextBox3.Text = DataGridView1(4, satir).Value
TextBox4.Text = DataGridView1(5, satir).Value
TextBox5.Text = DataGridView1(6, satir).Value
TextBox6.Text = DataGridView1(7, satir).Value
TextBox7.Text = DataGridView1(8, satir).Value
TextBox8.Text = DataGridView1(9, satir).Value
TextBox9.Text = DataGridView1(10, satir).Value
TextBox10.Text = DataGridView1(11, satir).Value
TextBox11.Text = DataGridView1(12, satir).Value
Catch ex As Exception

End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
komut.Connection = baglanti
komut.CommandText = "DELETE from ikincielpc where carikod='" & id & "'"
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
Call goster()

End Sub
End Class

quote:

Kendi Düşüncem
Arkdaşlar bu server da 6 ayıdır oynuyorum ve hiç sorun yaşamadım. Zaten 4 yıldır da kesintisiz hizmet veriyor. 140 cap var 20 dg item var üstte tanıttığım gibi bir çok eğlenceli vakit geçireceğiniz herşey mevcut oyuncu sayısı çok iyi daha ne olabilir ki. Yöneticiler oyunu her gün geliştiriyor hiç sıkılmıyorsunuz yöneticiler hediyeli gerçek hediyeli eventler düzenliyor notebook bile hediye ediliyor event kazananlara. Tavsiyem bu server ı denemeniz.