Visual Basic

Re: SQL Security for your VB apps

15-Sep-07 9:37

Dave Kreskowiak wrote:
Imagine making just one little mistake where noone can login!

Yep. That'd be a big oops for the day :->

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

Dave Kreskowiak15-Sep-07 11:26

Re: SQL Security for your VB apps

15-Sep-07 11:26

I know, from first hand experience. Whoops! :->

A guide to posting questions on CodeProject[^]

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

Paul Conrad15-Sep-07 6:24

Removing items from listview .... problem

15-Sep-07 6:24

Dave Kreskowiak wrote:
Mark Cabbage wrote:
I think the SA password idea sounds simplier,

And would get you fired, on the spot, in any real job.

I already mentioned this is a cross post of his. I kind of got snapped at about Active Directory and he didn't even mention using it.

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

RaveRare14-Sep-07 19:55

RaveRare

14-Sep-07 19:55

Dear friends,

I have a problem that i want to depackage a computer package.

Situation is as under.

i have following tables

1. Casing (CasingID, Model, Status, Notes)
2. Motherboard (MotherboardID, Model, Status, Notes)
3. Keyboard (KeyboardID, Model, Status, Notes)
4. Mouse (MouseID, Model, Status, Notes)
5. Status (StatusID, Status)
(values) 1, Packaged
2, Available
3, Damaged
etc.etc.etc....

6. Package (CasingID, MotherboardID, KeyboardID, MouseID)

now i have a form (PACKAGE FORM) on which there is a listview with following columns

ITEMID ITEM-TYPE SPECS
1 Keyborad multimedia...
2 Motherboard 16-bit architecture...
3 Mouse wirless....
4 Keyboard non multimedia...
5 Casing ATX power supply...

OK, now try to understand care fully that before saving a package, A function (i have written to change the status which checks every time in the packge) moves table to table and changes the status of items to "PACKAGED". this function is working properly.

Problem is that when i reload the package to remove some items from the package

then how i can keep in mind that what items are removed from the package because i have to again change their status to "AVAILABLE"

i have two solutions already with me

1. when ever i remove some item from listview, then immediately change the status in the reference table

2. Add an array to the project which save my removed items and in the end a fuction should go to all the reference tables to change the status

have you any other shortest solution for that.... please

Need help on my Thesis...

Holy Orders14-Sep-07 17:56

Holy Orders

14-Sep-07 17:56

Guys, I badly need your help on this. My thesis drives me nuts with this program. I have encountered a few here and there errors with our proposed system. I'll be enumerating them here. I really need help here, since the pre-defense will be on the 28th of the month...

BTW, just for info, I am a ComSci student
My program is on SQL coding and uses VB .NET 2003
As for database, I use Microsoft Access

Errors
* When I try to add user information, I generate this error
Data type mismatch in criteria expression
Simply put, it's when I try to add values to the database for student
information like student number, last name, course, etc.

* I see this error when I code this
Dim f3dg1 as List
Well, the f3dg1 is user defined, i just referred to it as mnemonics to form3
which has a datagrid. What the error in here is the keyword List, which VB "doesn't seem to recognize"

* Ok, here's the last. Here is the program segment for my datagrid.
I can't display column headers in my datagrid (gave me countless sleepless nights... duh) which is why my query (well, actually just a masterlist) don't work.

Try
Dim f As New List
Dim ja As OleDbDataAdapter
Dim ds As DataSet
Dim dv As DataView
Dim dg As New DataGrid
Dim str As String
Dim t As New DataGridTableStyle
Dim d As DataRow
Dim f3dgc1 As DataGridTextBoxColumn
Dim f3dgc2 As DataGridTextBoxColumn
Dim f3dgc3 As DataGridTextBoxColumn

f.f3p1.Controls.Clear()
f.f3p1.Controls.Add(dg)
openconn()
str = "Select * from books"
f.show()
ja = New OleDbDataAdapter(str, dbconn)
f.f3p1.controls.add(dg)
dg.Height = 584
dg.Width = 320
ds = New DataSet
ds.Clear()
ja.Fill(ds, "books")
dg.TableStyles.Add(t)
t.MappingName = "books"

