[نبيل كونكت]

(10-03-17, 09:37 PM)مساعدة كتب : السلام عليكم

في قاعدة البيانات ضع عمود باسم ID ترقيم تلقائي واستخدمه كرقم للفاتورة.

    Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtsailman.Text = fullname
        sorse()
        Dim ss As String
        Try
              ss =  ("insert into tab_older (date, sailman) values (@date,@sailman)",con)
            cmd = New OleDbCommand(ss, con)
            cmd.Parameters.Add(New OleDbParameter("@date", OleDb.OleDbType.Date)).Value = dtolder.Value.Date
            cmd.Parameters.Add(New OleDbParameter("@sailman", OleDbType.VarChar)).Value = txtsailman.Text
            adapter = New OleDbDataAdapter("select id as [رقم الفاتوره] from tab_older", con)
            con.Open()
            cmd.ExecuteNonQuery()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub
ايه الغلط فى الكود ده او ممكن تصحيحه اذا تكرمت