A1VBCode Forums / Visual Basic .NET/2005/2008 / .NET Programming

Press save and the RichTextBox adds 5 spaces at the beginning of each written line. * SOLVED *

envious — Mon, 27 Oct 2008 18:21:07 GMT

' Create a SaveFileDialog to request a path and file name to save to.
Dim saveFile1 As New SaveFileDialog

' Initialize the SaveFileDialog to specify the RTF extension for the file.
saveFile1.DefaultExt = "*.rtf"
saveFile1.Filter = "RTF Files|*.rtf"
' Determine if the user selected a file name from the saveFileDialog.
If (saveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (saveFile1.FileName.Length) > 0 Then
' Save the contents of the RichTextBox into the file.
RichTextBox1.SaveFile(saveFile1.FileName, _
RichTextBoxStreamType.PlainText)
End If

This is the code I am using in the save button, but what I want to happen is before the dialog comes up, I want 5 spaces to be added to the beginning of each line in the RichTextBox.

Example text:

"Hello and welcome to my program."
"I hope you enjoy."

After pressing the save button:
" Hello and welcome to my program."
" I hope you enjoy."

If anyone could help me, I would greatly appreciate it.

How to define a UserControl

jireh — Fri, 31 Oct 2008 07:34:04 GMT

I want to make a usercontrol which is a combobox but the dropdown will be a grid. So far this is my code and my problem is that the grid wont show.

load report failed

forever10 — Thu, 06 Nov 2008 03:40:08 GMT

in my windows application my report works well but when I already publish it to the web..it doesn't work now.
it says "load report failed".... what I'm going to do about this?

the details says

Code:
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.Exception: Load report failed. ---> System.Runtime.InteropServices.COMException (0x80004005): The system cannot find the path specified.

at CrystalDecisions.ReportAppServer.ClientDoc.ReportClientDocumentClass.Open(Object& DocumentPath, Int32 Options)
at CrystalDecisions.ReportAppServer.ReportClientDocumentWrapper.Open(Object& DocumentPath, Int32 Options)
at CrystalDecisions.ReportAppServer.ReportClientDocumentWrapper.EnsureDocumentIsOpened()
--- End of inner exception stack trace ---
at CrystalDecisions.ReportAppServer.ReportClientDocumentWrapper.EnsureDocumentIsOpened()
at CrystalDecisions.CrystalReports.Engine.ReportDocument.Load(String filename, OpenReportMethod openMethod, Int16 parentJob)
at CrystalDecisions.CrystalReports.Engine.ReportDocument.Load(String filename)
at RBA.frmRBA.Print_Report()
at RBA.frmRBA.tsbMenu_ItemClicked(Object sender, ToolStripItemClickedEventArgs e)
at System.Windows.Forms.ToolStrip.OnItemClicked(ToolStripItemClickedEventArgs e)
at System.Windows.Forms.ToolStrip.HandleItemClick(ToolStripItem dismissingItem)
at System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
at System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
at System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
at System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
at System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ToolStrip.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.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** Loaded Assemblies **************
mscorlib
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
RBA
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/Documents%20and%20Settings/amasis/Local%20Settings/Apps/2.0/JQ46CMN9.40A/RTHGN9R0.GGK/rba...tion_2f8a24fc9c07bf0b_0001.0000_f109f6c644ca33f6/RBA.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 8.0.0.0
Win32 Version: 8.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Data
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_32/System.Data/2.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Transactions
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_32/System.Transactions/2.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
System.EnterpriseServices
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_32/System.EnterpriseServices/2.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
----------------------------------------
CrystalDecisions.CrystalReports.Engine
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.CrystalReports.Engine/10.2.3600.0__692fbea5521e1304/CrystalDecisions.CrystalReports.Engine.dll
----------------------------------------
CrystalDecisions.Windows.Forms
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.Windows.Forms/10.2.3600.0__692fbea5521e1304/CrystalDecisions.Windows.Forms.dll
----------------------------------------
CrystalDecisions.Shared
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.Shared/10.2.3600.0__692fbea5521e1304/CrystalDecisions.Shared.dll
----------------------------------------
CrystalDecisions.ReportSource
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportSource/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportSource.dll
----------------------------------------
System.Web
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.42 (RTM.050727-4200)
CodeBase: file:///C:/WINDOWS/assembly/GAC_32/System.Web/2.0.0.0__b03f5f7f11d50a3a/System.Web.dll
----------------------------------------
CrystalDecisions.ReportAppServer.CommLayer
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.CommLayer/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.CommLayer.dll
----------------------------------------
CrystalDecisions.ReportAppServer.ClientDoc
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.ClientDoc/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.ClientDoc.dll
----------------------------------------
CrystalDecisions.ReportAppServer.DataSetConversion
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.DataSetConversion/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.DataSetConversion.dll
----------------------------------------
CrystalDecisions.ReportAppServer.DataDefModel
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.DataDefModel/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.DataDefModel.dll
----------------------------------------
CrystalDecisions.ReportAppServer.Controllers
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.Controllers/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.Controllers.dll
----------------------------------------
CrystalDecisions.ReportAppServer.CubeDefModel
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.CubeDefModel/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.CubeDefModel.dll
----------------------------------------
CrystalDecisions.ReportAppServer.ReportDefModel
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.ReportAppServer.ReportDefModel/10.2.3600.0__692fbea5521e1304/CrystalDecisions.ReportAppServer.ReportDefModel.dll
----------------------------------------
CrystalDecisions.KeyCode
Assembly Version: 10.2.3600.0
Win32 Version: 10.2.51014.0
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/CrystalDecisions.KeyCode/10.2.3600.0__692fbea5521e1304/CrystalDecisions.KeyCode.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

Code problem. Can someone help - trial version

daveofgv — Thu, 06 Nov 2008 09:40:03 GMT

Hello all!

I would like if someone could look at some code and let me know what my problem is. I am trying to have a trial software where the software ends 15 days after installation. Also, the code is suppose to see if the user changes the date on their computer and notifies them that they changed the date. After 2 times the software is suppose to shut down.

My problem is that it dosn't count down the days and it dosn't recgonize that they changed the date........

Would it be possible for someone to look at my code and let me know what's wrong.

Thank you in advanced....

daveofgv

Public Class Form1

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim intTime As Integer = 1
Dim dteLastStart, dteStartDate As Date
Dim blnFirstTime, blnEnabled As Boolean
Dim lngTimeLeft As Long

blnEnabled = True
If dteStartDate = Nothing Then
dteStartDate = Now
End If

My.Application.SaveMySettingsOnExit = True

If DateDiff(DateInterval.Day, dteLastStart, Now) < 0 Then
'First clock change
If intTime = 1 Then
MsgBox("This software has detected that you have changed your system date to an earlier date" & vbCrLf _
& "As this software has built-in security," & vbCrLf _
& "this software will only run until the next intTime you change your system date", _
MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "System Date Changed")
intTime = 2
ElseIf intTime = 2 Then
'Second clock change
blnEnabled = False
MsgBox("This software has detected that you have changed your system date to an earlier date" & vbCrLf _
& "As this is the second warning, this software will now be disabled", _
MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "System Date Changed")
End If
'disables app
If blnEnabled = False Then
If MsgBox("Software is disabled", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Disabled") = MsgBoxResult.Ok Then
For Each form As Form In My.Application.OpenForms
form.Close()
Next
End If
End If
End If
If DateDiff(DateInterval.Day, dteStartDate, Now) > 15 Then
blnEnabled = False
If blnEnabled = False Then
If MsgBox("This software has reached the end of it's trial.", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Trial Ended") = MsgBoxResult.Ok Then
'Close all open forms
For Each form As Form In My.Application.OpenForms
form.Close()
Next
End If
End If
End If
dteLastStart = Now
If blnFirstTime = True Then
blnFirstTime = False
End If
'Saves variable settings
My.Settings.Save()

lngTimeLeft = 15 - (DateDiff(DateInterval.Day, dteStartDate, Now))

MsgBox("This software is a trial version and can only be used for 15 days." _
& "If you would like to purchase this software please contact DMB Software for the full version" & vbCrLf _
& "You have " & CStr(lngTimeLeft) & " days left.", _
MsgBoxStyle.OkOnly, "Software Trial")

End Sub
End Class

Message Box question

daveofgv — Sat, 08 Nov 2008 12:04:56 GMT

I have a simple question that I would like to see if someone could help me.....

I have a messagebox (form that I made to give the user an alert) and have two buttons - "OK" and "Cancel". I put a check box on the form saying "Do not show message again". I opened my project and choose settings - added a name of donotshowagain - set the type to "Boolean" - Scope "User" - Value "False".

I added checkbox to the form from Application settings in the properties section.

I was told to use the code:

****************************************

private Sub ShowSplashForm()
if Not My.Settings.DoNotDisplayForm1Again then
Form1.Show
end if
end sub

****************************************

My problem is that no matter how I change the code to match my forms I can't get the checkbox to do not show message again to work.

Could someone show me step by step what I am doing wrong or another way to click a checkbox so the message does not show again???

Thank you in advanced.

daveofgv

What's Wrong With This?

ProgrammerIdioit — Mon, 10 Nov 2008 05:13:50 GMT

Enter VB.NET codes for the 'Play' button. The programming codes will do the following steps:

a) Generate a 3 random numbers between 1,9 and display on the label controls on the screen.

i. Define a random object r.
ii. Define 3 integer variables and each to store a generated random number; ie. r.Next(1,9).Display the random number on the screen label controls.

b) Deduct cost to bet, $10 per day. Also, increment the number of bet counter every time the button is clicked.

i. Define a double variable. Assign this variable with the balance value shown on the screen.
ii. Deduct 10 from the variable as cost to bet.
iii. Display the new balance value on the screen.
iv. In the same logic, add 1 to the bet counter.

c) Check to see if user wins. Add 20 to balance, if 2 of the 3 numbers are the same; or Add 100 to balance if all 3 numbers are the same.

