Sudha. I currently have hundreds of CR rpt files that utilizing DBF, MDB, SQL and experiencing no issues at all. My last attempt is to look at the XSD from your Workstation using Microsoft Access and if the table opens that means you have connections and if the table does not open that means connections from the server is no good. If this does not help I give up.

If your template trying to access the server you need to have ODBC connector from your workstation to the server where the XML/XSD located. Go to Control Panel\Administrative Tools\Data Sources. Make sure the Server\XSD table listed with correct Login and password. Then your template will open using the connector from your Workstation to the server and drills to the server to get the XSD and frame it against your template.

Do you have the Login and Password? Is the file locally stored on your Workstation?

go to Create New Connection go to Databases Files on the drop down Files of Type select XML Files (*.xml;*.xsd) point to your file and click Open.

In your Crystal Report you reference the schema by opening the Field Explorer, right clicking Database Fields, selecting Database Expert, expanding the Create New Connection node, and the ADO.NET (XML) node then double clicking Make New Connection. At the ADO.NET (XML) dialog set the File Path to your XSD file by clicking the elipses and navigating to the schema file

I dont think CR knows how to read XML. You need to convert the XML to MDB/DBF/SQL so that your CR template can read those tables not file. Or another way doing it is to use XML to datagrid and datagrid is your datasource.

I have a program that runs with active user sessions. How to modify the MSI packaging so that installation would also add the program to Services?

I have CR template and Desktop Apps that access the CRViewer and convert them into PDF. The problem is that once the application installed on another PC without VS2005 installed the Program corrupted and would not run. I have add references for all Crystal dlls. 'Export Crystal Report to PDF Dim cryRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt.Load(Application.StartupPath + "\Rpt\_Plant.rpt") CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Refresh() Dim CrExportOptions As CrystalDecisions.Shared.ExportOptions Dim CrDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions Dim CrFormatTypeOptions As New CrystalDecisions.Shared.PdfRtfWordFormatOptions Dim ExportDestinationType As New CrystalDecisions.Shared.ExportDestinationType Dim ExportFormatType As New CrystalDecisions.Shared.ExportFormatType CrDiskFileDestinationOptions.DiskFileName = dtSvr.Rows(0).Item("Outstring") + "Daily Analysts\" + NowDate + ".pdf" CrExportOptions = cryRpt.ExportOptions With CrExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrDiskFileDestinationOptions .FormatOptions = CrFormatTypeOptions End With cryRpt.Export() cryRpt.Close() CrystalReportViewer1.DataBindings.Clear()

This is triggered the Combobox4 prior to clicking the dropdown box and pick "Edit..." If edit is picked than the other code kicks in. Does the Combobox look bounded here? Dim mylink As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Application.StartupPath + "\Data\BW.mdb") Dim sql As String Dim da As OleDb.OleDbDataAdapter Dim cmd As OleDb.OleDbCommand Dim objCmd As New OleDb.OleDbCommand Dim ds As New DataSet Dim affectedRows As Integer sql = "SELECT * FROM _servername" 'Reading the all the fields from the MDB file da = New OleDb.OleDbDataAdapter(sql, mylink) Dim dtSvr As New Data.DataTable("_servername") da.Fill(dtSvr) Me.ComboBox3.Text = dtSvr.Rows(0).Item("Instring") Me.ComboBox4.Text = dtSvr.Rows(0).Item("Outstring") Me.Panel2.BringToFront() Me.ComboBox3.Items.Add("Edit...") Me.ComboBox4.Items.Add("Edit...")

I don't know. I even tried to combobox4.Items.Empty() and that would not do anything to make the Me.ComboBox4.Text = (dtSvr.Rows(0).Item("Outstring")).ToString

The Combobox4.Text shown correctly then afterwards (like refresh) it went to the selected item called "edit..." see my codes

I can't seem to make the Combobox4 text to reflect the changes made and still pointing to the "Edit..." Dim mylink As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Application.StartupPath + "\Data\BW.mdb") If Me.ComboBox4.Text = "Edit..." Then Dim NewLink As String = InputBox("Type the desired URL to Business Warehouse Inbound", "Business Warehouse SAP") If NewLink.Length > 0 Then Dim Outbound As String = "UPDATE _servername SET Outstring ='" + NewLink + "'" Dim OutFld As OleDb.OleDbCommand = New OleDb.OleDbCommand(Outbound, mylink) Dim affectedrows As Integer mylink.Open() OutFld.Prepare() affectedrows = OutFld.ExecuteNonQuery() mylink.Close() End If End If Dim sql As String = "SELECT * FROM _servername" 'Refresh Dim da = New OleDb.OleDbDataAdapter(sql, mylink) Dim dtSvr As New Data.DataTable("_servername") da.Fill(dtSvr) Me.ComboBox4.Text = (dtSvr.Rows(0).Item("Outstring")).ToString

If you can show me to set the tabbing in the listbox I would appreciate it. Yes I do have a lot of tab stops.

Mika - Thanks for the interest to resolve this issue. I used this method below. (Item # from the String format,tab# to stop on the listbox) If (#,-#) that means to list the text on left align and if (#,#) is to list the text on right align. Dim strfmt As String = "{0,-28}{1,-6}{2,-17}{3,-4}{4,-24}{5,-24}{6,-35}{7,-35}{8,-35}{9,10}{10,-8}{11,-10}{12,-6}{13,-3}{14,-35}{15,-7}{16,-3}{17,-35}{18,-6}{19,-5}{20,-67}{21,-35}{22,-216}{23,-6}{24,-6}{25,-6}{26,-6}{27,-6}{28,-6}{29,-6}" For Each dr In dt.Rows() Me.ListBox2.Items.Add(String.Format(strfmt, "", (dr("CB12")), "", (dr("CB13")), "", (dr("CB14")), (dr("CB15")), (dr("CB16")), "", (dr("CB17")), "", (dr("CB18")), "", (dr("CB19")), (dr("CB20")), (dr("cb21")), (dr("CB22")), (dr("Cb23")), "", (dr("cb24")), "", (dr("cb25")), "", (dr("cb26")), (dr("cb27")), (dr("cb28")), (dr("cb29")), (dr("cb30")), (dr("cb31")), (dr("cb32")))) Next

Does anyone know how to set TabStop in vb.net 2003. I want to set vbTab(0) = 28 and then vbTab(1) = 3 and so on.

Singh, Thank you for your interest on this post but I got it all figured out. First I connect to the database then query the table and set it as DataTable. From the datatable I managed to looped for inconsistent Header and display them onto Comboboxes as Lists adapter.Fill(dt) Dim dc As DataColumn For Each dc In dt.Columns() .... end

How to get the datagrid header value? I have VS 2003 and not able to use Datagridview so is there any other work around?

Thank you.

I can't update the content of the field called "VALUE". Is there any work around to get "1" into that field? Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;Extended Properties=dBASE IV;") Dim adapter As New OleDb.OleDbDataAdapter("SELECT * FROM Test.dbf", conn) Dim recordsAffected As Integer = 0 conn.Open() Dim sql As String = "UPDATE Test.dbf SET Value = '1' WHERE Keyword = 'Over_here'" Dim da As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, conn) recordsAffected = da.ExecuteNonQuery() conn.Close()