Visual Basic

Re: Traffic Monitoring System

22-Jul-07 11:54

Christian Graus wrote:
I'm betting on #2.

I would have to say. In a database course our project years ago was a driving school database/app. It was okay, quickly learned how to normalize databases :->

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

Paul Conrad22-Jul-07 10:30

22-Jul-07 10:30

Jshuwa wrote:
Please help me with the codes.

Nope, I don't have the time and you don't have the money to pay me.

Jshuwa wrote:
How can i develop a traffic monitoring system.

Start by doing requirements gathering, draw fancy-schmancy UML diagrams, etc. Then, starting coding away Poke tongue | ;-P

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

Car Rental System

Jshuwa21-Jul-07 16:36

Jshuwa

21-Jul-07 16:36

How can i create or develop a car rental system using VB6. Thanks for your help.

Psycho-^*Coder*-Extreme21-Jul-07 17:23

Psycho-^*Coder*-Extreme

21-Jul-07 17:23

The best help I can offer is located here[^]

"Okay, I give up: which is NOT a real programming language????"
Michael Bergman

Christian Graus22-Jul-07 10:29

Christian Graus

22-Jul-07 10:29

VB6 is a dead language. I would recommend finding a course that teaches .NET languages instead.

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Paul Conrad22-Jul-07 10:33

22-Jul-07 10:33

See my response to your Traffic Monitoring System thread.

Jshuwa wrote:
using VB6

Why? VB6 is terrible. Use C# or C++, it is better for your resume and professional development Smile | :)

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

Christian Graus22-Jul-07 11:30

Christian Graus

22-Jul-07 11:30

What's more important is that VB6 is a dead language. I don't care if people use VB.NET, much as I hate it, it suits some people. But, VB6 support is long over, I doubt there are any new projects starting in VB6, aside from small projects where this is done entirely because of limitations in the people available to do it.

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Paul Conrad22-Jul-07 11:43

Messages stuck in Outlook 2003 outbox

22-Jul-07 11:43

Christian Graus wrote:
I don't care if people use VB.NET

It is an okay language for the curly-cue-phobics Laugh | :laugh:

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

dBrong21-Jul-07 16:17

dBrong

21-Jul-07 16:17

I am sending emails through Outlook 2003. The problem I'm having is that the message goes into the outbox, but if the user's outlook isn't open, the message just stays in the outbox. Can I some how siently start outlook, and 'send/receive' all?

Dim OutlookApplication As New Microsoft.Office.Interop.Outlook.Application
Dim OutLookMailItem As Microsoft.Office.Interop.Outlook.MailItem
Dim imailitem As Int32 = Microsoft.Office.Interop.Outlook.OlItemType.olMailItem
OutLookMailItem = CType(OutlookApplication.CreateItem(imailitem), Microsoft.Office.Interop.Outlook.MailItem)

'Set To and Subject of the email.

OutLookMailItem.Subject = cSubject
OutLookMailItem.Attachments.Add(Me.emailDirPath + fname + cExtension)

'Display MailItem and let them fill in the rest!
'
' make it modal
'
Me.Cursor = Cursors.Default

OutLookMailItem.Display(True)

Re: Messages stuck in Outlook 2003 outbox

Paul Conrad29-Jul-07 19:50

Re: Messages stuck in Outlook 2003 outbox

29-Jul-07 19:50

Have you figured this out, or are you still having trouble with it?

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

dBrong5-Aug-07 6:28

dBrong

5-Aug-07 6:28

I found the answer:

Dim oApp As Microsoft.Office.Interop.Outlook._Application = New Microsoft.Office.Interop.Outlook.Application
Dim oNS As Microsoft.Office.Interop.Outlook._NameSpace = oApp.GetNamespace("mapi")
Dim oSyncs As Microsoft.Office.Interop.Outlook.SyncObjects
Dim oSync As Microsoft.Office.Interop.Outlook.SyncObject

Try
' Reference SyncObjects.
oSyncs = oNS.SyncObjects
oSync = oSyncs.Item("All Accounts")
' Send and receive.
oSync.Start()
Catch ex As Exception
MessageBox.Show("oSync Error: " + ex.Message, "Error Sending Email From Outlook")
End Try
' Clean up.
oSync = Nothing
oSyncs = Nothing
oNS = Nothing
oApp = Nothing

Work with CDS/Isis ISIS32.dll

