Posts by lolafuertes

On your setup project, if you click with the alternate buttonon it, then a View /file System menu can be selected.

On this view, verify the 'Application Folder' DefaultLocation property to verify on wich folder is installed your program.

If you really need to add a specific folder, on the left pane, click with alternate button and open the 'Add special folder' / 'Custom Folder'

Set a name for the folder and in the DefaultLocation property put the expected path.

With this custom folder selected, alternate clicking on the right pane, you can add the files to be copied to the folder during the installation.

Hope this helps

I do not know any function to split by size, but you can implement your own thing like:

' Define the string to be split by length
	Dim MyString As String = "Hello man! Wazzup?"
' Call your defined split string by size function
	Dim MyGroups() As String = SplitStringBySize(MyString, 3)
.
.
.
'
' Function defined
'
Function SplitStringBySize(ByVal StringToSplit as String, ByVal NumberOfGroups as Integer) as String()
' Validate the Input
If NumberOfGroups > 1 AndAlso MyString.Length > 0 Then
' Define the groups to receive the splittet parts
	Dim Group(NumberOfGroups - 1) As String
' Define the length of each part
	Dim GroupLength As Integer = StringToSplit.Length \ NumberOfGroups
' Split the String
	For I As Integer = 0 To NumberOfGroups - 1
		Group(I) = StringToSplit.Substring(I * GroupLength, GroupLength)
	Next
	Return Group
Else
	Return Nothing
End If
End Function

Hope this helps

Sorry.
Really you do not need to add the printform in the controls of the form.

Please try some thing like:

Public Sub PrintScreen(ByRef frm As System.Windows.Forms.Form, ByRef FormHeight As Short)
	PrintForm1.DocumentName = frm.name ' or fr.text or whatelse to identify it
	PrintForm1.Form = frm
	PrintForm1.PrintAction = System.Drawing.Printing.PrintAction.PrintToPrinter
	PrintForm1.PrinterSettings = CType(resources.GetObject("PrintForm1.PrinterSettings"), System.Drawing.Printing.PrinterSettings)
	PrintForm1.PrintFileName = Nothing
.
.
	PrintForm1.Print(frm, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)
.
.

End Sub

or whatelse you need to do with the PrintForm1.

Hope this helps

Chang your line 10 of code to

oBook = oExcel.Workbooks.Open("C:\DailyLogs\DailyLog.xlsx")

Hope this helps

I suppose that the properties and the method you described are inside a Class (lets call YourClass).

In order to access to your method (or properties) you need to instantiate your class. If you want to be always ready to be used, then you can do the following definition in a Module in your project.

Public YourClassInstance As New YourClass

After this, you must assign the browser to

YourClassInstance.currentbrowser = TheBrouserYouHaveAlready

Then, to navigate to the URL, from any part of your code

Dim DestinationURL as String = "http://noserver.nowhere.nodomain"
Call YourClassInstance.Navigate(DestinationURL)

Hope this helps

In order to distribute your application properly, you need to add to your solution a 'Setup' project for the apllication you are creating.

You can select the Setup Wizard to help you selecting the right elements to include in your application. You only need to select the Primary Output from your application to be added. Then finish the wizard and it will scan your application to find wich references to include an their sources.

On the left pane will appear the information I mentioned.

For instance, refer to http://support.microsoft.com/kb/307353/en-us, http://support.microsoft.com/kb/307358/en-us, http://support.microsoft.com/kb/307367/en-us or go to http://msdn.microsoft.com/en-us/library/aa720326.aspx

Hope this helps

The user 'must', press some kind of button or menu option when wants to add new data.

Then to insert new data, you can add a blank row in the datagrid.

On the Setup Project, Select the ApplicationFolder
Add a new folder called docs.
Select the folder docs.
Add Files to this folder. On the Files dialog, you can select multiple files.
Bild the application setup, and you can burn you CD. The documents always will be into the docs folder so your

System.Diagnostics.Process.Start(Application.StartupPath + "\docs\NOTICAS.doc")

shoul work.

Hope this helps

You can cicle by the datagrid rows. On each row, compare if the left part of the first column text contents the search string in hte textbox. If found, then select the current row and exit.

