+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة dbnull (/showthread.php?tid=17078)
مشكلة dbnull - المبرمج العبقري - 30-08-16
السلام عليكم
هي المشكلة هنا فين يا اخواني
Function GetAutoNum(TableName As String, ColName As String) As String
Dim Str As String
Str = "Select max (" & ColName & ") + 1 from " & TableName
Dim tb1 As New DataTable
tb1 = GetTable(Str)
Dim AutoNum As String
If tb1.Rows(0)(0) Is DBNull.Value Then
AutoNum = "1"
Else
AutoNum = tb1.Rows(0)(0)
Return AutoNum
End If
End Function
RE: مشكلة dbnull - Abou Eman - 31-08-16
هذه الدالة للترقيم التلقائى
Private Sub MAXRECORD()
On Error Resume Next
Dim V As Integer
Dim SQL As String = "SELECT MAX(id) FROM StoresProducts"
Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
Dim SqlConnection1 As SqlConnection = New SqlConnection
With CMD
.CommandType = CommandType.Text
.Connection = SqlConnection1
If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
SqlConnection1.Open()
.CommandText = SQL
V = .ExecuteScalar()
End With
Me.TxtId.Text = Val(V) + 1
SqlConnection1.Close()
End Sub
غير الكود واسم التكست بوكس
ونادى على الدالة فى زر جديد
[
RE: مشكلة dbnull - Adrees - 31-08-16
http://vb4arb.com/vb/thread-17049.html
RE: مشكلة dbnull - المبرمج العبقري - 31-08-16
شكرا يا اخواني اتحلت المشكلة بارك الله فيكم