Forum Visual Basic General

How do you stop an array value from changing when a random output is generated using VB 2008?

Sat, 28 Nov 2009 15:57:49 Z

I am generating an array of random numbers for for a class project (simple yahtzee game). I am comparing the output of the array and displaying a picture of each matching dice in a picture box. I would like to use check boxes to select a position of the array so it cannot be changed until the check boxes are cleared. When the check box is checked, the value of the position in the array should not change. How do I accomplish this?

Linking forms

Sun, 29 Nov 2009 10:18:35 Z

Hi,

I have 1 project with about 7 forms. On each form I have 6 x 4 responses radio buttons (i.e. a multiple choice quiz). If the correct response is selected, the examinee gets 1 point, else 0. At the end of the quiz, the examinee can click a button that will add up all the correct responses & display the % correct.

How do I program the button to do this given that data are on 7 different forms?

Thank you.

I have 1 project with about 7 forms. On each form I have 6 x 4 responses radio buttons (i.e. a multiple choice quiz). If the correct response is selected, the examinee gets 1 point, else 0. At the end of the quiz, the examinee can click a button that will add up all the correct responses & display the % correct.

How do I program the button to do this given that data are on 7 different forms?

Thank you.

http://mcatprep.yolasite.com/
<a href=http://mcatprep.yolasite.com/>M Prep</a>

file copying from different locations to different locations.

Sun, 29 Nov 2009 12:26:35 Z

Hello

I am new to this forum.

I am trying to copy files from different folder locations to different folder locations. For that I have written codes as follows:

But it do not work.......shows error in 4th For loop statement. Please help!

Many thanks

Lijo

===============

Public Sub copyFiles()

' On Error Resume Next

Dim FSO As Scripting.FileSystemObject

Set FSO = CreateObject("Scripting.FileSystemObject")

Dim mainDestFldr As folder

Dim subDestFldr As folder

Dim sub2DestFldr As folder

Dim sFldr As folder

Dim FirstSubFldr As folder

Dim SecondSubFldr As folder

Dim ThirdSubFldr As folder

Dim fil As folder

Dim sPath As String

sPath = "G:\01 - CERTIFICATE"