For Row As Integer = 0 To Dgview.Rows.Count
	If Dgview.Rows(Row).Cells(0).Value.ToString.Substring(0, textbox1.Text.Length) = textbox1.Text Then
		Dgview.Rows(Row).Selected = True
		Exit For
	End If
Next

Hope this helps

Cicle over the items and determine wich one is to be removed from the list.

Just as a hint, if you cicle from last to first, removing the item will not affect to the loop.

Dim ValueToSearchFor as String = "XYZ"

For I as Integer =  ListBox1.Items.count - 1 to 0 step -1
  If ListBox1.Items(I).Tostring.Trim.Length = 0 then
    ListBox1.Items.RemoveAt(I)
  Else
    If ListBox1.Items(I).Tostring.IndexOf(ValueToSearchFor)<>-1
      ListBox1.Items.RemoveAt(I)
    End If
  End If
Next

Hope this helps

As the browser is an object, you may pass it by reference in the Set procedure

Set(ByRef value As browser)

Also, before calling the Navigate method on your class, be sure you set the currrentbrowser property to an already instantiated one.

As on the browser the Navigate method is not 'shared', calling it from a 'shared' procedure is not allowed.

Remove the Shared from the procedure definition to avoid this issue.

Hope this helps

IMO you need to do significant changes to your code:

First, your data adapter needs to define also the Insert, the Update and the Delete commands, or nothing will happen to the data base when you issue a da.update. The Delete command sould only be defined once, not at every button delete click event.

Second, executing a da.update just after a da.fill has no effect. Did you cleared the previous content of the table before filling it?

Third, on the button delete event is enough to execute the dr.delete for deleting the record in the DS. Also to modify the dr you can dr.beginedit, do the changes in the dr fields an then do dr.endedit. All the changes are performed into the datasetEmp in memory.

Finally, on the button save is enough to issue the da.update for the datasetEmp, table datasetEmp.Tables(0).Name to insert, update or delete all the modified, inserted or deleted records at once. Please refer to the example in the referenced article from Microsoft.

Hope this helps.

Hope this helps

On your application, create a dataset showing the underlying database.
Fill it in using the data adapters.

Show the data binding the datagrid to the tables in your dataset

When inserting, updating or deleting, do it against the tables in the dataset, then refresh the datagrid.

Once the users clicks the Save button, use the data adapters to update the underlying database.

You can find a detailed HowTo in http://support.microsoft.com/kb/301248/en-us

If Me.cboTicketType.SelectedIndex = 1 Then
.
.
.
Else
If Me.cboTicketType.SelectedIndex = 1 Then
. It is impossible to get into this
End If
End If

PrintForm Component might require to be declared.

frm.PrintForm1.Print(frm, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)

The form "frm" must have a control that shoud be called PrintForm1.

To add a such control in the form "frm" you can:
1) On the designer of the form add the PrintForm Control
2) On the Load event, or any place in the form before calling the sub PrintScreen, and if there is no PrintForm control already defined,

Dim PrintForm1 as new PowerPacks.Printing.PrintForm
Me.Controls.Add(PrintForm1)

Hope this helps

You need to download the Power Packs for Visual Basic and install them. Then you sould fint the printform component to add to your form.

http://msdn.microsoft.com/en-us/vbasic/bb735936.aspx

Hope this helps

Guessing if you already tryed to suspend the picturebox layout (SuspendLayout method) while drawing and resume the layout (ResumeLayout method) when you are ready to paint.

Not sure if this helps.

Rich text is a sort of language where you define some attributes for the text in.

You can go to http://msdn.microsoft.com/en-us/library/aa140277(v=office.10).aspx to read about internal syntax of rich text.

Assuming you are saving the contents of the richtexbox rtf property in the SQL database, the easiest way is to write som kind of procedure to read the SQL data into a richtextbox, select the text into the richtextbox to change the font and size, do the changes on the selectedtext and then update the record in the SQL table wih the new rtf.

Hope this helps

Maybe you can try changing a little the order or sentences

proc.Start()
proc.WaitForInputIdle()
Threading.Thread.Sleep(500)

