|
Thanks for replying,
This is all I've written so far:
Public Class frmFoodLabelData
Private fdftconn As New OleDb.OleDbConnection()
Private dafdft As OleDb.OleDbDataAdapter
Private cbfdft As OleDb.OleDbCommandBuilder
Private dtFdItems As New DataTable
Private m_rowPosition As Integer = 0
Private Sub frmFoodLabelData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'FoodDataSet.FdItems' table. You can move, or remove it, as needed.
Me.FdItemsTableAdapter.Fill(Me.FoodDataSet.FdItems)
fdftconn.ConnectionString = "Provider=MicroSoft.ACE.OLEDB.12.0;Data Source=C:\FoodFight\Food.accdb"
fdftconn.Open()
dafdft = New OleDb.OleDbDataAdapter("Select * From FdItems", fdftconn)
cbfdft = New OleDb.OleDbCommandBuilder(dafdft)
dafdft.Fill(dtFdItems)
End Sub
As I said I've gotten the combobx working by setting it's DataSource and DisplayMember properties. Hopefully I can get pointed in the right direction. Any help would be appriciated.
|
|
|
|
|
I would have a read of this DataTable.Select[^]
There is an example of how to use the select method 1/3rd of the way down the table.
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Hello people,
How do you get the middle number between a chosen set of two numbers, for example, I have two numbers, 2 and 8, the number I would wanna get is 5. It would also help how you would convert a decibel number and round it into the closet whole number.
Regards,
Brandon T. H.
Simple Regards,
Brandon
|
|
|
|
|
by putting each number between 2 and 8 into a list and then using the list(of t).Average() I was able to get at the answer that you want but not sure if that is what you are after! If not then please expand your question further.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New List(Of Integer)
For i As Integer = 2 To 8
x.Add(i)
Next
Dim avg As Double = x.Average()
Messagebox.show(avg.toString())
End Sub
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Brandon T. H. wrote: How do you get the middle number between a chosen set of two numbers, for example, I have two numbers, 2 and 8, the number I would wanna get is 5.
Add both numbers together, divide by two.
Brandon T. H. wrote: It would also help how you would convert a decibel number and round it into the closet whole number.
Add .5 and cast to an int.
Bastard Programmer from Hell 
|
|
|
|
|
Public Shared Function Average(ByVal val1 As Integer, ByVal val2 As Integer)
If (val2>val1) Then
Dim temp As Integer = val1
val1 = val2
val2 = temp
End If
While (val1>val2)
val1 = val1 - 1
val2 = val2 + 1
End While
Return val1
End Function
alternatively, (val1+val2)\2
|
|
|
|
|
nice answer.. both the alternatives provided.. 
|
|
|
|
|
In my Project I am trying to Open Folders, I listview the startup items, and you can right click and go to the item folder location. For this code, the users appdata folder works fine. the path
C:\ProgramData\Microsoft\Windows\Start Menu\Program\Startup" Doesnt open up to the right location. It just opens up the C:\user\username\ folder instead.
If anybody knows how to open this folder it would be greatly appreciated. I am using VB 2010.
For a = 0 To (ListViewLogon.SelectedItems.Count - 1)
Dim MyKey = ListViewLogon.SelectedItems.Item(a).SubItems.Item(4).Text
Dim GroupFolderStartUpItems = ("C:\ProgramData\Microsoft\Windows\Start Menu\Program\Startup")
Dim Group2FolderStartUpItems = ("C:\Users\" & Environment.UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup")
If MyKey = GroupFolderStartUpItems Then
Dim sPathspec = "C:\ProgramData\Microsoft\Windows\Start Menu\Program\Startup"
WshShell.run("explorer /e" & sPathspec, 1, False)
ElseIf MyKey = "C:\Users\" & Environment.UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" Then
Shell("explorer " & Group2FolderStartUpItems, vbNormalFocus)
End If
Next
|
|
|
|
|
If you are running Windows 7 or Vista, UAC will not allow you to open the ProgramData folder.
As a result, you will not be able to access it. Running your program as administrator should allow you to read the folder.
|
|
|
|
|
The Program does run as Administrator.
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
That should be correct? Is what My manifest settings is at. unless uiAccess should be true. but Its always been this way, and when I start the program. Prompts to run under Administrator access and then starts it. Could there be something else wrong?
|
|
|
|
|
You're missing an "s" in your path; copy the one below into your explorer and you'll see the difference;
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
Also take note that explorer translates those path's into the local language, and that you can still access them over their English counterparts.
Bastard Programmer from Hell
|
|
|
|
|
Wow silly me, lol Dumb typo all along. Thank You.
|
|
|
|
|
Your typo, as well as all the problems you might have when moving your app to another Windows version, would not happen if you were to use the proper mechanism, see CommonStartup in this article[^].
|
|
|
|
|
Good day,I'm trying to deploy my VB.NET application. I decide to use installshield. Everything is fine now. I can install the app and run with no error but there's a weird thing's happening. Even I run my app and things like editing my database or copying files to install directory, nothing is changed when I look at the install directory.Database is empty and no files copied. But if I open the application again, all the changes are still there. Even I uninstall and re-install, the changes is still there.What's more weirder is this doesn't happen if I install it in XP.
|
|
|
|
|
Have the app display it's connectionstring on startup. My guess would be that they're pointing to different places.
Bastard Programmer from Hell 
|
|
|
|
|
You realize that everything under Program Files is ReadOnly for normal users on Win Vista and 7? If you deployed your database files to somewhere under Program Files, they wont work because you need Write permissions to the files. Put them somewhere User friendly, like CommonAppData.
|
|
|
|
|
how to delete data from colum in datagridview
i want a clum empty
|
|
|
|
|
In a bound dataview? What have you tried?
FWIW, the documentation on the DataGridView can be found here[^]
Bastard Programmer from Hell
|
|
|
|
|
To clear data from each cell of a column of DataGridView, there is no method in DataGridViewColumn class. A method like the following can be used to clear all the cells of a column
Public Sub ClearColumn(column As DataGridViewColumn)
For Each row As DataGridViewRow In column.DataGridView.Rows
row.Cells(column.Index).Value = Nothing
Next
End Sub
|
|
|
|
|
In the RowDataBoundEvent, set the value of that cell to empty.
potected void grid_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
DataRowView drView = (DataRowView)e.Row.DataItem;
DataRow drRow = drView.Row;
e.Row.Cells[7].Value = string.empty;
}
}
|
|
|
|
|
|
Your php code retrieves the "full" URL for the song id of 2472. Then it sends a "307 Temporary Redirect" message including the full URL to the client, which in turn will then contact the other server with that URL.
|
|
|
|
|
Hi everyone,
I have a textbox which holds numbers like e.g., xxxxxx
I wonder how to change that value entered by the user to xx-xx-xx. I'm trying several regular expressions like: OpNumbers.Replace(OpNumbers, "^(\d{6}|(\d{2}-\d{2}-\{2}))$") and also :
Format(lblOPReferenceNumber.Text.Trim, "## - ## - ##").
I'm not getting the output that need it. I'm pretty sure that I might be doing something wrong at some point.
Thank you for you help.
Venecos
|
|
|
|
|
Do you need leading zeros? Then you must use "0" instead of "#".
Dim number as int = int.Parse(textbox1.Text)
Dim result as string = number.ToString("00 - 00 - 00")
Dim result2 as string = number.ToString("## - ## - ##")
|
|
|
|
|
Alternatively, if you want to show the user the fomatted text, the MaskedTextBox control with
Mask property set as below may be used
MaskTextBox1.Mask = "00 - 00 - 00"
maskedTextBox1.TextMaskFormat = MaskFormat.IncludePromptAndLiterals
string maskedText = maskedTextBox1.Text
maskedText = maskedText.Replace("_","0")
The mask characters are explained here
http://msdn.microsoft.com/en-us/library/system.windows.forms.maskedtextbox.mask.aspx[^]
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
