10-09-15, 02:52 PM (آخر تعديل لهذه المشاركة : 10-09-15, 02:53 PM {2} بواسطة أبو عمر.)
اعذرني سؤالك مبهم
لكن سأفترض ان الجدول
emp
والحقل
money
select sum(money) as money from emp
td.load( Order.ExecuteReader)
For Each ff As DataRow In dt.Rows
msgbox (ff("money").ToString)
next
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
Private Sub logo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.User.Name
TextBox2.Text = My.Computer.Name
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no1", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label10.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no2", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label6.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no3", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label8.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no4", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label11.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no5", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label13.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no6", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label15.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using
Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM oared", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
cmd.Connection.Open()
Label17.Text = cmd.ExecuteScalar
cmd.Connection.Close()
End Using