I am trying to duplicate the Match function in excel for use in Access. Public Function Match(T() As Double, TTM As Double) As Double ReDim T(LBound(T) To UBound(T)) As Double
[Code]...
I am using the NPV() function in VB.NET to get NPV for a set of cash flows. However, the result of NPV() is not consistent with my results performing the calculation manually (nor the Investopedia NPV calc... which matches my manual results)
My correct manual results and the NPV() results are close, within 5%.. but not the same...
Manually, using the NPV formula:
NPV = C0 + C1/(1+r)^1 + C2/(1+r)^2 + C3/(1+r)^3 + .... + Cn/(1+r)^n
The manual result is stored in RunningTotal
[Code]...
The MSDN page example clearly states that the initial expense should be included in the cash flows list.
how to upload excel file with duplicate name file but its don't do overwrite the previous name file. So if i upload the file with same name it will saving like windows do.ex. firstly i upload excel file = "fileExcel". then i upload again with same name ="fileExcel". And it should be 2 file on the upload folder, first with name "fileExcel" and "fileExcel(1)". so if i upload again and again with the same name of file it will continuously grow. (1),(2),(3),(4), etc
[code]...
is there a proper way to duplicate a function (f1) instead of re-writing every single constructor f1 has and passing those arguments from f2 to f1..i tried to import System.dll using the alias method but it doesn't work anyone knows why?
View 18 Repliesi have a string such as {i|we|my friends} are {just|about} to go {walmart|asda|best buy} i would like to be able to randomly choose any of the words within the {} seperated by the | here is what i have so far and it only works for one {} i need it to work for sentences with multiple {}.
Function UnspinWork(ByVal SpunWords As String) As String
Dim upperBound As Integer
Dim Random As New Random()
Dim ChosenSpunString As String
[code]....
vb novice here.. im trying to create an application that uploads an excel file and then remove all of its duplicate rows. so far i dont know how to start the code that remove the duplicates.. so far this is what i have done with my removeduplicate function..
[Code]....
I am trying to create a .Net application to edit a excel file by deleting some columns and keeping the columns which we need and then removing the duplicate values based on the first column which is going to be the Serial no. which should have a check to have 6 digits by default like 2563 should be displayed as 002563.
Code:
Public Function GetAllFileContents(ByVal path As String, ByRef errorMessage As String) As IList(Of String)
Dim contents = New List(Of String)
Try
Dim files = Directory.GetFiles(path, "*.xls")
If (files.Length = 0) Then errorMessage = "Please select the files"
For Each file In files
[Code] .....
I am trying to create something different by not only letting me do it for excel files but for say txt and csv files along with it. Removing all the values which I dont want and removing the duplicates and then if possible putting a check on the first column of data that the serial number number should have minimum of 6 characters and then The output file should have all the details in Uppercase
I'm using VB .NET and I know that Union normally works ByRef but in VB, Strings are generally processed as if they were primitive datatypes.Consequently, here's the problem:
Sub Main()
Dim firstFile, secondFile As String(), resultingFile As New StringBuilder
firstFile = My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "1.txt").Split(vbNewLine)
secondFile = My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "2.txt").Split(vbNewLine)
[Code]...
I can upload excel to sql but when i upload again with old record for update and another record to insert new record [code]...
View 2 RepliesI have a textbox, I want that if I write a name in the textbox it will automatically append or suggest any names that match from the TblNames field of my Access database
View 2 RepliesHere is the error: [URL]
here is my code: what can I do to solve this error
Try
If MessageBox.Show("Save and update database?", _
"Confirmation", MessageBoxButtons.YesNo) = _
[Code]....
For some reason my code is executing the INSERT query twice and putting duplicate records in my table. If I put a primary key on one of the fields I get a runtime error and it complains about the fact it can't add the record twice.The part of the code that INSERTs is near the bottom, bolded and italicized. I put the entire IF statement of code incase my logic is wrong.This is what's being executed when a user clicks a button
If listOfCompanies.Contains(cbx_Company.Text) Then
'If the list contains the company, UPDATE the record
If LaborChecked Then
[code].....
For some reason my code is executing the INSERT query twice and putting duplicate records in my table. If I put a primary key on one of the fields I get a runtime error and it complains about the fact it can't add the record twice.
The part of the code that INSERTs is near the bottom, bolded and italicized. I put the entire IF statement of code incase my logic is wrong.
This is what's being executed when a user clicks a button
If listOfCompanies.Contains(cbx_Company.Text) Then
'If the list contains the company, UPDATE the record
If LaborChecked Then
[Code].....
Am trying to match characters or combination of the characters i specify in any order they appears
vb
Regex.IsMatch(teststring "[nuls]")
what i want matched is either any single character, or combination of any of them in any oder. this means that it should not match any character not specified in the pattern.
For example
it should match
n,u,l,s,nu,un,lun, sl etc
not
ny, nx so etc or any other
Whether I am using VB 2008 Express or VS 2010 Beta 1 Visual Basic, I get the same error: "Debugging information for 'EXCEL.EXE" cannot be found or does not match. Cannot find or open the PDB file" I have filled in the Debug Tab information: Start external program: C:Program FilesMicrosoft OfficeOffice12Excel.exe
[Code]....
I need to create an excel file from the database records. I fetched and put the data in an excel file and tried to save that file as follows.
[Code]...
I'm coming to the conclusion that the things I want to do in a database are better done if I run a conversion code from Excel to Access, do mighty things in Access, then have the option of converting back to Excel to distribute elsewhere. I'm already familiar with using Access and the code I keep finding in threads almost always refers to .mdb files. Below is a conversion that does not seem to work (button2). I'm trying to do this through ADO with OleDb connections. If I can convert to Access much will make sense.
Public Class Form1
Private Adapter As New OleDb.OleDbDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
[CODE]....................
I am connecting to an Access database and using a parameter query with the LIKE operator to return all rows that match query. The string to search for is taken from a Textbox
sql =
"Select * FROM Allview WHERE Info Like" &
"*" &
CStr(TextBox1.Text) &
"*"
The query does not return any data in vb, but when run from access with same string, there is data returned.The connection to the database is done correctly, as I am able to return data with various other queries.
Partial code :
Dim
con As
New OleDb.OleDbConnection[code]....
I have this data in txt file and the data keeps changing all the time.
[code]...
I would like to read all lines and compare, if the same name and same address is found, which is in the [......], then i need to count it and show the most frequent buyer!should i read it all and put in array, and compare and put the duplicate data and count into another array?
I have a List object and I want to remove the duplicated items but leaving at least one of the duplicated items in the list;I wrote something like this however I would optimize this code for better performance, is there something faster?
Const chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Dim rnd As New Random()
Dim mylist As List(Of String) = Enumerable.Range(1, 100).Select(Function(i)
[code].....
Does VB.NET have a function to get the quotient like you can in excel.
Quotient(12, 6)
actually im new with VB 2008. i need some help to solve my project.i create table at excel 2007. in that table, i insert function so that when i key in some value, there will be some result at that table. my problem is how to import table with that function that i create in excel 2007 to VB 2008 so that the table with function appear at VB 2008? please help me..i really need help to solve my problem..
View 1 Repliesadding the from line in the below code. It works fine now, but I would like to add the from line and send it on behalf of a group distribution list. I have tried multiple combinations such as From and .from, sendfrom, mailfrom, fromto.
[Code]....
een using excel extensively. In excel I use vlookup function to connect and retrieve data from other workbooks. I want to know how I can do it in VB. So far I have created a form.The form has say three text boxes viz (i) A unique Number (ii) Name (iii) Address. I want that when I write the unique number in the text box for unique number the other two text boxes i.e. of Name and of Address should be auto populated. I have also established and tested the connection with the access database file using ADO.NET. I do not know whether I need to write an SQL or LINQ query for this purpose or I should write some codes. What should i do it and how should i do it?
View 5 RepliesI have a function in VBA that I need to convert into VB.net:Sub Crossfunction(ByVal Array1 As Decimal, ByVal Array2 as Decimal) As Boolean
Dim C As Variant
Dim Above as boolean
Array1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Array2 = Array(1, 4, 3, 7, 5, 8, 7, 2, 9)
[Code]...
Is this the correct method? And how can I convert the function and not get an error: Error 1 Value of type 'System.Collections.Generic.List(Of Decimal)' cannot be converted to '1-dimensional array of System.Collections.Generic.List(Of Decimal)' when I redefine the Arrays as: ByVal Array1() as List(of Decimal),ByVal Array2() as List(of Decimal).
In cell A1 of Sheet2 I have the following text [code]how to I get VB to recognize that the 4<sup>th</sup> character of the string has character code 63?
View 3 RepliesI am trying to essentially convert an Excel spreadsheet into a Windows Form. On the first worksheet I have setup an IF statement to work as a search function =IF(C10="","",VLOOKUP(C10,'Price List'!$A$2:$D$40008,2,FALSE)) to read a price list on a separate worksheet. It works by taking a partnumber then puts the description in the next column (description column) and then the price in the "price each" column then finally totalling the row based of the quantity selected (see below).[code]...
View 11 RepliesI have a vb.net function which uses oledb to create a spreadsheet, then treat it like a database, creating tables and inserting values. The function takes in a filename and a dataset, and returns the filename if it worked. The function works beautifully on my dev machine, but not other PCs. Below is my function, is there anything wrong with the code? EDIT: There are no errors being thrown, the resulting file doesn't contain any data.
[Code]...
I have an Excel VBA function that takes a number of optional parameters, including an optional Range:
Function DazBeta(A As Range, Z As Range, _
B As Integer, _
Optional Freq As Integer = 1, _
Optional c As Double = 0, _
Optional r As Range, _
Optional Pct As Boolean = True, _
Optional Label As Integer = 1)
I am translating to VB.NET, and it's the optional Range that is giving me grief because VB.NET does allow optional Ranges. Or rather, optional parameters must provide a default value. What is the recommended way to change the VB.NET function signature so that the code is callable from an Excel cell as a UDF? (The VB.NET implements a UDF, the assembly is registered as a COM server, and the Excel spreadsheet is told of this server and type library, allowing the VB.NET code to be called from an Excel spreadsheet cell.) I have other compilation problems, so I have not been able to explore this. I am thinking that accepting an optional Object (default value Nothing) might work and then I could cast the Object to a Range. Alternatively, if there were a default value that could be specified with an optional Range, that would work, too.
I'm attempting to use the VLookup function to look up a raw score and convert it using an excel worksheet. However, instead of returning the figure in the lookup location, its returning the value that i'm looking up. For example, i'm looking up the number 5, it should give me the value of 63 but instead of returning the value 5.
xcApp = CreateObject("Excel.Application")
Excel1.OpenBook("testbook.xls")
xcWS = CType(xcWB.Worksheets("SOMATIC"), Excel.Worksheet)
MsgBox(xcApp.WorksheetFunction.VLookup(5, xcWS.Range("A2:F12"), 1, False))
EDIT: The above code DOES work, but it does not work with the following code(returns number i'm sending). One thing I did notice, it doesn't seem to be looping through all the Subnames...I just get one result and there are 10 in the TEMP table.
Connect()
sel("Select * from Temp")
While dr.Read
[code].....