|
if anyone can help create an organization chart in visual basic 6.0, I have 1 table and for relation there is parent
|
|
|
|
|
Switch to VB.NET and you will most likely find lots of helper classes.
|
|
|
|
|
Why on this earth are you starting new development work in VB6? It's been dead for quite a long time now.
Switch to VB.NET and you'll find the tool and support communities considerably larger than for VB6.
System.ItDidntWorkException: Something didn't work as expected.
C# - How to debug code[ ^].
Seriously, go read these articles.
Dave Kreskowiak
|
|
|
|
|
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 
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
<pre> Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
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?
|
|
|
|
|
|
|
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
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