i. Define a integer variable to calculate winning points. Initialise variable to 0. Compare each of the 3 combination numbers. If 2 numbers are the same, add 1 to the point variable.
ii. Finally, if variable is 1, add 20 to balance; if variable is 3, add 100 to balance.

d) Stop the game when not enough money to play.

i.Check balance value. If balance is below 10, disable the Play button (Hint: check the button property list to find the name of the property associated with enabling and disabling; set the property by using VB.NET codes).

------------------------------
Partial Class _Default
Inherits System.Web.UI.Page

Public balance As Integer

Protected Sub bn_increase_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bn_increase.Click
Dim c As Integer
c = Convert.ToInt32(lb_count.Text)
c = c + 1
lb_count.Text = Convert.ToString(c)

'Dim balance As Integer
Dim r As Random = New Random
Dim RandomNumber1, RandomNumber2, RandomNumber3 As Integer
Dim TotalMoney As Double = 100
Dim win_count As Integer = 0
Dim comb_num As Integer = 0
comb_num = RandomNumber1
comb_num = RandomNumber2
comb_num = RandomNumber3

'lb_balance.Text = balance
'balance = 100
'balance = Convert.ToInt32("lb_balance.text")

RandomNumber1 = r.Next(1, 9)
RandomNumber2 = r.Next(1, 9)
RandomNumber3 = r.Next(1, 9)

