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

mr1528

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

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

Mikhak

Active Member
کد:
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

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

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

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")
 

جدیدترین ارسال ها

بالا