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

[MineMoZa]

چطور میتونم تو وی بی اطلاعات چند تا از سلول های جدول رو بیرون بکشم ؟

 

[msalimi]

SQL Command:
select fields name..........

 

[saeed_1369]

سلام
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