Label1.Text = RandomNumber1
Label2.Text = RandomNumber2
Label3.Text = RandomNumber3

'If RandomNumber1 <> RandomNumber2 <> RandomNumber3 Then

' comb_num = 0
'lb_balance.Text = balance - 10

'ElseIf RandomNumber1 = RandomNumber2 Then
' comb_num = 2

'ElseIf RandomNumber1 = RandomNumber3 Then
' comb_num = 2

'ElseIf RandomNumber2 = RandomNumber3 Then
' comb_num = 2

'ElseIf RandomNumber1 = RandomNumber2 = RandomNumber3 Then
' comb_num = 3
While balance > 0

If RandomNumber1 = RandomNumber2 Or RandomNumber1 = RandomNumber3 Or RandomNumber2 = RandomNumber3 Then
'balance = 100 + 20
'lb_balance.Text = balance
lb_balance.Text = balance + 20

'comb_num = 2

ElseIf RandomNumber1 = RandomNumber2 = RandomNumber3 Then

lb_balance.Text = balance + 100

Else
'RandomNumber1 <> RandomNumber2 <> RandomNumber3 Then

lb_balance.Text = balance - 10

End If

End While

'comb_num = 3
'comb_num = comb_num + (RandomNumber1 <> RandomNumber2)
'comb_num = comb_num + (RandomNumber1 <> RandomNumber3)
'comb_num = comb_num + (RandomNumber2 <> RandomNumber3)
'comb_num = comb_num - (comb_num = 1)

'Select Case comb_num
' Case Is = 0
' lb_balance.Text = balance - 10
' Case Is = 2
' lb_balance.Text = balance + 20
' Case Is = 3
' lb_balance.Text = balance + 100
'End Select

'If comb_num = 0 Then
' lb_balance.Text = balance - 10
'End If

'If comb_num = 1 Then
' lb_balance.Text = balance + 20
'End If

'If comb_num = 2 Then
' lb_balance.Text = balance + 20

'End If

'If comb_num = 3 Then
' lb_balance.Text = balance + 100