System.Windows.Forms.SendKeys.Send("^q") 'use keys
Threading.Thread.Sleep(1)

System.Windows.Forms.SendKeys.Send("^c")
Threading.Thread.Sleep(1)

Richtextbox1.Paste() 

proc.CloseMainWindow()
proc.Dispose()

Hope this helps

The fastest way is to not allow the user to enter any unacceptable character in the text field.

You can do that with several methods:
a) Use a masked text field to enter the right value (IE: 99999,99) .
b) Prevent the user to enter invalid characters, capturing, evaluating and discarding those not acceptable.
To do so, you must enable the form to 'preview' the typed Keys by setting the KeyPreview to true in the forms properties.
Then capture the textbox KeyPress event and set the handled property of the System.Windows.Forms.KeyPressEventArgs to true, so the system will ignore this char and prevent it to be entrered in the text box. IE:

Select Case e.KeyChar
    Case "1"c, "2"c, ...., "9"c, System.Globalization.CultureInfo.CurrentUICulture.NumberFormat.CurrencyDecimalSeparator.Chars(0)  ' Instead of accepting the comma you can select to accept the decimal separator char defined on the System.Globalization.CultureInfo.CurrentUICulture.NumberFormat.CurrencyDecimalSeparator for multilanguage purposes
        IF textBox1.txt.IndexOf(System.Globalization.CultureInfo.CurrentUICulture.NumberFormat.CurrencyDecimalSeparator)<>-1 then  ' Only one comma will be accepted.
            e.Handled = True
        end if
    Case Else
        e.Handled = True
End select

Any way, once you have the right TextBox1.Text, you must revamp you SQL sentence like

"Insert INTO Test (money) VALUES (" & TextBox1.Text.Replace(System.Globalization.CultureInfo.CurrentUICulture.NumberFormat.CurrencyDecimalSeparator, "."c) & ")"

This way you can be confident that the decimal separator sent to MySQL is the ".".

Hope this helps

A really easy way (today) is to use the settings of the application.
Can be easily acessed through the My.Settings class and, if you need to change any of the values to be recognized on the next run, they can be saved using the My.Settings.Save method

The settings class supports many types of data and also supports collections of strings.

Also you can define the scope (user o application) so many of the colour, fonts, etc. are set per user basis while connection strings or exchange rates can be set at application level (for all users)

Hope this helps.

If you are using ACCESS, then you can change a little bit the SQL sentence as:

SELECT EXAMEN.Int_Exa, IIF(ISNULL(T.nbrTest), 0, T.nbrTest) AS nbrTest FROM EXAMEN LEFT JOIN (SELECT int_Exa, COUNT(*) as nbrTest FROM TEST GROUP BY int_Exa) AS T ON EXAMEN.Int_Exa = T.Int_Exa ORDER BY EXAMEN.Int_ExaSELECT EXAMEN.Int_Exa, ISNULL(T.nbrTest, 0) AS nbrTest FROM EXAMEN LEFT JOIN (SELECT int_Exa, COUNT(*) as nbrTest FROM TEST GROUP BY int_Exa) AS T ON EXAMEN.Int_Exa = T.Int_Exa ORDER BY EXAMEN.Int_Exa

Hope this helps

Where do you instantiated frmSChoice and frmUserChoice?

Using single quotes arround the content of the textbox1.text implies htat MySql should treat it as a text.

Without the single quotes will assume that it is a number so it will try to put the value into the destination field.

In your example, "€ 22,07" is not a number or decimal value acceptable because the currency symbol. Also the decimal point separator maybe unacceptable by MySql because the comma represents the field separator.

Also be sure to 'remove' any thousands separator before sending the number to MySql.

Hope this helps

Any class can have a contructor.
The constructor is a

Sub New() 
... 
End Sub

You can define wich kind of parameters you need to create the new instance of the class like

Sub New( Byval Parm1 As String, Byval Parm2 as Integer )

You can define as many parameters as you need

Inside the sub new you can do whatever you need.

Also you can define som public methods or functions to do the work

In order to return values, you can or define functions or define some properties for the class

On the Caller you must create a new instance of the class
Using the created instance you can Call the methods, call functions returning values or get the properties.