Set mainDestFldr = FSO.GetFolder("G:\TO HANDOVER TO COMPANY\Train 5 MAP\")

For Each FirstSubFldr In mainDestFldr.SubFolders

Set subDestFldr = FSO.GetFolder(FirstSubFldr)

For Each SecondSubFldr In subDestFldr.SubFolders

Set sub2DestFldr = FSO.GetFolder(SecondSubFldr)

For Each ThirdSubFldr In sub2DestFldr.SubFolders

sPath = sPath & Trim(Mid(SecondSubFldr, InStr(32, SecondSubFldr, "\"), 20))

Set sFldr = FSO.GetFolder(sPath)

For Each fil In sFldr

If fil Like SecondSubFldr & "*.*" And ThirdSubFldr.Path = "DISCIPLINE COMPLETIONS CERTIFICATE" Then

MsgBox fil

FSO.copyFile fil, ThirdSubFldr.Path

Name fil As fil & "_done"

ElseIf fil Like "RFC*.*" And ThirdSubFldr.Path = "RFC" Then

MsgBox fil

FSO.copyFile fil, ThirdSubFldr.Path

ElseIf fil Like "SMCC*.*" And ThirdSubFldr.Path = "SMCC" Then

MsgBox fil

FSO.copyFile fil, ThirdSubFldr.Path

End If

Next fil

Next ThirdSubFldr

Next SecondSubFldr

Next FirstSubFldr

MsgBox "Completed Successfully!!!"

Set sFldr = Nothing

Set mainDestFldr = Nothing

Set subDestFldr = Nothing

Set FirstSubFldr = Nothing

Set SecondSubFldr = Nothing

Set ThirdSubFldr = Nothing

End Sub

=======================

Newbie VB.NET Student

Thu, 16 Jul 2009 09:21:20 Z

I want make Discusion Form for New Programer of Visual Basic
Please all Experiance Person give help Us....

what is condision to use < Dim > command . how to use it and what is meaning of < Dim >like this "Dim Name As String" "Dim ButtonText As String" "Dim Tooltip As String"
Thanx
what did mean by < Public Class > , < Private Sub >
where we use it . in Condition?

TagLib# - MP3 files, tagging and Images. - Can you help?

Sat, 28 Nov 2009 21:15:47 Z

Hi everyone,

I've got myself into a mess and hope some-one here can help out.
I'm using this MP3 tagging library called TagLib# or TagLibSharp.

Unfortunately the documentation is a bit patchy to say the least and their (Official) website, which contains all the documentation seems to have closed down, leaving me to download this MP3 tagging library from the link below.
http://developer.novell.com/wiki/index.php/TagLib_Sharp

Everything so far works, including tagging the 'Artist, Title, Album' etc. but I want to include an image in my MP3 files, like album art.
I have found some sample code to read the image back from the tag using their library, I just can't work out what it would look like the other way around.

If filetotag.Tag.Pictures.Length >= 1 Then
  Dim bin = DirectCast(filetotag.Tag.Pictures(0).Data.Data, Byte())
  AlbumArt.Image = Image.FromStream(New MemoryStream(bin)).GetThumbnailImage(115, 115, Nothing, System.IntPtr.Zero)
End If

This code above will read an existing tag and load the image into a picture box called 'Album Art'.
Does any-one know how to 'flip' it so that it would look something like ...

filetotag.Tag.Pictures = AlbumArt.Image

Obviously using the memory stream functions etc.

Many thanks,
DJ PIP

To Whom It May Concern! Hi Martin.

Fri, 27 Nov 2009 21:20:35 Z

Hi Martin,

We, so to speak, want to know how do you Format your Code? Your code seems to be different from all user or MVP, ect. So, the question is, how do you do that? I cannot post the e.g here but....am sure you will understand my question....

Cor knows what am talking about.....

Don't judge me, just Upgrade me. Thanks!

Disabling a vscrollbar but keeping the bar totally visible

Sun, 29 Nov 2009 12:05:52 Z

Hi,

I'm currently working on an application that detects a color on a defined area on the screen and together with a panel that displays the color I show the values in a label and represent them with a vscrollbar. (The goal of the project is to output the color of the computer screen via an usb to dmx interface to create an ambilight effect) Now I don’t want the user to be able to move the scrollbars up and down so I figured disabling them would do the trick but then the little square you click on to scroll it up and down isn't visible anymore. Is there a workaround for this? Probably something simple I'm missing here, it's been a while since I programmed :)

Thanks

Custom Controls

Sun, 29 Nov 2009 08:37:23 Z

Can anyone recommend any good website for learning to build customs controls?

Checking a file is in a given path

Fri, 27 Nov 2009 23:08:13 Z

Hi

I am writing a program to play sound effects in a theatre.

The file system should be like this:

Any path on the computer\Filename\filename.xml
Any path on the computer\Filename\Sounds\

filename.xml is the file that contains all the data for the show, and inside the directory "Sounds" all of the sound effects for the current show are kept.

What I want to do is when the user opens a file from an open file dialog, if the path is inside the sounds directory, just return the path from the directory sounds onwards. If it is not, I want to copy the file into the sounds direcrtory, then return the path as before.

For example:
I have the show file C:\myShow\myShow.xml

I open the file C:\myShow\Sounds\SoundEffect1.wav
Just return "\Sounds\SoundEffect1.wav"

I open the file C:\My Music\Sound Effect 2.wav
Copy the file to C:\myShow\Sounds\
Then return \Sounds\SoundEffect2.wav

Thanks

Guy Joseph - Intel Quad Q9450, 4Gb Ram, 3x500GB Hard Drives, NVidia 8800GT, Marian Marc 8, VB Express 2008

How to set values for combobox item

Sat, 28 Nov 2009 08:33:07 Z

Im trying to set values for every combox item

for example if I have an item name of "currentyear" it should return the year.

I've tried the combox_year.items.add(new listItem("Current Year", now.year.tostring()))

but it wont work.. but when I tried it to a asp.net webpage it does?

So how do I do this in a application?

To aim is not enough. You must hit.

Sorting filenames using the Windows Explorer algorithm

Sat, 28 Nov 2009 17:05:43 Z

Hi,

I want to sort string-arrays containing filenames in VB .NET 2002 using the same intelligent algorithm that windows explorer uses. I mean the algorithm that is able to recognize numbers within the filename and sorts the parts the look like a number as numbers and the rest of a filename as text. The result would be something like this:
A1 A2 ... A9 A10 A11 ... A20
instead of
A1 A10 A11 ... A19 A2 A20 A3 ... A9

This should work for all filenames on a random PC and not only for a specific type of filenames. Is this possible?
Thank you for your help.

Accept only one char per line in a RichTextBox

Sun, 29 Nov 2009 03:40:44 Z

Hey guys,

I only want one char per line to be accepted in my multilined richtextbox. This means that when one char is typed, then the richtextbox should automatically change line.
So typing 'hi!' should show as:
h
i
!

I tried this but i seem to get out of bounds.

Private Sub txtrtb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtrtb.KeyPress
        txtLength(txtrtb)
End Sub

Private Sub txtLength(ByVal txtrich As RichTextBox)
        For Me.i = 0 To txtrich.Lines(i).Count - 1
            If txtrich.Lines(i).Length = 1 Then
                txtrich.Text &= vbCrLf
            Else
                Return
            End If
        Next
    End Sub

Privately check for updates

Thu, 26 Nov 2009 05:13:31 Z

Hi. I have a program with commercial uses. Currently I have email out updates. I would prefer that when the program loads, it searches for updates either from the web or I was toying with the idea of creating a file host server. I want the program to search for updates without opening a web browser, however (giving anyone power to email out a free download link).
I think of the way Digsby opens, checking for updates, or gimp. This is what I want.
Anyone have ideas on how to accomplish this?

I seek not answers, but understanding, that I may not solve, but learn. What good is a fish without the skill to catch it?

How set up a new value to my variable

Sun, 29 Nov 2009 04:15:15 Z

The problem is i cant get the incremented number..

ErrorNum = 1


        If TextBox1.Text = "Hello" And TextBox2.Text = "Haha" Then
            MsgBox("Correct Password!")
        Else



            MsgBox(" You have " + CStr(ErrorNum) + " Attempts already. System Exit!", MsgBoxStyle.Critical, "")
            TextBox1.Text = ""
            TextBox2.Text = ""
            ErrorNum = ErrorNum + 1





            If ErrorNum = 3 Then
                Close()
            End If

How to close an application in visual basic

Sun, 29 Nov 2009 04:05:05 Z

It seems like whenever i click my close button the application will close but the debugger is still in active.

How to exit this debugger? :)

how to re-load the my.settings values from the config file?

Sun, 29 Nov 2009 01:14:13 Z

HI!

I hope this is simple.
I would like to tweak some of the numbers in the app.exe.config file while the program is running. I would like my program to re-load those valued from the edited txt file.

I have tried my.settings.reset, reload, and upgrade. None of these seem to reload the values from the config file into the program

vs 2005
vb.net

How can i get my program to re-read the config file into its memory once it is up and running. say when a button is clicked?

Thank you
Jerry C

menuitems not working when clicking on shockwave

Tue, 10 Nov 2009 00:14:28 Z

What a ____ a$$hole this forum is...

contextmenu item not working PLEASE HELP!

Tue, 10 Nov 2009 22:02:33 Z

Hi guys,

I have a form with contextmenu where you can get the menu items on shockwave. I uses the menu items event to get the method of working when clicking them on shockwave by using right-mouse button. When I debug the project and when I clicked on testmenu item, nothing have happens.

Form Code:

Code:

Public Class Form1



    Private Sub testmenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles testmenu.Click

        MessageBox.Show("this is the test!")

    End Sub

End Class

Class Library:

Code:

Public Class ShockwaveMenu

    Inherits AxShockwaveFlashObjects.AxShockwaveFlash

    Private Const WM_RBUTTONDOWN As Integer = &H204



    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        Select Case m.Msg

            Case WM_RBUTTONDOWN

                Form1.ContextMenu1.Show(Me, PointToClient(Cursor.Position))

                m.Result = New IntPtr(1)

                Return

        End Select

        MyBase.WndProc(m)

    End Sub

End Class

Please can you tell me why it doesn't do anything when I click on testmenu item?? And please can you help me to get this fix by when I click the point on shockwave to get the contextmenu items then click them to get the menuitems fully in working order??

Thanks,
Mark

earning my medals

Fri, 12 Jun 2009 12:48:18 Z

i can not wait till the day i receive my second medal. (sighs) and i intend to receive it for the points by means of my answers.

recently, i did some searching on the forum members, to view their points and medals and such, and i stumbled upon some disturbing stuff.
what i found out, is that you can post 1,000 or so posts, no answers, and get points and medals. msdn, i'm not agreeing with such. (so don't spam my email, i was just kidding). ;o)
no, really.. and out of those 1,000 posts, maybe one or two were answered. and probably by a moderator, not the op.
should this be normal, or did i just give some of you guys ideas on how to cheat your way to getting a full medal jacket?

