سلام عليكم اخوتي في الله
انا الآن في مشكل لم أجد له حل مع اني في طور التعلم انا اتابع دروس أحمد نجار سلسلة ربط قاعدة بيانات SQL مع فجول بيزك
وانا معه خطوة خطوة فهمت كل شيء إلا اني ظهر لي خطأ ارجو المساعدة هذا كود الكلاس التي بها التعريفات وال كوناكشنز
مع العلم اني انادي التعريفات من فورم الطلاب students
اخوتي هذا الكود الذي استدعي به التعيفات من الكلاس
انا اردت اني إذا فتحت الفورم يقوم بفحص StudentID إذا وجد فيها قيمة يظيف 1 إلى تلك القيمة ويضعها على TBXstudent
وإذا لم يجد اي قيمة او قيمته فارغة يطبع لي رقم 1
وارجو المساعدة
انا الآن في مشكل لم أجد له حل مع اني في طور التعلم انا اتابع دروس أحمد نجار سلسلة ربط قاعدة بيانات SQL مع فجول بيزك
وانا معه خطوة خطوة فهمت كل شيء إلا اني ظهر لي خطأ ارجو المساعدة هذا كود الكلاس التي بها التعريفات وال كوناكشنز
مع العلم اني انادي التعريفات من فورم الطلاب students
كود :
Imports System.Data.SqlClient
Public Class DBConnect
Public conn As New SqlConnection("Data Source=PC-THINKPAD\NAMESQL;Initial Catalog=trainingcenter;Integrated Security=True
Public ds As New DataSet
Public da As New SqlDataAdapter
Public dv As New DataView
Public cmd As New SqlCommand
( Public Sub FillDataset(sql As String, tblName As String
ds = New DataSet
da = New SqlDataAdapter(sql, conn
da.Fill(ds, tblName
dv = New DataView(ds.Tables(tblName
cmd = New SqlCommand
End Sub
Sub recordNewNembr(columnName As String, tablName As String, frm As Form, txtb As TextBox
Dim sql As String
" sql = ("SELECT TOP 1 " & columnName & " FROM " & tablName & " order BY " & columnName & "desc
ds = New DataSet
da = New SqlDataAdapter(sql, conn
da.Fill(ds, tablName
dv = New DataView(ds.Tables(tablName
If dv.Count = 0 Then
" txtb.Text = "1
Else
txtb.Text = (frm.BindingContext(dv).Current(columnName) + 1).ToString
End If
End Sub
Sub FrmDGV(columnName() As String, Grd As DataGridView
Grd.DataSource = dv
For i As Integer = 0 To columnName.Count - 1
( Grd.Columns(i).HeaderText = columnName(i
Next
End Sub
( Sub clearAll(frm As Form
For Each cntr As Control In frm.Controls
If TypeOf cntr Is TextBox Then
"" = cntr.Text
End If
Next
End Sub
End Class
اخوتي هذا الكود الذي استدعي به التعيفات من الكلاس
انا اردت اني إذا فتحت الفورم يقوم بفحص StudentID إذا وجد فيها قيمة يظيف 1 إلى تلك القيمة ويضعها على TBXstudent
وإذا لم يجد اي قيمة او قيمته فارغة يطبع لي رقم 1
وارجو المساعدة