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

[h1and1saman]

سلام
میشه از اکسل به اکسس اطلاعات را وارد کرد اما نه به صورت دستی که بریم اطلاعات رو کپی کنیم و بریزم تو اکسس

[vbhamed]

سلام
چند تا راه دارید
1 - با استفاده از OLE فایل اکسل رو باز کنید، ازش بخونید و تو اکسس بنویسید
2 - با کنترل vsFlexGrid از سری Components One فایل اکسل رو بخونید (متد LoadGrid) و بعد تو اکسس ذخیره کنید

[h1and1saman]

ممنون
من از vsflex در پروژه استفاده کردم اما در مورد ایمپورت کردنش اگه راهنمایی کنید ممنون میشم
و اینکه هر ماه یک سری اطلاعات به صورت اکسل باید اضافه بشه که طلاعات قبلی هم پاک نشن.آیا شدنیه ؟

[isaac23]

سلام و خسته نباشید ...

نه فکر نکنم اطاعاتتون پاک بشه اخه میاد اضافه می کنه ...

واسه انتقال اطلاعات هم یه چیزی پیدا کردم واست می ذارم خودتون درستش کنید .
این کد واسه انتخاب فایل اکسل به کامونت وی اس اس هست.
Private Sub Command_Click()
CommonDialog1.Filter = " (*.xls)|*.xls"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
VSFlexGrid1.LoadGrid CommonDialog1.FileName, flexFileExcel
Command2.Enabled = True
Adodc1.Refresh
MsgBox " ÚãáíÇÊ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ ", vbInformation, ""
Else
MsgBox " ÚãáíÇÊ ÈÇ ãÔ˜á ãæÇÌå ÔÏå ÇÓÊ ", vbExclamation, ""
End If

End Sub



و واسه انتقال به فایل اکسس از این روش استفاده کن.

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = VSFlexGrid1.TextMatrix(1, 1)
Adodc1.Recordset.Fields("meli_num") = VSFlexGrid1.TextMatrix(1, 2)
Adodc1.Recordset.Update
Adodc1.Refresh



امیدوارم کارت راه بیفته