trujade...

help out microsoft for helping you.. test run 7

----------------------------------------------------------------------
posted this edit on: 8/12/o9
--------------------------------------------
EDIT::
THIS POST WAS MARKED AS ABUSE BY THE MEMBER JUNNER2OO3, EARL TUT, now, nowhere to be seen..
this i know of, because of a thread (posts were sent back and forth, that were eventually deleted) where i had a conflict with the above M.I.A. member, and he proudly brought the mention of marking this thread as abuse.. i cannot see the reason, other than making it more visible.. lol..
if you want a good example, view the end of "Proposing an answer " and how his replies are the only ones not marked, i am for certain, most were his, no answer was received....
link for" Proposing an answer ":
http://social.technet.microsoft.com/Forums/en-US/Offtopic/thread/10114a0c-2f73-4c22-a011-59f0413d3903#eb978ab4-9107-4a36-ab20-77b9edc1fb54

code for single-answer multiple choice tests

Sat, 28 Nov 2009 22:28:30 Z

I am struggling to write code for single-answer multiple choice tests (i.e. Choices A, B, C, D). Does anyone know of any sample code?

http://mcatprep.yolasite.com/>

I need help with the select statement using the where clause on oldb

Sat, 28 Nov 2009 15:40:48 Z

I'm using a select statement to select data from an Access DB but I'm using. I can select the data perfectly but when I use the Where clause it doesn't select any data and the data I'm looking is in the DB. I hope someone can help me, here is my code.

  Dim myconecction As String

        
        myconecction = My.Settings.DataSource





        
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" + myconecction + ";"

        Dim AccessConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)

        
        AccessConnection.Open()

        

        Dim query As String = "SELECT Num, Name, Oponente, Color FROM Pareo WHERE Rnd = @Rnd AND Color = @Color"


        
        Dim cmd As New OleDbCommand(query, AccessConnection)

        
        cmd.Parameters.AddWithValue("@Rnd", ronda)
        cmd.Parameters.AddWithValue("@Color", blancas)


        '
        Dim da As New OleDb.OleDbDataAdapter(cmd)

        Dim dt As New DataTable



        da.Fill(dt)

        DataGridView1.DataSource = dt