Hope this helps

To search for ideas you can go to http://apuntes.rincondelvago.com/trabajos_global/

Is in Spanish but I'm sure you can babelfish it

I use the spreadsheet http://www.fpoint.com/netproducts/spreadwin/spreadwin.aspx

I save it as Excel file then send it as an attachement by mail.

Hope this helps

There are many ways to do it, and one of them is using the recursivity; using it, you can define a parser function like

Function Parse(ByVal SourceString As String) As String
		'
		'	Create a temp return info
		'
		Dim ReturnString As New Text.StringBuilder
		'
		'	The loop position in the source string
		'
		Dim I As Integer = 0
		'
		'	Sart a new random sequence
		'
		Randomize()
		'
		'	While there is something in the source
		'
		Do While I < SourceString.Length
			'
			'	Get the char to process
			'
			Dim c As Char = SourceString.Chars(I)
			'
			'	Depending on the char
			'
			Select Case c
				Case "{"c
					'
					'	This is an opening so must start a deeper level
					'
					ReturnString.Append(Parse(SourceString.Substring(I + 1)))
					Exit Do
				Case "}"c
					'
					'	This is a closing one.
					'--------------------------------------------------------
					'
					'	calculate the options using the | separator
					'
					Dim Options As String() = ReturnString.ToString.Split("|"c)
					'
					'	Clear the return string to get an option. 
					'
					ReturnString = New Text.StringBuilder
					'
					'	Get the option
					'
					ReturnString.Append(Options(CType(Math.Floor(Rnd() * CType(Options.Length, Single)), Integer)))
					'
					'	Get hte rest of the string past the closing bracket
					'
					If I < SourceString.Length - 1 Then
						'
						'	Disregard all the source before the ending bracket and reset the pointer
						'
						SourceString = SourceString.Substring(I + 1)
						I = -1
					Else
						'
						'	If this is the last char, then nothing more to analyze
						'
						SourceString = ""
					End If
				Case Else
					'
					'	this is …

Please start at http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.send.aspx

The Send methos sends the keys to the current active application, so you need to be confident that the application having the focus is the one you are trying to send the keys.

Hope this helps

'
		'	Having a rich text box
		'
		Dim Rt As New RichTextBox
		'
		'	Let some example text
		'
		Rt.Text = "This is some kind of text to analyze for any occurrence of the word is."
		'
		'	Search fot the 'is' word
		'
		Dim StartSearchPosition As Integer = 0
		Dim SearchString As String = "is"
		Dim p As Integer = Rt.Find(SearchString, StartSearchPosition, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight Or RichTextBoxFinds.MatchCase)
		'
		'	If some thing found
		'
		Do While p >= 0
			'
			'	Here is the 'is' word
			'
			Rt.Select(p, SearchString.Length)
			'
			'	Set it to italic
			'
			Rt.SelectionFont = New System.Drawing.Font(Rt.SelectionFont, Drawing.FontStyle.Italic)
			'
			'	Set it to blue
			'
			Rt.SelectionColor = Drawing.Color.Blue
			'
			'	Set the new Start search position
			'
			StartSearchPosition += p + SearchString.Length
			'
			'	Search the if there is another 'is'
			'
			p = Rt.Find(SearchString, StartSearchPosition, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight Or RichTextBoxFinds.MatchCase)
			'
		Loop

There are many ways to do that but essentially the Popupper application needs to notify to the Watcher when a new popup is created.

One way is to create a file in a predefined folder when the Popupper popups and delete the file when the popup closes.

