Load Report Failed Error show while direct printing crystal report vb.net(Not Every Time) - Visual Basic Discussion Boards

if anyone can help create an organization chart in visual basic 6.0, I have 1 table and for relation there is parent

connectionstring is not a member of sqliteconnection

Great. Thanks for the "heads up".

Now, did you have an actual question or a problem description, with a relevant code snippet or what?

System.ItDidntWorkException: Something didn't work as expected.

C# - How to debug code[^].
Seriously, go read these articles.

Dave Kreskowiak

It should be; ConnectionString is part of the IDbConnection which the SQLiteConnection implements. Perhaps it would be easier to see what went wrong if you show us some code.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

how to rectify class not support error in vb6 at win 7

Start with something from this century, this millenium.

Quote:
Mainstream Support for Microsoft Visual Basic 6.0 ended on March 31, 2005. Extended support ended in March 2008.

Start by providing a clear and complete description of the problem. Include the complete error message, and the relevant parts of your code. Remember to indicate which line of code the error relates to.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

i m using this code to print crystal report with out priview ,Some Time Load Report Faild Error Show ,when i close and reopen application again report will printed,how can i resolve this error please guide me,my code is

VB

<pre> Dim crtableLogoninfo As New TableLogOnInfo
                Dim crConnectionInfo As New ConnectionInfo
                Dim CrTables As Tables
                '  Dim CrTable As Table
                Dim TableCounter
                Dim crReportDocument As New ReportDocument
                Dim crParameterDiscreteValue As ParameterDiscreteValue
                Dim crParameterFieldDefinitions As ParameterFieldDefinitions
                Dim crParameterFieldLocation As ParameterFieldDefinition
                Dim crParameterValues As ParameterValues
                Dim billno As New InfoGeneration
                Dim sname As ConfigurationSettings
                crReportDocument.Load(Application.StartupPath & "\Reports\rptsinv.rpt")
                With crConnectionInfo
                    .ServerName = sname.AppSettings("servername")
                    .DatabaseName = sname.AppSettings("dbname")
                    .UserID = sname.AppSettings("username")
                    .Password = sname.AppSettings("password")
                End With
                CrTables = crReportDocument.Database.Tables
                For Each CrTable In CrTables
                    crtableLogoninfo = CrTable.LogOnInfo
                    crtableLogoninfo.ConnectionInfo = crConnectionInfo
                    CrTable.ApplyLogOnInfo(crtableLogoninfo)
                Next
               
                crParameterFieldDefinitions = crReportDocument.DataDefinition.ParameterFields
                crParameterFieldLocation = crParameterFieldDefinitions.Item("s_id")
                crParameterValues = crParameterFieldLocation.CurrentValues
                crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
                crParameterDiscreteValue.Value = txts_id.Text
                crParameterValues.Add(crParameterDiscreteValue)
                crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
                crReportDocument.PrintToPrinter(txtcopies.Text, False, 0, 0)

I need to be able to search through the data I have displayed in a datagrid view/textbox using the surname of a customer ( I have used Textfiles NOT SQL)

Searching through a DataGridView is a simple matter of iterating the rows and checking the relevant columns for data matches. Searching a TextBox is just a string operation.

How to convert a string to code 128 witch code vba?

Code 128 - Wikipedia[^]

Consider downloading a barcode 128 font, then print whatever code you want with this font and it will render as a barcode.

For example: Barcode Font - Completely Free Download of code 3 of 9 and 128 Barcode Fonts[^]

You can search around and find all kinds of examples.

This is an update. This question is no longer an issue. I found information
about implementing the Verbs() function of the ControlDesigner. Sorry
for the inconvenience. Did not know if I should delete this question or not.

Hello,
The code below adds an action to select 1 of 2 panel configurations:
"SelectPanel2Type" or "SelectPanel3Type".
The controls action list displays the current 'PanelType' selection.
When you click on the current item, the current item text changes to the second panel
text:
Example: If "SelectPanel2Type" is displayed, clicking on it changes to "SelectPanel3Type"
and visa versa.
This functions as expected.

The problem:
The action is also displayed and can be selected from the attributes panel of the Properties window, but when I click on the action in the attributes panel, the text in the attributes
panel does not change to the opposite panel and I cannot select the opposite configuration.
Example:
If "Select Panel2Type" is displayed, when I click on it, the action is performed in
the control, but the text in the attributes panel does not change to "Select Panel3Type".
If I deselect the control and reselect it, the attributes panel will be updated
to "Select Panel3Type".

Is there something that I am not doing to update the attributes panel correctly?
Thank you.

Friend Class SPCActionList
Inherits System.ComponentModel.Design.DesignerActionList

' Host object
Private HostControl As SplitPanelCtrl = Nothing

' Cache a reference to the DesignerActionUIService host.
Private _DesignerActionUIService As DesignerActionUIService

Public Sub New(ByVal component As IComponent)
MyBase.New(component)

' Cache a reference to the control.
HostControl = DirectCast(component, SplitPanelCtrl)