Shout down a process

Fri, 25 Apr 2008 20:43:32 Z

Hi Is there a way to shout down Excel

not as appilcation but as a process

And from Visul basic

It is because after i have shot down Excel 2007

it still runing as a process

Alvin

DataGridView combobox

Sat, 28 Nov 2009 14:40:47 Z

I have a DataGridView that is bound to a table call "GLMasters". One of the fields in the GLMasters is "Statement" that contains a 1 for Balance Sheet and 2 for Income Statement. There is another table called "GLStatements" that contains a statement number field and a statement name field. When I drop the GLMasters dataset on to the screen it creates the "Statement" field as a textbox. I am trying to change that to a combobox. I edited the field and changed it to a combobox, selected my datasource of GLStatements dataset, set the display member to be the statement name from the GLStatements datasource, and set the value to be the statement number from the GLStatements datasource. When I save and run I get the following:

The following exception occured in the DataGridView:
System.FormatException: DataGridViewComboBoxCell value is invalid.

What am I missing??

Unable to drag from windows explorer to VB,Net in Windows 7

Sat, 28 Nov 2009 19:35:57 Z

I code to drag files from windows explorer to a listbox. The code works in XP and Vista, but not Windows 7. In Win 7

Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter

e.Effect = DragDropEffects.All

End Sub

does not respond. ??

Thanks for any help.

Frank

data acquisition sample apps

Fri, 27 Nov 2009 10:56:26 Z

i need to build a small data acquisition terminal in VB express 2008. it would be able to accept data packets on any serial port or USB virtual serial port. and to parse and send the data to excel.

anyone know of any source examples here or on the web i can look at to get me started?

thanks

trouble assigning parameters

Fri, 27 Nov 2009 03:53:44 Z

Got a problem getting this bit of code to work w/o errors. The program tells me that the "hourlyEmployee.GetGross" part seen in the code below has no parameters and its return type cannot be indexed , but its not giving me any suggestions as to how to fix it. But just below in the code snippet you'll see that it is working fine with the ""salariedEmployee.GetGross" that is located below it in the code.

 Private Sub btnCalc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        ' calculates and displays the gross pay
        lblGross.Text = CStr(CDbl(lstHours.Text) * CDbl(lstHours.Text))


        Dim salariedEmployee As Salaried
        Dim dblAnnualSalary As Double
        Dim dblGross As Double
        Dim hourlyEmployee As Employee
        Dim dblHours As Double
        Dim dblRate As Double

        ' determine the selected radio button
        If radHourly.Checked Then
            ' calculate the gross pay for an hourly employee
            Double.TryParse(lstHours.SelectedItem.ToString, dblHours)
            Double.TryParse(lstRate.SelectedItem.ToString, dblRate)
            dblGross = hourlyEmployee.GetGross(dblHours, dblRate)

        Else
            ' calculate the gross pay for a salaried employee
            Double.TryParse(lstSalary.SelectedItem.ToString, _
                            dblAnnualSalary)
            salariedEmployee = New Salaried(txtNum.Text, txtName.Text, _
                                            dblAnnualSalary)
            dblGross = salariedEmployee.GetGross
        End If

Here's the exception detail, maybe that will help.

