rapid link uploaded link
visual studio ile çalıştırınız debug klasöründe database mevcut
Alıntı
not : databasede sürekli tek satırda işlem yapmakta.
form1.vb :
If rdb_glt.Checked = True Then
Static glt
glt += 1
DataSet11.anket.Item(0).galatasaray = glt
OleDbDataAdapter1.Update(DataSet11)
' bu kısım galatasaray seçilmişse veritabanındaki 0 ıncı satırdaki galatasaray alanına sabit glt değişkenini ekle ve güncelle.Sabit değişken butona her tıklandığında değişken içindeki değeri korur tutar
End If
If rdb_fnr.Checked = True Then
Static fnr
fnr += 1
DataSet11.anket.Item(0).fenerbahce = fnr
OleDbDataAdapter1.Update(DataSet11)
End If
If rdb_bsk.Checked = True Then
Static bsk
bsk += 1
DataSet11.anket.Item(0).besiktas = bsk
OleDbDataAdapter1.Update(DataSet11)
End If
If rdb_trb.Checked = True Then
Static trb
trb += 1
DataSet11.anket.Item(0).trabzonspor = trb
OleDbDataAdapter1.Update(DataSet11)
End If
If rdb_dgr.Checked = True Then
Static dgr
dgr += 1
DataSet11.anket.Item(0).diger = dgr
OleDbDataAdapter1.Update(DataSet11)
End If
Form2.Show()form2.vb :
Label6.Text = Form1.DataSet11.anket.Item(0).galatasaray
Label7.Text = Form1.DataSet11.anket.Item(0).fenerbahce
Label8.Text = Form1.DataSet11.anket.Item(0).besiktas
Label9.Text = Form1.DataSet11.anket.Item(0).trabzonspor
Label10.Text = Form1.DataSet11.anket.Item(0).diger
' değerlerin ekrana çekilme işlemiGoogle Araması