View Full Version : سوال: اضافه کردن ستون به select زده شده بر روی table ای که از exel خوانده شده
alja4824
جمعه 20 آبان 1390, 16:49 عصر
در ویژوال من برنامه ای نوشتم که اطلاعات داخل فایل exel را می خواند به این طریق
Dim sheetname As String = dt.Rows(sheet_count)("table_name").ToString()
Dim da As New OleDbDataAdapter("SELECT *,0 as Checked FROM [" & sheetname & "]", cn)
da.Fill(ds, sheetname)
مشکل من اینه که این فیلدی که خودم اضافه کردم (0 as Checked) رو که داخل datagridview میریزم رو بصورت checkbox ببینم داخل datagridview
mohammadriano
جمعه 20 آبان 1390, 19:37 عصر
سلام سوال شما رو من متوجه نشدم بقیه رو نمی دونم
اگه توضیح بیشتر در خصوص مشکل بدین فکر کنم حتما جواب بگیرید
alja4824
جمعه 20 آبان 1390, 21:15 عصر
این برنامه قراره اطلاعات درون فایل exel را بخواند و بعد داخل datagridview بریزد
من میخوام که به اطلاعات خوانده شده از فایل exel یک فیلد اضافه کنم که وقتی وارد datagridview میشود ستونی ازنوع checkbox در datagridview اضافه شود
mohammadriano
شنبه 21 آبان 1390, 15:47 عصر
سلام
خب یک حلقه بزار اطلاعات رو از تک تک سلول های اکسل بخونه ++ شود وبه دیتاگرید بریزه
دسترسی به سلول اکسل
در vb6
OLE.object.worksheets(1).range("A1") 'o
در vb.net
این تابع برای باز کردن اکسل هست
Private Function useexcel() As Boolean
Dim ExExportSecond As Boolean
On Error GoTo Errormsg
Dim exapp , shtgas as object
useexcel = True
exapp = CreateObject("Excel.Application")
shtgas = exapp.Workbooks.Add
ExExportSecond = True
exapp.Visible = True
Exit Function
Errormsg:
useexcel = False
End Function
و این تابع هم برای ارسال به اکسل
Private Sub ExportToexcel()
Dim StrClipboard As String
If useexcel() Then 'تابعی که اکسل را باز می کند
StrClipboard = ""
حالا StrClipboard رو با اطلاعات خودتون پر کنید و بعد
StrClipboard = StrClipboard.Substring(0, Len(StrClipboard) - 1)
StrClipboard = StrClipboard & vbCrLf
''''''insert to clipboard
Clipboard.Clear()
Clipboard.SetText(StrClipboard)
exapp.ActiveSheet.Range("A1").Select()
exapp.ActiveSheet.PasteSpecial(Format:="Text", Link:=False, DisplayAsIcon:=False)
End If
End Sub
البته این بهتره
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application") 'o
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)'o
oSheet.Range("A1").Value
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.