System.NullReferenceException was unhandled
Message="Object reference not set to an instance of an object."
Source="XYZ Project"
StackTrace:
at XYZ_Project.frmMain.btnCalc_Click(Object sender, EventArgs e) in C:\Documents and Settings\Jim\My Documents\Visual Studio 2008\Projects\VB2008\Chap11\XYZ Corporation Solution-Inheritance\XYZ Project\Main Form.vb:line 103 at System.Windows.Forms.Control.OnClick(EventArgs e) at System.Windows.Forms.Button.OnClick(EventArgs e) at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ButtonBase.WndProc(Message& m) at System.Windows.Forms.Button.WndProc(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) at System.Windows.Forms.Application.Run(Form mainForm) at XYZ_Project.frmMain.Main() in C:\Documents and Settings\Jim\My Documents\Visual Studio 2008\Projects\VB2008\Chap11\XYZ Corporation Solution-Inheritance\XYZ Project\Main Form.Designer.vb:line 2 at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() at System.Threading.ThreadHelper.ThreadStart_Context(Object state) at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) at System.Threading.ThreadHelper.ThreadStart()
InnerException:

Can someone please give me a little help here, thanks in advance!

Edit row works onlu on localhost

Sat, 28 Nov 2009 16:22:36 Z

Hi,
I am working on a project that has a gridview. When I test and debug the project on local machine everything works fine.
I uploaded the project to the hosting server and tested it. Everything works as expected except in one gridview the Edit row link does not work.
The same gridview works fine in the localhost.
Any idea for a solution?
Thanks
Yehuda

cannot read special characters with streamreader/streamwriter

Mon, 23 Nov 2009 10:29:51 Z

to automate mailmerge function in word, i need to join different elements to complete the mailmergedatasource.
In one of these file are words with special characters like é, ç, è, .... When openng these files for reading, streamreader transfoms the characters to unreadable signs.
When i give a type to use to open like ASCII, Unicode, ... it works for one or tho characters but not for all. I have the same problem when the character is read correctly, with streamwriter output to a textfile. Word cannot read the textfile and ask to define which type of coding should be used. In most of the cases not all the characters can be converted to readable characters.

Office 2007 is installed. How to resolve this problem?

Bert

how to start MS Sql server 2008 installed with vb express 2008

Sat, 28 Nov 2009 11:41:54 Z

I recently installed vb express 2008 and with that download i also installed Sql server 2008. Earlier i have been working in MS Access so i have no experience in SQL server. My first problem is how to start sql server.
I can see only following
Start>All Programmes>MS SQL server 2008>Configuration Tools, Import and Export Data(32 bit)>SQL server configuration Manager,SQL server Error and Usage Reporting,SQL server Installation Centre.

Moreover in Programme Files i have two folders :
1. MS SQL SERVER and
2. MS SQL SERVER COMPACT EDITION

Please advise me how to start to create a database in SQL server with Vb express 2008.
Thanks

how to run a form in a console application

Fri, 27 Nov 2009 15:04:04 Z

I need to write a windows application that accepts parameters, so I guess the best way to do this is console applications. But I have one question, in my console application startup module I use the following code to show the form that I designed, but the application does not recognize Application.Run command. Could some one help. I tried adding the required dlls , but no luck. Is there any other way to show my form?
Any help is greatly appreciated.
Following is the code I am using.

Dim frm As New Form1
Application.Run(frm)

donsls

Jump Lists in Visual Basic

Sat, 28 Nov 2009 02:56:15 Z

Are they possible? I'd like to know how to make them in VB apps if possible.

"Victory is difficult to see beyond the devestation incurred in its pursuit."

Hiw to get a List of Printers

Sat, 28 Nov 2009 07:22:14 Z

When you go to the Start button and then "Printers and Faxes" and you see a list
of the printer objects defined on that PC. In my App VB.Net app I want to be ale to
use a drop down box to display this list of printers and allow the user to select one of them.

So, Not necessarily a list of printers on the Intranet that the user is connected to, only on their personal PC.

Anyone know how to do this ?

Thanks in advance

Tattoo

System.Diagnostics.Process.Start("explorer.exe", serverpath) - fails after 2 attempts

Sat, 28 Nov 2009 01:34:10 Z

I am trying to use Process.Start to open a folder using explorer on the click of a window.

It works fine on the first two clicks of the button i.e. the folder is opened and on closing the windows and click on the button a third time gives the error message

"the path "C:\test" is not found or is not a directory"

If anyone has any info on how to solve it, please share..

Dim myProcess As Process = New Process()
ServerPath="C:\test"

ServerPath =

"""" + ServerPath + """"
myProcess.StartInfo.UseShellExecute = False
myProcess.Start("explorer.exe", ServerPath)

I have tried both setting UseShellExecute to False and True

thanks

the connection cannt be used to perform this operation. It may closed or not valid in this context error in vb6

Sat, 28 Nov 2009 02:57:12 Z

Hi,

