[Rabeea Qbaha]

قمت برفعه مره اخرى 


على ايه حال اذا لم يعمل تفضل الكود ::


لاكن قم بتحويل عمود الترقيم بقاعدع البيانات الى auronumber 

كود :

'فحص الاتصال بقاعدة البيانات
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       con.Open()
       Dim cmd As New OleDbCommand()
       cmd.CommandText = "insert into INFORMATION (FirstName,LastName,BirthDate,Gendre) values(@FirstName,@LastName,@BirthDate,@Gendre)"
       cmd.Parameters.AddWithValue("@FirstName", (TextBox2.Text))
       cmd.Parameters.AddWithValue("@LastName", (TextBox3.Text))
       cmd.Parameters.AddWithValue("@BirthDate", (TextBox4.Text))
       cmd.Parameters.AddWithValue("@Gendre", (ComboBox1.SelectedItem))
       cmd.Connection = con
       cmd.ExecuteNonQuery()
       con.Close()

وهذا الكود لعرض البيانات في ال gridview 

كود :

Private Sub fill_gridview()
       Try
           'فحص الاتصال بقاعدة البيانات
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
           con.Open()
           Dim strSQL As String = "SELECT * FROM INFORMATION ORDER BY BirthDate ASC"

           Dim da As New OleDbDataAdapter(strSQL, con)
           Dim ds As New DataSet
           da.Fill(ds, "INFORMATION")
           DataGridView1.DataSource = ds.Tables(0)
           con.Close()
       Catch ex As OleDbException
           MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
       End Try
   End Sub