Gasp2321-Jul-07 12:22

Gasp23

21-Jul-07 12:22

Any one here has work with the isis32.dll for the CDS/ISIS language, i have to wright a vb code with that and have same problems with one function IsisRecControlMap. that has a structure call IsisRecControl.

Thank's

Gasp

Re: Work with CDS/Isis ISIS32.dll

Dave Kreskowiak22-Jul-07 4:41

Programically Changing the Color Depth of the monitor

22-Jul-07 4:41

Never heard of it. It's also VERY unlikely you'll find anyone here who has used the library you're talking about. You'd be better off looking for a support board dedicated to the library in question.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Darshon21-Jul-07 11:09

Darshon

21-Jul-07 11:09

Hi,

I'm trying to change the color depth of the user's monitor upon my app starting. I can't seem to find anything on the subject. I'm coding in 1.1 VB.Net framework. Any help would be great.

Thanks

Re: Programically Changing the Color Depth of the monitor

Dave Kreskowiak21-Jul-07 12:19

Re: Programically Changing the Color Depth of the monitor

21-Jul-07 12:19

First, your app, since it's running on a shared system with other applications, should NEVER change system-wide settings like this.

Second, why do you want to do this?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Luc Pattyn21-Jul-07 13:47

Luc Pattyn

21-Jul-07 13:47

If you want to persist anyway, get prepared for some P/Invoking.
There isnt a function SetDisplayColorDepth() or so; instead you need access to the following
Win32 functions (below is C# syntax):

[DllImport("user32.dll")]
public static extern int EnumDisplaySettings (string deviceName, 
	int modeNum, ref DEVMODE1 devMode );
      
[DllImport("user32.dll")]
public static extern int ChangeDisplaySettings(ref DEVMODE1 devMode, int flags);

for which you also would need a number of constants and the DEVMODE1 struct; then add
some C# or VB code to obtain the supported settings, find the one you want, and set it.

If you havent done P/Invoke before, dont bother. Try something simpler first.

Smile | :)

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

How to work with multiple dataset tables

HinJinShah21-Jul-07 9:31

HinJinShah

21-Jul-07 9:31

Hi,
I wonder if its possible to query the tables in a dataset same as we do with the database tables!
I have loaded my dataset with almost 10 tables and now want to extract data from four of those tables to display everything in a datagrid!
But i couldn't find a way as how easily it can be done?
In other words i was just trying to avoid the SQL JOINS ... Smile | :)

so i opted for dataset manipulations..

any help in this regard will be appreciated!!!

Thanks

Re: How to work with multiple dataset tables

Dave Kreskowiak22-Jul-07 4:39

Re: How to work with multiple dataset tables

22-Jul-07 4:39

Well, if you wanted to do it the same way as you would from SQL, you'd STILL be using the JOIN's. But since you can't do it using the same SQL syntax, no.

What's so hard about learning the JOIN clause anyway? Just learn it and get it overwith. You'll need it in the future and it's much easier than the way you want to do it now, so why wait?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

HinJinShah22-Jul-07 7:36

HinJinShah

22-Jul-07 7:36

Yeah thanks for the good advice and i have already started working with JOINs somehow .. But still are there any ways to filter data from two or more tables of a dataset using some criteria?
Also, when i have populated my datagrid with three or more tables how can i update data in all three if some changes occur in datagrid?

thanks

Save changes to database after loading .

KOKEMO21-Jul-07 4:47

KOKEMO

21-Jul-07 4:47

My problem is that in the program that I am writing I cannot save the changes to database after I load the tables from it.

Dim connstr As String = "provider=microsoft.jet.oledb.4.0;" & _
" DATA SOURCE = megas.mdb"
Dim sqlstr As String = " select * from megas "
Dim dtb As New DataTable
‘--------------------------------------------------------------
Private Sub btnload_Click(…) Handles btnload.Click
dtb.Clear()

Dim dataadapter As New OleDb.OleDbDataAdapter(sqlstr, connstr)
dataadapter.Fill(dtb)
dataadapter.Dispose()

dgdisplay1.DataSource = dtb
End Sub

‘-----------------------------------------------------------------
Private Sub btnsave_Click (…) Handles btnsave.Click
Dim changes As Integer
Dim dataadapter As New OleDb.OleDbDataAdapter(sqlstr, connstr)
Dim commandbuilder As New OleDb.OleDbCommandBuilder(dataadapter)
changes = dataadapter.Update(dtb)
dataadapter.Dispose()
If changes > 0 Then
MsgBox("SAVED ")
Else
MsgBox("not saved")