I have created a recordset that reads data from text file. I want to store that data rows into sql server 2005 db. I am new to vb6. I dont know where I am doing mistakes. Its not working properly. I am working with this issue for four days. Please help me . Below is my code.

' Write records to Database

frmDNELoad.lblStatus.Caption = "Loading data into database......"

Call FindServerConnection_NoMsg

Dim lngRecCount As Long

lngRecCount = 0

rcdDNE.MoveFirst

With cmdCommand

.ActiveConnection = objConn

.CommandText = "insert into t_DATA_DneFrc (RTN, AccountNbr, FirstName, MiddleName, LastName, Amount) values ('" & rcdDNE("RTN") & "', '" & rcdDNE("AccountNbr") & "', '" & rcdDNE("FirstName") & "', '" & rcdDNE("MiddleName") & "', '" & rcdDNE("LastName") & "', '" & rcdDNE("Amount") & "')"

.CommandType = adCmdText

End With

Set rcdReclamation = New ADODB.Recordset

With rcdReclamation

.ActiveConnection = objConn

' .Source = "insert into t_DATA_DneFrc (RTN, AccountNbr, FirstName, MiddleName, LastName, Amount) values ('" & rcdDNE("RTN") & "', '" & rcdDNE("AccountNbr") & "', '" & rcdDNE("FirstName") & "', '" & rcdDNE("MiddleName") & "', '" & rcdDNE("LastName") & "', '" & rcdDNE("Amount") & "')"

.CursorType = adOpenDynamic

.CursorLocation = adUseClient

.LockType = adLockOptimistic

.Open cmdCommand

End With

Do Until rcdDNE.EOF

lngRecCount = lngRecCount + 1

frmDNELoad.lblStatus.Caption = "Adding record " & lngRecCount & " of " & rcdDNE.RecordCount & " to database."

frmDNELoad.Refresh

DoEvents

Call CommitNew

rcdDNE.MoveNext

Loop

frmDNELoad.lblStatus.Caption = "DNE Processing Complete."

frmDNELoad.Refresh

End Function

Sub CommitNew()

' Add records to DneFrc table

With rcdReclamation

.Requery

.AddNew

.Fields![RTN] = rcdDNE.Fields![RTN]

.Fields![AccountNbr] = rcdDNE.Fields![AccountNbr]

.Fields![FirstName] = rcdDNE.Fields![FirstName]

.Fields![MiddleName] = rcdDNE.Fields![MiddleName]

.Fields![LastName] = rcdDNE.Fields![LastName]

.Fields![Amount] = rcdDNE.Fields![Amount]

.Update

End With

End Sub

****************************connection string code*******************************************

Option Explicit

Public objConn As ADODB.Connection

Public objCommNoParmSP As ADODB.Command

Public objCommSQLText As ADODB.Command

Public objCommCntlNbr As ADODB.Command

Public strDBServer As String

Sub InstantiateConnection()

Set objConn = New ADODB.Connection

objConn.CommandTimeout = 0

objConn.ConnectionTimeout = 60

'Server Connection

objConn.ConnectionString = "Provider=SQLOLEDB.1; Server=" & strDBServer & "; User ID=RS_DNE; Password=welcomers_dne; Initial Catalog=NORS"

objConn.Open

objConn.DefaultDatabase = "NORS"

End Sub

Sub ValidateConnection()

If objConn.State = 0 Then

objConn.Open

End If

End Sub

Sub InstantiateCommand_SP()

' Creates a command object to be used when executing read-only stored

' procedures with NO PARAMETERS.

Set objCommNoParmSP = New ADODB.Command

objCommNoParmSP.ActiveConnection = objConn

objCommNoParmSP.CommandType = adCmdStoredProc

End Sub

Sub InstantiateCommand_SQLText()

' Creates a command object to be used when executing SQL statements.

Set objCommSQLText = New ADODB.Command

objCommSQLText.ActiveConnection = objConn

objCommSQLText.CommandType = adCmdText

End Sub

Function FindServerConnection_NoMsg() As String

'--------------------------------------------------------------------------

' Purpose:

' Gets the listing of possible server connection strings.

' Tries each one until it either succeeds or exhausts the

' list. Then prompts user to manually enter the connection

' string.

' In:

' none.

' Out:

' "" empty string, or valid path.

' Created:

' Modified:

'--------------------------------------------------------------------------

Dim rcdClientPaths As ADODB.Recordset

Dim strDBTemp As String

Const CLIENT_UPDATE_DIR = "\\PSGSPHX02\NORS\Rs\ClientUpdate\"

On Error Resume Next

' If persisted recordset is not there, try and copy one down from

' CLIENT_UPDATE_DIR. If that can't be found, create a blank one

' and ask the user for the server name.

Set rcdClientPaths = New ADODB.Recordset

' Does it already exist locally?

