|
Nope. You can execute your query by giving it a string. You can manipulate this command-string to your hearts content.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
|
|
You're welcome 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
I agree with Eddy Vluggen that there's no FoxPro macro substitution in vb.net, but depending on data provider you can use:
1) sql variables
2) CommandType to define:
- StoredProcedure - the name of a stored procedure,
- TableDirect - the name of a table,
- Text - any SQL command (text - Default).
and
3) Command.Parameters
For example:
Dim sConn As String = "properconnectionstring"
Dim oRdr As OleDbDataReader
Dim dt As DataTable = New DataTable()
Dim empIdToFind As Integer = 111
Using oConn As OleDbConnection = New OleDbConnection(sConn)
oConn.Open()
Using oComm AS OleDbCommand = New OleDbCommand()
oComm.Connection = oConn
oComm.CommandType = CommandType.Text
oComm.CommandText = "SELECT * FROM MyUsers WHERE EmpId=@empid;"
oComm.Parameters.AddWithValue("@empid", empIdToFind)
oComm.ExecuteNonQuery()
oRdr = oComm.ExecuteReader()
dt.Load(oRdr)
End Using
oConn.Close()
End Using
|
|
|
|
|
thanks Maciej, extraordinary explanation.
|
|
|
|
|
|
I want to calculate sum of Net_Amount based on TC_Group='food' using cheque_number as base criteria using VB code
Actual Sheet
CHEQUE_NUMBER TC_GROUP NET_AMOUNT
A001477920190111084600 FOOD 1500
A001477920190111084600 FOOD 1500
A001477920190111084600 TAX 141.75
A001477920190111084600 TAX 141.75
A001477920190111084600 TIPS 75
A001478120190111103600 FOOD 1500
A001478120190111103600 TAX 141.75
A001478120190111103600 TAX 141.75
A001478120190111103600 TIPS 75
Desired Output
CHEQUE_NUMBER TC_GROUP NET_AMOUNT
A001477920190111084600 FOOD 3000
A001478120190111103600 FOOD 1500
|
|
|
|
|
Where is the data stored?
What have you tried?
Where are you stuck?
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Data is stored in excel sheet
|
|
|
|
|
you want to do this inside Excel ... or inside a Visual Studio Application ?
|
|
|
|
|
for current scenario excel only
|
|
|
|
|
You don't need VBA for this.
Inside your sheet you can use the function 'SUMIF' for this ...
|
|
|
|
|
Hi Team,
I have a existing .xlsm file which I was able to open in older excel versions(like 2010) successfully.
But i am unable to open the same .xlsm file in newer office versions 2016.OPening as blank.
Tried changing the settings under Excel->File->Options->Advanced
Under "General"
->Unchecking the "DDE"
Under "Display :"
->Unchecked the "Disable hardware graphics acceleration"
->Turn off add-ins.
Anyone faced this issue ?
Any help will be really appreciated.
Thanks in advance.
Thanks
Manju
|
|
|
|
|
Does this have anything to do with Visual basic programming?
|
|
|
|
|
As most macros are written in VBA I would assume this is the closest forum, we don't have an Office forum thankfully.
Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP
|
|
|
|
|
True, but the question does not mention any macros.
|
|
|
|
|
|
I was asked to sort a list of contacts and said Ok thinking it would be pretty easy using OrderBy in Linq. Then I ran the program and looked at the data and found it more difficult.
The customer decided to make the contact names like this, and I wasn't able to sort the 2nd part
Acme Company - John Doe
Acme Company - Abe Frank
I kept getting the same result of an unordered list using OrderBy(Function(x) x.FCONTACT)
Then Somehow I got side tracked into using Array.Sort, contacts.Sort() and ended up creating this new class with sort helpers that I can't get working.
I think I'm on the right track here, so went down this road to get a better understanding.
I get an intellisense error on Sort, and when I run it I get a Unhandled exception of can't cast to ContactsList in the sortContactAscendingHelper when it reads the single line of code.
contacts.Sort(ContactsList.SortContactAscending())
What have I tried, well this basically. I'm driving down a dark unfamiliar street in the rain on this and can't find much help on the subject.
Public Class ContactsList
Implements IComparable
Public Property FID As String
Public Property FCHECK As Boolean
Public Property FCUSTNO As String
Public Property FCOMPANY As String
Public Property FCONTACT As String
Public Property FEMAIL As String
Public Function CompareTo(obj As Object) As Integer Implements IComparable.CompareTo
Return FCONTACT.CompareTo(obj)
End Function
Public Shared Function SortContactAscending() As IComparer
Return CType(New SortContactAscendingHelper(), IComparer)
End Function
Public Shared Function SortContactDescending() As IComparer
Return CType(New SortContactDescendingHelper(), IComparer)
End Function
Private Class SortContactAscendingHelper : Implements IComparer
Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
Dim c1 As ContactsList = CType(a, ContactsList)
Dim c2 As ContactsList = CType(b, ContactsList)
Return String.Compare(c1.FCONTACT, c2.FEMAIL)
End Function
End Class
Private Class SortContactDescendingHelper : Implements IComparer
Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare
Dim c1 As ContactsList = CType(a, ContactsList)
Dim c2 As ContactsList = CType(b, ContactsList)
Return String.Compare(c2.FEMAIL, c1.FCONTACT)
End Function
End Class
End Class
If it ain't broke don't fix it
Discover my world at jkirkerx.com
|
|
|
|
|
Seems to me you have crappy data which is the root of your problem. Solving it with sort constructs is the wrong way to go. Fix the underlying data issue.
I note your contact list has both company and contact fields but your example has the data as 1 value separated by a dash. If you split the data on the dash (assumes the dash is consistent) then sorting becomes a trivial matter.
Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP
|
|
|
|
|
I figured everybody has to deal with crappy data. Maybe I should go to the source of the crappy data and fix that as well.
Good advice however.
If it ain't broke don't fix it
Discover my world at jkirkerx.com
|
|
|
|
|
Hi,
Based on some code I found I changed this code to take a picture from a webcam on a regular basis and stores the image an a folder.
This works! But I want to be able to minimize the form and put it in the system tray. When I do that I only get dark images.
Does anyone have a solution for this? I want the form in the system tray as people do other things on this laptop whilst the code takes pictures of a machine every x seconds.
This is the link to the code (in zip file) on OndeDrive:
Webcam VB .net code OneDrive[^]
Thanks for your input.
Frank
|
|
|
|
|
The component that does the capturing needs to paint the stream. Without painting the stream, there's only a black nothing to capture. Unfortunately, it only paints when Windows tells it to, and that's only when it is visible.
A cheap solution is to buy a Raspberry Pi and use that as a dedicated machine for capturing the images.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
Thanks Eddy.
Not the answer I wanted to hear, but I will look into a solution when a Pi.
Regards,
Frank
|
|
|
|
|
The below code sets the selected text in the RichTextBox to a protected link.
This works but I have an issue when entering text before the link; particularly
a space char. When I enter a space character before the link, the link loses
it's link state;
1. The color changes to normal text color.
2. The underline disappears.
3. I no longer receive the link click message.
4. It remains protected.
I can type other characters and do not lose the link state except when
the caret is on the space immediately preceding the link.
Test case with this text where link is the formatted link:
" abc link"
Hitting the spacebar anywhere between the 'c' and the 'l' causes the link to lose its state
Hitting any other char does not affect the state except when the char is next to the 'l' and
then it loses its state.
Anyone have an idea of why the link is losing it's attribute?
Thank you
Public Function SetSelectionCharFormat(ByVal hEdit As IntPtr, ByVal cf As CHARFORMAT2, _
Optional ByVal fmt As EMFormatMasks = EMFormatMasks.SCF_SELECTION Or EMFormatMasks.SCF_WORD) As Boolean
Dim bReturn As Boolean = False
' This is test code which overrides the input
cf.dwMask = (CFMMask.CFM_LINK Or CFMMask.CFM_PROTECTED) ' &h20 or &h10
cf.dwEffects = (CFEEffects.CFE_LINK Or CFEEffects.CFE_PROTECTED) ' &h20 or &h10
Try
Dim structPtr As IntPtr
' Allocate the memory for structure data
structPtr = Marshal.AllocHGlobal(Marshal.SizeOf(cf))
' Copy structure data to memory ptr
Marshal.StructureToPtr(cf, structPtr, False)
' Return non-zero if passes; code from winctrl4.cpp
' fmt = the default (EMFormatMasks.SCF_SELECTION Or EMFormatMasks.SCF_WORD)
bReturn = (MyUtilsLib.WindowsAPI.SendMessage(hEdit, EMMessages.EM_SETCHARFORMAT, fmt, structPtr) <> 0)
' Free memory
Marshal.FreeHGlobal(structPtr)
#If DEBUG Then
If bReturn = False Then
Debug.WriteLine("SetSelectionCharFormat() failed")
End If
#End If
Catch ex As Exception
MsgBox(ex.Message())
End Try
Return bReturn
End Function
-- modified 23-Jan-19 15:38pm.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
