سلام مشکل در کار با دیتاست و دیتاتیبل بعد از اولین استفاده درخروجی اکسل(خالی نشدن دیتاست ودیتاتیبل)

[amirm2012]

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

Dim exeleapp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()

Dim exelbook As Microsoft.Office.Interop.Excel.Workbook = exeleapp.Workbooks.Add(XlSheetType.xlWorksheet)

Dim exelworksheet As Microsoft.Office.Interop.Excel.Worksheet = CType((exelbook.Worksheets(1)), Worksheet)

exelworksheet.DisplayRightToLeft = True









Dim clmncnt As Integer = My.Forms.Form_listsarb.DataGridkhedmat.Columns.Cou  nt

Dim rng() As Range = New Range(clmncnt) {}





Dim x As Integer

For x = 0 To clmncnt - 1 Step x + 1

Dim celladress As String = Convert.ToString(Convert.ToChar(Convert.ToByte(x + 65))) + "1"





rng(x) = exelworksheet.Range(celladress, celladress)

rng(x).Value2 = My.Forms.Form_listsarb.DataGridkhedmat.Columns(x).  HeaderText





exelworksheet.UsedRange.Font.Name = "b titr"

exelworksheet.UsedRange.ColumnWidth = 20

Next





Dim j As Integer = 2





For Each r As DataRow In DataSet1.Tables(0).Rows

Dim k As Integer

For k = 0 To clmncnt - 1 'Step k + 1

Dim celladress As String = Convert.ToString(Convert.ToChar(Convert.ToByte(k + 65))) + j.ToString()

rng(k) = exelworksheet.Range(celladress, celladress)

rng(k).Value2 = r(k).ToString()

exelworksheet.UsedRange.Font.Name = "b mitra"

Next

j = j + 1





Next

exeleapp.Visible = True

این کد رو هم گذاشتم روی یه رادیوچک که باید انتخاب بشه بعد رو دکمه ای که کد های بالا رو نوشتم کلیلک کنه

Me.sarbTableAdapter.FillBy(Me.sarbDataSet1.sarb)

[hamidrezax1]

دوست عزیز شما نحوه ذخیره اطلاعات در دیتابیستون رو اینجا قرار ؟؟؟؟
بنظر من 2 حالت امکان داره اول اینکه برنامه رو دارین از خود ویژوال ران میکنید که در این صورت با هر بار استارت برنامه اطلاعات دیتابیس اولیه ران میشه
دوم اینکه شما توی نوشتن کد های ذخیره اطلاعاتتون جایی رو دارین اشتباه میرین و دیتاست دیتاهای قبلی رو مجدد میخونه

[A_1397]

برای خروجی گرید به اکسل ازین کدها استفاده کن ببین حل میشه

 SaveFileDialog1.Filter = "*.xls|*.xls"

            SaveFileDialog1.ShowDialog()

            If SaveFileDialog1.FileName <> "" Then

                Dim oExcel As Object

                Dim oWorkBook As Object

                Dim oSheet As Object

                oExcel = CreateObject("Excel.Application")

                oWorkBook = oExcel.Workbooks.Add

                oExcel.visible = True

                Dim c, r As Integer

                Dim ColNum As Integer = Grid.ColumnCount

                Dim RowNum As Integer = Grid.RowCount

                Dim col As Integer = 65

                oSheet = oWorkBook.worksheets(1)

                For c = 1 To ColNum

                    oSheet.Range(CStr(Chr(col) & 1)).Value = Grid.Columns(c - 1).HeaderText

                    col += 1

                Next

                For r = 1 To RowNum

                    For c = 1 To ColNum

                        oSheet.Cells(r + 1, c) = Grid.Rows(r - 1).Cells(c - 1).Value

                    Next

                Next

                oWorkBook.SaveAs(SaveFileDialog1.FileName, True)

                oSheet = Nothing

                oWorkBook = Nothing

                oExcel = Nothing

            End If

شما گرید رو آپدیت کنید توی دیتابیس ذخیره کنید و بعد از گرید خروجی اکسل بگیرید

[amirm2012]

برای خروجی گرید به اکسل ازین کدها استفاده کن ببین حل میشه

 SaveFileDialog1.Filter = "*.xls|*.xls"

            SaveFileDialog1.ShowDialog()

            If SaveFileDialog1.FileName <> "" Then

                Dim oExcel As Object

                Dim oWorkBook As Object

                Dim oSheet As Object

                oExcel = CreateObject("Excel.Application")

                oWorkBook = oExcel.Workbooks.Add

                oExcel.visible = True

                Dim c, r As Integer

                Dim ColNum As Integer = Grid.ColumnCount

                Dim RowNum As Integer = Grid.RowCount

                Dim col As Integer = 65

                oSheet = oWorkBook.worksheets(1)

                For c = 1 To ColNum

                    oSheet.Range(CStr(Chr(col) & 1)).Value = Grid.Columns(c - 1).HeaderText

                    col += 1

                Next

                For r = 1 To RowNum

                    For c = 1 To ColNum

                        oSheet.Cells(r + 1, c) = Grid.Rows(r - 1).Cells(c - 1).Value

                    Next

                Next

                oWorkBook.SaveAs(SaveFileDialog1.FileName, True)

                oSheet = Nothing

                oWorkBook = Nothing

                oExcel = Nothing

            End If

شما گرید رو آپدیت کنید توی دیتابیس ذخیره کنید و بعد از گرید خروجی اکسل بگیرید

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

[amirm2012]

دوست عزیز شما نحوه ذخیره اطلاعات در دیتابیستون رو اینجا قرار ؟؟؟؟
بنظر من 2 حالت امکان داره اول اینکه برنامه رو دارین از خود ویژوال ران میکنید که در این صورت با هر بار استارت برنامه اطلاعات دیتابیس اولیه ران میشه
دوم اینکه شما توی نوشتن کد های ذخیره اطلاعاتتون جایی رو دارین اشتباه میرین و دیتاست دیتاهای قبلی رو مجدد میخونه

از دستورات اس کیو ال استفاده می کنم

حذف
Dim Rnew As New SqlCommand
Dim StrDb As String
connect.Open()
StrDb = "delete from hamkar where id=" & lblid.Text & " "
Rnew = New SqlCommand(StrDb, connect)
Rnew.ExecuteNonQuery()
connect.Close()
GridViewhamkar

ثبت
Dim Rnew As New sqlCommand
Dim StrDb As String
connect.Open()
StrDb = "insert into hamkar (name,famil) values"
StrDb &= "(N'" & textname.Text & "' , N'" & Textfamil.Text & "')"
Rnew = New sqlCommand(StrDb, connect)
Rnew.ExecuteNonQuery()
connect.Close()
GridViewhamkar

ویرایش
Dim Rnew1 As New sqlCommand
Dim StrDb1 As String
connect.Open()
StrDb1 = "update hamkar set name=N'" & textname.Text & "' where id like '" & lblid.Text & "' "
Rnew1 = New sqlCommand(StrDb1, connect)
Rnew1.ExecuteNonQuery()
connect.Close()
GridViewhamkar

[hamidrezax1]

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

[amirm2012]

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

راه حل دیگه ای نداره؟؟؟؟؟؟؟؟؟؟؟؟
کد هایی که خودم گذاشتم با دیتاست نمیشه هیچ کاری انجام داد؟؟؟؟؟

[hamidrezax1]

چرا دوست عزیز میشه منتحی بایستی کدهاتون رو بیشتر کنید درون هر حلقه مینونین شرطی رو که میخواین قرار بدین.اما دستور between به نظرم رو دیتابیس خوب جواب میده