If FileExists_FullPath(App.Path & "\" & "t_PCD_ServerConnectionList.xml") = False Then

' Can it be retrieved from CLIENT_UPDATE_DIR

If Dir(CLIENT_UPDATE_DIR & "t_PCD_ServerConnectionList.xml") <> "" Then

FileCopy CLIENT_UPDATE_DIR & "t_PCD_ServerConnectionList.xml", App.Path & "\" & "t_PCD_ServerConnectionList.xml"

Else

' Creat a blank one.

With rcdClientPaths

.Fields.Append "ServerConnection", adVarChar, 250

.Fields.Append "Description", adVarChar, 50

.CursorType = adOpenDynamic

.LockType = adLockOptimistic

.CursorLocation = adUseClient

.Open

.Save App.Path & "\" & "t_PCD_ServerConnectionList.xml", adPersistXML

.Close

End With

End If

' Open the recordset

With rcdClientPaths

.CursorType = adOpenDynamic

.LockType = adLockOptimistic

.CursorLocation = adUseClient

.Open App.Path & "\" & "t_PCD_ServerConnectionList.xml", , , , adCmdFile

End With

If rcdClientPaths.RecordCount <> 0 Then

' try each one listed

rcdClientPaths.MoveFirst

Do Until rcdClientPaths.EOF

strDBTemp = TryConnection_NoMsg(rcdClientPaths.Fields![serverconnection])

If strDBTemp <> "" Then

FindServerConnection_NoMsg = strDBTemp

Exit Function

End If

rcdClientPaths.MoveNext

Loop

strDBTemp = ""

End If

Do While strDBTemp = ""

If strDBTemp <> "" Then

strDBTemp = TryConnection_NoMsg(strDBTemp)

If strDBTemp <> "" Then

With rcdClientPaths

.AddNew

.Fields![serverconnection] = strDBTemp

.Update

.Save

End With

FindServerConnection_NoMsg = strDBTemp

Exit Function

End If

Else

Exit Function

End If

Loop

End Function

Function TryConnection_NoMsg(ByVal SvName As String) As String

On Error GoTo ErrHandle

' If a server was provided, try to open a connection to it.

Screen.MousePointer = vbHourglass

Set objConn = New ADODB.Connection

With objConn

.CommandTimeout = 30

.ConnectionTimeout = 30

.ConnectionString = "Provider=SQLOLEDB.1; Server=" & SvName & "; User ID=RS_Auth; Password=weLcomers_auth; Initial Catalog=NORS" ' Test

.Open

.Close

End With

Set objConn = Nothing

TryConnection_NoMsg = SvName

Screen.MousePointer = vbNormal

Exit Function

ErrHandle:

TryConnection_NoMsg = ""

Set objConn = Nothing

Screen.MousePointer = vbNormal

Exit Function

End Function

Save field without displaying it on the VB form

Mon, 23 Nov 2009 21:48:57 Z

I have a VB 2008 windows application that I'm working on; the data are stored in SQL. I have a lot of fields that user will need to fill out. Some fields that not displayed on the form are actual combination of few filled out fields. For example - user types in first name, middle name and last name in 3 separate boxes on the form and I'd like to combine those and assign it to the "FullName" field. I know it's duplicating the data but this FullName field would need to be merged into report as is in a different program. Another example - user will pick a data in combo box that is binded to a different table, but I need it to auto-populate 3 fields in the main form (those fields are not displayed). I know that I can actually add all those hidden fields on the form and assign calculated values based on user input and then everything is saved with built-in "Update" command. I was wondering if there is a way to specify those few calculated values as parameters and still use "Update" command without actually typing long Update command. I have over 400 fields - very lengthy command.. Hope it makes sense. Thanks!

LINQ: How do I get the value of a known attriubute in LINQ?

Sat, 28 Nov 2009 03:18:28 Z

Hi, I'm writing a WPF app that will display severe weather alerts for an inputted zipcode. I'm using Weather Underground's AlertsXML API to get appropriate information. Where I'm getting hung up is getting the value of the count attribute of the alert element (as in the 2 from <alert count="2">) so that I can perform some logic with it. I've been looking over some of the documentation on it (such as this ), as well as a completely unrelated implementation of LINQ in another project of mine. I can't get it to work. :(

Obviously the XML is in a static layout, so what I'm asking is how I would go about getting the value of a specific attribute within a specific element in an XDocument.

I've defined my document as follows:

'Loads the document
        Dim SevereDoc As XDocument
        SevereDoc = XDocument.Load("http://api.wunderground.com/auto/wui/geo/AlertsXML/index.xml?query=" + zip.ToString)

but beyond that, what I've tried isn't working.

Scrolling during drag and drop in a FlowLayoutPanel

Fri, 27 Nov 2009 00:50:24 Z

Hello All!

I am currently implementing a drag and drop feature to reorder a set of user controls that I have put in a flow layout panel. I've turned off wrapping and the flow direction is from top to bottom. Here's how I've implemented the drag and drop feature itself:

UserControl_MouseDown event:
1) Get the mouse offset from the upper left corner of the UserControl
2) Remove the control being dragged from the FlowLayoutPanel and put it in the form
3) Calculate the rectangle relative to the form of the FlowLayoutPanel