f3dgc1.MappingName = "bookid"
f3dgc1.HeaderText = "Book ID"
f3dgc1.Width = "100"
f3dgc2.MappingName = "bname"
f3dgc2.HeaderText = "Book Name"
f3dgc2.Width = "300"
f3dgc3.MappingName = "aname"
f3dgc3.HeaderText = "Author Name"
f3dgc3.Width = "200"

If Me.BindingContext(ds, "books").Count > 0 Then
With dg
.Dock = DockStyle.Fill
.DataSource = ds
.DataMember = "books"
.Refresh()
End With
Else
f.close()
dg.Visible = False
MsgBox("no record found", MsgBoxStyle.Exclamation)
End If
dg.Refresh()
dg.DataSource = ds
dg.DataMember = "books"
dg.ReadOnly = True
closeconn()
Catch ex As Exception
MsgBox(ex.Message)
End Try

I can send you the program as a whole if you want, if these confuses you.
Please, I don't want to see a grade of 5.0 on my thesis subject Frown | :(

Hoping for quick responses.

Loose Lips Sink Ships

Paul Conrad14-Sep-07 18:57

14-Sep-07 18:57

Ask your advisor at school, that is what they are supposed to be there for.

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

Holy Orders14-Sep-07 19:01

Holy Orders

14-Sep-07 19:01

well of course, i've been consulting them, i just wanted to see if I can acquire any help I can get here...

Paul Conrad14-Sep-07 19:11

14-Sep-07 19:11

Holy Orders wrote:
Data type mismatch in criteria expression
Simply put, it's when I try to add values to the database for student
information like student number, last name, course, etc.

What data is the database expecting and what are you trying to put in there. You may want to show the database table structure along with your code you provided Big Grin | :-D

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

Dave Kreskowiak15-Sep-07 2:53

15-Sep-07 2:53

You've got a ton of problems with this code. I'd rewrite it to simplify it, but you have to do it yourself. If anyone else rewrote the code and you turned it in, the coding style would suddenly change and you'd get put under a microscope for cheating.

Holy Orders wrote:
* When I try to add user information, I generate this error
Data type mismatch in criteria expression
Simply put, it's when I try to add values to the database for student
information like student number, last name, course, etc.

We can't answer this question because you've supplied no information on the structure of the database or the code that is used to add this to the database. From the error, you tried to do something like put a number into a field expecting a string of characters.

Holy Orders wrote:
* I see this error when I code this
Dim f3dg1 as List
Well, the f3dg1 is user defined, i just referred to it as mnemonics to form3
which has a datagrid. What the error in here is the keyword List, which VB "doesn't seem to recognize"

What is "List"?? From your code, "List" better be the name of a form you created in your project. It's also a very bad name to use because in .NET 2.0 (VS 2005), List is now a collection class.

Holy Orders wrote:
* Ok, here's the last. Here is the program segment for my datagrid.
I can't display column headers in my datagrid (gave me countless sleepless nights... duh) which is why my query (well, actually just a masterlist) don't work.

You do NOT have to create three seperate variables for TextBoxColumns. You would actually be better off putting in the code to setup the DGV in a seperate method. And your current variable names suck, badly. A CompSci student writing a thesis paper should already know the meaning of 'self documenting code' and how it applies to variable names.

A guide to posting questions on CodeProject[^]

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

Paul Conrad15-Sep-07 3:46

15-Sep-07 3:46

Dave Kreskowiak wrote:
We can't answer this question because you've supplied no information on the structure of the database

Which is what I asked last night and no reply, so no help until then :->

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

Dave Kreskowiak15-Sep-07 6:04

15-Sep-07 6:04

Yeah, I thought the more people that bring that up, the greater the chance of it sinking in...

A guide to posting questions on CodeProject[^]

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

Paul Conrad15-Sep-07 6:23

how to upload the picture file into report file (.rpt) with VB6 and Crystal Report 9.2

15-Sep-07 6:23

Dave Kreskowiak wrote:
the more people that bring that up, the greater the chance of it sinking in..

Yep.

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

mctramp16814-Sep-07 17:48

mctramp168

14-Sep-07 17:48

I want to use Crystal Report9.2 to create a test.rpt,and test.rpt contains a picture in the detail section, but the picture field is only stored the file path in the SQL server, I do not how to create this test.rpt, and after creating it how to call the test.rpt in vb6.0?

Many Thanks!

Record Audio From Microphone