End If
End Sub

I load the table form the database and nothing goes wrong with this part, but when I want to save the changes and I click the save btn , that is what I get
“An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll “

What am I doing wrong? And why should I be getting this?

Thank you.

• Thanks for the previous help from Dave Kreskowiak and Naji Kotob +mackay, it really helped, especially that article.

|-|■~F~|-|■

Re: Save changes to database after loading .

cutequencher21-Jul-07 6:31

cutequencher

21-Jul-07 6:31

The OleDb.OleDbException class is created whenever the .NET Framework Data Provider for OLE DB encounters an error generated from the server. (Client side errors are thrown as standard common language runtime exceptions.) OleDbException always contains at least one instance of OleDbError. -an explanation from msdn

--the most common cause of this is because of a missing data source

as what is written on your code:
Dim connstr As String = "provider=microsoft.jet.oledb.4.0;" & _
" DATA SOURCE = megas.mdb"

the "DATA SOURCE" should be replaced by "DataSource"(no spaces)
and make sure that megas.mdb is properly installed on the odbc connection.

Re: Save changes to database after loading .

Luc Pattyn21-Jul-07 6:37

Luc Pattyn

21-Jul-07 6:37

Hi,

general exceptions (I guess OleDbException qualifies) often contain an "internal exception".
You wont see it if you just look at Exception.Message, but you would see it
when looking at Exception.ToString() so I recommend everyone to always log or display
Exception.ToString(); it is longer by the fact that it provides more information.

I am not sure but expect this to apply to your situation too.

Smile | :)

Luc Pattyn

try { [Search CP Articles] [Search CP Forums] [Forum Guidelines] [My Articles] }
catch { [Google] }

Retrieve Sources() from NTEventlogFiles

jontyler21-Jul-07 4:23

jontyler

21-Jul-07 4:23

I am trying to figure out how to retrieve the Event Sources from an event log using WMI. I am using the list to populate a combobox in the main program. I am including the function that I am using to return a comma-separated list of sources that will be put into an array to add to the combo-box ItemRange property. (I realize there may be a better way to do that part, but I am new to this and any constructive criticism will be appreciated.)

When I run the program, the error is that the Strings.Len(arrSourceNames) must be greater than 0. I can't figure out why the "sources()" property from WMI is not populating.

I have used this code on another function to grab the list of Event Logs (application, system, etc) that are available on the computer (with some modifications, of course). It works in that capacity. I think the problem lies somewhere in pulling the array of sources from the WMI query.

Here is the code...

Private Function GetEventSources(ByVal _computerName As String, ByVal _logFile As String) As String<br />
        Dim arrSourceNames As String = ""<br />
<br />
        If _computerName <> My.Computer.Name.ToString Then<br />
            Dim wmiScope As New ManagementScope("\\" & _computerName & "\root\cimv2")<br />
            wmiScope.Connect()<br />
<br />
            Dim wmiQuery As New ObjectQuery("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName = '" & _logFile & "'")<br />
            Dim searcher As New ManagementObjectSearcher(wmiScope, wmiQuery)<br />
            Dim queryCollection As ManagementObjectCollection = searcher.Get()<br />
            For Each m As ManagementObject In queryCollection<br />
                For Each source As String In m("Sources()")<br />
                    arrSourceNames = arrSourceNames & source & ","<br />
                Next<br />
            Next<br />
        Else<br />
            Dim wmiQuery As New ObjectQuery("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName = '" & _logFile & "'")<br />
            Dim searcher As New ManagementObjectSearcher(wmiQuery)<br />
            Dim queryCollection As ManagementObjectCollection = searcher.Get()<br />
            For Each m As ManagementObject In queryCollection<br />
                For Each source As String In m("Sources()")<br />
                    arrSourceNames = arrSourceNames & source & ","<br />
                Next<br />
            Next<br />
            <br />
        End If<br />
<br />
        Return Strings.Left(arrSourceNames, Strings.Len(arrSourceNames) - 1)<br />
<br />
    End Function

Any help to figure this out will be appreciated greatly.

Jonathan Tyler

Re: Retrieve Sources() from NTEventlogFiles

Dave Kreskowiak22-Jul-07 4:36