'End If

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'balance = 100

'lb_balance.Text = balance

End Sub
End Class

-------------------------
Please help me with my codes.. the calculations part doesnt work out well... what's wrong??

please help.. i cant figure it out at all...

thanks

Help with left outer join using three tables

victor64 — Sat, 15 Nov 2008 00:24:09 GMT

Hello,

I would like to join 3 tables based on a common field. Table 1 should always have data, but data from tables 2 and 3 will not always be available, can you please help me with the left outer join syntax for three tables, below is my code for joining two tables, but the and (after the IN statement) statement is not good because unless there's a link in both tables, table 1 does not show even when available.

mySQL_Statement = "select IDENTIFICATION_DATA.NIIN, IDENTIFICATION_DATA.AIN, USER_REGISTRATION.MC from IDENTIFICATION_DATA, USER_REGISTRATION"

If Not ((TextBox1.Text = String.Empty) And (TextBox2.Text = String.Empty) And (TextBox3.Text = String.Empty) And (TextBox4.Text = String.Empty) And (TextBox5.Text = String.Empty)) Then
mySQL_Statement = mySQL_Statement + " where "
If Not (TextBox1.Text = String.Empty) Then
mySQL_Statement = mySQL_Statement + "IDENTIFICATION_DATA.NSC IN (" + TextBox1.Text & ") and IDENTIFICATION_DATA.NIIN = USER_REGISTRATION.NIIN"
End If

End if

Thanks,

Victor

Moving objects

408a — Sat, 15 Nov 2008 06:15:37 GMT

here are the two things I want to do:

-moving objects constantly and when they hit the borders of something, then I has to go the other side, like a mirror doe with light

-mobing objects from the one place to the other.

do I need a special variable or something, please help if you can.

how to use hotkeys in VB

408a — Sat, 15 Nov 2008 06:34:11 GMT

how can i let my program do something when I press for example the 'x' button?

textbox and button

kailekl — Tue, 11 Nov 2008 23:25:55 GMT

hello,
i've trouble with my codes.
I need to create a search engine kinda thing for my webpage.
therefore , i've used a textbox and a button.
however, how should i write my codes so that , when the button onclick, it will send the textbox value to the database and retrieve datas that belong to the value in textbox. the result of the search will then be reflected by a gridview at the bottom.

Partial Class Calendar
Inherits System.Web.UI.Page

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

End Sub
End Class

Please help! thanks!! =)

Regards,
Kaile =))

saving files

408a — Sat, 15 Nov 2008 06:36:11 GMT

How can I make a program that can save and load a progress in that program?
I know already how to insert the menu for saving and loading, but when I click it, there doesn't happen anything!

How to Merge data from table 2 to table 1 based on common field

victor64 — Sat, 15 Nov 2008 13:14:39 GMT

mySQL_Statement = "INSERT INTO IDENTIFICATION_DATA(code) (SELECT RN FROM REFERENCE_DATA(RN) WHERE IDENTIFICATION_DATA.NIIN = REFERENCE_DATA.NIIN)"

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\aopt2002orgorg.mdb;Persist Security Info=True;Jet OLEDBatabase Password=testaopupdate"

Dim objConnection As New OleDb.OleDbConnection(ConnectionString)

'data adapter

Dim objDataAdapter As New OleDb.OleDbDataAdapter(mySQL_Statement, objConnection)

'dataset object

Dim objDataSet As New DataSet

'fill dataset

objConnection.Open()

objDataAdapter.Fill(objDataSet, "SN")

objConnection.Close()

Inserting multiple records from one table to a single record in a second table

victor64 — Sat, 15 Nov 2008 23:19:26 GMT

Hello,

I have two tables with matching fields LAST:

TABLE 1 (Records)

LAST HOBBY

charles Soccer

TABLE 2 (Records)

LAST INTEREST

charles swimming

charles basketball

charles football

I would like to have the following in TABLE 1 (Records)

LAST HOBBY INTEREST

charles Soccer basketball, football, swimming

Below is my code that inserts the records for matching records, how do I modify it to achieve what I am trying to do?

Thanks.

Code:

Dim mySQL_Statement As String = "UPDATE table1 " & vbNewLine & _

" INNER JOIN " & vbNewLine & _

" table2 " & vbNewLine & _

" ON table1.last " & _

" = table2.last " & vbNewLine & _

" SET table1 interest = " & _

" table2.interest "

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\aopt2002orgorg.mdb;Persist Security Info=True;Jet OLEDBatabase Password=testaopupdate"