UserControl_MouseMove event:
1) Using the mouse offset of the UserControl, figure out the UserControl's new location on the form
2) if that location is outside of the FlowLayoutPanel's rectangle, change the calculation to move it to the edge of the FlowLayoutPanel
3) Move the UserControl

UserControl_MouseUp event:
1) Find the underDrop control (the UserControl under the UserControl that's being dragged)
2) Figure out if the dragging UserControl should go above or below underDrop
3) Add the dragging UserControl to the FlowLayoutPanel and set it's index.

This is working beautifully! It reorders just fine.

My issue is when there are more controls than will fit in the visible area. I have AutoScroll set to True, so the scroll bar turns on. When I drag a control to the bottom I turn on a timer that periodically adjusts FlowLayoutPanel.VerticalScroll.Value depending on if the UserControl is at the top of the FlowLayoutPanel or the bottom.

When I move my mouse left or right, the UserControl (who's parent is the form) still gets moved left or right. When this happens, FlowLayoutPanel.VerticalScroll.Value is reset to what it was before I started adjusting the scroll. On top of that, even if I'm careful to move the mouse only up or down back inside the FlowLayoutPanel's rectangle, when the UserControl gets moved, FlowLayoutPanel.VerticalScroll.Value is reset again, so I can't drop it where I want to.

Does anybody have any idea why move a control over the FlowLayoutPanel would reset the VerticalScrol.Value? Is there a way to stop this? Is there a better way to scroll inside a FlowLayoutPanel?

Thanks for any help!

-Hazelrah

How about a Windows 7 Media Center Add in Template and Example

Mon, 23 Nov 2009 05:13:19 Z

Why do the c# guys get all the fun? I cannot believe after all the hype of .net framework and using any language that MS and the VB.NET team keep ignoring Media Center add ons for us VB guys.

Windows 7 is now out, please put something together for this and let the add ons start flowing from the VB world...

A template and an example app please.

It is high time MS and the VB team aid us in getting into the MCE world.

Log into website with vb.net

Fri, 27 Nov 2009 16:13:35 Z

Hi, im useing vs 2008 and am trying to log into a website via vb.net and a windows form, without much luck, wondering if someone could point me i the right direction

heres the html code of the website

<
 form
 id
 =
 "mainform"
 class
 =
 "loginBox"
 name
 =
 "mainform"
 action
 =
 "/external/login.action"
 method
 =
 "post"
 >



<

input

 id

=

"loginName"

 class

=

"textField"

 name

=

"loginName"

/>



<

input

 id

=

"password"

 class

=

"textField"

 type

=

"password"

 name

=

"password"

/>



<

a

 id

=

"loginButton"

 class

=

"round_button1"

 href

=

"javascript:document.getElementById('mainform').submit();"

>

Sign In</

a

>

and heres the vb.net code i have already

Private

 Sub

 btnLogin_Click(ByVal

 sender As

 System.Object, ByVal

 e As

 System.EventArgs) Handles

 btnLogin.Click

        WebBrowser1.Navigate("https://secure.blah.blah/"

)
        lblStatus.Text = "Connecting to site...."



       End

 Sub



Private

 Sub

 WebBrowser1_DocumentComplete(ByVal

 pDisp As

 Object

, ByVal

 URL As

 Object

)


        WebBrowser1.Document.GetElementById("loginName"

).SetAttribute("Value"

, txtUserN.Text)
        WebBrowser1.Document.GetElementById("password"

).SetAttribute("Value"

, txtUserP.Text)
        WebBrowser1.Document.GetElementById("loginButton"

).InvokeMember("Click"

)

 End

 Sub

IT doesnt fill in the text boxes on the website or click the button, i think it has something todo with this "<form id = "mainform" and maybe the click isnt working because of the java script? im not sure just guessing, iv googled but am still having difficulty getting it working

any help would be much appriciated

Respond to data from a local network port

Fri, 27 Nov 2009 23:14:39 Z

I am writing some software that should respond to commands from a port.

How do I set up a handler to respond when data is recieved at that port.

Do I need to do anything special, like respond or set up the port in the first place.

I don't have any experience doing anything like this!

Cheers

Guy Joseph - Intel Quad Q9450, 4Gb Ram, 3x500GB Hard Drives, NVidia 8800GT, Marian Marc 8, VB Express 2008