ارتباط با فایل اکسل

[sharareh.zanourian]

سلام دوستان.
من میخوام در برنامه ام با یک تکست باکس داشته باشم که مثلا یک کد را بگیرد و بر اساس آن کد در فایل اکسل مورد مربوطه را پیدا کند و در یک گرید نشان دهد. خواهش میکنم اگه کسی میتونه برام یک تکه برنامه در این مورد که کار کنه بذاره.
من مقاله آقای راد در این مورد هم خوندم ولی چیزی متوجه نشدم اگه یه جوون مرد پیدابشه کمکم کنه ممنون میشم.



با تشکر از همه دوستان گرامی.

[m_d6712]

از این کد برای connection استفاده کن


Dim STR As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _path & ";Extended Properties=""Excel 8.0;HDR=yes;IMEX=1"""
Dim CONN As New OleDbConnection(STR)
Dim CMD As String = "SELECT <field name> From [MySheet$] where <field name> = <your parameter>"
Dim COMM As New OleDbCommand(CMD, CONN)
Dim MYREADER As OleDbDataReader = COMM.ExecuteReader
MYREADER.Read()
Dim a As Integer = MYREADER.GetValue(0)

_path رو باید خودت بهش بدی. یه متغیر string که جای فابل اکسل رو نشون میده
بقیه کد هم نیاز به تکمیل داره مثلاً cmd که تکمیلش با خودته.
برای کمک یک کد cmd رو می نویسم...


cmd="Select QSTN_ID FROM [question$] Where QSTN_ID='101'"

این کد فیلد QSTN_ID رو از شیت question برمیگرداند در جایی که برابر با 101 باشه.
برای کار تو این طوری بهتره :


cmd="Select QSTN_ID FROM [question$] Where QSTN_ID='" & textbox1.text.trim & "'"