Dim objConnection As New OleDb.OleDbConnection(ConnectionString)

'data adapter

Dim objDataAdapter As New OleDb.OleDbDataAdapter(mySQL_Statement, objConnection)

'dataset object

Dim objDataSet As New DataSet

'fill dataset

objConnection.Open()

objDataAdapter.Fill(objDataSet, "SN")

objConnection.Close()

Thanks in advance.

Victor

How do I compare two arrarys?

rblockmon — Sun, 16 Nov 2008 14:48:34 GMT

I've been ripping my hair out for last day or so. Either I don't know or I don't understand, but I cannot find out in my text book on how to compare two array. Each array has 12 games with values of the scores that each foot ball team made.

I need to compare these scores and report how many won and how many lost in the 12 games. I think i can figure out the who won and who lost, I just need some help on how to go about comparing the two arrays. Any help would be greatly appreciated.

I'm using Visual Studio 2008 with Visual Basic

VB Code to verify a Value entered against pre-determined list

mikeyb7 — Fri, 14 Nov 2008 08:47:16 GMT

Hi Guys,

I'm sorry if this is a real basic question but i have just started lookin at VB and want to create a simple windows form application as practice.

What i want to do is to create a form where someone can enter a value and then hit submit which will then make the form check to see if the value entered is valid by verifying against a pre-determined list.

e.g

Someone enters Yellow into a text box and hits submit. The form will then check the list where the valid entries are red, yellow and blue. As yellow is a valid entry, a message will be returned stating the the value entered is correct. However if green was entered, a message would be returned stating " The value entered is invalid".

Entventually i want to build this form up so that an XML document can be copied into this input field and for the form to compare the values entered against a larger list and state whether the XML is formatted correctly?

If anyone could advise where to start with this that would be great.

Thanks for taking the time to read this,
Mike

How to insert a character in existing records

victor64 — Fri, 14 Nov 2008 00:22:18 GMT

Hello, I am using VB.NET 2005 and MS ACCESS 2003

My database contains data in the following format:

1305000248767

I need to insert "-" in several location to obtain the following format

1305-00-024-8767

How do I append the records to insert the "-" at these locations.

Thanks,

Victor

Usb Webcam

titancore — Fri, 14 Nov 2008 03:31:17 GMT

Hey guys!

I have a usb webcam that is located on my remote helicopter. The onboard electronics take the webcam's data signal, mixes it with my other diagnostics, and then sends the signal to a reciever. The reciever unsorts the data and the webcam data is routed to the usb as if it were a direction connection (theoretically). Now i read that usb devices are limited to a ping response in order to maintain connectivity, is this true? if so, how can i maintain that the camera is virtually connected without it really being connected? Also, ive done alot of reading and there is very little literature on controlling usb devices in vb.net (atleast i could find any )

Help is appreciated

Zip/Unzip

abj — Thu, 13 Nov 2008 07:28:25 GMT

hi guys,

I want sample code that zips the files or folder.Also unzip zipped files and folder.Also i want on click event at the time of zip ask location where to save zip file.

TreeView Scroll Position Get and Set on VB.Net Windows Forms

sanjoydas — Thu, 13 Nov 2008 02:28:40 GMT

I used a treeview with scrollable property true. Firstly I generated the treeview. Then I selected a treenode as :
dim node as TreeNode
node=treeview1.Nodes(1)
After that I refresh the treeview in a structured way, like Expanded node as expanded and Collapsed as collapsed.
Then I need to keep that selected node in the visible zone, so I used :
node.EnsureVisible()
Still the node is not is not in the visible zone as the vertical Scroll Bar goes at the top of the treeview.
Please help how I can maintain the vertical Scroll Bar position?

Thanks in Advance.
Sanjoy.

my training

senol — Sun, 28 Sep 2008 15:53:35 GMT

my free asp.net training video download

How do I delete a folder in VB '08

ninjapunkrawker — Sat, 08 Nov 2008 22:21:27 GMT

So I'm making this program and I don't know the correct code to delete a folder from like, lets say a button.

thx, much appreciated ;D

How to create a button to search a Microsoft Access File from a Windows Form Application?

cbones — Tue, 14 Oct 2008 11:27:08 GMT

I am creating a windows form application and added a microsoft access 2007 file to the application. I would like to add a search button so people can search for a specific entry in the file.

I tried to fool around with this but still could not make it work. The MsgBox works if no data is in the textbox but once something is enter I receive an error message saying the file is not a database.

