ASP.NET veritabanı yardım

  • Konbuyu başlatan Konbuyu başlatan ashaxx
  • Başlangıç tarihi Başlangıç tarihi
Kodla Büyü

ashaxx

Site Gezgini
Mesajlar
74
veri tabanımda dört alanım var örnek
degistiren ozoumseyen çalışan başaran

0-------------- 0---------- 0--------- 0

gibi dört alanım tablomda kayıtlı asp.net sayfamda 4 adet texbox ve bir button bulunmakta textboxlara girilen değerler a,b,c,d değişkenini üzerine aktarılıyor butona basılınca aşağıda verdiğim hangi if şartı sağlanıyorsa o alana ait veri tabanındaki kısmı 1 artırsın
arkdaşlar tabloyu oluşturup sqldatasource attım ama buttona basılınca yazılacak update kodlarını yazamadım bilenler yazarsa seviniri. şimdiden teşşekürler.

örnek degistiren if çalıştıysa
degistiren ozoumseyen çalışan başaran

1-------------- 0---------- 0--------- 0
olsun.

dün sağolsun bir arkdaş gönderdi yapamadım sql kodlarına tam bilmediğim için. bilen arkdaşlar kodunu yazıp dosya olarak gönderse çok sevinirim geçer şimdiden teşşkkür ederim


Protected Sub bitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bitir.Click
dim a,b,c,d,x,y as integer
a=text1.text
b=text1.text
c=text1.text
d=text1.text
x = c - a
y = d - b
If y < 5 And x < 3 Then
Response.Write("değiştiren adlı veri tabanı alanını bir artırsın")
ElseIf y > 5 And x < 3 Then
Response.Write("özümseyen adlı veri tabanı alanını bir artırsın")
ElseIf y > 5 And x > 3 Then
Response.Write("çalışan adlı veri tabanı alanını bir artırsın")
ElseIf y < 5 And x > 3 Then
Response.Write("başaran adlı veri tabanı alanını bir artırsın")
End If

End Sub
 
Hocam oluşturduğunuz formu ekleyip bu formun çalışma mantığını anlatırsanız konu daha iyi anlaşılır ve yardımcı olabiliriz.
 
Dim baglan As New SqlConnection("Data Source=sunucuadı\sqlexpress;initial catalog=ogrenci;integrated security=sspi")
baglan.Open()
Dim komut As New SqlCommand("select degistiren,ozumseyen,calisan,basaran,ID from bilgi ", baglan)
Dim oku As SqlDataReader = komut.ExecuteReader()
While oku.Read()

dim degistiren as integer = Convert.ToInt32(oku(0))
dim ozumseyen as integer= Convert.ToInt32(oku(1))
dim calisan as integer = Convert.ToInt32(oku(2))
dim basaran as integer = Convert.ToInt32(oku(3))


dim ID as integer = Convert.ToInt32(oku(4))
End While

If y < 5 AndAlso x < 3 Then
degistiren = degistiren + 1
ElseIf y > 5 AndAlso x < 3 Then
ozumseyen = ozumseyen + 1

ElseIf y > 5 AndAlso x > 3 Then
calisan = calisan + 1
ElseIf y < 5 AndAlso x > 3 Then
basaran = basaran + 1
End If
Dim komut2 As New SqlCommand("update bilgi set degistiren='" & degistiren & "',ozumseyen='" & ozumseyen & "',calisan='" & calisan & "',basaran='" & basaran & "' where ID='" & ID & "' ", baglan)

komut2.ExecuteNonQuery()
baglan.Close()
//Hocam bu kodlaa bi bakın belki işinize yarar
 
Dim baglan As New SqlConnection("Data Source=sunucuadı\sqlexpress;initial catalog=ogrenci;integrated security=sspi") //sql veritabanı bağlantın
c.Open()
if şart1 then
Dim cmd As New sqlCommand("update tablo set degistiren=degistiren+1 ", c)
elseif şart2 then
Dim cmd As New sqlCommand("update tablo set ozumseyen=ozumseyen+1 ", c)
elseif şart3 then
Dim cmd As New sqlCommand("update tablo set calisan=calisan+1 ", c)
elseif şart4 then
Dim cmd As New sqlCommand("update tablo set basaran=basaran+1 ", c)
end if
cmd.ExecuteNonQuery()
c.Close()

iyi çalışmalar.

http://www.okultrend.com
 
BBNET
Geri
Üst