The Watcher application can use a System.IO.FileSystemWatcher (http://msdn.microsoft.com/en-us/library/system.io.filesystemwatcher.aspx) to know when the file is created by the Poopupper (popup launched) and when the file is deleted (poopup closed)

Hope this helps

Read http://msdn.microsoft.com/en-us/library/ddck1z30(VS.71).aspx

Hope this helps

You can try something like

Dim WithEvents Frm As FormRestoreDB
	Dim OpenForms As FormRestoreDB()

	Private Sub BtnOpenDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpenDB.Click
		'
		'	Create a new instance
		'
		Frm = New FormRestoreDB
		'
		'	Add to the forms collection (if you need it). 
		'
		If OpenForms Is Nothing Then
			ReDim OpenForms(0)
		Else
			ReDim OpenForms(OpenForms.Length)
		End If
		OpenForms(OpenForms.Length - 1) = Frm
		'
		'	Show the form
		'
		Frm.show()
	End Sub

When you create a new instance, the fired event of each instance will go to the same parent handler.

Hope this helps

Nothing wrong.

Just debug the INSERT INTO IMAGE command before being ececuted, take the command string and create a new Query using the SQL language on the Access DB. See what is the message from the Access side.

Another possibility is that IMAGE is reserved word. Try INSERT INTO [IMAGE] Values ...

Can you put here the IMAGE table definition?

Out of topic, if you define tabInt and tabChar as string you can initialize them on the dim statement like

Dim tabInt as String = "0123456789"
Dim tabChar as String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

To assign the selected char you can

nouveauNom = nouveauNom + tabInt.Chars(chiffreChoisi).ToString
nouveauNom = nouveauNom + tabChar.Chars(lettreChoisi).ToString

What is the content of nomImage variable?

If in the contents exists some apostrophe this can be interpreted as the end of variable value and the rest of the contents as part of the INSERT sentence wicht is not.

This is called SQL injection and is a very common problem in countries using the apostrophe in their language.

If this is the case, you can assure that the sintax is correct using

Dim sqlQRY2 As String = "INSERT INTO IMAGE(Nom_Img)  Values ('" + nomImage.Replace("'","''") + "')"

Hope this helps

Some things you can do:
To Count all the lines to process you must

For Each strName In dlg.FileNames
				' Count all the lines of the input text file / set progress bar to length
				Dim lines As String() = IO.File.ReadAllLines(dlg.FileName)
				ProgressBar1.Maximum += lines.Length - 1
			Next

Then to loop over all the files:

For Each strName In dlg.FileNames
				Dim lines As String() = IO.File.ReadAllLines(dlg.FileName)

To have the fields for each line you can:

For Each line As String In lines
					Dim currentRow As String() = line.Split(vbTab)

In order to validate if the input line is OK you can

If currentRow.Length = 4 _
					AndAlso currentRow(0).Length > 0 _
					AndAlso currentRow(1).Length > 0 _
					AndAlso currentRow(2).Length > 0 _
					AndAlso currentRow(3).Length > 0 Then

On the Me.InventoryTableAdapter there is a Connection property that defines if this is an OLEDDB or just and SQL Connection.

Assuming this is an OLEDB connection there is the tric:

Dim sqlCmd As New OleDb.OleDbCommand
						sqlCmd.Connection = Me.InventoryTableAdapter.Connection
						sqlCmd.CommandText = _
						 "IF NOT EXISTS (SELECT SKU FROM inventory WHERE SKU = '" & _
						currentRow(0) & "') INSERT INTO inventory VALUES( " & _
						"'" & currentRow(0) & "', " & _
						"'" & currentRow(1) & "', " & _
						"'" & currentRow(2) & "', " & _
						"'" & currentRow(3) & "') ELSE UPDATE inventory SET " & _
						"itemTitle = '" & currentRow(1) & "', " & _
						"itemNote = '" & currentRow(2) & "', " & …

Just on the advanced editor search for the attach files (mange attachements) button

Just find the text you need to change the font or the color using the Find function of the rich text box, wich will return the text position, or advance through the text property analyzing the current text (without the need to be aware of the curent format).
Then just use the Select function to select the text you want to modify.
Using the SelectionFont and SelectionColor properties you will achieve the expected result.

Hope this helps

Is it possible that you current version of the provider needs some upgrade/update?

You can obtain some info in:
http://support.microsoft.com/kb/239114/en-us
http://support.microsoft.com/kb/303528/en-us

Hope this helps

On the sqlQRY1 you DO NOT specify wich fields to fill wich meand that the AUDIO table has only one field.

On the sqlQRY2 you specify to fill ONLY the field called Nom_Img in the table IMAGE. If this table has more fields, you must:
* Or define default values on the IMAGE table for all the rest of field and declare them as NOT required
* Or supply data for all the required fields inthe table IMAGE.

If this is not the case, please supply a table definition and the full error message.

PD: Can be a good idea to add a begintransaction and then commit the transaction (or rollback if fails), to ensure that the insert commnad(s) is/are isolated, preventing data loss.

Start at http://msdn.microsoft.com/en-en/library/system.threading(VS.80).aspx

You can continue on http://www.yoda.arachsys.com/csharp/threads/

Hope this helps.

Just guessing you also need to define the Insert, Delete and Update commands for the OleDbDataAdapter before trying to use them.

What do you have on Item(13)? On your code ony a boolean value showing or not the picture box.

What do you should have?. A good soultion is to have the full path to the picture(I.E. "D:\Pictures\PeopleILike01.jpg" or "\\Hostname\Sharename\PicturesDir\PictureNumber765.tif" ). In this case you can:

PicBox.ImageLocation = ds.Tables("Personnel").Rows(inc).Item(13)
PicBox.Refresh

The print queue (spooler) is always ready to receive and enqueue new print jobs. This is a standard feature of Windows and almost all other current Operating systems.

When the printer goes on line, all the print jobs in the queue are printed.

If you want to warn the user about the status of the printer then you need to go down to the API

Try to start reading the http://www.thedbcommunity.com/index.php?option=com_content&task=view&id=218&Itemid=56.
Is based on Paradox Db, but all the principes, structures and howtos are valid to be used in Vb.net

Hope this helps

You will need to add
cb.top = topcornerpositionintheformorpage: cb.left = leftcornerpositionintheformorpage: cb.visible=true

inorder each new check box will appear in a disticnt place, being topcornerpositionintheformorpage an integer inticating the number of pixels since the top of the form for the new check box, and leftcornerpositionintheformorpage an integer inticating the number of pixels since the left edje of the form for the new check box, and assuring the visibility.

Hope this helps

I understand that it is a windows forms application. Not a web one.

Do you have checked, in the application properties, security tab, the Enable ClickOnce, then the partial trust application, and calculated the permissions for local intranet? Or just set it as a full trust application?.

Putting the application into a share, for run purposes, is generally not a good idea because the application should be installed on the local PC. The installer registers the assemblies into the local PC GAC (Global Assembly Cache)

The Access database can be put on a share, but you'll need to define the path as trsuted by access on every client. And must have also crete/delete files permission for the access lock management.

Hope this helps

Give a try to the FarPoint Spread for Windows Forms from GrapeCity V.5 (free download for limited test time, good support forum)

You can customize almost all cell layouts

You need to create a new checkbox for each row, and add the new check box to your forms or page at run time, not at design.

On line 17 you need to:
Dim Cb as new Checkox : cb.name = "Chk" & reader("CandidateId").ToString : cb.text = reader("candidateLname").ToString : Me.Controls.add(cb)

To recover the resulsts, you must cicle on the form or page controls to get the controls wich name beguns with "Chk" and then, the rest of control name will give you the candidate id, and the Checked property will give you the voting.

Maybe you will need to set the cb location in the form or page.

Hope this helps.

I Hope you already solvet it at due time.

Pay attention to the compare you are doing because you are missing the case when the current stock and the ordered quantity are equals.

On the Ready to ship function, when the current stock is smaller than the requested quantity, the returned value should be the current stock, as you will deliver all the current stock, else the returned value should be the ordered quantity.

On the Back Ordered function, when the current stock is smaller than the requested quantity, the returned value should be the ordered value minus the current stock as you will deliver all the current stock, else the returned value should be 0.

Probably this way will work.
Hope this helps.

Hello,

I am having issues creating an application that is due tomorrow! Obviously I am not calling my functions correctly, or I just don't even have my functions written correctly. Please help!! Here is the problem:

I am trying to create an application for a wire company that sells spools of wire for $100 each. The normal delivery charge is $10 per spool. Rush delivery costs $15 per spool. The user should enter the number of spools ordered in a text box, and check Rush Delivery box if rush delivery is desired. When the Calculate Total button is clicked, an input box should appear asking the user to enter the number of spools currently in stock. If the user has …