يه كد واسه برگشت sql به متغير vb

[mr1528]

... recordsource="select sum(fld1) form ....

ميخام مقدار sum به يه متغير تو وي بي برگردونده بشه .

 

[Mikhak]

Dim strSelect As String
        Dim cmdSelect As OleDbCommand
        Dim d As OleDbDataReader
        Dim cmd As OleDbCommand
        con = New OleDbConnection(my_connectionstring)
        con.Open()
        strSelect = "Select * From driver Where "
        cmdSelect = New OleDbCommand(strSelect, con)
        d = cmdSelect.ExecuteReader()
        While d.Read()
            txtname.Text = d("dname")
            txtfam.Text = d("dfam")
            txtfather.Text = d("dfather")
            txtbloc.Text = d("dbloc")
            txtmnum.Text = d("mnum")
            txtmtype.Text = d("mtype")
            txtmid.Text = d("mid")
            txtzarf.Text = d("mzarf")
            txtid.Text = d("did")
            sina = d("did")
            txtaddress.Text = d("daddress")
            txttel.Text = d("dtel")
        End While

----------------
سينا

 

[mr1528]

ممنون اما اوني كه ميخام نيست ......................

...........................

Dim strSelect As String
        Dim cmdSelect As OleDbCommand
        Dim d As OleDbDataReader
        Dim cmd As OleDbCommand
        con = New OleDbConnection(my_connectionstring)
        con.Open()
        strSelect = "Select * From driver Where "
        cmdSelect = New OleDbCommand(strSelect, con)
        d = cmdSelect.ExecuteReader()
        While d.Read()
            txtname.Text = d("dname")
            txtfam.Text = d("dfam")
            txtfather.Text = d("dfather")