' Cache a reference to update action
_DesignerActionUIService = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)

End Sub

Public Overrides Function GetSortedActionItems() As DesignerActionItemCollection
Dim items As New DesignerActionItemCollection()

items.Add(New DesignerActionHeaderItem("Panel Type Selection"))
items.Add(New DesignerActionMethodItem(Me, _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "SelectPanel3Type", "SelectPanel2Type"), _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "Select Panel3Type", "Select Panel2Type"), _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "Select Panel3Type", "Select Panel2Type"), _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "Select Panel3Type", "Select Panel2Type"), _
True))
Return items
End Function

Private Sub SelectPanel2Type()
TypeDescriptor.GetProperties(HostControl)("PanelType").SetValue(MyBase.Component, enumPanelType.PanelType2)
Me._DesignerActionUIService.Refresh(HostControl)
End Sub

Private Sub SelectPanel3Type()
TypeDescriptor.GetProperties(HostControl)("PanelType").SetValue(MyBase.Component, enumPanelType.PanelType3)
Me._DesignerActionUIService.Refresh(HostControl)
End Sub
End Class

-- modified 19-Dec-17 12:14pm.

I am working on a project where an access database calls a batch file that then calls a .vbs file. Within the .vbs file my code is to open a telnet session, connect to my companies warehouse management system, login, call a specific program, enter some information on the screen which executes the program, then logout.

This is where it gets interesting. If I manually run the batch file which is on my local C:\ drive the batch file calls the .vbs script and the .vbs script executes flawlessly. Keep in mind that the point of this is to automate and not have a person manually run the batch file or do everything that the .vbs script is setup to do. When I use a Microsoft Access macro to open the same exact batch file which then calls the .vbs script I run into problems. The batch file executes as expected, the .vbs script opens the command prompt however I get a message that telnet does not exist. How is this possible? The access database is on my local C:\ drive along with the batch file and .vbs script.

Here is my .vbs code which I know is not the problem since it will work when I run it manually. Does using a program to call telnet interact differently or cause security issues within Microsoft windows?

My .vbs file code (for security purposes I changed/put server, username, password, program name,file name instead of real values):

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\windows\system32\cmd.exe"
Wscript.Sleep 5000
objShell.SendKeys "telnet server"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "username"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "password"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 300
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "1"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "call programname "
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "filename"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "{F6}"
Wscript.Sleep 3000
objShell.SendKeys "{F3}"
Wscript.Sleep 3000
objShell.SendKeys "exit"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
bjShell.SendKeys "exit"
objShell.SendKeys "{ENTER}"
Set objShell = Nothing

My batch file simply calls the .vbs file

It is probably due to environment variables not being setup in the call to cmd. Try adding the full directory path to telnet.exe.

modified 18-Dec-17 16:40pm.

I tried full path to cmd.exe
C:\windows\system32\cmd.exe and get same result.

Why would the script work when running it manually via a double click of the .vbs file however when using a program such as outlook or access to run the same exact .vbs file results in an error "telnet not recognized".....error

Why did you think that would change anything? Please read my previous suggestion again.

I did. You said use thebfull path for cmd.exe which is c:\windows\system32\cmd.exe

I guess I dont understand the direction you are giving.

The bigger issue is what I outlined about executing manually vs with another program. Is cmd.exe and telnet limited in how its used for security reasons?

Thanks

No, he was referring to the full path for Telnet, which is "C:\Windows\System32\Telnet.exe".

Also, using SendKeys is not recommended. What if the user clicks another window or the system pops up a dialog from something else in the middle of all those key strokes you're sending? Bad things will happen.

The better way to do it would be to redirect the Input stream of the CMD Process you launched and write your data to the stream instead.

System.ItDidntWorkException: Something didn't work as expected.

C# - How to debug code[^].
Seriously, go read these articles.

Dave Kreskowiak

Duh....lol....i tried the full path for telnet.exe and run into a similar problem as cmd.exe. i input the commands and server and it now it doesnt connect when using a program to execute the .vbs however if i manually execute my .vbs it works.

Im not concerned with the sendkeys because this script will be running at a time when no one will be accessing the pc.

Sounds more and more like a security issue.

If it's telling you telnet.exe is a "Bad command or filename", it's because it can't find the executable on whatever the PATH environment is set to. This may be different from what you see when you type SET PATH at a CMD prompt yourself. That's why you have to specify the entire path to telnet.exe in the .VBS file.

System.ItDidntWorkException: Something didn't work as expected.

C# - How to debug code[^].
Seriously, go read these articles.

Dave Kreskowiak

Sendkeys is limited, because it is a liability in scripts.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Please I need help with this

So i have a dictionary of words and their corresponding Part Of Speech in my data base...

I want a user to enter a text in a text box then after clicking a button..

My code should determine if the text is valid or not using my dictionary of words

Onuche Abraham DaCatalyst wrote:
My code should determine if the text is valid or not using my dictionary of words

So what are the rules that your code needs to implement?