On the publish tab of My Project the correct current version is there, 1.1.0.0 and in Programs and Features under Control Panel it shows 1.1.0.0 but when I reference Application.ProductVersion I get 1.0.0.0.
View 2 Replies
I am trying to get the productVersion from the msi database, this is my query:
Public Function GetRevisionFromMSI(ByVal sMSIFilePath As String, _
ByVal sEXEFileName As String) As String
Dim oInstaller As WindowsInstaller.Installer
[Code].....
The error are : "OpenDatabase,DatabasePath,OpenMode" or "OpenView/Sql" which turns out to be quite ambiguous as far as my searches.
One of our technicians asked my to write a small library file in which he would pass a filename and an integer. The library would load the text file and find the integer in the text file referenced by the file name and return a string back to his program. He is working in a third party application that uses VB as its scripting language.So, not wanting to worry about the .net install on some of the older machines that he has his equipment installed on I decided to take a crack at C++ (VS 2010). I am doing applications development in C# and the last time I compiled any C++ code was in VS 6, but I though how hard can it be? Well I am typing here so things have taken a decidedly wrong turn. I started out with the C++ Side.
#include <WTypes.h>
#include <comutil.h>
#include <string.h>the BSTR. Tried SysAlloc, didnt work.
[code]....
If I pass a String to a BSTR as a parameter then pass it back again (like the file name) then the VB side reads in the entire string.
We're using team build with AssemblyInfoTask to increment the build number in a nightly build. The build number is displayed in the application using My.Application.Info.Version.Build.This has been working fine for years. But since we branched the sources and started using file references instead of project references (have no idea if that's what causes the problem), the last build number is displayed instead of the current one.
The compiled files (dll's and exe's) have the correct build number, if checked by right clicking the file in Explorer and viewing detailed properties. However when the same exe-file is executed, the UI displays the previous build number.If I edit the AssemblyInfo.vb file manually (just set another number, save the file, and set it back again), both file properties in Explorer and the UI at runtime displays the correct build number. How can this happen? What can be done to avoid this strange behavior?
I have windows application in which I get currently windows logged in username using following environment property
System.Environment.UserName But when I ran application using visual studio, it works without any problem. But when I publish application & try to run it, it get System.Environment.Username value as nothing.
cause of this issue? Or any other alternative to get current system logged in username.
Type.GetTypeFromProgID("Word.Application") returns nothing
View 2 RepliesThe version in the Publish page of the project properties is set to 1.4.0.1, but My.Application.Info.Version.ToString returns "1.0.0.0"
View 7 RepliesI have some code which gets child items for a menu via the GetChildren function which takes a list of menuData: Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu
If menuData.Children IsNot Nothing Then
menuData.Children.AddRange(GetChildren(menuData))
End If
Next
If I check if menudata.children isnot nothing, it always is nothing because the GetChildren function is yet to run (providing the child items, which do exist). If I remove this check and just have this code:
Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu
menuData.Children.AddRange(GetChildren(menuData))
Next
Then I am presented with a Object reference not set to an instance of an object error on menuData.Children.AddRange(GetChildren(menuData))
i have a datatable with column "prices" and i displeay the column values in a listbox and i sum all the values in this column and i display the sum in a label.text but when i delete one row in de listbox the sum returns a zero value.[code]
View 2 RepliesCould someone point me why the IndexOf returns always zero in the following text?
Dim Str as string = "<p><img class=floatLeft width="330"src="http://www.com"></p><p>"
Dim Idx as integer = Str.IndexOf("<p>")
Is there any other way, of getting the index?
[Code]...
I always get {} as answer. What's wrong?
I'm trying to create a function that would return a PDF document. Something like this:
Function GetPDF(ByVal DirectoryPath as String) as PDF
Return DirectoryPath
End Function
I am using Sql Server 2005 and Vb Studios 2010 on a .net Framework of 4.0. I am trying to get the exact number of rows from a database and populate a datatable then have a label show the number of rows.
Dim comm2 = db.selectcommand(db.conn, "*", "Tablename", " columnname = '" & Session(sessionvariable) & "' AND columnname = 'Unread '")
Dim sqlda2 As New SqlDataAdapter(comm2)
[Code]....
I've got my text files read into an array.Which was step 1 .My code so far is:
Note: textSKU is just a text box. No event handler associated.
Private Sub BtnSeacrch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSeacrch.Click
Dim objCA As New System.IO.StreamReader(ofdCA.FileName)
System.IO.StreamReader(ofdWarehouse.FileName)[code]....
The message box is mostly just to test to see if it's finding the line. And the problem is it's returning -136.Which I'm pretty sure can't be a value in the array ( actually very sure, as I tested it just to be sure, and it says it's out of bounds).I know it's in the array, as when I change returnvalueCA to a...7 for example, it outputs the correct line from the .csv file.
Edit: Index was outside the bounds of the array. is what the debugger says, as it's trying to output the value of SKUSheet(-136)
I have to cut down the amount of code in my blackjack program so im trying to use a function however the function always returns a value of 0 I have tried putting in "return cardvalue" but it still comes out as 0 I dont know where I went wrong or if the code im using can even be used as a function.
Function Values(ByVal deal() As Integer, ByVal counter As Integer, ByVal cardvalue As Integer) As Integer
If deal(counter) = 1 Or deal(counter) = 2 Or deal(counter) = 3 Or deal(counter) = 4 Then
[Code]....
as a workaround for the Locale bug in Office Interop I wanted to use VSTO but if I call
app.ActiveWorkbook.GetVstoObject()
then it returns nothing. I'm working from a .NET 2.0 Visual Basic Application project. This is not an add in or a special VSTO project. I have added the required Imports and References.
Dim app As New Excel.Application
app.Caption = "Rapport"
app.Visible = True
app.Workbooks.Add()
Dim tmp As Object = app.ActiveWorkbook.VBProject
Dim book As Workbook = app.ActiveWorkbook.GetVstoObject() 'Returns Nothing
This is a school project and it needs to be finished by the end of next week
have a look at this code Dim colors() As KnownColor = CType(System.Enum.GetValues(GetType(KnownColor)), KnownColor()) Since CType is a function that returns DataType ,But here as in the code it seems that CType() is returning array having values that is assigned to color() array. How this is happening?
View 3 RepliesI've been having a problem with Math.Log in a function I'm trying to write. When working with variables, it always returns 0. Here's the line I'm trying to run:
Quote:
mb = txtMb.Text
k = txtK.Text
t = txtT.Text
[Code].....
Recently (I have no idea when) App.Path in VB6 started to return a URI rather than an absolute path for the location. Instead of returning something like "C:program filesmyapplication it has begun returning "\sacoc$program filesmyapplication"Has anyone else noticed this?
It breaks a whole crap-load of my code.It seems like MS, in their infinite wisdom, have decided there is some security breach with the way it was returned before - just guessing.
I want to get the row count of my datagridview. I currently use this code below. But the RowCount value is &H7. I have 7 rows displayed in the datagridview. The code below seems to work, but I don't understand what &H7 means. Does it have something to do with Hexadecimals?
' tell user if no results are available to update
If dgv.RowCount < 1 Then
MsgBox("There are no results available to set Ready.", MsgBoxStyle.Information)
Return "Failed"
[code]....
I set the culture to Hungarian language, and Chr() seems to be broken.
System.Threading.Thread.CurrentThread.CurrentCulture = "hu-US"
System.Threading.Thread.CurrentThread.CurrentUICulture = "hu-US"
Chr(254)
This returns "ţ" when it should be "þ" However, Asc("ţ") returns 116. This: Asc(Chr(254)) returns 116.Why would Asc() and Chr() be different?I checked and the 'wide' functions do work correctly: ascw(chrw(254)) = 254
Im trying to make a web service in VB.net is their a way that i can return the results that i get from LINQ. ie "return objreturnLINQResults" I have tryed to set my Public Function GetAlarmsByGUIS(ByVal DeptGUID As String, ByVal IdNumber As String) As Linq.DataContext . i just keep getting errors.
Public Function GetAlarmsByGUIS(ByVal DeptGUID As String, ByVal IdNumber As String) As Linq.DataContext
Dim lqAlarms As New linqAlarmDumpDataContext
[Code].....
I have a WPF application that uses a third-party library to perform a specific task; this library, in one of its methods, executes the statement Assembly.GetEntryAssembly(). If I run the WPF application on debug (by running a .Net exe for testing) the library works properly and Assembly.GetEntryAssembly() returns a reference to the assembly of the executable, but in production I have a different situation that causes me some problems.
[Code]....
I get #Error in reportviewer when I use the following expression:
=IIf(Fields!PaymentNumber.Value>0,
IPmt(Fields!Annual_Interest_Rate.Value/1200,
Fields!Payment.Value,
Fields!No_of_Monthly_Payments.Value,
Fields!Total_Amount_Financed.Value),0)
When I remove the IPmt() function and use some static value instead, it works. Is there a way to find out the exact error ?
I wrote a vb program that would prompt the user to enter a number and then enter the exponent value they wanted the number raised to. When they clicked button 3 it did the calculation. everything worked perfectly.
Now I need to change the program. I must create a function in a module and then call that function from button3 click event. I have tried several different ways and even though it seems to "work", it keeps returning an incorrect value![code]...
I am trying to create an application for a wire company that sells spools of wire for $100 each. The normal delivery charge is $10 per spool. Rush delivery costs $15 per spool. The user should enter the number of spools ordered in a text box, and check Rush Delivery box if rush delivery is desired. When the Calculate Total button is clicked, an input box should appear asking the user to enter the number of spools currently in stock. If the user has ordered more spools than are in stock, a portion of the order is back-ordered. For example, if the user orders 200 spools and there are only 150 spools in stock, then 150 spools are ready to ship and 50 spools are back-ordered.
Attached is the code with comments on what each function is supposed to do. I dont know why but the form always returns zero.
'Declare variables
Public intNumberofSpools As Integer
Public intBackOrder As Integer
[CODE]....
In the following block of code always returns zero for the CPU usage. However, if I run it through Visual Studio in debugging mode, do a "Quick watch" on the variable "pcCPUCounter", add ".NextValue()" at the top, and tell it to reevaluate, that returns the varying percentage (eg, 5%, 71%, 16%, etc etc) as the processor utilization fluctuates.
Why would the code always print out zero, but the quick watch doesn't?
Private Sub UpdateCPUUsage(ByVal strSelectedServer As String)
'Performance items come Performance Monitor: perfmon.msc.
'The right-click on columns at bottom and select "add counter" to see list.
[Code].....
I have the following code in my application. When it is executed it brings out a null value at times, where i am sure there should be a value returned. I have checked by running the sql statement in the database and it returns the correct value. What could be wrong with my code? [Code]
View 6 Repliesthe sub I right now is this:
Code:
Private Sub DetermineTicketNumber()
Dim objConnection As SqlConnection = New SqlConnection(strConnectionString)
Dim objDataAdapter As New SqlDataAdapter
[code]....
My question is, how do I access the value that MAX() is returning from my SQL query?
I just started using macros two days ago in excel, programming them by hand in VB (i've never really used VB before this). In one of my macros I need to make an array of all the files and folders with a specific path, so i used a variation of the following code:
Thedir = Dir(some_path, vbDirectory)
Thedir = Dir(, vbDirectory)
Of course there is more to my specific code but this is where the problem occurs (I've tested the return value with MsgBox and i still had the same problem) What should happen is that the first line would assign Thedir with a String representing the name of the first file/folder in the path. The second line would then assign a string representing the second file/folder in the path that the first Dir was called in. What instead happens is the first line sets Thedir = "." and then the second sets Thedir = "..". any successive call of Dir(, vbDirectory) will return the remaining files and folders in the path.
[Code]...
