|
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)
|
|
|
|
|
Hello !
How to create a Torrent dowloader in VB.NET ?
please help me.
By Root
|
|
|
|
|
You're not going to get an answer to this question.
Asking such a vague and broad question usually gets ignored or responses like this:
Well, you start by doing research on the Torrent communication protocol and understanding precisely how it works. Then you lay out a set of requirements for your application.
|
|
|
|
|
You will have to write a lot of code.
Where are you stuck?
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
I created a windows service to monitor a directory and import any files that are created there. I can see from the eventviewer that the FileSystemWatcher must not be instantiated properly because it errors on the line where I try to assign the directory to be watched to the filesystemwatcher.
Imports System.IO
Imports System.Diagnostics
Public Class PPLabImportService
Private WithEvents _fsWatcher As FileSystemWatcher
Protected Overrides Sub OnStart(ByVal args() As String)
_fsWatcher = New FileSystemWatcher
Dim strDir As String =
System.Configuration.ConfigurationManager.AppSettings
("ImportDirPath")
_fsWatcher.Path = strDir
I have confirmed that strDir has a valid string value, but that last line always throws a nullException error as if it doesn't know what _fsWatcher is.
This code worked perfectly fine as a windows form app. It is only the windows service version that doesn't seem to work.
Could someone please point out the probably bonehead error I am making in declaring the FileSystemWatcher?
|
|
|
|
|
Here is what i have in my Service ...
You seem to have the same thing.
Maybe you can write your own detailed log to show your execution of the service.
Create a streamwriter which writes data to a "TEMP" folder.
Good luck.
Private Sub WatchForNewFiles()
Dim watcher As New FileSystemWatcher()
watcher.Path = gsWatcherPath
watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
watcher.Filter = "*." + gsWatcherExtension
AddHandler watcher.Created, AddressOf OnChanged
watcher.EnableRaisingEvents = True
End Sub
|
|
|
|
|
Hi David,
Thanks for responding. I have already logged each and every step to the eventviewer and that's why I'm positive that it's the last step shown which causes the error. That FileSystemWatcher is just nothing and therefore I can't assign the path to it.
The difference between your code and mine is that you declare the FileSystemWatcher as a local variable in your sub, whereas I declare it as a class variable and then try to instantiate it in the sub.
The reason I do this is because I want to be able to "close" the filesystemwatcher in the OnStop event. I found, when this was written as a windows form, that just closing the app without stopping the watcher caused all sorts of problems. So I wanted to be good about it as a service as well and dispose of it properly when/if the service stops so that it can be cleanly started again.
But somehow this declaration which works in the forms app throws an error in the service app.
Any ideas?
|
|
|
|
|
Could there be a threading issue? Try putting a lock around those lines of code.
Since you did not show the error message (just wrote down what you thought it is), it might be something totally different. E.g. the Windows service runs with a different account than your interactive user - and it might not be able to access the folder, because for the service it does not exist: e.g. a folder on a mapped network drive or a UNC path the service's account has no access rights for.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
