Visual Basic Discussion Boards

Re: Can anyone give me a sample data model of a flight reservation?

Estys12-Mar-12 2:19

Estys

12-Mar-12 2:19

Try DatabaseAnswers[^].
They have all kind of samples.

Cheers

ivo7510-Mar-12 10:52

ivo75

10-Mar-12 10:52

Hi I use wiaaut.dll to scan, but in some PC it's not work because it not register in PC. How I register this dll programatically and only one time?

Re: Register Wiaaut.dll

Dave Kreskowiak10-Mar-12 12:20

Dave Kreskowiak

10-Mar-12 12:20

You don't do it from your app code. This is a problem that's easily solved at install-time. Create an installer for your app, add the .DLL to it and the installer will register it for you.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Register Wiaaut.dll

ivo7511-Mar-12 4:39

ivo75

11-Mar-12 4:39

I use Smart Install Maker, are this installer make this? Are this dll is ActiveX, because in this installer have a ActiveX section

modified 11-Mar-12 11:10am.

Re: Register Wiaaut.dll

Dave Kreskowiak11-Mar-12 10:13

Dave Kreskowiak

11-Mar-12 10:13

Never heard of it. I have no idea.

.NET cannot target building a true ActiveX component. You've built a COM-exposed library. I have no idea if Smart Install Maker handles .NET assemblies properly and regsiters them. You'll have to contact the people that make Smart Install Maker for that.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Register Wiaaut.dll

ivo7511-Mar-12 10:37

ivo75

11-Mar-12 10:37

Yes Smart Install Maker register Wiaaut.dll and it work perfect Smile | :)

. THANKS

Re: Register Wiaaut.dll

YuanJianzhong25-Mar-12 15:09

YuanJianzhong

25-Mar-12 15:09

Shell "regsvr32 /s c:\windows\system32\Wiaaut.dll"

ExecuteScalar won't work?

Midnight Ahri9-Mar-12 14:32

Midnight Ahri

9-Mar-12 14:32

SQL

if db_id('DSX') is not null
Print 'DATABASE EXISTS'
else
Print 'DATABASE DOES NOT EXISTS'

This query result a normal text,
but when i use this,

Output = CStr(cmd.ExecuteScalar())

Output = Nothing

Am I wrong by using ExecuteScalar??
Thankyou before, Smile | :)

Re: ExecuteScalar won't work?

Dave Kreskowiak9-Mar-12 15:12

Dave Kreskowiak

9-Mar-12 15:12

ExecuteScalar returns the value in the first column of the first row of the result set. I don't believe SQL Print qualifies as the result set, so it should return nothing at all.

SQL Print messages are returned by the SqlConnection object, in the InfoMessage event.InfoMessage event[^].

But, in your case, I think you'd be better served by returning a 1 or a 0 in a result set instead of handling a text message to determine state.

Re: ExecuteScalar won't work?

Shameel10-Mar-12 17:47

Shameel

10-Mar-12 17:47

Replace the Print keyword with Select keyword and it should work.

Re: ExecuteScalar won't work?

Shameel11-Mar-12 19:32

Shameel

11-Mar-12 19:32

Would the gentleman who downvoted this answer own up and explain?

Setup DSN programmatically on the fly

KreativeKai9-Mar-12 8:03

KreativeKai

9-Mar-12 8:03

Hi all, Hope someone can help with this...
I wrote this code several years ago and it has worked great in XP. Our department is rolling out Windows 7 and the agency that uses the app I wrote are finally receiving their new Windows 7 systems.

One problem... code doesn't work any longer.

The code sets up a DSN entry on the fly. In XP, a standard user without any elevated rights could run the app and this code worked.

Now in Windows 7 when installing, I have the end user setup as local administrator and the app fails to Create the DSN. If I go in and right click on the "Click-Once" setup.exe and select "Run as administrator" it works. Also if I create a shortcut to the setup.exe and change the advanced settings to "Run as administrator" it also works from that shortcut.

If I use the icon created by the program from the "Start" menu or from the desktop, which doesn't have an option to "Run as administrator", even though the client is setup as local administrator, it kicks an error that it can't create the DSN. I can delete the DSN and see when it is created and when it can't and it coincides with the trials I've listed above.

Is there something I can put in code that allows it to work no matter if administrator or if a standard user, like it did in XP? Some google posts talk about UAC causing the problem, but just say they recommend to run as administrator.

I've searched google and code project, and most articles / posts seem to be from 2004 or around that time. We're using VS 2010... Is there a better way to creat the DSN's on the fly with VS 2010? Confused | :confused:

Here is the code

<br />
Public Declare Auto Function SQLConfigDataSource Lib "ODBCCP32.DLL" _<br />
(ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Integer<br />
<br />
Private Const ODBC_ADD_SYS_DSN As Integer = 4<br />
<br />
Friend Shared Sub Create_DSN_For_Crystal_Reports()<br />
  Try<br />
    Dim attributes As New System.Text.StringBuilder()<br />
    Dim returnCode As Integer<br />
<br />
    attributes.Append("DSN=CCPROD")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Server=CCPROD")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Description=DSN added via code from Beneficiary System")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Database=HrPr")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("AnsiNPW=Yes")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("QuotedId=Yes")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append("Trusted_Connection=Yes")<br />
    attributes.Append(Chr(0))<br />
    attributes.Append(Chr(0))<br />
<br />
    returnCode = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, "SQL Server", attributes.ToString)<br />