If TextBox1.Text = "" Then ' Give an error if nothing is in the text box
MsgBox("You did not enter any criteria to search.")
Else
Public Sub ReadMyData(ByVal myConnString As String)
Dim mySelectQuery As String = "SELECT Medical Record Number, Last Name, First Name FROM Table1"
Dim myConnection As New OleDbConnection(myConnString)
Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)
myConnection.Open()
Dim myReader As OleDbDataReader
myReader = myCommand.ExecuteReader().
While myReader.Read()
Console.WriteLine(myReader.GetInt32(0).ToString() + ", " _
+ myReader.GetString(1))

How to search PDF

victor64 — Sun, 09 Nov 2008 22:30:36 GMT

Hello,

I need help on how to search PDFs in a folder from text entered in a text box, list the PDF file names which contains the text in a list box and click on the filenames from the listbox to open the PDF. Can you please help me with the sample codes or links related to this topic.

Thanks in advance.

Victor

new vb.net 2003 user please help

Gerleb93 — Sun, 09 Nov 2008 11:27:21 GMT

am making an image viewer where the user can import an image from computer resize, rotate, and / or add effects. so far i can open the image through open dialog change the size and view the new size but when i save the image using the save dialog it saves the old image not the new image.

here is my menu item save code

Dim newpbwidth As Integer
Dim newpbheight As Integer

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

newpbwidth = PBDisplay.Width
newpbheight = PBDisplay.Height
PBDisplay.SizeMode = PictureBoxSizeMode.StretchImage
PBDisplay.ClientSize = New Size(newpbwidth, newpbheight)

newimg = PBDisplay.Image

newimg.Save(SaveFileDialog1.FileName)

End If
can anyone help

Some VB Help

Jynx — Thu, 06 Nov 2008 17:17:11 GMT

I'm trying to learn VB .NET from some books and the web. I like to do the practice programs so I'm not just "reading" but "doing" what I'm learning, (or trying to learn). I'm stuck on 2 of them. I'll just post this one for now. I can write it (sort of) just using a bunch of nested if statements and so on however a friend of mine told me that's not exactly the way there wanting it done here per the instructions. So I'm sort of stuck and just need to see how it should look to satisfy the instructions.

Write a Console application that lets the user decide if they want to make a Rectangle or a Box. Depending on their answer, prompt them for the necessary values (length and width or length, width and height) and then create an object of that type. Once this is complete, use the ToString method to print a description of the object and then the value of either the area or volume of the object to the Console.

Although not required to look this way, your program output might look like:

Would you like to create a Rectangle or a Box (r or b): b
Please enter the length: 4
Please enter the width: 23
Please enter the height: 3

This object has length: 4 and width: 23 and height: 3
This box has volume: 276

variables in 2 forms

408a — Sat, 08 Nov 2008 02:55:49 GMT

Hello, I want to use a variable in one form and then if I exit that one use the same variable in another form, can someone explain me how to do this? Please try to explain everything very carefully, because I 'm not a professional.

fetch stored procedures n paramers

abj — Fri, 07 Nov 2008 06:40:20 GMT

hi ,

i have datbase having so many sp's.I want to

1-add stored procedure's Name in first text box.

2-add parameter's of sp in second textbox

3-add connection string in third text box.

Now i want fill datagrid with result set of for particular stored procedure which is add by me.

if anybody has idea then plz tell me.it's urtgent.

Connection to Sql database

bonhomme — Wed, 05 Nov 2008 08:16:42 GMT

I am busy with a webform after trying to connect with the script below

Protected Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ConnectHandler
ConnectHandler = "Data Source=FAXCOOLWAREZ037;Initial Catalog=Accout;Persist Security Info=True;User ID=sa;Password=dieudonne"
Dim My_Dataset As New DataSet()
'Declare an instance SQL statement
Dim sql As String
sql = "Select * from AccountTBL "
'Declare a new instance of dataset
'Select command and connection command
Dim objDA As New SqlDataAdapter(sql, ConnectHandler)

If My_Dataset.Tables("AccountTBL").Rows.Count > 0 Then
Dim CustRow As DataRow
CustRow = My_Dataset.Tables("AccountTBL").Rows(0)

TextBox1.Text = "yes"
End If

I received this error message on the variable "Dim objDA" there is the error message
"Overload resolution failed no accessible "New" can be called without a narrowing conversion. What is the meaning?

Any help please

How to Automatically click on Image in Webbrowser

hein123 — Mon, 03 Nov 2008 20:32:38 GMT

I have the following problem in Visual Basic.net:

I would like automate a process by clicking on an image in a Webbrowser control (AxWebBrowser if possible). The problem is that the image is a INPUT and it is within a FRAME, so AttachEventHandler does not work. And I would like to click the image at an appropriate X-Y possition.

I can use API calls which does work, but I do not want to use this method

Any help would be appreciated

windows application project to be place in a web application project

forever10 — Mon, 27 Oct 2008 20:56:43 GMT

i would just like to ask.. how can i put my windows application project to my web application? like for example, in my web application there's a link there named "system", so when I click that, my windows application project will open.

thanks! hope you could help me..

hi

danielrock4ever — Mon, 27 Oct 2008 05:52:08 GMT

Hi all I am new to this site so i would like to introduce myself here is jeff and i would like to share my ideas here in this site. I want to know about this site can anybody tell me about this site?
________________________________________________________
panic attacks Rachael Ray

Problem casting a returned structure

Yamachi — Sun, 26 Oct 2008 18:35:30 GMT

I'm currently writing a program in vb.net 2008, that is split into the main program and several DLLs (of which the user can select 1 to use). In the DLL, I have a function that reads data from a filestream into a structure, then returns the structure. While trying to assign the returned information to a variable in the main program, I get "Unable to cast object of type Vertex[] to type Vertex[]". Here's a snippet of the code from both the DLL and the main program:

Main Program:

Public Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ModelLibrary = Assembly.LoadFrom("C:\Documents and Settings\Administrator\My Documents\Visual Studio 2008\Projects\ShardM2\ShardM2\bin\Debug\ShardM2.dll")
'ModelLibrary = Assembly.LoadFrom("ShardM2.dll")
GLView1.MakeCurrent()
OpenTK.Graphics.GL.ClearColor(Color.SkyBlue)
SetupViewport()
AddHandler Application.Idle, AddressOf Application_Idle
sw.Start()
End Sub

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim shard As Type
shard = ModelLibrary.GetType("ModelLibrary.Shard")
method = shard.GetMethod("Open")
Dim o As Object
o = Activator.CreateInstance(shard)
Dim model As New FileStream("C:\Documents and Settings\Administrator\Desktop\WotLK M2\1HTrollSpear01.m2", FileMode.Open)
Dim oo As Object() = {model}
Dim VertArray() As Vertex = method.Invoke(o, oo) <-- THIS IS THE LINE THAT ERRORS
End Sub

DLL:

Public Function Open(ByVal model As FileStream) As Vertex()
' Start here
Dim FileHeader As HEADER ' Stucture variable
Dim VertArray() As Vertex = {}
Dim ByteArray() As Byte = {}
Array.Resize(ByteArray, 304)
model.Read(ByteArray, 0, 304)
' convert to bytes
' Call BuildStr method to create structure and copy byte array data to structure
FileHeader = BuildStruct(ByteArray, FileHeader.GetType)

' Vertices
Array.Resize(VertArray, FileHeader.nVertices) ' Declaring temporary vertices variable and setting its size
model.Seek(FileHeader.ofsVertices, SeekOrigin.Begin) ' Set filestream position to start of vertex data
Dim i As Integer = 0
Dim vert As M2VERTEX ' temporary vertex structure variable
Dim vertbytes() As Byte = {} ' temporary vertex byte array.
Array.Resize(vertbytes, 48)

While i < FileHeader.nVertices
model.Read(vertbytes, 0, 48) ' reading a single vertex into the temp byte array
vert = BuildStruct(vertbytes, vert.GetType) ' converting the array to a VERTEX structure
VertArray(i).Position.X = vert.pos.X
VertArray(i).Position.Y = vert.pos.Y
VertArray(i).Position.Z = vert.pos.Z
VertArray(i).Normal.X = vert.normal.X
VertArray(i).Normal.Y = vert.normal.Y
VertArray(i).Normal.Z = vert.normal.Z
VertArray(i).TexCoord.X = vert.texcoords.X
VertArray(i).TexCoord.Y = vert.texcoords.Y
VertArray(i).Weight0 = vert.weights.Weight0
VertArray(i).Weight1 = vert.weights.Weight1
VertArray(i).Weight2 = vert.weights.Weight2
VertArray(i).Weight3 = vert.weights.Weight3
VertArray(i).Bone0 = vert.bones.Bone0
VertArray(i).Bone1 = vert.bones.Bone1
VertArray(i).Bone2 = vert.bones.Bone2
VertArray(i).Bone3 = vert.bones.Bone3
i += 1
End While

