Visual Basic

ToddHileHoffer13-Jul-05 8:15

ToddHileHoffer

13-Jul-05 8:15

are you using application items?

"People who never make mistakes, never do anything."

My blog
http://toddsnotsoamazinglife.blogspot.com/

jimbodenny13-Jul-05 11:50

jimbodenny

13-Jul-05 11:50

I am not using any that I am aware of

Dave Kreskowiak14-Jul-05 3:39

14-Jul-05 3:39

What do you mean by "the data is going to multiple pages"?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

jimbodenny14-Jul-05 7:36

jimbodenny

14-Jul-05 7:36

The data is going to multiple records in the access database if there are more than one person entering data at the same time.

Accessing VB6.0 Resource Editor at runtime

jimbodenny14-Jul-05 7:37

jimbodenny

14-Jul-05 7:37

could it be a problem with my datasets

Rudy Schramm13-Jul-05 7:31

Rudy Schramm

13-Jul-05 7:31

I was wondering if I could insert a file into resource (.RES) file during runtime instead of inserting a file using resource editor at design time. Could anyone help me with this information ? Thanks in advance.

rudysup

Re: Accessing VB6.0 Resource Editor at runtime

Dave Kreskowiak13-Jul-05 9:02

I could not load the data in CrystalReport

13-Jul-05 9:02

No, you can't.

Since the resources are compiled into the target .EXE at compile time, any changes you make to the file won't be reflected in the target .EXE until you recompile it.

The resource editor is part of the Visual Studio IDE and is not available to your .EXE at runtime. That is, unless your making a Visual Studio add-in...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Jeeva Jose13-Jul-05 6:46

Jeeva Jose

13-Jul-05 6:46

This is the source code Unsure | :~

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Imports System.Data

Private str_connection As String = "workstation id=""MAX-IT10Q0"";packet size=4096;integrated security=SSPI;initia" & _
"l catalog=Addressbook;persist security info=False"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cnsql As SqlConnection
Dim load_dataset As New DataSet
Dim rpt As ReportDocument
Dim str_query As String
rpt = New ReportDocument
rpt.Load("..\CrystalReport2.rpt")

cnsql = New SqlConnection(str_connection)
cnsql.Open()
str_query = "select name,Address from tb_abook"
Dim load_adapter As New SqlDataAdapter(str_query, cnsql)
load_adapter.Fill(load_dataset, "tb_abook")

rpt.SetDataSource(load_dataset)
CrystalReportViewer1.ReportSource = rpt

End Sub

The report is loading properly but data is nothing no error message

Report :Crystelreport 9.0
Os: XP
visual studio.net 2003

Continue...

Calling User Defined Function

samoore13-Jul-05 5:58

samoore

13-Jul-05 5:58

I am not sure I am calling this user defined function correctly. I have set the variable ID equal to the value from a drop down list and am trying to pass the variable to the user defined function.

Dim id As String

id = ddlDriver.SelectedValue.ToString

Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim dn As DataSet = New DataSet
Dim da As SqlDataAdapter = New SqlDataAdapter

conn = New SqlConnection(server information)
cmd = conn.CreateCommand()
cmd.CommandText = "dbo.get_tractor'" + id + "'"
da.SelectCommand = cmd
da.Fill(dn, "tractor")

I keep getting an error and have checked the dataset through the quickwatch and it always comes back null.

Scott Moore

ToddHileHoffer13-Jul-05 6:08

ToddHileHoffer

13-Jul-05 6:08

cmd.commandtext = "select dbo.get_tractor('" & id & "')"

"People who never make mistakes, never do anything."

My blog
http://toddsnotsoamazinglife.blogspot.com/

samoore13-Jul-05 6:10

samoore

13-Jul-05 6:10

Thank you!

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

Colin Angus Mackay13-Jul-05 23:55

Colin Angus Mackay

13-Jul-05 23:55

Be careful with this solution as it is based on your original code and does not fix the security holes that were present. Injecting values into a SQL statement opens up the database to attack. Parameterised queries should be used in preference to injecting values into the SQL command. See SQL Injection Attacks and Tips on How to Prevent Them[^]

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

Colin Angus Mackay13-Jul-05 23:50

Colin Angus Mackay

13-Jul-05 23:50