Indra PR14-Sep-07 15:45

Indra PR

14-Sep-07 15:45

(1) - Record Audio
I want to make an audio recorder. It can record from microphone input, all sound from the computer, part of it (wave only, cd audio only, or line-in only). How can I do that.

(2) - Read Current Audio Volume
Is there some ways to read the volume of the audio mixer, since i want to make something using progress bar that detect current volume of my pc. Anyone can help me?

Thanks

- No Signature Available -

Re: Record Audio From Microphone

JamesS[C1]25-Sep-07 3:49

JamesS[C1]

25-Sep-07 3:49

Hello,

You may use the following VB Script to record audio:

Dim rec
Set rec = CreateObject("AudioCtl.AudioRecord.1")

'Select sound device 0
rec.DeviceIndex = 0

'Set output file
rec.SetOutputFileName "1.mp3"

'Start record with given parameters, record mp3 audio
rec.StartRecord 2, 11025

'Record for 10 secs
WScript.Sleep 10000

'Stop Record
rec.StopRecord

Thanks,
James

James Smith
www.componentone.com

Re: Record Audio From Microphone

Eddy Vluggen6-Nov-09 8:13

Eddy Vluggen

6-Nov-09 8:13

Hi,

I thought you might be interested in this[^] article, from the Coding4Fun blog Smile | :)

I are Troll Suspicious | :suss:

Get Computer Name Using VB6

Widgets14-Sep-07 15:05

Widgets

14-Sep-07 15:05

Guys how can i get my computer name using visual basic 6.. thnkz..

Re: Get Computer Name Using VB6

nitin314-Sep-07 19:46

nitin3

14-Sep-07 19:46

use this api

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Re: Get Computer Name Using VB6

Dave Kreskowiak15-Sep-07 2:34

The meaning of the # in VB

15-Sep-07 2:34

Or you can use the Windows Scripting Host to get it.

Dim WshNetwork As Object
Set WshNetwork = CreateObject("WScript.WshNetwork")
MsgBox WshNetwork.ComputerName

A guide to posting questions on CodeProject[^]

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

Andy20214-Sep-07 11:16

Andy202

14-Sep-07 11:16

I did try and search for a meaning, but what does the # do on statements like:-

V = 10000#

Andy.

Re: The meaning of the # in VB

Dave Kreskowiak14-Sep-07 12:45

Re: The meaning of the # in VB

14-Sep-07 12:45

The appended character specifies that the literal value should be treated as a certain datatype instead of the type that's infered by the number. For example, 10000# says that the number should be treated as a Double type instead of an Integer. 10000@ should be treated as a Decimal type. The documentation on it (VB.NET) is here[^].

A guide to posting questions on CodeProject[^]

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

Dave Doknjas14-Sep-07 13:46

Dave Doknjas

14-Sep-07 13:46

This is one of the older style type suffix characters (e.g., #, $, %,...).
You can still even declare variables without specifying a type with these (e.g., Dim myDouble# - not recommended though). This is outdated syntax that should be purged from the language.

I would recommend using the newer type suffix 'R' for this case. ('R' for double literals, 'D' for decimal literals, 'S' for short literals, 'I' for integer literals, 'UI' for unsigned integer, and 'US' for unsigned short).

David Anton
http://www.tangiblesoftwaresolutions.com
Instant C#: VB to C# converter
Instant VB: C# to VB converter
C++ to C# Converter: converts C++ to C#
C++ to VB Converter: converts C++ to VB
C++ to Java Converter: converts C++ to Java
Instant C++: converts C# to C++/CLI and VB to C++/CLI

Rounding Question [modified]

Hags14-Sep-07 10:25

Hags

14-Sep-07 10:25

Within VB.Net 2003, I noticed a odd thing. When I try to round a decimal such as .805 to 2 places, I get .80. If I round a decimal such as .815 to 2 places, I get .82. Is there a reason that VB.net does this? Is there a way to get around this issue? Thanks for the help.

In some additional testing I have found that it appears that when the hundredths position is 0 or an even number it rounds down and when it is odd that it rounds up. This seems very odd and inconsistant to me. I hope that someone has the answer.

-- modified at 17:09 Friday 14th September, 2007

Re: Rounding Question

Dave Kreskowiak14-Sep-07 12:41