اتصال textbox به دستور sql

[fereshtehrahimi]

سلام
چه طور مي توانم چند textbox را به دستور بايند كنم مثلا
select sum(f),sum(b) from tblm
به طوري كه textbox1 مقدار sum(b) و textbox1 مقدار sum(f) را نشان دهد

[ali_md110]

دوست عزیز شما از DataReader استفاده کنید

Dim cnnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"
CNN = New OleDbConnection(cnnstr)
Dim SQL As String = "SELECT * FROM mytbl
Command = New OleDbCommand(SQL, CNN)
Command.CommandType = CommandType.Text
CNN.Open()
DataReader = Command.ExecuteReader
If DataReader.HasRows Then
While DataReader.Read()
TextBox1.Text = DataReader.Item(0)
End While
Else
MsgBox(" null")
End If
DataReader.Close()
CNN.Close()

[fereshtehrahimi]

تشكر از توجه تان
من از دستور شما استفاده كردم اما مشكلي كه وجود دارد اين است كه وقتي مي خوام تعداد تكرار شهر a رانشان دهد براي بار اول نشان مي دهد وقتي اسم شهر را عوض مي كنم بر نامه دچار مشكل مي شود.

[BlueTree_team]

بیشتر توضیح بده شاید تونستیم کمکت کنیم

[reza6384]

Dim Conn As New SqlConnection("DataSource=.;InitialCatalog=MyDB;IntegratedSecurit y=True")
Dim CMD As String = "Select Sum(Field1),Sum(Field2) From MyTable"
Dim SDA As New SqlDataAdapter(CMD,Conn)
Dim DS As New DataSet
Dim Result As New DataTable("Result")
DS.Tables.add(Result)

SDA.Fill(DS,"Result")
Me.Textbox1.Text = Result.Rows(0).Item(0)
Me.Textbox2.Text = Result.Rows(0).Item(1)