|
i have an access database with a particular column which contains the words "male" and "female", and would like to know the number of times each word reoccurs. and display the value in a label. thanks @all
|
|
|
|
|
You use a WHERE caluse to filter the dataset eg
Select count(*) from Table WHERE ColumName = 'male'
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
thanks will try this right away
|
|
|
|
|
Assuming the colun is called Gender, and the table is called Person
SELECT [Gender],Count(1)
FROM [Person]
GROUP BY [Gender]
=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================
|
|
|
|
|
thanks alot it worked as expected. But please how do i sort out and select files using two columns?
|
|
|
|
|
Sort using an ORDER BY clause
Select using a WHERE or HAVING clause.
I suggest you learn some basic SQL - try here: SQL Tutorial[^]
=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================
|
|
|
|
|
Hello, my apologies if I'm on the wrong forum. First time posting a code question anywhere since I was a student. (It's been a while.)
I'm trying to create a Customized ComboBox for an application and I want to have a property which is a list of strings. I've simplified my code down to just that to make things hopefully simple.
I can create normal properties that are just string variables and they work in the designer. But when I try to make a property that is a List(Of String), it appears to work but I get the following error when I try to add a string to the list in the designer.
> Constructor on type 'System.String' not found.
My code is below:
Imports System.ComponentModel
Public Class CustomComboBox
Inherits ComboBox
<Editor("System.Windows.Forms.Design.StringCollectionEditor, System.Design", _
"System.Drawing.Design.UITypeEditor,System.Drawing")> Private MyListOfStrings As List(Of String)
Property MyListOfStringsProperty() As List(Of String)
Get
Return MyListOfStrings
End Get
Set(ByVal value As List(Of String))
MyListOfStrings = value
End Set
End Property
End Class
Any help is appreciated, Im'
|
|
|
|
|
Imports dao
Imports System.Data
Imports System.Data.OleDb
Imports VB6 = Microsoft.VisualBasic
Imports Microsoft.Office.Interop
Imports System.Object
Imports Microsoft.Office.Interop.Access
Public Class Form1
Private Sub ExportOneTable()
'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL
'REFERENCE TO DAO IS REQUIRED
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database
'Change Based on your needs, or use
'as parameters to the sub
strExcelFile = "C:\Ravi\MySpreadSheet.xls"
strWorksheet = "WorkSheet1"
strDB = "C:\Ravi\SSG_INVY.mdb"
strTable = "company_details"
objDB = OpenAccess(strDB)
'If excel file already exists, you can delete it here
If Dir(strExcelFile) <> "" Then Kill(strExcelFile)
objDB.Execute( _
"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
"].[" & strWorksheet & "] FROM " & "[" & strTable & "]")
objDB.Close()
objDB = Nothing
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ExportOneTable()
End Sub
End Class
|
|
|
|
|
Tell us the error you are getting - we are not psychic!
=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================
|
|
|
|
|
Which line?
Error message?
|
|
|
|
|
And the error is?
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
hi
Dim job = From J In QryGen.co_jobs Where J.co_id = 1013 And J.industry_mas_id = 5 Order By J.job_id Descending Select New With {J.job_id}
this my query. in this I would like construct the query on runtime for where condition.
sometime need to include some other fields to where condition.
I need help.
Thanks in advance.
Have A Nice Day!
Murali.M
Blog
|
|
|
|
|
Try chaining the Where clauses:
Dim query As IQueryable(Of Job) = QryGen.co_jobs
If filterById Then
query = From J in query Where J.co_id = 1013 Select J
End If
If filterByIndustry Then
query = From J in query Where J.industry_mas_id = 5 Select J
End If
Dim job As IQueryable(Of Job) = From J in query Order By J.job_id Descending Select New With { J.job_id }
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
can any one help how to license my application both offline and online... And i want to know for offline where will be the registration keys stored
|
|
|
|
|
zuber ahmed wrote: can any one help how to license my application both offline and online
Only if you intend to write one and get stuck. If you're looking for some ready-to-go code that implements said functionality, I'd recommend Google.
zuber ahmed wrote: And i want to know for offline where will be the registration keys stored
If you're going to write it, then you decide where they go. There's however no place where the user cannot look if he/she has administrative rights. Whatever you access locally, my debugger will know.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
|
You're asking about very specific functionality on a 3rd-arty library and hardware setup. Your single best source of information is going to be Logitec's forums.
The chances of anyone here who has done any work on the G keyboards seeing your post is extremely low.
You go where the highest concentration of people using the library are going.
|
|
|
|
|
I know dave.
But on the other forum no luck so far.
But I wait. You never know 
Jan
|
|
|
|
|
how to validation perfect with security in vb.net?
|
|
|
|
|
Your question is unanswerable because it's so vague and broad in scope.
You may want to narrow this down to what you're trying to do and in what kind of application: Windows Forms, WPF, ASP.NET, MVC, ...
|
|
|
|
|
What?
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
I'm a beginner at programming, so please bear with me as I explain what I would like to achieve.
I'm writing a very simple program using VB Express 2008. The program will simplify a CD burning process for an audio project that I'm working on. Basically, clicking a button on my form will start the command line version of the program CDBurnerXP[^]. A list of the command line arguments for CDBurnerXP can be found here[^].
I realize I could do this with a simple script, however I would like to do this from within a VB program because additional capabilities will be added to the program.
Here is the click event code for the Burn CD Button on my form:
Private Sub ButtonBurnCD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBurnCD.Click
Dim p As New ProcessStartInfo
p.FileName = "C:\Program Files (x86)\CDBurnerXP\cdbxpcmd.exe"
p.Arguments = "--burn-audio" & "-device0" & "-tao" & "-close" & "-file:"C:\Users\Account\Desktop\FolderX\audio.mp3""
Process.Start(p)
End Sub
Theoretically, this should burn the audio.mp3 file to cd. Unfortunately, all that happens is that the Command Prompt window briefly comes up with the name of the CD drive (i.e., the name of device0). I have checked that I'm using the right arguments by typing the following at the Command Prompt:
"C:\Program Files (x86)\CDBurnerXP\cdbxpcmd.exe" --burn-audio -device0 -tao -file:"C:\Users\Account\Desktop\FolderX\audio.mp3"
This does work, and the file gets burned to CD.
I'm pretty sure the problem lies in the p.Arguments line, but I'm not sure what I'm doing wrong. Any ideas?
|
|
|
|
|
Not toally sure, but why concatenate your p.Arguments line with lots of small strings joined with & ? As it is, when joined you have not allowed for any whitespace, so you will be passing all the paramters joined together, as
--burn-audio-device0-tao-file:"C:\Users\Account\Desktop\FolderX\audio.mp3
which will no doubt error.
Just write it as one long string, with spaces
|
|
|
|
|
Wombaticus, thanks for the reply. That was indeed the problem!
|
|
|
|
|
I inserted CHR(34) into the string to cause a quote to be inserted into the p.Arguments string.
p.Arguments = "--burn -audio -device0 -tao -close -file:" & _
CHR(34) & "C:\Users\Account\Desktop\FolderX\audio.mp3" & CHR(34)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
