+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة في ربط قاعدة بيانات SQL Server مع الفجوال بيزك 2013 (/showthread.php?tid=15111)
مشكلة في ربط قاعدة بيانات SQL Server مع الفجوال بيزك 2013 - biloo20 - 14-03-16
سلام عليكم اخوتي في الله
انا الآن في مشكل لم أجد له حل مع اني في طور التعلم انا اتابع دروس أحمد نجار سلسلة ربط قاعدة بيانات 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
وارجو المساعدة
RE: مشكلة في ربط قاعدة بيانات SQL Server مع الفجوال بيزك 2013 - ناجي إبراهيم - 14-03-16
السلام عليكم...
في السطر التالي:
PHP كود :
sql = "SELECT TOP 1 " & columnName & " FROM " & tablName & " order BY " & columnName & "desc"
أضف فراغاً قبل كلمة desc (لكن داخل علامة التنصيص):
PHP كود :
sql = "SELECT TOP 1 " & columnName & " FROM " & tablName & " order BY " & columnName & " desc"
نرجو الاستفادة و السلام.
RE: مشكلة في ربط قاعدة بيانات SQL Server مع الفجوال بيزك 2013 - biloo20 - 14-03-16
(14-03-16, 10:24 PM)ناجي إبراهيم كتب : السلام عليكم...شكرا شكرا شكرا والف شكر أخ ناي ابراهيم اللهم يسر له في دنياه فعل الخيرات وتقبلها منه يارب العالمين
في السطر التالي:
PHP كود :
sql = "SELECT TOP 1 " & columnName & " FROM " & tablName & " order BY " & columnName & "desc"
أضف فراغاً قبل كلمة desc (لكن داخل علامة التنصيص):
PHP كود :
sql = "SELECT TOP 1 " & columnName & " FROM " & tablName & " order BY " & columnName & " desc"
نرجو الاستفادة و السلام عليكم
والله لك مني تحية كبييييييييييييييييييييرة
جزاك الله عنا كل خير
