آژانس هواپیمایی
tanki

ارتباط با پایگاه داده - Access و دریافت اطلاعات چند فیلد آن

شروع موضوع توسط MineMoZa ‏29 ژوئن 2007 در انجمن Visual Basic.Net

  1. MineMoZa

    MineMoZa کاربر تازه وارد

    تاریخ عضویت:
    ‏6 فوریه 2007
    نوشته ها:
    219
    تشکر شده:
    1
    چطور میتونم تو وی بی اطلاعات چند تا از سلول های جدول رو بیرون بکشم ؟
     
  2. آموزش لینک سازی 2018
  3. msalimi

    msalimi کاربر تازه وارد

    تاریخ عضویت:
    ‏12 مارس 2006
    نوشته ها:
    14
    تشکر شده:
    0
    SQL Command:
    select fields name..........
     
  4. saeed_1369

    saeed_1369 کاربر تازه وارد

    تاریخ عضویت:
    ‏7 دسامبر 2007
    نوشته ها:
    53
    تشکر شده:
    0
    سلام
    Dim A As New DataTable
    connection.Open()
    command.Connection = connection
    command.CommandText = "select * from " & s
    adapter.SelectCommand = command
    adapter.Fill(A)
    Dim a1 As New DataTable
    Dim q(A.Rows.Count) As anbar
    Dim f As Integer
    command.CommandText = "delete * from hoshdare "
    command.ExecuteNonQuery()
    For f = 0 To A.Rows.Count - 1
    If DateDiff(DateInterval.Day, A.Rows(f)(6), A.Rows(f)(7)) < 20 Then
    command.CommandText = "insert into hoshdare(nokala,nkala,gb,gt,b,tv,tt,te,ks) values('" & A.Rows(f)(0) & "','" & A.Rows(f)(1) & "','" & A.Rows(f)(2) & "','" & A.Rows(f)(3) & "','" & A.Rows(f)(4) & "','" & A.Rows(f)(5) & "','" & A.Rows(f)(6) & "','" & A.Rows(f)(7) & "','" & A.Rows(f)(8) & "') "
    command.ExecuteNonQuery()
    End If
    Next
    command.CommandText = "select * from hoshdare"
    adapter.SelectCommand = command
    adapter.Fill(a1)
    connection.Close()
    Return a1
    End Function
     
avanak همکاری در فروش عسل طبیعی و گرده گل ایرانیتبلیغات در گوگل