مساعد في اضافة رقم القيد

السلام عليكم

بعد محاولات وبحث استطعت ان اجد الحل في هذا الكود

    ' دالة لتحميل رقم القيد الرئيسية من قاعدة البيانات الى TextBox
    Private Sub TextBoxCount()
        Try
            conn = New OleDbConnection(ConStr)
            MyDataSet = New DataSet
            Dim v As Integer
            Dim sql As String = "SELECT [رقم القيد] FROM CartonMove"


            Dim AdapterSave As New OleDbDataAdapter(sql, conn)

            v = AdapterSave.Fill(MyDataSet, "CartonMove")
            If MyDataSet.Tables("CartonMove").Rows.Count >= 0 Then
                TextBox9.Text = Val(v) + 1
            End If
        Catch ex As OleDbException
            MsgBox(ex.ToString, MsgBoxStyle.OkOnly, "Exception")
        End Try
    End Sub

فهل هناك طريقة اخرى ارجوا الافادة لتعم الفائدة

استخدم الفنكشن التالي

    'This function used to getResult one Resalt form sql statment from specified Table 
    Public Function MsgetExecuteScalar(ByVal sql As String) As String
        Dim conn As New OleDbConnection(CNNECTION_STRING)
        Dim cmd As New OleDb.OleDbCommand
        cmd.CommandText = sql
        cmd.Connection = conn
        conn.Open()
        If Not (IsNothing(cmd.ExecuteScalar) OrElse IsDBNull(cmd.ExecuteScalar)) Then
            Return cmd.ExecuteScalar
        Else
            Return "1"
        End If
        conn.Close()
    End Function

و كيفية الاستدعاء

txtbox9.text= MsgetExecuteScalar("SELECT max(YourFieldName) + 1  FROM Cartonmove")

السلام عليكم شباب

اخي العزيز assaf_abdullah

TextBox9.text= MsgetExecuteScalar("SELECT max(YourFieldName) + 1  FROM Cartonmove")

عند كتابة اسم الحقل بالانجليزي يزبط لكن بالعربي تطلع الرسالة الثالية

الله بيعينك , غير اسم الحقل الى الانجليزي هذه اسهل طريقة للحل :huh: , غير ذلك لا اعلم لان تنسيق الـ [-----] صعب جدا مع اقواس , حاول عمل نسخ و لصق

للجملة التالية و جربها

select max([رقم القيد])+1 from Cartonmove