[Dr.Sherif Alazizi]

(25-03-15, 04:12 PM)سعود كتب :

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim cm As New OleDb.OleDbCommand("", con)
   Private Function gsum()
       cm.Parameters.Clear()
       cm.CommandText = "select sum(n) from tb"
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Return cm.ExecuteScalar
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = gsum()
   End Sub
End Class

---

اعذرني اخي Dr.Sherif Alazizi فلم  احدث الصفحة قبل اضافة ردي لذلك اكرر اعتذاري

العفو أخي سعود
لا تعتذر بل والله لو اعلم انك سترد على السائل لما تجرأت انا على الرد عليه
ولا غضاضة أبدا والله لو حتى قمت بحذف ردي وابقيت ردك ,  فردك فيه الكفايه والله
انت استاذنا جميعا هنا اخي سعود بارك الله فيك