السلام عليكمـ ..
بدي مساعدهـ منكمـ في برنامج للتسجيل خاص بالطلاب وربطه مع الإس كيو ال سيرفر..
عملنا الكود وعملنا الداتا بيس الصغيرة بالإس كيو ال ووقت بشغل البرنامج وبضغط ع البتتن الخاص بالتخزين بيعطيني هالمشكلة .. طبعا في الربط نحنا من جنبها ومامنعرف اي شي والكود اخذته من واحد .. فياريت اللي عندهـ خبرهـ مايتأخر علينا ..
ووقت بضغط ع البتتن الخاص بجلب البيانات من الداتا بيس .. جيت انفو .. كمان بيعطيني مشكلة .. هي نفسها ..
وع هالرابط البرنامج مضغوط .. ومعه كمان الداتا بيس في الأس كيو ال سيرفر 2005 .. للي قادر يساعدني ..
http://www.zshare.net/download/13214399425a6ac8/
طبعا هي واجهة البرنامج وتحتها الكود في الفيجوال بيسكـ دوت نت ..
Imports System.Data.SqlClient
Public Class Form1
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Dim sqlcon As New SqlConnection("server=localhost;database=Reg;integrated security=true")
sqlcon.Open()
Dim sqlcmd As New SqlCommand("select * from Reg_Table where St_Name=" & Stname.Text, sqlcon)
Dim rdr As SqlDataReader = sqlcmd.ExecuteReader()
If Not rdr.HasRows Then
rdr.Close()
sqlcmd.CommandText = "insert into Reg values(" & Stname.Text & ",'" & StID.Text & "','" & txtsemester.Text & "','" & HSG.Text & "','" & NOC.Text & "','" & TC.Text & "')"
If sqlcmd.ExecuteNonQuery() > 0 Then
LblMsg.Text = "Contact Added Successfully"
Else
LblMsg.Text = "Contact Not Added"
End If
Else
rdr.Close()
sqlcmd.CommandText = "update Reg set St_ID='" & StID.Text & "',Semester='" & txtsemester.Text & "',Highschool_Grade='" & HSG.Text & "',Number_of_Courses='" & NOC.Text & "',Total_Cost='" & TC.Text & "' where St_Name= " & Stname.Text
If sqlcmd.ExecuteNonQuery() > 0 Then
LblMsg.Text = "Registration complete"
Else
LblMsg.Text = "Registration Failed"
End If
sqlcon.Close()
End If
End Sub
Private Sub btnnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnew.Click
Stname.Text = ""
StID.Text = ""
txtsemester.Text = ""
HSG.Text = ""
NOC.Text = ""
TC.Text = ""
End Sub
Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click
Application.Exit()
End Sub
Private Sub btninfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninfo.Click
If Stname.Text.Length > 0 Then
Dim sqlcon As New SqlConnection("server=localhost;database=Reg;integrated security=true")
sqlcon.Open()
Dim sqlcmd As New SqlCommand("select * from Reg where St_Name=" & Stname.Text, sqlcon)
Dim rdr As SqlDataReader = sqlcmd.ExecuteReader()
While (rdr.Read())
StID.Text = rdr("St_ID")
txtsemester.Text = rdr("Semester")
HSG.Text = rdr("Highschool_Grade")
NOC.Text = rdr("Number_of_Courses")
TC.Text = rdr("Total_Cost")
Stname.Text = rdr("St_Name")
LblMsg.Text = ""
End While
End If
End Sub
End Class
Imports System.Data