Return (VertArray)
End Function

Both the main program AND the DLL have the Vertex structure defined exactly the same, so I don't quite get why it's not casting... Anyways, thanks in advance for any help

P.S. Sorry about not using [code] tags... They won't work, for some reason.

Help rounding numbers

jdwilsh — Sat, 25 Oct 2008 15:35:44 GMT

Hey, i'm having a few problems rounding my numbers to whole numbers.

I'll be honest, i started playing with VB today heh, but im not brand new to programming, i did a little bit of Java a few years ago.

I have searched the forums and haven't had much luck in finding help. If someone could have a quick look at this and pont me in the right direction that would be very helpful.

Public Class ACW

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label10.Text = Val(Val(Val(Mins1.Text) * 60) + Val(Sec1.Text)) / Val(Calls1.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label11.Text = Val(Val(Ofrs.Text) / Val(MPNEC.Text) * 100)
Label12.Text = Val(Val(AcOfrs.Text) / Val(MPNEC.Text) * 100)
End Sub
End Class

Opening Windows Explorer in a vb.net panel

Newander — Fri, 24 Oct 2008 15:03:38 GMT

Hi guys,

I'm having a hard time getting this code to work, here's the code, I'm trying to open an instance of explorer.exe in a vb.net panel.

Imports System.Runtime.InteropServices

Public Class Form1

Private Const WM_SYSCOMMAND As Integer = 274

Private Const SC_MAXIMIZE As Integer = 61488

Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim proc As Process

proc = Process.Start("explorer.exe")

proc.WaitForInputIdle()

SetParent(proc.MainWindowHandle, Me.Panel1.Handle)

SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)

End Sub

End Class

This is the error I'm getting.

Process has exited, so the requested information is not available.

Thanks for the help!

Newander

Help~! what dll file need to install at user side

mistyfy — Thu, 23 Oct 2008 21:22:15 GMT

HI all,

I had an application that install at user site, but when the application run on user's pc the it load the data so slow takes around 20 sec to load the data compare with my own pc that with vs 2005 installed that just takes within 5 sec to load.

What kind of file, that need for the user pc so that it can run smoothly ?

SendKeys.

SkyBlzr — Wed, 22 Oct 2008 13:03:18 GMT

Hello, I new to VB.NET and have an assignment to make for my project at University. I was wondering if you could help me with a problem i have come across, and sadly not found any examples on the internet.

Ok.
Using send keys from a Button is generally easy, but how would one send keys from a keypress, more like macro'ing a key.

Also' is there a way to send the key to the active window.

Side note: The program is being built as an onboard keyboard such as Microsoft's default one that is included.

Thank's in advance,

SkyBlzr.

prograaming

aaah091 — Wed, 22 Oct 2008 11:26:34 GMT

i need a prepare a programm which need to count how many times each word is repeated and show it in a list box.

eg;

this 3

mangoe 1

is 8

so anyone can help me doing this am a student.

thanking you in advance

please help please help folder accessing...

amulboy — Tue, 21 Oct 2008 07:21:03 GMT

[b]hi
i need to secure files and folders...

for example a folder has some jpeg images...those images can easily copied and modified or anything..........

now i need to authorization for that folder...only registered people only have to access that files means copying or installing

or
important one is,
i have an idea.... a dll should be contained in that folder then only files and that folder should be accessed without dll folder should be locked...or not accessable...

for that how to write that dll......................

thank you....tell me immediately nxtwithme@yahoo.co.in[/b]

formula field from crystal report to vb.net using vs 2005

forever10 — Tue, 21 Oct 2008 03:57:30 GMT

in my formula field(formula01) in crystal report i have a condition there like this...
if {tablename.fieldname} = 'Y' then
'Yes'
else if {tablename.fieldname} = 'N' then
'No'

the problem is... I always gets this error.. "error in formula.. formula01. if {tablename.fieldname} = 'Y' then
'Yes'
else if {tablename.fieldname} = 'N' then
'No'

This field name is not known.."

can you help me how can i get through this in vb.net code.. hope you can help me.. thanks!

for each qusetion

Phantom Sonic — Mon, 20 Oct 2008 17:58:58 GMT

I'm trying to make a for each to show all items in an array but I have to arrays that need to be shown at the same time.

right now I have
For Each ele As String In phpele

and it works great

but I was trying to do
For Each ele As String In phpele And elecolor As String In setcolor

and I keep getting errors

phpele and setcolor are dimmed as string and they both are arrays

I can't get this to work can someone please help me out with this?

Thanks alot