<br />
    If returnCode <> 1 Then<br />
      Throw New Exception("DSN could not be setup to allow Crystal Reports access - Contact Programming Staff")<br />
    End If<br />
  Catch ...     <br />
    ...<br />
  End Try<br />
End Sub<br />

Lost in the vast sea of .NET

Re: Setup DSN programmatically on the fly

Dave Kreskowiak9-Mar-12 15:09

Dave Kreskowiak

9-Mar-12 15:09

I really have to ask why you're even bothering with a DSN?? Do you know what a DSN is?? It's a connection string in a text file.

Since your code can use a connection string directly without the DSN, why are you even bothering with it?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Setup DSN programmatically on the fly

KreativeKai12-Mar-12 1:17

KreativeKai

12-Mar-12 1:17

The DSN is being setup for the Crystal reports that are initiated by the application.

Lost in the vast sea of .NET

Re: Setup DSN programmatically on the fly

Dave Kreskowiak12-Mar-12 5:02

Dave Kreskowiak

12-Mar-12 5:02

OK. Crystal Reports doesn't exactly require using a DSN either, but whatever.

By default, users on Vista and 7 run as normal users, even if they are Admin accounts. UAC will usually prompt for admin creds if an app requires admin level priv's.

Add a manifest to your application and modify it to require admin priv's when it runs. See this[^] for the full details.

Warning! If UAC is turned on on Vista and 7, every time your app runs, it will ask for the users credentials or at least warn them that the app will be running as an admin.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Setup DSN programmatically on the fly

KreativeKai12-Mar-12 7:26

KreativeKai

12-Mar-12 7:26

Thanks Dave!
This worked very well in Windows 7 without breaking the app for my XP clients.

I was looking at your profile. Congratulations on all the MVP awards over the years! I don't post much on Codeproject, just a couple questions and a few answers a year, but I believe you've probably answered most of my posts. I see you hit 9 years as of today, March 12th, Congratulations...

Thanks again for your help! Smile | :)

Lost in the vast sea of .NET

hisuka139-Mar-12 2:16

hisuka13

9-Mar-12 2:16

give some codes for audit trail in vb.net

Re: hi

Simon_Whale9-Mar-12 2:34

Simon_Whale

9-Mar-12 2:34

to audit what exactly?

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: hi

Dave Kreskowiak9-Mar-12 3:12

Dave Kreskowiak

9-Mar-12 3:12

No.

If you have a specific problem you're trying to solve with YOUR code, we can help with that. If you want someone to do work for you, like Google "vb.net audit trail examples" for you, you're on your own.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Making a programming language in VB

Member 83786918-Mar-12 22:29

Member 8378691

8-Mar-12 22:29

hey guys,

i am making a programming language in visual basic and i am stuck. i would like to add these things to it:

1. i would like to add if functions "if string1 = something {
enter code here
}"

2. i would like to add parameters such as what you saw in example 1 "{enter text here}"

3. i would also like to add classes "goto finnish" and it would execute code that is in the 'finnish' class

as i said, i am using visual basic 2010 and i am making it so when you press button1; it will execute code in textbox1. eg:

click button event
for each a as string in textbox1.text.split(system.environment.newline())
if a.contains("write ")
messagebox.show(a.substring(6))
end
end

Re: Making a programming language in VB

Simon_Whale8-Mar-12 22:44

Simon_Whale

8-Mar-12 22:44

have you made the compiler that will interpret this new language? or are you trying to add "helping" functionality to help you with projects?

have a read of this Create a language compiler[^]

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: Making a programming language in VB

Member 837869112-Mar-12 21:47

Member 8378691

12-Mar-12 21:47

i am not actually making a compiler, i am making an interpreter.

Re: Making a programming language in VB

Simon_Whale12-Mar-12 23:14

Simon_Whale

12-Mar-12 23:14

you will then need to look at how to make a parser as this will validate the code that you have entered

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Re: Making a programming language in VB

Bernhard Hiller9-Mar-12 2:26

Bernhard Hiller

9-Mar-12 2:26

Repost from Quick Answers. That's not good behavior.

Re: Making a programming language in VB

Bert Mitton9-Mar-12 7:40

Bert Mitton

9-Mar-12 7:40

When I need to do scripting I usually just use VB, and then use the VBCompiler to create the assembly.

Public Function CreateObject(ByVal code As String) As Object
    Dim vbCP As New VBCodeProvider
    Dim dir As String = System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory()
    Dim Options As New CompilerParameters
    Options.GenerateInMemory = True
    Dim cr As CompilerResults
    Options.ReferencedAssemblies.Add(dir + "System.Data.dll")
    Options.ReferencedAssemblies.Add(dir + "System.XML.dll")
    Options.ReferencedAssemblies.Add(dir + "System.Windows.Forms.dll")
    Options.ReferencedAssemblies.Add(dir + "System.Data.DataSetExtensions.dll")
    Options.ReferencedAssemblies.Add(dir + "Mscorlib.dll")
    Options.ReferencedAssemblies.Add(dir + "System.dll")
    Options.ReferencedAssemblies.Add(dir + "System.Drawing.dll")
    Options.ReferencedAssemblies.Add(dir + "Microsoft.VisualBasic.dll")
    Options.ReferencedAssemblies.Add(dir + "System.Web.Services.dll")
    cr = vbCP.CompileAssemblyFromSource(Options, code)
    If cr.Errors.Count > 0 Then
        Return cr.Errors
    End If
    oAssy = cr.CompiledAssembly
    Return Nothing
End Function

If you get an assembly, then you can use reflection to run the new assembly.

Here's a decent article which I used when I was starting on reflection.

Reflection in .NET[^]

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.