However, this solution opens up the database to attack. Parameterised queries should be used in preference to injecting values into the SQL command. See SQL Injection Attacks and Tips on How to Prevent Them[^]

Code sample for file & folder search

JimClark6813-Jul-05 4:54

JimClark68

13-Jul-05 4:54

I just need some help on how to build a file & folder finder (any).
I want to use a textbox, a button and a msgbox to display the findings.
I can find files by using " exists " and hard code path, but I'd like to do it
differently, like more user friendly, like typing the file name (any file) in the textbox and then
clicking the " find " button.
I'd know how to use the system.io namespace for file & folder manipulation, but i do not know how
to combine both.
Like how can you type a file name in a textbox, and get the location of that file?
Is that possible?

Re: Code sample for file & folder search

malharone13-Jul-05 5:58

malharone

13-Jul-05 5:58

Recursion is your friend my friend!!
http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/Q_20800867.html[^]
Refer to my post at 11/19/2003 09:53AM PST.

Re: Code sample for file & folder search

JimClark6813-Jul-05 7:44

JimClark68

13-Jul-05 7:44

Thank you, thank you.
I had been working on this thing for at least 2 weeks. It would had been more without your help!!.
Thank you, again.

It is like... learning a new language.

Visibility of a Dataset

dptalt13-Jul-05 4:41

dptalt

13-Jul-05 4:41

I created a dataset in form1. A button on form1 calls form2. How can I get access to the dataset on form1 while in form2? Thanks for any help provided?

Re: Visibility of a Dataset

Dave Kreskowiak13-Jul-05 4:43

Read and Write Binary values to registry

13-Jul-05 4:43

Read this[^]. It's alittle bit on the VB6 to .NET upgrade, but it also shows you how to pass data between forms.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

andyr200513-Jul-05 4:36

13-Jul-05 4:36

I am currently trying to read binary values from the windows registry, with the requirement to compare and set a specific option in my program. I have tried using the following: Imports Microsoft.Win32, but have so far failed to read or write binary to the registry. If any one has code or knows how this is possible, your help would be much appreciated.

Dave Kreskowiak13-Jul-05 4:41

13-Jul-05 4:41

Got a sample of the code your using? Also, what's the registry data type you're trying to read and under what key?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

andyr200513-Jul-05 6:10

13-Jul-05 6:10

k, at the moment i dont have sample code to read and write binary, thats what i need. However this is the key im trying to use

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Video\{3A293CEE-EFF6-475C-9F1F-730951135E97}\0000

This stores entries for the settings for the NVIDI Gfx settings which im making a tweak tool for, and cant read most of the values as they are binary.

Any help would be appreciated. I can get this working in VB6, but however would rather use .NET as I am able to add Navigation bars and office style buttons.

Dave Kreskowiak13-Jul-05 8:57

13-Jul-05 8:57

First, yoiu should be opening CurrentControlSet, not ControlSet001.

Dim rk As RegistryKey
rk = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Video\{yada yada yada}\000")
Dim data as Byte() = rk.GetValue("ValueName")

Will return whatever the data for ValueName is in the registry. If you have to return the default value (unnamed) for a key, just use:

Dim data as Byte() = rk.GetValue("")

I think you can figure out how to write the data back.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

andyr200523-Jul-05 8:30

23-Jul-05 8:30

Thanks for the reply Dave Kreskowiak, however, this does not work.

What I need to do is read a value from the registry, which may be:

01 00 00 10, then I need that to go to a variable, which I then need to check and change a picturebox.image and listbox.selectedindex, depending on what the value is. Also need to write a specific binary value back to the registry, if the user changes the setting.

The above method just won't work and I'm unsure why.

Dave Kreskowiak23-Jul-05 10:48

23-Jul-05 10:48

I have no idea what your doing wrong because "just doesn't work" doesn't explain what's going on. Does it return Nothing when you call OpenSubKey? If so, then you have the registry path wrong.

This works perfectly on mine:

Dim rk As RegistryKey
rk = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Video\{3BAC59C8-BD30-404A-9093-F454D23FF17F}\0000")
Dim data As Byte() = rk.GetValue("_Wow.exe:D3DOGL_67207556")

It returns the 4 byte value array of 0x01 0x00 0x00 0x08.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

andyr200524-Jul-05 6:55