wat nasty replies happen recently in the forum? I guess maybe the codeproject adminstration should give some notice to the member what should write and what whould not in the forum.

Dim e As New excel.Application e.Quit

I can be somthing like this: Private Sub cmdCreateXLTemplate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCreateXLTemplate.Click Dim ColHeadings() As String = {"warehouse", "product", "alpha"} Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim Row As Integer = 1 Dim Col As Integer xlBook = xlApp.Workbooks.Add xlBook.Sheets(2).Name = "ErrorData" 'Column Headings For Col = 1 To ColHeadings.GetUpperBound(0) xlBook.Sheets(1).cells(2, Col) = ColHeadings(Col - 1) Next 'Actual Data For j As Integer = 0 To Me.dgExcelData.RowCount - 1 xlBook.Sheets(1).cells(j+1, 1) = Me.dgExcelData.Item(0, j).ToString Next 'Saving The Excel File Dim Filename As String Filename = Application.StartupPath & "\\Import.xls" Dim i As Integer = 1 Do While IO.File.Exists(Filename) Filename = "C:\\Import" & i & ".xls" Loop Dim Save As New SaveFileDialog Save.FileName = Filename Dim Result As DialogResult Result = Save.ShowDialog If Result = Windows.Forms.DialogResult.OK Then xlBook.SaveAs(Filename) End If xlBook.Close() xlBook = Nothing xlApp.Quit() xlApp = Nothing GC.Collect() End Sub

i havet already check the connection string ans test the connection , is ok .

After creating a similar table structure and populating it with some data, your query runs fine on my laptop (Win XP SP2, SQL Server 2005 Developer Edition). You did not specify which version of SQL Server you are running. The latest service pack may be a good cure for your problem. You may want to get the actual error that occurred by reading the SQL server error log. Most of the time it is possible to get the error message in the stack dump just below the Access Violation message. Nathan H. Omukwenyi

Try adding " and totalsales<>0" to your where clause Chandra

msdn2.microsoft.com[^] nothing else sould be need to bind the datasource to the datagrid.

The problem is that your assuming that a DataGrid row is the same as a Row in the Dataset. It's not. You shouldn't even be getting the data out of the DataGrid. Just use the RecordSet object as your source of data to copy to the Excel sheet. The DataGrid is just for showing and editing what's in the RecordSet, keep it that way. Now, since you're using VB.NET, why are you using the old ADODB objects when the .NET Framework provides much better and easier to use DataSet classes? Dave Kreskowiak Microsoft MVP - Visual Basic

Mike what you pointed out could be the reason. But this need not be the so in this case. MS KB Article ID: 892451 might have been what you were referring to. The dump also occurs in case of excessive memory usage. Thanks and Regards, Aby

yes is working!! Thank you so much ^.^v

The compiler is bitching because the type "Database" doesn't exist, or at least you haven't supplied enough information to tell the compiler where to find the Database type definition. Is this an ADODB Database object? If so, you'll probably have to do something like this: Dim dbb As ADODB.Database DO NOT COPY AND PASTE THIS CODE INTO YOUR APP!! I have no idea if it's going to work and can't even tell you if the Database object you're looking for is even in the ADODB namespace. Dave Kreskowiak Microsoft MVP - Visual Basic

I believe there is a site dedicated to VB/MySQL issues. It's called VBMySQL.com or something. Christian Graus - Microsoft MVP - C++ Metal Musings - Rex and my new metal blog

One of your members doesn't support something that's after it. What's the rest of the error message? It'll tell you which method is failing. All you have to do is look back one period and you'll find the object that doesn't support the method you're trying to call. For example, it's possible that the Sections collection, which returns a Session object, doesn't have a Controls property. This is just an example. Since you only supplied the one line of code, it's impossible to tell what these objects are. Dave Kreskowiak Microsoft MVP - Visual Basic

is ok nvm , i solve my problem with this With Vdetail .Sections("reportheader").Controls.Item("datefrom").Caption = strFromWhen .Sections("reportheader").Controls.Item("dateto").Caption = strToWhen End With

Dim oConnection As SqlConnection Dim oCommand As SqlCommand oCommand.Connection = oConnection ' Name of stored procedure you want to call... oCommand.CommandText = "GetSystemParameter" oCommand.CommandType = CommandType.StoredProcedure   Dim sqlParam As New SqlParameter("@ParmName", SqlDbType.NVarChar, 25) sqlParam.Direction = ParameterDirection.Input sqlParam.Value = sParamName oCommand.Parameters.Add(sqlParam)   oConnection.Open() oCommand.ExecuteNonQuery() oConnection.Close() Dave Kreskowiak Microsoft MVP - Visual Basic

You can try something like this: DECLARE @TempTotal int SELECT @TempTotal=sum(ti.totalsales) from ti select d.deptdesc,v.[name],ti.deptcode ,(sum(ti.totalsales)/@TempTotal) as Total from tot_item ti, dept d, item i, vendor v where ti.itemcode=i.itemcode and v.vendorid=i.vendorid and ti.deptcode=d.deptcode group by v.[name], ti.deptcode, d.deptdesc ORDER BY v.[name], ti.deptcode ASC

All the remaining documentation for an old DataReport object is here[^]. You might want to try looking at this[^] example for adding a calculated field to your report. I really can't tell you how to do it, 'cause I haven't used VB6 in about 6 years. But, from what I can remember, RCNT returns a RecordCount and SDEV returns a Standard Deviation. Dave Kreskowiak Microsoft MVP - Visual Basic

thanks found my anwser