DaniWeb IT Discussion Community - VB.NET

set object to instance type

wiss.dev — Thu, 10 Dec 2009 02:41:58 GMT

any one knows how to set an excel object to instance type....thanks

How to RegEx 20 real numbers separated with commas?

ntagrafix — Wed, 09 Dec 2009 23:37:53 GMT

hi,

I worked around to modifying regular expression below but i could't get what I need. I google it, many things found but not for what i want.

Dim valid AS Boolean = Regex.IsMatch(TextBox1.Text, "^(,?\d+){0,20}$")

Allow numbers exactly like 32,1,6,32,12,21,21,54,675,8,4,3,2,9,0,21,21,21,43,744 in TextBox1. Perfect.

NOW i want 20 numbers as but this time "real numbers" (of type double), separated by commas in TextBox2 like
(32.43343,1.43,6.0,32.434334,12.43432,21.8776,21.89,54.22,675.1232,8.453,4.5454,3.87,2.00,9.65,0.0,21.12,21.2,21.1,43.5,744.3633).

Please help me out.

thanks ...

SOmeone PLSSS help me on thiss vb question..

namazee — Wed, 09 Dec 2009 18:15:45 GMT

You are required to create a Windows Application to identify the occurrence of character of an input string.

For example,

I love vb.

I = 1

l = 1

o = 1

v = 2

e = 1

b = 1

The result should be display on a listbox.

Note: The program are case sensitive, ie. ‘E’ is different with character ‘e’

p/s: i really need someone to help me settle this..plisss

Input Help, please?

Ryveris — Wed, 09 Dec 2009 16:42:11 GMT

I posted a question yesterday for the beginning of this code and I'm not exactly sure what it is I'm doing wrong.
Just a quick summary- I'm trying to make a zodiac calculator, well five of them, but the formatting will be similar, so if I get one right, then the rest should be easy.
But I keep getting the error message
'A just chance exception of type "System.FormatException' occured in mscorlib.dll'
'FormatException was unhandled.' - InputString was not in a correct format.
What other format could I use instead?
Here's what I have:

   Sub DayYearTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDayC.TextChanged, txtYearC.TextChanged

        Dim day As Integer = 1 <= 31

        Dim year As Integer = 1900 <= 2015

        day = Convert.ToInt32(txtDayC.Text)

        year = Convert.ToInt32(txtYearC.Text)

'It hightlights the year as being the error, but I don't know how else to declare it.'

    End Sub



    Sub cboMonthC_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboMonthC.SelectedIndexChanged

        Dim strMonth As String = ""

        strMonth = cboMonthC.Items(0)

        strMonth = cboMonthC.Items(1)

        strMonth = cboMonthC.Items(2)

        strMonth = cboMonthC.Items(3)

        strMonth = cboMonthC.Items(4)

        strMonth = cboMonthC.Items(5)

        strMonth = cboMonthC.Items(6)

        strMonth = cboMonthC.Items(7)

        strMonth = cboMonthC.Items(8)

        strMonth = cboMonthC.Items(9)

        strMonth = cboMonthC.Items(10)

        strMonth = cboMonthC.Items(11)



    End Sub



    Private Sub btnCalC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalC.Click



        If cboMonthC.Items(0) AndAlso txtDayC.Text >= 21 OrElse cboMonthC.Items(1) AndAlso txtDayC.Text <= 17 Then lblOutC.Text = ("Green Dragon.")

        If cboMonthC.Items(1) AndAlso txtDayC.Text >= 18 OrElse cboMonthC.Items(2) AndAlso txtDayC.Text <= 17 Then lblOutC.Text = ("Sea Horse.")

        If cboMonthC.Items(2) AndAlso txtDayC.Text >= 18 OrElse cboMonthC.Items(3) AndAlso txtDayC.Text <= 14 Then lblOutC.Text = ("Hawk.")

        If cboMonthC.Items(3) AndAlso txtDayC.Text >= 15 OrElse cboMonthC.Items(4) AndAlso txtDayC.Text <= 12 Then lblOutC.Text = ("Sea Serpent.")

        If cboMonthC.Items(4) AndAlso txtDayC.Text >= 13 OrElse cboMonthC.Items(5) AndAlso txtDayC.Text <= 9 Then lblOutC.Text = ("Chalice.")

        If cboMonthC.Items(5) AndAlso txtDayC.Text >= 10 OrElse cboMonthC.Items(6) AndAlso txtDayC.Text <= 7 Then lblOutC.Text = ("Golden Wheel.")

        If cboMonthC.Items(6) AndAlso txtDayC.Text >= 8 OrElse cboMonthC.Items(7) AndAlso txtDayC.Text <= 4 Then lblOutC.Text = ("Flaming Spear.")

        If cboMonthC.Items(7) AndAlso txtDayC.Text >= 5 OrElse cboMonthC.Items(8) AndAlso txtDayC.Text <= 1 Then lblOutC.Text = ("Rainbow Salmon.")

        If cboMonthC.Items(8) AndAlso txtDayC.Text >= 2 OrElse cboMonthC.Items(8) AndAlso txtDayC.Text <= 29 Then lblOutC.Text = ("White Swan.")

        If cboMonthC.Items(8) AndAlso txtDayC.Text >= 30 OrElse cboMonthC.Items(9) AndAlso txtDayC.Text <= 27 Then lblOutC.Text = ("Butterfly.")

        If cboMonthC.Items(9) AndAlso txtDayC.Text >= 28 OrElse cboMonthC.Items(10) AndAlso txtDayC.Text <= 24 Then lblOutC.Text = ("White Hound.")

        If cboMonthC.Items(10) AndAlso txtDayC.Text >= 25 OrElse cboMonthC.Items(11) AndAlso txtDayC.Text <= 23 Then lblOutC.Text = ("Raven.")

        If cboMonthC.Items(11) AndAlso txtDayC.Text >= 24 OrElse cboMonthC.Items(0) AndAlso txtDayC.Text <= 21 Then lblOutC.Text = ("White Stag.")





    End Sub

    Sub Output(ByVal day As Integer, ByVal strMonth As String, ByVal year As Integer)



        lblBdayC.Text = "The birthday entered is:"(txtDayC.Text) & (cboMonthC.Items("")) & (txtYearC.Text)

        lblOutC.Text = "Your celtic zodiac sign is:"

    End Sub

    Private Sub linkClearC_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkClearC.LinkClicked

        txtDayC.Text = ""

        txtYearC.Text = ""

        lblOutC.Text = ""



    End Sub

I haven't been able to test any of the other things, so I don't know if something else is wrong.

global mouse over event

jlego — Wed, 09 Dec 2009 15:31:46 GMT

i have context menus & want the menu items font style to change to bold whenever the mouse moves over, and return to regular when it leaves.

    Private Sub EmnuExitMenu_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles EmnuExitMenu.MouseLeave

        Me.EmnuExitMenu.Font = New Font(Me.EmnuExitMenu.Font, FontStyle.Regular)

    End Sub



    Private Sub EmnuExitMenu_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles EmnuExitMenu.MouseMove

        Me.EmnuExitMenu.Font = New Font(Me.EmnuExitMenu.Font, FontStyle.Bold)

    End Sub

work fine, however
is there a way to define this globaly for all menus through out the entire applications.

Code Snippet Button Array

morke — Wed, 09 Dec 2009 11:25:27 GMT

Regards
Michael O'Rourke

Datagridview Checkbox

wish4129 — Wed, 09 Dec 2009 07:56:29 GMT

is there anybody know how to indicate the checkedbox inside the datagrid is ticked. should i put all the code inside the control something like DataGridView1.CellValueChanged or any other control?

any help will be appreciated.

How to display Text in selected text boxes in vb.net?

Usha Kumari — Wed, 09 Dec 2009 07:35:58 GMT

Sir, I would like to salve my problem .
I have Three text Boxes and i want to use Cut, copy, paste method.
But the problem is when i copy one text box matter and then apply Paste option through menu control ,then matter is displayed all three text boxes.
But I want that matter is displayed only selected text box.
What is the solutions.
Kindly tell to me.

Need some guidance on a translation program

CarlMartin10 — Wed, 09 Dec 2009 06:48:38 GMT

I have a program in which a user enters a sentence in English into a text box, then the sentence is translated into French and German based on words in an array of structures that gets its values from a text file. I have almost all of the program written, but I am a bit confused on how to get VB to get the English words that are entered into the text box separately so they can be translated individually and the value returned. I need help with this last part. I need to use a Sub Procedure to get the English Words and to Translate them. Any help would be appreciated.

Here is what I have so far.

Public Class frmTranslate

    

    ' Create Structure with a member for each language

    Structure Translator

        Dim english As String

        Dim french As String

        Dim german As String

    End Structure



    ' Create array of structures

    Dim trans(15) As Translator



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



        'Add words to array of structures trans().

        Dim temp As Translator

        Dim sr As IO.StreamReader = IO.File.OpenText("words.TXT")

        For i As Integer = 0 To 15

            trans(i).english = sr.ReadLine

            trans(i).french = sr.ReadLine

            trans(i).german = sr.ReadLine

        Next



        'Close the reader

        sr.Close()



        'Perform bubble sort by English word.

        For i As Integer = 1 To 15

            For j As Integer = 1 To 16 - i

                If Trans(j - 1).english > Trans(j).english Then

                    temp = Trans(j - 1)

                    Trans(j - 1) = Trans(j)

                    Trans(j) = temp

                End If

            Next

        Next

    End Sub



    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblFrench.Click



    End Sub



    Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click



        'Translate English sentence to French and German.

        Dim english() As String



        'Hold results

        Dim sentence As Translator



        'Ensure the sentence ends with a period, get English words

        Dim line As String = tbxEnterSentence.Text.Trim.ToUpper

        If line.Substring(line.Length - 1) <> "." Then

            line &= "."

        End If

        english = GetWords(line)

        sentence = Translate(english)



        'Display the results, format sentence to have period at the end

        tbxFrench.Text = sentence.french.Trim & "."

        tbxGerman.Text = sentence.german.Trim & "."



    End Sub



    Sub GetWords(ByVal line As String)



    End Sub



    End Sub



    Sub Translate(ByVal english As String)









    End Sub



End Class

export datatable to excel sheet

wiss.dev — Wed, 09 Dec 2009 05:33:49 GMT

hi
im creating an application that query data from fox pro, manipulate it and export it to excel.
here is the code im using to creat excel object:

Dim oExcel As New Excel.Application
Dim obook As Excel.Workbook = oExcel.Workbooks.Add

im getting excell.application underlined(error msg:new cannot be used on an interface)
it get fixed when i remove New, but now im getting oExcel in second line wiggly underlined(er msg;variable oExcel is used before its been assigned a value)
can anyone help plzzz??
thanks

"resource" parameter

jlego — Tue, 08 Dec 2009 20:30:22 GMT

in vb.net 2008, i have no idea what this means

error: the item "obj\debug\associateassist.frmdbsetup.resources" was specified more than once in the "resourceS" parameter. duplicate items are not support by the "resources" parameter.

does anyone know what might cause this error / how to go about fixing it.

Student with a quick question

Ryveris — Tue, 08 Dec 2009 19:03:53 GMT

I know there have been posts in the past where some were asking about "how to make a zodiac calculator," and I kind of have the same question, but I've done the research and wrote most of the code out, so it's nothing like that. I didn't quite understand how to post the code, so I'm just going to give a quick description.
I know the basic codes that I need to insert, but I'm creating it in a windows application. The day and year are text boxes that the user can input that particular information, but the month is a drop-down box.

My two questions are: Is it okay to delete the private sub of the day and year so I can combine them into one sub?

And how do I get the months to show up individually in the code area? Or would I have to delete the drop-down box completely and make it like the day and year text boxes where the user can input the information themselves?

Thanks in advance!

PLEASE HELP!! ListBox Contol keeps adding duplicate entries!

hwlibra083 — Tue, 08 Dec 2009 18:12:04 GMT

Ok, I have been working on this for months now, and I am so close to having it work the way I want, but it's just not happening. Here's what I am trying to do:

My program is half a formulator, and half ordering system. Where I get stuck is the ordering system part. In one screen I have 5 check boxes that you can check for which products you want to order. The products you checked then get sent to another screen and put into a list box with a quantity variable that starts at 1 attached to it. Now, if you check the same product again, another time through the program, as of now, quantity accumulates to 2, which is good, that's what I want. My problem is I want quantity to keep accumulating, right now it accumulates to 2, then on a third pass through the program, it duplicates the entry, so now in the list box has the original product and quantity of 2, and another entry that has the product with quantity of 2. I'm about ready to pull my hair out on this one. PLEASE HELP! I'm so close, yet so far! I would much rather use a ListView, but I don't quite understand how they work. Here's the code:

Option Explicit On

Option Strict On



Public Class OrderRequest



    Private Sub submitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submitButton.Click



        Dim quantity As Integer = 1



        'add selected products to CompletedOrderForm.



        If color1CheckBox.Checked Then

            Dim index As Integer = My.Forms.CompletedOrderForm.productListBox.FindString(color1CheckBox.Text)



            If index < 0 Then

                My.Forms.CompletedOrderForm.productListBox.Items.Add(color1CheckBox.Text & "           " & quantity)

            Else

                My.Forms.CompletedOrderForm.productListBox.Items.Remove(color1CheckBox.Text & "           " & quantity)

                quantity = quantity + 1

                My.Forms.CompletedOrderForm.productListBox.Items.Add(color1CheckBox.Text & "           " & quantity)

            End If

                   End If



            My.Forms.ConfirmationDialog.ShowDialog()

    End Sub

Thank You!

vb.net miniproject

achu236 — Tue, 08 Dec 2009 16:57:28 GMT

hi, i am doing btech. can anyone please suggest miniproject in vb.net based on database

How to create table dynamically..

pratidnya — Tue, 08 Dec 2009 14:54:41 GMT

[code]
i am using oracle as database. i want to create table at run time that will remains in database to store info permanatly later..
plz.. anyone can tell me.. how to do this?

[icode]

copying complex form

mcatest — Tue, 08 Dec 2009 04:51:51 GMT

I have a form in VB2008 with 3 panels, each containing panels. How can I copy the formatting to create similar forms to it?

My site

Student needing help please...

MWillis09 — Tue, 08 Dec 2009 01:16:32 GMT

I am learning vb and one of my projects is to make a price schedule using full day and half day rates as well as adding a deposit, etc. I don't want you to tell me what to do just please what I am missing. I haven't been able to get it to run but if I can I can salvage some points. Thank you in advance..

Public Class frmEddies



    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDuration.Click



    End Sub



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



    End Sub



    Private Sub btnRates_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRates.Click



      



        'Display rates for given items per length of time rented.



        Dim item, duration As String

        Dim deposit As String

        item = txtItem.Text

        duration = txtDuration.Text

        deposit = CStr(30.0)



        Dim fmtStr As String = "{0,-22}{1,12} {2,12}"

        lstRates.Items.Clear()

        lstRates.Items.Add(String.Format(fmtStr, "Price of Equipment", "Half-day", "Full-day"))

        lstRates.Items.Add(String.Format(fmtStr, "1. Rug cleaner", "$16.00", "$24.00"))

        lstRates.Items.Add(String.Format(fmtStr, "2. Lawn mower", "$12.00", "$18.00"))

        lstRates.Items.Add(String.Format(fmtStr, "3. Paint Sprayer", "$20.00", "$30.00"))

        



       

    End Sub



    Private Sub btnBill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBill.Click

        'Shows total bill.



        Dim item, duration, deposit As String

        item = txtItem.Text

        duration = txtDuration.Text

        deposit = CStr(30.0)

      

        Dim fmtStr As String = "{0,-20}{1, 10}{2, 10} "

        lstBill.Items.Clear()

        lstBill.Items.Add("Receipt from Eddie's Equipment Rental")

        'Program will not run past this point....

        Select Case duration + deposit + item

            Case "1H"

                lstBill.Items.Add("Rug cleaner" & "$16.00 ")

                lstBill.Items.Add("Deposit" & "$30.00")

                lstBill.Items.Add("Total" = duration + item)

            Case "1F"

                lstBill.Items.Add("Rug cleaner" & "$24.00 " & "Deposit" & "$30.00" & "Total" = duration + item)

            Case "2H"

                lstBill.Items.Add("Lawn mower" & "$12.00 " & "Deposit" & "$30.00" & "Total" = duration + item)

            Case "2F"

                lstBill.Items.Add("Lawn mower" & "$18.00 " & "Deposit" & "$30.00" & "Total" = duration + item)

            Case "3H"

                lstBill.Items.Add("Paint sprayer" & "$20.00 " & "Deposit" & "$30.00" & "Total" = duration + item)

            Case "3F"

                lstBill.Items.Add("Paint sprayer" & "$30.00 " & "Deposit" & "$30.00" & "Total" = duration + item)



        End Select

    End Sub

End Class

Listview .TAG issue

jlego — Mon, 07 Dec 2009 20:08:26 GMT

Sorry if there is a topic on this somewhere - i have been searching for awhile now no dice.

I'm upgrading a VB6 application to a vb.net 2008 application.

problem that's driving me nuts:

I fill a listview with a list of customer first & last names + number from a sql database, setting the listviews .tag as the customers id in the table.

in vb6 i did as follows:

if db_connect("select concat(first, ' ', last) as name, number from customer") = true then
do until adors.eof = true
with lstresults.listitems.add(,, adors.fields("name"))
.listsubitems.add,, adors.fields("number")
.tag = adors.fields("ID")
end with
adors.movenext
loop
end if
db_disconnect

then i would use the tag in various other areas if the customer was selected in the list view.

example: delete from customer where customer.ID = " & me.lstresults.selecteditem.tag

in .net 08 im doing the following:

Dim strInfo(1) As String
Dim lstNewItem As New ListViewItem
if DB_connect("select ID, concat(first, ' ', last) as name, number from customer") = true then
do until adors.eof = true
strinfo(0) = adors.fields("name").value
strinfo(1) = adors.fields("number").value
lstnewitem = new listviewitem(strinfo)
lstnewitem.tag = adors.fields("ID")
me.lstresults.items.add(lstnewitem)
adors.movenext
loop
end if
db_disconnect

i then try to call it as follows:
DELETE FROM customer where customer.ID = " & Me.lstResults.SelectedItems.Item(0).Tag

and i get an error that the tag can't be converted to a string, which i dont want it as a string and cdbl(.tag) says it cant be converted to a double..

basically its not pulling the ID for the .tag..

any help is appreciated, thanks!

Debugging objects from dot net plugin DLLs

Contensive — Mon, 07 Dec 2009 13:37:46 GMT

For a long time, we have used VB6 activex dlls as our plugin strategy for our application. Works great. Now we want to include dotnet assemblys. We are working on the strategy to create objects for the plugins (late-binding-esk). I have the file path of each plugin, and have figured out how to create an assembly object, look for the correct interface, instantiate and run. All works fine.

My problem is how to develop and debug these DotNet plugins. In the past, we ran the application on our development machines, started VB6, opened the plugin's project file and started the debugger. Since COM used the programid, VB6's IDE overrides any plugin DLL installed on the machine. When the application does a CreateObject(progid), it jumps right to the IDE in debug mode, instead of creating an object from the classes in the DLL.

I would like a similar 'convenience' for plugin developers using dot net. The problem is that the dot net object creation scheme outlined above involves going right to the files in the plugin folder. I can open the IDE, open the plugin project, attach to the main application's process. But when the application creates the object from the type found in the files, of course, the IDE does not intercept it, and the DLL provides the class instead of the debugger.

Anyone have a suggestion?

Textboxes data validation

tqmd1 — Mon, 07 Dec 2009 10:36:50 GMT

Dear Experts

I Have four textboxes,

I want textbox1 to accept only char data.
I want textbox2 to accept only numeric data.
I want textbox3 to accept only alphanumeric data.
I want textbox4 to accept only bolean data.

Please help

how to delete all character from file

ujjval dave — Mon, 07 Dec 2009 10:20:14 GMT

hi guys please help me.i have confusion for file handling.
i am developing a application that uses one txt file. now i want to find a particular word from file and replace it as space. i don't how to do this.
please help me

How do i give a pagefeed to the printer

Ulukay — Mon, 07 Dec 2009 10:02:31 GMT

:idea:I'm a bit stuck
I wrote a printing part.
But cant find how to preform a pagefeed

Private Sub PrintBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintBTN.Click

        copieen = 1

        PrintDocument1.PrinterSettings.Copies = copieen

        PrintDocument1.Print()

end Sub

 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        data = "this is a test"

        Dim xx = 2

        Dim y = 0

        For x = 1 To 40

            If Len(machin(xx)) > 0 Then

                e.Graphics.DrawString(machin(xx), New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 0, y)

                y = y + 14

                For u = 1 To 10

                    e.Graphics.DrawString(data, New Font("Arial", 10), Brushes.Black, 10, y)

                    y = y + 14

                Next u

                y = y + 14

                If y = 1008 Then

                    REM Here i need to give the printer a pagefeed and start on a new page

                    y = 0

                End If

            End If

            xx = xx + 16

        Next x

End Sub

Can someone Plzzzzz help me

login roles

azdonald — Mon, 07 Dec 2009 09:49:05 GMT

Please i'm developing an application with vb.net and mysql. I want to add additional users to the application but with different access levels. this is my original code

sql = "select username, password from users where (username = '" & UsernameTextBox.Text & "') and (password = '" & PasswordTextBox.Text & "')"

        conn.ConnectionString = "server=localhost;" _

                            & "database=cargomanager;" _

                            & "userid=root;" _

                            & "password=admin;"





        Try

            conn.Open()

        Catch myerror As MySqlException

            MsgBox("sorry connection failed")

        End Try

        command.Connection = conn

        command.CommandText = Sql

        adapter.SelectCommand = command

        Dim mydata As MySqlDataReader

        mydata = command.ExecuteReader()

        



        If mydata.HasRows = 0 Then

            MsgBox("Invalid username/password", MsgBoxStyle.Information)

        Else

            Form1.Show()

            Me.Close()

        End If.

If i add a third parameter named level to the sql statement, how do i determine which form shows???

working with text files problem

dwisely — Mon, 07 Dec 2009 03:09:58 GMT

Below is a sample of my text:

01"111111","2345678","7891090","M0000023"
02"111111","2345678","7891090","M0000023"
03"111111","2345678","7891090","M0000023"
01"111111","2345678",
"7891090","M0000023"
02"111111","2345678",7891090","M0000023"
03"111111","2345678",7891090","M0000023"
etc.

Sometime the input file has lines that wrapped and sometimes it does not. I need to read the text file line by line and then if the line does not begin with "01" or "02" or "03" join it to the line above it and write the fixed file to a new text file.

Imports System.IO



Public Class Form1



    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk



    End Sub



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

        Dim LineReader As StreamReader



        Dim results As DialogResult

        





        results = OpenFileDialog1.ShowDialog



        If results = DialogResult.OK Then



            LineReader = New StreamReader(OpenFileDialog1.FileName)



            TextBox1.Text = LineReader.ReadLine()



            LineReader.Close()



        End If



    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim FileWriter As StreamWriter



        Dim results As DialogResult



        results = SaveFileDialog1.ShowDialog



        If results = DialogResult.OK Then



            FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)



            FileWriter.Write(TextBox1.Text)



            FileWriter.Close()



        End If

    End Sub



    End Class

How can I do this with the code I have so far?

Thanks.

Help with Project

emerituspundit — Sun, 06 Dec 2009 21:52:52 GMT

For school, using Visual Basic 9.0 (2008)

Write a program called Histogram that reads data from a file (allow the user to input the file name) and produces a horizontal histogram. The first line of the file should contain he title of the histogram, and each subsequent line should contain a year, followed by a number. Your program should use a Do-While loop to be able to read an arbitrary number of lines from the file (use the Peek method). Each line in the histogram should consist of a number of asterisks equal to the data point. Your program should also use a flag variable to determine if the data are increasing (whether each data point is greater than the last).

Can you guys write some code for me to try? I have no idea on how to approach this project and it's due for school tomorrow. Thanks so much.

--
John Kane

Working with listview and database.

kanababa — Sun, 06 Dec 2009 21:13:46 GMT

Hi All

I have a listview attached to a dbase app I am working on, the last column has a price value and I would like to create a total value for this column in a label or text box below the listview control.

I was searching back the old posts looking for some pointers or a code snippet that would do this, but was unable to find anything. i'm using vb 2008.

Any help appreciated

Thanks

kanababa

Billing project

saquib189 — Sun, 06 Dec 2009 14:08:28 GMT

Hello friend's, i'm beginner in vb.net and creating a billing project. In that i have two forms : Customer List and Customer Bill. In Customer List i added a listbox Control and a button, when the form loads it's display the customer list from the database. so i want that when i double click on the listbox or click on the show cust. details button after selecting customer. it's display the customer bill with all relevant field in the database in the bill table. the code of Customer List Load event are:
Code:

Private Sub LoadListBox() 

Dim custAdaptor As New MemorialDataSetTableAdapters.BillTableAdapter 

Dim CustTable As New MemorialDataSet.BillDataTable custAdaptor.Fill(CustTable) 

With lstCustomer 

.Items.Clear() 

.DisplayMember = "Display Name" 

For Each CurrentRow As MemorialDataSet.BillRow In CustTable.Rows .Items.Add(CurrentRow.Name) 

Next 

End With 

End Sub 

Private Sub CustomerList_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

LoadListBox() 

End Sub

nd show details button code are:

Code:

Private Sub btnShowDetails_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDetails.Click 

If lstCustomer.SelectedItems.Count = 1 Then 

'confusion here how to load the details in bill form. 

Else If lstCustomer.SelectedItems.Count = 0 Then 

MessageBox.Show("You have to Select a Customer to display the details") Else 

MessageBox.Show("You have Selected too many Customers") 

End If 

End If 

CustomerBill.Show() 

End Sub

so when i click on show details button it redirect to bill form and display the result. but in vb only event and raiseEvent work not redirection. so plz help me. to solve this. or plz give me a link that have solution for this. thank you

VB.NET equivalent of following inline function in C#

nccsbim071 — Sun, 06 Dec 2009 10:50:19 GMT

Hi
Please tell vb.net equivalent of following method:

 private void LookForUpdates()

        {

            System.Threading.ThreadStart timerThreadStart = new System.Threading.ThreadStart(delegate()

            {



                sua = new ShowUpdatAvailable();

                DelGetUpdateArgs delGetUpdateArgs = new DelGetUpdateArgs(this.GetUpdateArgs);

                sua.GetUpdateArgs = delGetUpdateArgs;

                sua.StartLookingForUpdate();



            });



            timerThread = new System.Threading.Thread(timerThreadStart);

            timerThread.Start();

        }

I tried using C# to VB.NET code converter which gave me this:

Private Sub LookForUpdates()

            Dim timerThreadStart As New System.Threading.ThreadStart(Function() Do



        sua = New My.ShowUpdatAvailable()

        Dim delGetUpdateArgs As New DelGetUpdateArgs(AddressOf Me.GetUpdateArgs)

        sua.GetUpdateArgs = delGetUpdateArgs



        sua.StartLookingForUpdate()

            End Function)



            timerThread = New System.Threading.Thread(timerThreadStart)

            timerThread.Start()

        End Sub

Which on build in visual studio 2005 gives an error.

Please help

Message

fairy1992224 — Sun, 06 Dec 2009 08:54:29 GMT

If i want to pop out a message to user
eg, please enter number only.
Do i need to declare? If need, how do i declare.
URGENT!!!
My test is in 2 days time.
Thanks in advance.

Syntax Error in Udate Statement

phatJacob07 — Sun, 06 Dec 2009 05:11:38 GMT

I usually feel pretty bad asking simple questions like this, but I've a deadline that's fast approaching. What, if anything, is wrong with this Update statement?

"Update ScoutInfo Set YearID = 20092010, GSUSAID = 1, FName = 'Jacob', LName = 'Lowe', DoB = '10/16/1989', Grade = '12', Level = 'Ambassador', School = 'Jacob Memorial', YearsIn = 12, NutsOwed = 0, CookiesOwed = 0, MiscOwed = 0 Where ScoutID = 10000"

The datatypes are all either Text or Number (in Access). The double quotes are only for readability in VB syntax.

Visual Studio keeps telling me there's a syntax error hanging out, but I'm just not seeing it. :\

EDIT: Nevermind, just realized that I made the same mistake as I had done previously (Level being a keyword in Access.)

connect SQL Server 2005 to VB.Net

jayanthsept5 — Sat, 05 Dec 2009 18:20:53 GMT

How to connect queries from SQL Server 2005 to VB.Net Windows application

Two questions/problems with crystal report

Peric — Sat, 05 Dec 2009 13:08:09 GMT

first of all, two images:

1 - http://img46.imageshack.us/img46/2875/bezzz.jpg
2 - http://img692.imageshack.us/img692/9595/saa.jpg

My first problem...
As you can see it on first image, there are certain number of records/pages and you can print only all pages at once (that icon for every record is like "blank document").
On second image, again, I have certain number of records, but when i click on each one, it opens new tab (you can see two tabs on top, "Main Report" and "BAF") and then, you have option to print each page particularly, or all pages at once. I want to know...what do I need to enable to have that option, so I can print all pages at once, and also each page particularly??

Second...
I have problem with total page count. In first image example I'm selecting records from few tables and some of records that i select are having the same value (we can say like that)...so, on the bottom of the page you can see "Total Page No." field...it says 46 although I have 43 pages in that report (as I said...my total page no. gives all the records that exist in that selection, and my report gives distinct values). How can i real total page number, not number of records from that selection??

Hope you understand me and I hope someone could help me... thank you.

Help closing forms !

xfrolox — Sat, 05 Dec 2009 13:01:43 GMT

im making a tool for a gamer to help others but it has 3 forms
1 appear - 2 and 3 are hide they can change but how i do that when 1 form closes all close ? no only form 1 to close cuz if others close they are hide and the program still running but hide.

Comment in VB.net

fairy1992224 — Sat, 05 Dec 2009 07:30:16 GMT

what is comment in VB.Net and how to comment.
I having a test in 3 days time. Urgent!!!!
Thanks in advance.

Server/Client

Progr4mmer — Fri, 04 Dec 2009 23:16:38 GMT

I want to make something to read the text/strings sent to a server and maybe detect if the server is crashed or not and something to and some thing to send text/strings to a server maybe using winsock
P.S. I also want to make something to crash my server.

Problem loading MS Access Database information in a list view

zoidmaster — Fri, 04 Dec 2009 21:10:31 GMT

I'm having a problem with loading my MS Access Database. I can get it to load but it won't load in a row. My friend told me to try this but it puts all the information in a column instead of putting all the information spread out accross the row.

Here's my code:

Dim lb_Connection As New OleDb.OleDbConnection

        lb_Connection.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE = pass_database.mdb"



        Dim lb_SelectCommand As New OleDb.OleDbCommand

        lb_SelectCommand.CommandText = "SELECT Title, Username, Password, URL, Notes FROM password_info"

        lb_SelectCommand.Connection = lb_Connection



        Dim lb_DataAdapter As New OleDb.OleDbDataAdapter

        lb_DataAdapter.SelectCommand = lb_SelectCommand



        Dim lb_DataSet As New DataSet

        CType(lb_DataSet, System.ComponentModel.ISupportInitialize).BeginInit()



        lb_DataAdapter.Fill(lb_DataSet)



        Dim lb_DataTable As New DataTable

        lb_DataTable = lb_DataSet.Tables(0)



        For Each db_name In lb_DataTable.Rows

            frmMainPage.lvPasswordInfo.Items.Add(lb_DataTable.Rows(0).Item(0).ToString)

            frmMainPage.lvPasswordInfo.Items.Add(lb_DataTable.Rows(0).Item(1).ToString)

            frmMainPage.lvPasswordInfo.Items.Add(lb_DataTable.Rows(0).Item(2).ToString)

            frmMainPage.lvPasswordInfo.Items.Add(lb_DataTable.Rows(0).Item(3).ToString)

            frmMainPage.lvPasswordInfo.Items.Add(lb_DataTable.Rows(0).Item(4).ToString)

        Next

Also I'll attach an image of what the program does when I load it.

Please help and many thanks in advance.

Attached Images

vb.net_problem.bmp (854.5 KB)

OpenFileDialog code help

dwisely — Fri, 04 Dec 2009 20:27:35 GMT

I am useing the OpenFileDialog component with a Button Sub to use the text file that the user selects (it can change everyday) in the next part of my program that will read that file and then covert it into an xml format. How do I get the second part of my program to use the file selected?

Private Sub Button1_Click(ByVal sender As System.Object, _

   ByVal e As System.EventArgs) Handles Button1.Click

   If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

     Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)

     MessageBox.Show(sr.ReadToEnd)

     sr.Close()

   End If

End Sub

thanks.

Problem with class

songweaver — Fri, 04 Dec 2009 18:59:05 GMT

Hey guys, I'm trying to get this form to display in the listbox the address from the info from the textboxes, I followed an example that uses a class to do it, but it seems I am going wrong somewhere and I don't know where. Here is the code for the class:

Public Class CLCustomer

    Private pName As String

    Private pAddress As String

    Private pState As String

    Private pCity As String

    Private pZip As String

    Public Property Name() As String

        Get

            Return pName

        End Get

        Set(ByVal value As String)

            pName = value

        End Set

    End Property



    Public Property Address() As String

        Get

            Return pAddress

        End Get

        Set(ByVal value As String)

            pAddress = value

        End Set

    End Property



    Public Property City() As String

        Get

            Return pCity

        End Get

        Set(ByVal value As String)

            pCity = value

        End Set

    End Property



    Public Property State() As String

        Get

            Return pState

        End Get

        Set(ByVal value As String)

            pState = value

        End Set

    End Property



    Public Property Zip() As String

        Get

            Return pZip

        End Get

        Set(ByVal value As String)

            pZip = value

        End Set

    End Property

    Public Function DisplayAddress(ByVal sep As String)

        Dim strTemp As String = pName.ToString() & sep

        strTemp &= pAddress.ToString() & sep

        strTemp &= pCity.ToString() & ", " & pState.ToString() & pZip.ToString()

        Return strTemp

    End Function

    Public Sub New()



    End Sub

    Public Sub New(ByVal vpName As String, ByVal vpAddress As String, ByVal vpState As String, ByVal vpCity As String, ByVal vpZip As String)

        pName = vpName

        pAddress = vpAddress

        pState = vpState

        pCity = vpCity

        pZip = vpZip

    End Sub

End Class

Here is the form code:

Public Class Form1



    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click

        Dim strName As String = txtName.Text

        Dim strAddress As String = txtAddress.Text

        Dim strState As String = cboState.Text

        Dim strCity As String = txtCity.Text

        Dim strZipCode As String = txtZip.Text

        Dim showAddress As New CLCustomer(strName, strAddress, strState, strCity, strZipCode)

        txtList.Text = showAddress.DisplayAddress(vbCrLf)

    End Sub





End Class

Aarggh! Cookies!

adamwilden — Fri, 04 Dec 2009 18:05:32 GMT

Hi Folks,

Really desperate for help here as I've spent days trying to resolve this one.

We have a VB 2008 web browser app using a webbrowser control on our Kiosks at our uni - it works very well and locks down the workstation so teh students can only use it for the intended purpose.

As it never closes we need to kill the session cookies between users.

We can run this via the auto-homepage routine we have but nothing we've tried will kill them.

I've searched doezens of forums and tried the most common:
webbrowser1.Document.Cookie.Remove(0, (webbrowser1.Document.Cookie.Count - 1))
Also some java script that clears cookies for the current page but isn't usable as it means users would need to log in every time they click an internal link.
Other code suggests changing the dates so the cookies are expired but the code has a type used that doesn't seem to work with any 2008 namespace.

If anyone has a module or code that works with 2008, or can offer any advice that will kill or expire all cookies I would be very, very grateful.

Many thanks in advance - Adam.

How to use comboBox to display data on Gridview?

Redi_2008 — Fri, 04 Dec 2009 16:00:24 GMT

I need to use comboBox to store the months then when i select a particular month. I need to display out the data onto a gridview for that selected month.

Converting CSV to Excel should be easy but....

G_Waddell — Fri, 04 Dec 2009 12:24:46 GMT

Hi Guys,

I'm obviously missing something here.

Basically I'm writing a program that will read in a csv file or excel file, and allows the user to pick which fields thay wish to use for what line of an address, and then import all the addresses to a SQL table for later processing.

I got the excel import working by opening it through ODBC as a database and reading it in and I thought that I'd save time by just converting the csv to excel and reusing the Excel routine on my new Excel file but I'm having difficulty with the csv conversion.

Here is what I'm using:

private sub ConvertCSV(OldName, NewName)

Try

                XL = New Excel.Application

                XL.Visible = False

                XL.Workbooks.OpenText(OldName)

                XL.DisplayAlerts = False

                XL.ActiveWorkbook.SaveAs(NewName, Excel.XlFileFormat.xlExcel9795, , , , False)

                XL.ActiveWorkbook.Close(False)

                XL.Quit()

                XL = Nothing



            Catch ex As Exception

                sError = ex.ToString ' Returns error details 

                MsgBox(sError, MsgBoxStyle.OkOnly)

                Debug.WriteLine(ex.ToString)

            End Try



end sub

The trouble is that when it then goes into my Excel Address routine, the new excel file appears to be empty.

I see an excel file outputted to where I want it on the computer but it will not open for me (no errors given excel just hangs)

Any ideas or will I have to parse the CSV file line by line into Excel?

Line Breaks In Crystal Report

saj_amo — Fri, 04 Dec 2009 10:30:43 GMT

hi guys,

i have a problem in crystal report when i am getting a data from database field that field has 30 words i want that in my report that field should be broke in 10 words each line so how can i do this please help me.

Find word From Ritch Text Box

ujjval dave — Fri, 04 Dec 2009 08:42:22 GMT

i am able to print all file line in to rich text box but i have a problem to find a specific word from the rich text box.please help me to solve this trouble.
here is my code for taking input from file and print into rich text box

Dim path2 As [String] = "file path"

        

        Dim d As New StreamReader(path2)

        'creating a new StreamReader and passing the filestream object fs as argument

        d.BaseStream.Seek(0, SeekOrigin.Begin)

        'Seek method is used to move the cursor to different positions in a file, in this code, to 

        'the beginning

        While d.Peek() > -1

            'peek method of StreamReader object tells how much more data is left in the file

            RichTextBox1.Text &= d.ReadLine()

            'displaying text from txt file in the RichTextBox

        End While

        d.Close()

textbox.mask

VIPER5646 — Fri, 04 Dec 2009 04:01:51 GMT

[QUOTE]Hi all
I have been straggling to mask a text box.
I searched for the Mask property I could not find it.
I have also tried to use textbox.mask it tells me that mask is not a member.
I'm trying to enter currency in The text box ($1000.000)
I'm using Visual Studio 2010
thank you/QUOTE]

Error when trying to store value

Chris11246 — Fri, 04 Dec 2009 02:12:16 GMT

Im trying to set one variable equal to another but it says "No default member found for type 'Decimal'" what does that mean?

Both the varuables are deciamls, one is a regular decimal that I declare in the sub and another is an array that I declare in the class. The line is:
tempx = xo(i)
this is in a for loop with i as the variable.

Need help - Login Client!

xcarbon — Thu, 03 Dec 2009 20:52:08 GMT

First off, i would like to introduce myself. My name is Ryan, im 18 and a professional gamer.

About the client!
Well this client is for my clan members, they can login and retrieve updates, news, ect through a webbrowser

Help!

Okay, so i have set a webbrowser, two texboxes and a command button. The Form_Load is where i filled the navigate ( the online login form). So, it will basically type whatever you typed on the applications textboxes onto the online forms two textboxes and then it will hit click on the submit button on the online form to login.
Now heres the part where im having trouble, what i want to do is that when you type the information it will verify if that information is correct or incorrect and if it his correct it will show the form and if its not it will show an error message.

Filling an .net form thru script from text file

sri_sssitc — Thu, 03 Dec 2009 16:38:19 GMT

Someone is building an application for me in VB.NET.
I want to be able to check out their work.
I want a way to fill up the form, by drawing values from a text file that contains sample values, as soon as I click a button (outside the application window).
Whats the best way to do this ?

More details :
Its like this. The form is open, say Page1.aspx. I am supposed to enter data in the form and check it and click the submit button. I dont want to enter values in different fields manually.

Assume, I have a set of sample values in a text file. Assume I can build this text file in whichever format to be read.

I should have another application running (call it Filler application), (I am ready to write this in VB6). I will click a "Fetch and Fill" button. It will ask for, say, record serial number. Then based on that, it will read the text file , read the values for the different fields, and FILL them one by one automatically into the different controls in Page1.aspx (okay wherever it is able to find matching controls).

Then I will lazily click the Submit button.

How to accomplish this ?

For writing the filler application, I am ready with VB6, but I want to know how to access a particular window, then a particular aspx form, then how to identify the controls and how to do the filling.

If VB6, is not okay, I can explore VB.NET too.

Instead of text file, I can use html or xml files.

What is the best way to achieve this ?

Proglem with for loop

osirion666 — Thu, 03 Dec 2009 15:32:51 GMT

        Dim name1(100) As String

        Dim Cal1(100) As String





        Dim i As Integer

        For i = 0 To 10 Step 1







            name1(i) = GridView1.SelectedDataKey.Item(1)



















        Next i

i want to store the selected value into an array
then display the array in a text box

Label5.Text = name1(0)

        Label6.Text = name1(1)

it woirks however it shows the same array contents for both

eg picke coke for array 1
and pepsi array 2

label5.text will show coke
as will label6.text

i want 5 to eqaul first array
6 to show second array

Can the code in a VB executable file be viewed?

JohnDove — Thu, 03 Dec 2009 10:57:59 GMT

Part of the app I am writing allows users to create an encrypted, password-protected output file that they can email safely to a central store. I can't have the users choose their own password for the encryption as the central store needs to access the contents of all the output files emailed to it. So there is one password that gets set within my vb app.

I am worried that security will be compromised if the vb executable is somehow deconstructed? Is it possible to read the contents of an exe file (and thus find out the password)?

If so, any suggestions as to how I can get around this problem?

Many thanks

Silent close of MS Word in VB.NET

G_Waddell — Thu, 03 Dec 2009 10:16:34 GMT

Hi,

I'm writing a function that takes a word doc and returns the number of pages in it. I have the function working and returning pages except that it opens a Word dialog asking if I want to save changes - does anyone know how to stop this? I have the document running "silently" in the background so I don't want to spoil the feel by prompting for saves.
Here is my code:

Private Function CountWordPages(ByRef Doc As String) As Integer

        Dim oWord As Object

        Dim WD_Doc As Word.Document

        Dim intCount As Integer = 0

        On Error GoTo ErrorHandler

        oWord = CreateObject("Word.Application") 'late bind for differing versions of word

        WD_Doc = oWord.Documents.Open(Doc, True, True, False, , , , , , , , False) 'open silently in background

        intCount = WD_Doc.ComputeStatistics(Word.WdStatistic.wdStatisticPages) 'get count

        WD_Doc = Nothing 'done with the doc

        oWord.Application.Quit() ' close the app

        oWord = Nothing 'tidy up

        CountWordPages = intCount 'return count

        Exit Function

ErrorHandler:

        DisplayError(Err.Number, Err.Description)

    End Function

Thanks in advance

Can eclipse compile and debug vb.net projects?

GL.Za — Thu, 03 Dec 2009 09:38:53 GMT

Simple question one would think, but I am having trouble finding the answer. Eclipse.org promotes eclipse as being a Java IDE, but has many plugins and extensions.
I was wondering if maybe there is a plugin or extension that would allow me to compile/debug vb.net projects in eclipse?

I need help about dynamicli changing tab page text

ykornx — Wed, 02 Dec 2009 23:11:34 GMT

Hi, i have a project to generate code for TabControl.
I'm doing 1 form whit textbox-es to enter the tabcontrol properties (name, size, pozition ...) For the number of the tab pages in the control i'm generating dynamicly another tab control with the number of tab pages entered in the tab control tab pages field

Public Sub TextBox_number_pages_TextChanged.....

Dim tab_pages As TabPage

Dim n As Integer = Convert.ToInt32(TextBox_number_pages.Text)

        For i As Integer = 0 To n



Dim TextBox_tp_name As New TextBox

            TextBox_tp_name.Text = ""

            TextBox_tp_name.Location = New Point(220, 30)

tab_pages = New TabPage()

            tab_pages.Parent = TabControl1

            tab_pages.Name = "TabPage " + Convert.ToString(i + 1)

            tab_pages.Text = tab_pages.Name

tab_pages.Controls.Add(TextBox_tp_name)

TabControl1.Controls.Add(tab_pages)

this is the part of the code, i have more fields.
What i'm trying to do is when i enter the tab name in theTextBox_tp_name field in the generated dynamicly tab pages, the tab_pages.Text have to change when i enter a new name in the theTextBox_tp_name

I thing that i can't explain exactly what i'm trying to do but i can't explain it without posting the whole code.

Get Outlook Email Address not in a Group

spxChrome — Wed, 02 Dec 2009 17:48:05 GMT

My first post here and I have a strange one. I have a vb.net 2008 form that sends and email along with an attachment.

I want to offer up a list of available email address to choose so my user doesn't make a typo.

Problem is the email addresses are not part of any GAL / group because they are from outside the company. However if my user begins to type the email address such as xyz outlook begins to make suggestions such as xyz@anothercompany.com; xyz@noinagroup.com because my user has either sent them an email in the past or recieved one. Or if the user types a name outlook will suggest.
Jon Doe
Jon D. Doe

My question, where does outlook keep this list and how can I retreive it using vb. I know how to get the Global Address book and the other contacts but I need the list of emails that are not associated with any groups but are in outlook.

Hope this makes sense.

Thanks in Advance.

Change config file location

adamwilden — Wed, 02 Dec 2009 17:10:56 GMT

Hi Folks,

I've just upgraded an old VB6 app to VB2008 - all has gone well and I'm pleased with the new .net features.

However I need to holds the common settings for all of the apps ona server (UNC path). Previously I used an ini file on the server and the application was told to look there via a command switch.

I understand that I'm trying to use .net in an old fashioned way by not packaging it for web update & delivery but that's a contraint of the architecture I need to work with.

Is there any way to force my application to use the application.exe.config file from a set location rather than the user data area that .net automatically writes it to? Even if not on a server path, then in the application directory where we can push update it?

Otherwise I'll need to rewrite it all again using ini files and losing the ease of the built in application settings...

Many thanks for any help.

Adam.

how do i declare an array as a class

Chris11246 — Wed, 02 Dec 2009 16:58:54 GMT

Im making a sim of a robocup for a project and it would really help make the code easier to read if I could have an array of players but I cant dim and array as new and my players are all a class I made called gameobject.
How do I make an array of players as my class gameobject?

Read data from SQL

ShemoPT — Wed, 02 Dec 2009 16:43:40 GMT

I am trying to read data from remote SQL base. I have written the function that works great if you need to get 1 Value , but when I want to read 2 or more value at from one query it doesn't work

how can I fix it?

Imports System.Data.SqlClient

Public Class SQL

    Public MySQLconnection As SqlConnection

    Public MySQLcommand As SqlCommand

    Dim MySQLreader As SqlDataReader



    Public Function connectToSQL(ByVal ConnectionString As String) As String

        Try



            MySQLconnection = New SqlConnection("Data Source=mysource;Initial Catalog=testbase;User ID=MYuser;password=MyPass")

            MySQLconnection.Open()

            MySQLcommand = New SqlCommand(ConnectionString, MySQLconnection)

            If ConnectionState.Open Then



                MySQLreader = MySQLcommand.ExecuteReader()

            End If





        Catch ex As SqlException

            MsgBox("Connection Eror")

            MsgBox(ex.Message)

        End Try



        Dim ReadData As String

        Dim i As Integer = -1



        While MySQLreader.Read

            i += 1

            ReadData += MySQLreader.GetValue(i).ToString



        End While



        Return ReadData

        MySQLconnection.Close()







    End Function

   

End Class

I am using this function like this:



 Dim connectionstring As String

        connectionstring = ("SELECT ID, username  FROM [mybase].[myuser].[users] where username ='" & DataGridView1.SelectedCells(0).Value & "'")



        Dim GetVaule As New SQL



        MsgBox(GetVaule.connectToSQL(connectionstring))

I want to get from this query both ID and username - but I receive only ID

Please help me to fix it.

Best Book

pardeep3dec — Wed, 02 Dec 2009 15:29:00 GMT

Can anyone please send me the ebook for VB.NET 2005.
Thank you

Adding sql 2005 database entry in a text box

morph214 — Wed, 02 Dec 2009 10:59:59 GMT

i was able to successfully connect my database using connection string, i am having a hard time finding tutorials on how to add the items in a textbox.

Imports System.Data.SqlClient

Public Class FrmMain

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

        

        Dim sqlconnection As New SqlConnection



        sqlconnection.ConnectionString = "server = PAL\SQLEXPRESS; Database=BESdb ; integrated security=true"



        Try

            sqlconnection.Open()



        Catch ex As Exception

            MsgBox("Connection to SQL Server Failed")

                

        End Try

    

    End Sub

Working With Excel & Having Issues

kahaj — Wed, 02 Dec 2009 03:43:53 GMT

First off, let me be honest in saying that this is homework. I am not asking for it to be done for me, merely some help in figuring out what I have messed up. Secondly, I am not good with VB, nor do I particularly care for it, but seeing as it is one of the languages being utilized in my Comparative Programming Languages class, I have one final assignment to complete with VB. I cannot get this fundamental portion to work correctly to finish this assignment. This is what I have for code so far:

Imports Microsoft.Office.Interop

Imports System.IO



Public Class Form1

    'declare workbook variable

    Dim wb As Excel.Windows



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

        Dim ex As New Excel.Application

        wb = ex.Workbooks.Add

        'confirm/deny existance of directory

        If Directory.Exists(Me.textPath.Text) Then

            'prompt user of where to save file

            Dim dialog As New SaveFileDialog

            Dim result As DialogResult = dialog.ShowDialog

            'do this if user clicks 'cancel' 

            If result = Windows.Forms.DialogResult.OK Then

                'build folder structure

                Me.BuildFolder(New DirectoryInfo(Me.textPath.Text))

                wb.SaveAs(dialog.FileName)

                'show spreadsheet

                ex.Visible = True

                'enable workbook

                wb.Activate()

            End If

        End If

    End Sub



    'function that creates a worksheet with file names 

    Protected Sub BuildFolder(ByVal Directory As DirectoryInfo)

        'confirm/deny existance of files in directory

        If Directory.GetFiles.Length > 0 Then

            'create new sheet and set its name in directory

            Dim sheet As Excel.Worksheet = wb.Worksheets.Add

            sheet.Name = CheckName(Directory.Name)

            Dim files As FileInfo() = Directory.GetFiles

            Dim f As FileInfo

            'create int used to navigate cells & set its value to 1

            Dim i As Integer = 1

            For Each f In files

                'write the file name to the cell

                sheet.Cells(i, 1) = f.Name

                i += 1

            Next

        End If



        Dim dirs As DirectoryInfo() = Directory.GetDirectories

        Dim d As DirectoryInfo



        'Recurse subfolders

        For Each d In dirs

            BuildFolder(d)

        Next

    End Sub



    'function that confirms/denies prior existance of sheet in book

    Protected Function CheckName(ByVal Name As String) As String

        Dim s As Excel.Worksheet

        Dim exists As Boolean = False

        For Each s In wb.Worksheets

            If UCase(s.Name) = UCase(Name) Then

                'append a 1 to name's end & recheck

                Name = CheckName(Name & "(1)")

            End If

        Next

        Return Name

    End Function

End Class

Line 1 (

Imports Microsoft.Office.Interop

) says that it cannot be found.

Upon attempting to debug, and clicking the button, it tells me, "InvalidCastException was unhandled" for the line

wb = ex.Workbooks.Add

.

Someone, PLEASE help me suffer through this so that I can focus on getting better with the languages I actually enjoy. Thanks in advance for any tips you have.

Calling a public sub... Nothing happens?

ineedalotohelp — Wed, 02 Dec 2009 00:20:13 GMT

Hi guys,

Im having trouble with this code, when i had it working with static variables set, it was fine, now i am using a passed variable, its not working... Might not be anything to do with it, anyhow...

Public Class frmContacts

    Dim con As New OleDb.OleDbConnection

    Dim ds As New DataSet

    Dim da As OleDb.OleDbDataAdapter

    Dim sql As String

    Dim projectid As Integer

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



        Call reload()



    End Sub

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



    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click



    End Sub

    Public Sub clear()

        ds.Tables("contacts").Clear()



    End Sub

    Public Sub reload()

        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\EZaudit.mdb"

        con.Open()





        sql = "SELECT id As pk, contacts.p_id As id, contacts.con_name as Name, contacts.con_position AS JobTitle, contacts.con_email AS Email, contacts.con_phone AS PhoneNo FROM contacts WHERE contacts.p_id=" & projectid & ""

        da = New OleDb.OleDbDataAdapter(sql, con)



        da.Fill(ds, "contacts")



        con.Close()



        dgCon.DataSource = ds.Tables("contacts")

        dgCon.Visible = True

        dgCon.Columns("id").Visible = False

        dgCon.Columns("pk").Visible = False

        dgCon.Columns("Name").Width = 100

        dgCon.Columns("JobTitle").Width = 100

        dgCon.Columns("Email").Width = 145

        dgCon.Columns("PhoneNo").Width = 120

    End Sub

    Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click

        Dim entry As New frmConEntry()

        entry.ProjectId3 = projectid

        entry.Show()

    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

        Dim cb As New OleDb.OleDbCommandBuilder(da)

        da.Update(ds, "contacts")

        MsgBox("Records Updated")

    End Sub

    Public Property ProjectId5() As String

        Get

            Return projectid

        End Get

        Set(ByVal Value As String)

            projectid = Value

        End Set

    End Property



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.clear()

        Me.reload()



    End Sub

End Class

The 2 public subs being clear, and reload.

If i call them within the same form - with button2.click, then it works as it should... but the following code in another form...

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        Dim cb As New OleDb.OleDbCommandBuilder(da)

        Dim dsNewRow As DataRow







        dsNewRow = ds.Tables("contacts").NewRow()



        dsNewRow.Item("id") = projectid

        dsNewRow.Item("Name") = txtName.Text

        dsNewRow.Item("JobTitle") = txtJTitle.Text

        dsNewRow.Item("Email") = txtEmail.Text

        dsNewRow.Item("PhoneNo") = txtPhoneNo.Text





        ds.Tables("contacts").Rows.Add(dsNewRow)



        da.Update(ds, "contacts")



        MsgBox("New Record added to the Database")



        txtName.Text = ""

        txtJTitle.Text = ""

        txtEmail.Text = ""

        txtPhoneNo.Text = ""



        frmContacts.clear()

        frmContacts.reload()

    End Sub

frmContacts.clear(), just does not clear, it gives a "NullReferenceException - Object reference not set to an instance of an object" and the reload doesn't seem to reload the set of data which was loaded the first time round...

Very Confusing... Any ideas? Everything else is working fine, but i dont want to have to click a button to refresh the table every time i add a contact in a seperate form...

Any ideas?

how to copy random records from one table to another table

emint — Tue, 01 Dec 2009 23:30:58 GMT

hi i m using Asp.net and i want copy random 20 records from one table to another table in ms access database using Asp.net.

and also i want have My primary key 1 to 20 in new table . if any one can help that would be really helpful thx

VB 2008- Populating a checked List box

smccrary123 — Tue, 01 Dec 2009 23:03:16 GMT

Hi I'm new to VB and was working on a small app that needs to populat or update a checked listbox. I have the code written it copiles without error. No syntax errors. But it does not execute the way expected. So there is probably some simple logic error that I am missing. Once th update button is chosen the user should be able to add to the items hit update and the checked list box be refreshed. Any help will be greatly appreciated.

Thanks
[code=vb]

Public Class FrmThird

    'Dim SecondForm As New frmSecond

    'Dim ThirdForm3 As New FrmThird

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click



    End Sub



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

        If TextBox1.Text <> "" Then

            If frmSecond.CheckedListBox1.CheckedItems.Contains(TextBox1.Text) = True Then

                frmSecond.CheckedListBox1.Items.Add(CType(TextBox1.Text, String), CheckState.Checked)

            End If



        End If

        'TextBox1.Text = ""

        'End If

    End Sub 'button1_Click



    'End Sub



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



    End Sub



    'Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged



    'End Sub

End Class

Compile problem, cannot run .exe on some machines

shorty1523 — Tue, 01 Dec 2009 22:51:29 GMT

I had a fair amount of experience with much older versions of VB, but recently made the switch to VB.net and am trying to figure my way out through the changes.
I have a small form program that is basically an interface for installing different software packages so that we can distribute a CD with our products that our customers can just pop in the drive, autorun, and click the button to install what they need. The problem that I am running into is unlike when I had built this same program in VB6, the program rewritten in VB.net will not run on some machines, and shows me an error:

.net Framework initialization error
required version of .net framework v2.0.50727

I realize that it is asking for that version of .net framework in order to run, but what I would really like to know is if there is a way to make my exe non-dependant on this so that it will run on any machine. Requiring my customers to install .net framework in order to access an interface designed just to idiotproof the installation of some setup files and provide easy access to a few pdf's really would just defeat the purpose.

Any help on this would be greatly appreciated... it's really giving me a headache.

adding to list box

songweaver — Tue, 01 Dec 2009 21:08:16 GMT

Hey guys,

The idea with this form is to add the futures which is calculated when the button is pushed but I need the list to update every time and show the values each time to which the previous value is added to the new calculation, e.g. of what it should look like in listbox:

Year 1: $1,290.93
Year 2: $2,724.32
Year 3: $4,350.76
etc....

I have been working on this a while and I am at a standstill, I was given a function to clear the form everytime it calculates but I don't know how to implement it, I am new to VB. Here is what I have so far:

Public Class frmFutureValue



    Private Sub btnCalculate_Click(ByVal sender As System.Object, _

            ByVal e As System.EventArgs) Handles btnCalculate.Click

        Try

            If IsValidData() Then

                Dim monthlyInvestment As Decimal _

                    = Convert.ToDecimal(txtMonthlyInvestment.Text)

                Dim yearlyInterestRate As Decimal _

                    = Convert.ToDecimal(txtInterestRate.Text)

                Dim years As Integer = Convert.ToInt32(cmbYears)



                Dim monthlyInterestRate As Decimal = yearlyInterestRate / 12 / 100

                Dim months As Integer = years * 12



                Dim futureValue As Decimal = Me.FutureValue( _

                    monthlyInvestment, monthlyInterestRate, months)





                lstFuture.Text = FormatCurrency(futureValue)

                txtMonthlyInvestment.Select()



            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message & vbCrLf & vbCrLf _

                & ex.GetType.ToString & vbCrLf & vbCrLf _

                & ex.StackTrace, "Exception")

        End Try

    End Sub



    Private Function IsValidData() As Boolean

        Return _

            IsPresent(txtMonthlyInvestment, "Monthly Investment") AndAlso _

            IsDecimal(txtMonthlyInvestment, "Monthly Investment") AndAlso _

            IsWithinRange(txtMonthlyInvestment, "Monthly Investment", 1, 1000) AndAlso _

            IsPresent(txtInterestRate, "Yearly Interest Rate") AndAlso _

            IsDecimal(txtInterestRate, "Yearly Interest Rate") AndAlso _

            IsWithinRange(txtInterestRate, "Yearly Interest Rate", 1, 15)

            

    End Function



    Private Function IsPresent(ByVal textBox As TextBox, ByVal name As String) _

        As Boolean

        If textBox.Text = "" Then

            MessageBox.Show(name & " is a required field.", "Entry Error")

            textBox.Select()

            Return False

        End If

        Return True

    End Function



    Private Function IsDecimal(ByVal textBox As TextBox, ByVal name As String) _

            As Boolean

        Try

            Convert.ToDecimal(textBox.Text)

            Return True

        Catch ex As FormatException

            MessageBox.Show(name & " must be a decimal value.", "Entry Error")

            textBox.Select()

            textBox.SelectAll()

            Return False

        End Try



    End Function



    Private Function IsInt32(ByVal textBox As TextBox, ByVal name As String) _

            As Boolean

        Try

            Convert.ToInt32(textBox.Text)

            Return True

        Catch ex As FormatException

            MessageBox.Show(name & " must be an integer value.", "Entry Error")

            textBox.Select()

            textBox.SelectAll()

            Return False

        End Try

    End Function



    Private Function IsWithinRange(ByVal textBox As TextBox, _

            ByVal name As String, ByVal min As Decimal, _

            ByVal max As Decimal) As Boolean

        Dim number As Decimal = CDec(textBox.Text)

        If number < min Or number > max Then

            MessageBox.Show(name & " must be between " & min & " and " _

                & max & ".", "Entry Error")

            textBox.Select()

            textBox.SelectAll()

            Return False

        End If

        Return True

    End Function



    Private Function FutureValue(ByVal monthlyInvestment As Decimal, _

            ByVal monthlyInterestRate As Decimal, ByVal months As Integer) _

            As Decimal

        For i As Integer = 1 To months

            FutureValue = (FutureValue + monthlyInvestment) _

                        * (1 + monthlyInterestRate)

        Next

    End Function



    Private Sub ClearFutureValue(ByVal sender As System.Object, _

            ByVal e As System.EventArgs) Handles txtMonthlyInvestment.TextChanged, _

             txtInterestRate.TextChanged

        lstFuture.Text = ""

    End Sub



    Private Sub btnExit_Click(ByVal sender As System.Object, _

            ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub



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

        cmbYears.Items.Add("1")

        cmbYears.Items.Add("2")

        cmbYears.Items.Add("3")

        cmbYears.Items.Add("4")

        cmbYears.Items.Add("5")

        cmbYears.Items.Add("6")

        cmbYears.Items.Add("7")

        cmbYears.Items.Add("8")

        cmbYears.Items.Add("9")

        cmbYears.Items.Add("10")

        cmbYears.Items.Add("11")

        cmbYears.Items.Add("12")

        cmbYears.Items.Add("13")

        cmbYears.Items.Add("14")

        cmbYears.Items.Add("15")

        cmbYears.Items.Add("16")

        cmbYears.Items.Add("17")

        cmbYears.Items.Add("18")

        cmbYears.Items.Add("19")

        cmbYears.Items.Add("20")

        cmbYears.SelectedIndex = 2

    End Sub

End Class

converting a string to DataRow

jt_murphree — Tue, 01 Dec 2009 20:57:23 GMT

I have a combobox that pulls a list of values from a database. When a new entry is entered I want an entry in the combobox to read "New record". However, from what I have seen I can only insert and object, such as a DataRow, into the combobox. Is there anyway I can convert a string to to a DataRow, or some other object and insert it in to the combobox? I know there is I am just rusty on my vb.

having trouble connecting to mysql :(

kostasxx — Tue, 01 Dec 2009 20:33:35 GMT

hello dear friends

i installed visual studio ( full installation)

then i got xampp from their site

i have mysql and apache running

i downloaded the connector from mysql site and i created a simple project to check if i can connect to mysql or not i have made this code so far

Imports System.Data.SqlClient



Public Class Form1



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

        Dim Connection As String = "Data source=localhost;user=root;password=;Initial Catalog=test;Integrated Security=true;"

        Dim cn As New SqlConnection(Connection)

        Try

            cn.Open()

            MessageBox.Show("success")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Class

im having trouble with an exception though it says

{"A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)"}

how can i get rid of this, is it because i installed mysql 2005 with visual studio 2008? and maybe it runs with xampp's mysql and creates these problems?

thanks in advance :))))

still need help deleting selected item

twalton42 — Tue, 01 Dec 2009 16:38:04 GMT

I'm using a combobox connected to my account numbers in mysql..I want to take the selecteditem and put it in the delete row string for mysql using vb.net....her is what I have so far and it wont delete the seleted..any help will do....

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

        'delete selected row from database



        Dim Ans As MsgBoxResult

        ' Set icon to exclamation mark

        ' Set buttons to OK and Cancel

        ' Show Message Box

        Ans = MsgBox("Are you sure you want to Delete Selected Account?", vbYesNo + vbExclamation, "Yes or No")

        ' If the user clicked no exit sub

        If Ans = vbNo Then

            Exit Sub

        End If

        'if the user clicked yes then delete selected row from database

        If Ans = vbYes Then

            Dim account_number As String

            account_number = CBAccountNumber.SelectedItem(1)



            Dim mysql As String



            mysql = "SELECT * DELETE FROM customer WHERE account_number="""

            ' selects dependent record from Contacts, deletes then refreshes



        End If



        Me.Close()

How to register DLL file in Windows System32

ahmedlibrian — Tue, 01 Dec 2009 14:41:02 GMT

Hi guys,

Anybody can help me out with this. I have made a DLL with VB.net. Under project settings i have marked checked 2 things
1. Register for COM interop
2. Make assembly COM visible

When i build project its done successfully. Now i take DLL file from project location and copy it in System32. Then on command prompt i use following command to register self creating DLL so that other vb.net programs can use my DLL and etc.

I used: regsvr32 C:\windows\System32\abc.dll

But when i press enter i get the following error message. Why this DLL file is not registering as a COM component
Error is :
-----------
The module "C:\windows\System32\abc.dll" was loaded but the entry-point DllRegisterServer was not found
Make sure that
"C:\windows\System32\abc.dll" is a valid DLL or OCX file and then try again

What is the solution for this. Quick reply will be appreciated.

Regards
Ahmed

How to use OWC (MS Office Web Components) with VB.NET

zainhansrod — Tue, 01 Dec 2009 10:21:33 GMT

Hi,

Can someone please show me step by step how to use the Microsoft Office Spreadsheet COM component in VB.NET, and how to package and deploy it to a client machine which only runs XP with .NET framework 3.5.

I am a newbie, please help.

Thanks.

Clear Word Checkbox Using VBA

YossiD — Tue, 01 Dec 2009 09:53:31 GMT

I'm trying to write a simple macro in Word to clear the checkbox at the current cursor position. I'm sure this is simple, but I'm just an occasional hit and miss macro maker and the VBA help isn't helping.

Apparently I need something like:

ActiveDocument.FormFields("FieldName").CheckBox.Value = False

But that would always clear a specific checkbox and I want to clear the checkbox at the current cursor position. How can I do that?

Thanks

VB.NET 2008 COMException (0x8001010A)

Roetje — Tue, 01 Dec 2009 09:16:56 GMT

Hello guys,

the last few days i've been looking for the solution, but to bad. Nowhere i seem to find it. I've found many posts about it, but none of them works for me. The problem:

Last week we've stepped over to windows server 2008. Very nice..bla bla bla. However, now I can't create any excel application anymore. Well, the process get's created, but doens't do anything.
The strange part is: when i remote login to the server (2008), it does work, so i thought it was something with the rights. But when i open everything for com+, excel(launching users, etc. etc.), it still doesn't work. What is the differance when i am logged in (random user is fine), and when i am not logged in?

the code:

           'Excel.

            Dim exApplication As Excel.ApplicationClass = Nothing

            Dim exBooks As Excel.Workbooks = Nothing

            Dim exBook As Excel.Workbook = Nothing

            Dim exSheets As Excel.Sheets = Nothing

            Dim exSheet As Excel.Worksheet = Nothing

            Dim exRange As Excel.Range = Nothing



            Try

                'Excel.

                ToolboxTracing.LogInfo("Excel object aanmaken.")

                exApplication = New Excel.Application 'CType(CreateObject("Excel.Application"), Excel.Application) ' 

                ToolboxTracing.LogInfo("aangemaakt.")

                exBooks = exApplication.Workbooks

                ToolboxTracing.LogInfo("Workbooks toegevoegd.")

                exBook = exBooks.Open(xlsFileName, False, True)

                exSheets = exBook.Worksheets

                exSheet = CType(exSheets.Item(sheetUuf), Excel.Worksheet) 'CType(exSheets.Item(sheetData), Excel.Worksheet)

note: creating an oulook application works perfect!

Dim olApplication As Outlook.Application = Nothing

            Dim olItem As Outlook.MailItem = Nothing

            Dim olAttachments As Outlook.Attachments = Nothing



            Try

                'XML Importeren.

                ToolboxTracing.LogInfo("aaanmaken outlook.application")

                olApplication = New Outlook.ApplicationClass 'CType(CreateObject("Outlook.Application"), Outlook.Application) '

                ToolboxTracing.LogInfo("Outlook aangemaakt.")

                olItem = CType(olApplication.CreateItemFromTemplate(msgFileName), Outlook.MailItem)

                olAttachments = olItem.Attachments

                ToolboxTracing.LogInfo("Items aangemaakt.")

                For iAttachment As Integer = 1 To olAttachments.Count '1-Based.

                    Dim olAttachment As Outlook.Attachment = olAttachments(iAttachment)

Thnx,
Roel

Using a counter in a game

jeffpray — Tue, 01 Dec 2009 01:39:05 GMT

ahm can anyone help me on my basketball scoreboard system...
my problem is that i don't know how to do the code for the buzzer will buzz when the set time is done...please help me...please
thank you

Problem with form

songweaver — Mon, 30 Nov 2009 23:19:28 GMT

Hey guys,

I have been working on this problem for a while and wanted to see if you could spot what the problem is. This form is used so I can add a customer to the list which calls up another form for the adding. And also has an option for deleting a customer off the list. Visual Studio is giving me an error for the procedure that refreshes the list. It is giving me an error when I try to add the break tab to separate the customers on the list. It is giving me an error about an Option Strict On not allowing implicit conversions from 'String' to 'Integer' What am I doing wrong? Here is what I have:

Imports Microsoft.VisualBasic



Public Class frmCustomerMaintenance

    Private customers As List(Of Customer)



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

        customers = CustomerDB.GetCustomers

        For Each Customer As Customer In customers

            Customer.GetDisplayText()

            Me.FillCustomersListBox()

        Next

    End Sub



    Private Sub FillCustomersListBox()

        lstCustomers.Items.Clear()

        For Each c As Customer In customers

            lstCustomers.Items.Add(c.GetDisplayText(vbTab)) ' This is where I am getting the error

        Next

    End Sub





    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        Dim newCustomerForm As New frmAddCustomer

        newCustomerForm.ShowDialog()

        If newCustomerForm.Customer IsNot Nothing Then

            customers.Add(newCustomerForm.Customer)

            CustomerDB.SaveCustomers(customers)

            Me.FillCustomersListBox()

        End If

    End Sub



    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

        Dim c As Integer = lstCustomers.SelectedIndex

        If c <> -1 Then

            Dim customer As Customer = customers(c)

            Dim message As String = "Are you sure you want to delete?"

            Dim button As DialogResult = MessageBox.Show(message, _

                "Confirm Delete", MessageBoxButtons.YesNo)

            If button = DialogResult.Yes Then

                customers.Remove(customer)

                CustomerDB.SaveCustomers(customers)

                Me.FillCustomersListBox()

            End If



        End If

    End Sub



    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class

Overflow error

Chris11246 — Mon, 30 Nov 2009 21:10:21 GMT

Whenever I try to run my program it keeps giving me an overflow error and I dont know why. The problem is shown when i call this sub:

blueP.shootBall(blueS.x, blueS.y, blueP.ang, blueP.captured, ball.x, ball.y, ball.velx, ball.vely)

this is the sub

Public Sub shootBall(ByVal x, ByVal y, ByVal ang, ByRef caputred, ByRef xb, ByRef yb, ByRef velx, ByRef vely) 'x and y are blueS.x and y

        xb = System.Math.Round(x + ((18 - System.Math.Sqrt((x + 12 - (xb + 6)) ^ 2 + (y + 12 - (yb + 6)) ^ 2)) * System.Math.Cos(ang)), 5) 'moves ball out of capture range

        yb = System.Math.Round(y + ((18 - System.Math.Sqrt((x + 12 - (xb + 6)) ^ 2 - (y + 12 - (yb + 6)) ^ 2)) * System.Math.Sin(ang)), 5)

        caputred = False

        velx = 2 * System.Math.Cos(ang)

        vely = 2 * System.Math.Sin(ang)

        'Form1.Timer1.Stop()

        'MsgBox(velx & " " & vely & " " & System.Math.Sqrt((x + 12 - (xb + 6)) ^ 2 + (y + 12 - (yb + 6)) ^ 2))

        'Form1.Timer1.Start()

        xb += velx

        yb += vely

    End Sub

all the numeric variables should be decimals

networkstream file transfers

smurfh — Mon, 30 Nov 2009 20:08:56 GMT

I am attempting to write a vb.net 2008 application that will allow me to send files from a server to a client based on a request. I am going to post the same console application code below. When i run the server and the client on the local machine, i can get my file update and it works just fine. When i go to a different machine on my network and attempt to connect to the server and download the file, i get the correct file size but the file, when i attempt to run it, says "not a valid win32 application". Now with a little testing, this can be any executable that i send over the network through my update software.

Hopefully i have explained enough for you guys to help me. Take a look at this and let me know.

------
SERVER
------

Imports System.Net.Sockets

Imports System.IO



Module Module1



    Sub Main()

        Dim serverSocket As New TcpListener(System.Net.IPAddress.Any, "9749")

        Dim clientSocket As TcpClient

        Dim counter As Integer



        Try

            serverSocket.Start()

            counter = 0

            Console.Clear()

            Console.WriteLine("Monitoring Server Update Module is now online.", "I")



            While (True)

                counter += 1

                clientSocket = serverSocket.AcceptTcpClient()

                Console.WriteLine("Client Connected.")



                Dim intRequestCount As Integer = 0

                Dim bytesFrom(8193) As Byte

                Dim strRecvData As String = ""

                Dim strClientData As String = ""

                Dim strRequest As String = "" ' will be UPD_UPDATER / UPD_CLIENT so we know what to send



                Try

                    Dim UpdateStream As NetworkStream = clientSocket.GetStream()



                    intRequestCount += 1



                    ' this gets whats out there

                    'UpdateStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))

                    'strRecvData = Trim(System.Text.Encoding.ASCII.GetString(bytesFrom))

                    'strRecvData = BitConverter.ToString(bytesFrom)



                    ' String to store the response ASCII representation.

                    Dim responseData As [String] = [String].Empty

                    Dim data As [Byte]()

                    data = New [Byte](256) {}



                    ' Read the first batch of the TcpServer response bytes.

                    Dim bytes As Int32 = UpdateStream.Read(Data, 0, Data.Length)

                    responseData = System.Text.Encoding.ASCII.GetString(Data, 0, bytes)

                    Console.WriteLine("Received: " & responseData)



                    strClientData = strClientData & responseData



                    Console.WriteLine("Data Received: " & strClientData)

                    strClientData = Trim(strClientData)

                    If strClientData = "UPD_UPDATER" Then

                        ' here we need to send the update program

                        Console.WriteLine("Client asked for updater program.")

                        Dim fileBuffer As Byte()

                        Dim fileStream As Stream

                        fileStream = File.OpenRead("C:\temp\filetosend.exe")

                        Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(fileStream.Length.ToString)

                        UpdateStream.Write(sendBytes, 0, sendBytes.Length)

                        ReDim fileBuffer(fileStream.Length)

                        fileStream.Read(fileBuffer, 0, fileStream.Length)

                        UpdateStream.Write(fileBuffer, 0, fileStream.Length)

                        UpdateStream.Flush()

                    End If

                    If strClientData = "UPD_CLIENT" Then

                        ' here we need to send the client program

                        Console.WriteLine("Client asked for client program.")

                    End If

                    If strClientData <> "UPD_CLIENT" Or "UPD_UPDATER" Then

                        ' somethings not right.

                        Console.WriteLine("Client asked for something invalid.")

                    End If



                    UpdateStream.Close()

                    clientSocket.Close()

                Catch ex As Exception



                End Try



            End While

            serverSocket.Stop()

        Catch ex As Exception



        End Try

    End Sub

End Module

------
Client
------



Imports System.Net.Sockets

Imports System.Text

Imports System.IO





Module Module1



    Sub Main()

        Dim tcpClient As New TcpClient



        Try



            tcpClient.Connect("192.168.1.100", 9749)

            Dim networkstream As NetworkStream = tcpClient.GetStream()



            If NetworkStream.CanWrite And NetworkStream.CanRead Then

                Dim bytes(tcpClient.ReceiveBufferSize) As Byte

                Dim strBytesToRecv As String



                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("UPD_UPDATER")

                networkstream.Write(sendBytes, 0, sendBytes.Length)



                'Dim responsebytes(tcpClient.ReceiveBufferSize) As Byte

                'networkstream.Read(responsebytes, 0, CInt(tcpClient.ReceiveBufferSize))

                'Dim responsedata As String = Encoding.ASCII.GetString(responsebytes)

                Dim blockSize As Int16 = 1024

                Dim thisRead As Int16

                Dim dataByte(blockSize) As Byte

                Dim fileStream As Stream

                Dim data As [Byte]()

                Dim intBytesLeft As Long

                data = New [Byte](1023) {}

                Dim filebytes As Int32

                networkstream.Read(data, 0, blockSize)

                strBytesToRecv = System.Text.Encoding.ASCII.GetString(data)

                intBytesLeft = Int(strBytesToRecv)



                Console.WriteLine("Size of file receiving: " & strBytesToRecv)



                fileStream = File.OpenWrite("filetosend.exe")



                Do

                    Console.WriteLine("Bytes Left: " & Str(intBytesLeft))

                    If intBytesLeft >= 1024 Then

                        filebytes = networkstream.Read(data, 0, data.Length) 'data.length

                        fileStream.Write(data, 0, data.Length)

                        intBytesLeft = intBytesLeft - data.Length

                    Else

                        filebytes = networkstream.Read(data, 0, intBytesLeft)

                        fileStream.Write(data, 0, intBytesLeft)

                        intBytesLeft = intBytesLeft - intBytesLeft

                    End If

                Loop Until intBytesLeft = 0



                fileStream.Close()

            End If



            networkstream.Close()

        Catch ex As Exception



        End Try

    End Sub



End Module

Connect cell phone using vb.net

crakesh — Mon, 30 Nov 2009 17:48:13 GMT

I need to connect Nokia Mobile phone using .net via Bluetooth and then send message by using phone network

Kindly please help me

1) how to connect phone in .net via Bluetooth
2) How to send message using it

setting a password in a database..

robayas — Mon, 30 Nov 2009 14:19:01 GMT

can anyone help me with my problem?
i'm trying to set a password in my database using vb.net.
here's my codes..

Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
Dim chkpass As Integer

Dim strsql As String
Dim conDatabase As ADODB.Connection
conDatabase = New ADODB.Connection
'Dim sql As ADODB.Command
'sql = New ADODB.Command

'Dim hi As New ADODB.Connection
'Dim dbConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & mdi_main.dlg_open.FileName & ";"
'hi.ConnectionString = dbConnection

If txt_password.Text = "" Or txt_confirmpassword.Text = "" Then 'txt_confirmpassword.Text = Nullable Or txt_password.Text = Nullable Then
MsgBox("Enter both and new and confirm password")
Exit Sub
End If
strdbsetpassword = txt_confirmpassword.Text
chkpass = StrComp(txt_password.Text, txt_confirmpassword.Text, vbBinaryCompare)

If chkpass = 0 Then
db.Close()
objconn.Close()
conDatabase.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & mdi_main.dlg_open.FileName & ";"
conDatabase.Open()
strsql = "ALTER DATABASE PASSWORD ="
'sql.ActiveConnection = conDatabase
'sql.CommandText = strsql
conDatabase.Execute(strsql)
'sql.Execute(sql)
MsgBox("The new password was successfully set.", vbInformation)
Else
MsgBox("Mali ung type mo")
End If

'conDatabase.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & mdi_main.dlg_open.FileName & ";"
'conDatabase.Open()
'strsql = " ALTER DATABASE PASSWORD " & strdbsetpassword
'With sql
'.ActiveConnection = conDatabase
'.CommandText = strsql
'.Execute(strsql)
'End With
'conDatabase.Close()
'Dim SQL As String
'Dim intCheckPwd As Integer

'conDatabase("Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & mdi_main.dlg_open.FileName & "")

If scan_openfilenameformdb <> 0 Then
'strconnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & mdi_main.dlg_open.FileName

'conDatabase.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & mdi_main.dlg_open.FileName & ";Persist Security Info=True;" & "Jet OLEDB:Database Password=", strdbsetpassword, strdbsetpassword & ";")

'conDatabase.Open()
'strsql = "ALTER DATABASE PASSWORD" & strdbsetpassword & "NULL"
'sql.ActiveConnection = conDatabase
'sql.CommandText = strsql
'sql.Execute(strsql)
'conDatabase.Execute(strsql)
'conDatabase.Close()
'MsgBox("Setting of Password done!")

Else
'If scan_openfilenameforaccdb <> 0 Then
'strconnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mdi_main.dlg_open.FileName & ";Persist Security Info=True;" & "Jet OLEDB:Database Password= chkpass " & ";"
'MsgBox("Setting of Password done!")
'End If
End If

End Sub

Is there something wrong with my codes?
The error was: INVALID PASSWORD..
pLZ... help me..
thanks!

Terminate msgbox in thread programmatically vb.net

mclaio — Mon, 30 Nov 2009 11:50:13 GMT

We use a third party component for address normalization. When calling a function within this component, normally it returns within a second without any error. Sometimes the component displays an error message box and hangs the unattended process.

We would like to use a timer to trigger termination of the message box. We have also tried using the component in a separate thread and aborting the thread but are not able to catch the exception. The only way to abort seems to be clicking on the message box. Is there any way to terminate the message box so that the application can run unattended ?

Thanks in advance.

Dave

oledbexeption unhandled

hmmmm — Mon, 30 Nov 2009 08:55:59 GMT

im am trying out this code but it keeps giving an error msg but i cant see where the error is...please help

query = New OleDbCommand("INSERT INTO studenttable(sname,scourse,syear,ssemestor,sgrade)values('" & TextBox1.Text & " ',' " & TextBox2.Text & " ',' " & TextBox3.Text & " ',' " & TextBox4.Text & " ',' " & TextBox5.Text & " )", con)

con.Open()

query.ExecuteNonQuery()

con.Close()

VB 2008 MS Acess 2007 - Error inserting record into table

phatJacob07 — Mon, 30 Nov 2009 07:55:34 GMT

First of all, I'd like to say hello to the Daniweb community as a first-time poster. I'm sorry if this is a common error for you folks to deal with, but my preliminary search of the forum didn't really help me all that much. So here we are.

Onwards to the issue. I'm trying to insert a record into an MS Access 2007 database using Visual Basic 2008. Here's the code in question:

    Public Function InsScoutInfo(ByVal ScoutInfoObject As ScoutInfo) As Boolean

        Dim MaxID As Integer = SelMinMax("Max", "ScoutID", "ScoutInfo", "")

        If MaxID = 0 Then

            MaxID = 10000

        Else

            MaxID += 1

        End If

        Dim RowsAffected As Integer = 0

        Dim strInsert As String = "Insert Into ScoutInfo " & _

                                  "(ScoutID, YearID, GSUSAID, FName, LName, DoB, Grade, Level, School, YearsIn, CurrentYear) " & _

                                  "Values (" & _

                                                MaxID & ", " & ScoutInfoObject.YearID & ", " & _

                                                ScoutInfoObject.GSUSAID & ", '" & ScoutInfoObject.FName & "', '" & _

                                                ScoutInfoObject.LName & "', '" & ScoutInfoObject.DoB & "', '" & _

                                                ScoutInfoObject.Grade & "', '" & ScoutInfoObject.Level & "', '" & _

                                                ScoutInfoObject.School & "', " & ScoutInfoObject.YearsIn & ", '" & _

                                                ScoutInfoObject.CurrentYear & "')"

        Dim insCommand As New OleDbCommand(strInsert, conDBConnect)



        conDBConnect.Open()

        RowsAffected = insCommand.ExecuteNonQuery

        conDBConnect.Close()



        If RowsAffected > 0 Then

            Return True

        Else

            Return False

        End If

    End Function

When insCommand.ExecuteNonQuery is executed, an exception with Error # -2147217900 is thrown, with the detail of "In order to evaluate an indexed property, the property must be qualified and the arguments must be explicitly supplied by the user."

At the time the error is thrown, this is what resides in strInsert: "Insert Into ScoutInfo (ScoutID, YearID, GSUSAID, FName, LName, DoB, Grade, Level, School, YearsIn, CurrentYear) Values (10000, 20092010, 123456, 'Jacobina', 'Lowe', '11/30/2009', 'K', 'Daisy', 'Thisone', 0, '20092010')" I've already verified that the Insert statement and datatypes of the columns match.

Any thoughts or ideas would be appreciated. :)

~Jacob

[HELP] add and select items in listbox

murid — Mon, 30 Nov 2009 06:05:18 GMT

I have a button, if I press the button, new picturebox will appear in my main form.
How to add picturebox name in the listbox ?
how to select picturebox name from a listbox for deleting the selected picturebox?

thanks...

Code Snippet what is the problem with this code

shahzadhard — Sun, 29 Nov 2009 19:44:37 GMT

Imports System.Data
Imports System.Data.SqlClient

Public Class Form2
Dim myconnection As SqlConnection
Dim mycommand As SqlCommand
Dim dr As SqlDataReader
Dim dr1 As SqlDataReader
Dim ra As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
myconnection = New SqlConnection("server=Pakistan;Initial Catalog=Mumtaz;database=Mumtaz")

myconnection.Open()
mycommand = New SqlCommand("insert into temp([name],[datep]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", myconnection)
mycommand.ExecuteNonQuery()
'MessageBox.Show("New Row Inserted" & ra)
myconnection.Close()
End Sub
End Class

Adding data from sql database into gridview

CasperG — Sun, 29 Nov 2009 19:13:21 GMT

Can anyone tell me what is wrong with this code, i am trying to add information into a gridview from a sql datbase,

thanks

[code]
SQLSearch("SELECT * FROM engineerissues WHERE EngineerNumber = " & cmbRepTyp.Text)

RS.AddNew()

Dim dgvRow As New DataGridViewRow
Dim dgvCell As DataGridViewCell

dgvCell = New DataGridViewTextBoxCell()
dgvCell.Value = RS.Fields.Item("EngineerNumber").Value
dgvRow.Cells.Add(dgvCell)

dgvCell = New DataGridViewTextBoxCell()
dgvCell.Value = RS.Fields.Item("CallRef").Value
dgvRow.Cells.Add(dgvCell)

dgvCell = New DataGridViewTextBoxCell()
dgvCell.Value = RS.Fields.Item("DateLogged").Value
dgvRow.Cells.Add(dgvCell)

dgvCell = New DataGridViewTextBoxCell()
dgvCell.Value = RS.Fields.Item("LoggedBy").Value
dgvRow.Cells.Add(dgvCell)

dgvCell = New DataGridViewTextBoxCell()
dgvCell.Value = RS.Fields.Item("Comments").Value
dgvRow.Cells.Add(dgvCell)

dgvCell = New DataGridViewTextBoxCell()
dgvCell.Value = RS.Fields.Item("Resolved").Value
dgvRow.Cells.Add(dgvCell)

but it retuns null values.
[code]

Get Date from Database Access

Dorayaki — Sun, 29 Nov 2009 13:29:07 GMT

Hi Can anyone please check my code ?
I'm trying to get today's date from database
I tried many ways and I'm stuck now..

at my database access
the transdate appears like this

11/29/2009 2:02:23 AM

and this is my query code from VB.NET

"SELECT TransDate, Deposit, Withdrawal, TotalAmount FROM Transactions " & _

                             "Where UserID =" & AccID & " and TransDate = " & DateTime.Today() & " " & _

                             "ORDER BY TransID"

is there anything wrong ? I debug and I got the date correct but the data won't show up
please help..
thanks

modificate item in listview

gispe — Sun, 29 Nov 2009 13:24:04 GMT

Hi!!
im doin a proyect that have to create a library, n create, delete an modificate books to the library. im using a listview to show all the books that r created, n should delete books that i deleted n if a modify one, should delete it n then upload the corrected one.
im stuck with modifing the book, wont let me check the items in the listview with the textbox
here i paste the code that isnt workin n att. the whole proyect



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



        Dim j As Int32



        If (TextBox1.Text < 1000) Or (TextBox1.Text > 32000) Then

            MessageBox.Show("codigo incorrecto. tiene q ser entre 1000 y 32000")

            Exit Sub

        Else

            Dim bibaux As New List(Of LIBRO)



            For j = Altas.ListView1.Items.Count - 1 To 0 Step -1 'busca en el listview

                If (Altas.ListView1.SelectedItems(j).Text = TextBox1.Text) Then 'si existe

                    Altas.ListView1.Items.RemoveAt(j) 'borra esa posicion

                End If

            Next



            Altas.TextBox1.Text = TextBox1.Text

            Altas.Show()

        End If

    End Sub

Attached Files

TP--2-Parcial.zip (210.6 KB)

pong game

lovely ari — Sun, 29 Nov 2009 13:04:58 GMT

hi there

how you doing guyz

i want to make pong game in VB.net

i want it for one player

like this one

http://www.quantumstate.co.uk/pongscreen.png

i didn't find good tutorials

all what i found was a tutorials to make it in VB6

i need it in VB.net

any tutorials or full projects i can learn from?

or if there is no tutorials for the pong game can you give me tutorial for the bounce ball or even full project so i can try to edit it to be pong game

please help ari ^^"

thanks

UDP sending problem

Mr. Blank — Sun, 29 Nov 2009 09:46:54 GMT

Hi

I'm working on a messenger that uses UDP and i can send a message once alright, but when i try and send a second message i get an error "An invalid argument was supplied" for this line

SendUdp.JoinMulticastGroup(GroupIP, 12)

I have no idea why this is happening (not that i know that much about udp anyway), so if anyone could help out that would be well appreciated. Thanks.

This is called when enter key is pressed

    Private Sub UDPSend()



        GroupIP = IPAddress.Parse("224.0.0.0")

        GroupEP = New IPEndPoint(GroupIP, 2056)

        SendUdp.JoinMulticastGroup(GroupIP, 12) 'error happening here 2nd time through



        Dim bteSendDate() As Byte



        Try

            bteSendDate = Encoding.Unicode.GetBytes(rtb_MessageWrite.Text)

            SendUdp.Send(bteSendDate, bteSendDate.Length, GroupEP)



        Catch ex As Exception

            rtb_MessageView.Text = rtb_MessageView.Text & (ex.Message)

        End Try



    End Sub

This is on a new thread

    Private Sub BeginListen()

        Dim bteReceiveData() As Byte

        Dim strReceiveData As String



        GroupIP = IPAddress.Parse("224.0.0.0")



        GroupEP = New IPEndPoint(GroupIP, 2056)

        ListenUdp = New UdpClient(2056)

        ListenUdp.JoinMulticastGroup(GroupIP)



        Do

            bteReceiveData = ListenUdp.Receive(GroupEP)

            strReceiveData = Encoding.Unicode.GetString(bteReceiveData)



            If rtb_MessageView.InvokeRequired Then

                Dim d As New SetTextCallback(AddressOf SetText)

                Me.Invoke(d, New Object() {strReceiveData})

            Else

                rtb_MessageView.Text = rtb_MessageView.Text & strReceiveData

            End If

        Loop



    End Sub



    Private Delegate Sub SetTextCallback(ByVal a As String)



    Private Sub SetText(ByVal [text] As String)

        rtb_MessageView.Text = rtb_MessageView.Text & [text]

    End Sub

Query Engine Error with Oracle10

jpri — Sun, 29 Nov 2009 08:06:00 GMT

hiii
I am doing application in vb.net and Oracle10g. On running the project there is some "Query Engine Error C:\document\Local\temp\....3434834-453493434.rpt" error but when same dataSet object when set as source to Datagrid the grid is filled corretly..........
any idea where m i going wrong...............

Adding Tabpages Programatically

Bilal_saif — Sat, 28 Nov 2009 14:58:12 GMT

In my new Project in VB.Net, I want to use Tabcontrols.
I want to add TabPages and set properties Programatically .
Anyone please help me in this?

Thnx in advance...

How to check if form is enabled on Resize event?

Peric — Fri, 27 Nov 2009 16:33:47 GMT

Hello, i have one more problem...here it is:

In my application I have more then one form/dialogs, of course. My start up (main) form is called "StartForm" and when I want to access to some other dialogs, I open up dialog and I put StartForm on ".Enabled = False" so that user can't access to that form even if he click somewhere on it (StartForm is maximized to full screen and dialogs are small so StartForm can be seen in background when you open dialog).
Ok, this works fine until I click on my application "link" in task bar...then, only my StartForm is visible and it's ".Enabled = False" so I can't do anything...I must kill process in task manager. Same thing happens when I open some other application and then come back to my application.

I've tried also few things like .TopLevel = True (everything's the same), .TopMost = True (also doesn't work because then is that dialog visible all the time(until you close it)...on system level)

So...what do I need? I suppose I need something to check which dialogs/forms are enabled on minimize/maximize and to put that dialog/form .TopLevel = True when I maximize my application again. Can somebody help me ?

how to protect cd copying

rohoni — Fri, 27 Nov 2009 15:05:30 GMT

I want to do my mini project in vb.net to protect copying datas from cd to hard disks or cd's, please help me

Thanks in advance

DateTimePicker Value From Database

Dorayaki — Fri, 27 Nov 2009 14:34:08 GMT

Hello I'm using M.Access
I want to get date from database to my datetimepicker, but I got problem

please help, here is my code.

Dim sStatement As String

        sStatement = "SELECT Transactions.RentDate " & _

                     "FROM Transactions INNER JOIN TransactionsDetails ON Transactions.[TransactionID] = TransactionsDetails.[TransactionID]" & _

                     "Where Transactions.MemberID = " & TextBox20.Text & " AND TransactionsDetails.BookID = " & TextBox21.Text & ""

        Try

            Dim sCommand As OleDbCommand = New OleDbCommand(sStatement, sConnection)

            sConnection.Open()

            Dim sReader As OleDbDataReader = sCommand.ExecuteReader()

            DateTimePicker3.Value = Format(sReader(0), "dd/MM/yyyy")

            sConnection.Close()

        Catch sException As System.Exception

            MsgBox(sException.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)

        End Try

it always appears

No data exists for the row/column.

But I have many data...
and the second time i click the button

The connection was not closed. The connection's current state is open.

it appears that msg

thanks

Help Needed In My Mini Project

vivek4020 — Fri, 27 Nov 2009 14:10:08 GMT

Hi Guys.
I am working on my mini project(Intel 8085 Simulator)
I am faced with a huge problem
How do i store the instruction set??

What i am doing currently is i have made a structure

 _

    Public Structure inTab

        Dim iName As String

        Dim iLen As Integer

        Dim regPair As Boolean

        Dim addMode As String

    End Structure

I have made the structure Serializable and i made an object

Dim b As inTab

so that using a BinaryFormatter i can write it to .bin file

A sample of the inTab Object would be

       b.iName = "SUB"

        b.iLen = 1

        b.regPair = False

        b.addMode = "Register"

and i have stored it to a .bin file
There are around 65 Instructions which means that there are 65 objects of type inTab in the .bin file

1st trouble
How do i find the end of the .bin file while i am reading from it
In C++ i used to do

while(!stream.eof())

What is the VB equivalent of this??
Am i using efficient method(This is my first month with VB!!!!!!)

Is database approach more useful?? If yes, where do i get started??

So many questions!!! I guess you people will understand

Thanks in advance

Copying data from textboxes to a text file

little marine — Fri, 27 Nov 2009 14:04:53 GMT

Hello, I am a student in a VB2008 class. I am using this code to copy data in a textbox to a text file. I have several forms to copy data from. Can this be done or do I need to do each form seperately?

Dim FILE_NAME As String = "C:\test2.text"

My.Computer.FileSystem.WriteAllText(FILE_NAME,txtelectronic.text,True)

MsgBox("Text written to file")

End If

datagridview sorting with own text

er.daljeetsingh — Fri, 27 Nov 2009 06:20:48 GMT

i have a datagridview with checkboxes in my window form and i want to sort my result with textbox without losting checkbox checked value. i place code in textbox_textchange() event.

first i fill datatable with label click()

 Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click



cmd = New OracleCommand("select categoryname from subcategory  where doctype='" + glbdocid + "'order by categoryname ASC ", dl.con)

            dim myDataTable as new DataTable

            adap = New OracleDataAdapter(cmd)

            adap.Fill(DataTable)

            DataGridView1.DataSource=myDataTable

End Sub







Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged



Dim myDataView As New DataView(myDataTable)



myDataView.RowFilter = "Categoryname LIKE '%" & TextBox9.Text & "%'"

myDataView.Sort = "categoryname"

dataGridView1.DataSource = myDataView

dataGridView1.DataBind() 



EndSub



And i get all checkbox checked value with comma saprate in Textbox6





 Private Sub TextBox6_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox6.GotFocus

        Dim j As Integer

        Dim str1 As String

        Dim s As Integer

        s = 0

        str1 = ""

        For j = 0 To DataGridView1.Rows.Count - 1

       

            If DataGridView1.Item(0, j).Value = True Then

                If s = 0 Then

                    str1 = DataGridView1.Item(1, j).Value.ToString()

                    s = 1

                Else

                    str1 = str1 + "," + DataGridView1.Item(1, j).Value.ToString()

                End If



            End If



        Next

        Panel1.Visible = False

        TextBox6.Text = str1

       

    End Sub

but i didn't get exact result what i want....plase help me to sort out this problem.....

Ribbon problem

laks_samy — Fri, 27 Nov 2009 04:56:47 GMT

Hi
i am working in vb.net (vs 2005) i have designed my mdi form ribbon file (System.Windows.Forms.Ribbon.dll file ) its working fine but when i close my mdi form that time i got error error message

Title "Windows32 Exception was unhandled"

The system cannot find the file specified

any one help to solve this problem

Graphics vb 2008

BrendaByrne — Fri, 27 Nov 2009 01:21:19 GMT

Hi, yes I'm a student with homework problems, but I am trying. I need to display various shapes in a picture box, and am trying to do so via a combobox that the user can select from. My problem is clearing a previous selection when a new selection is made. Code to date is:

Public Class frmGraphics1

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



        'Populate cboShape with shapes

        cboShape.Items.Add("Select a shape")

        cboShape.Items.Add("Circle")

        cboShape.Items.Add("Square")

        cboShape.Items.Add("Rectangle")



        'Set index to 0

        cboShape.SelectedIndex = 0

    End Sub



    Private Sub cboShape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboShape.SelectedIndexChanged



        Dim GraphicsDisplay As Graphics

        GraphicsDisplay = pboGraphics.CreateGraphics



        If cboShape.SelectedIndex = 0 Then

            Exit Sub



        ElseIf cboShape.SelectedIndex = 1 Then

            GraphicsDisplay.DrawEllipse(Pens.Blue, 10, 10, 150, 150)



        ElseIf cboShape.SelectedIndex = 2 Then

            GraphicsDisplay.DrawRectangle(Pens.Blue, 10, 10, 150, 150)



        ElseIf cboShape.SelectedIndex = 3 Then

            GraphicsDisplay.DrawRectangle(Pens.Blue, 10, 10, 250, 100)



        End If

    End Sub

End Class

Thank you, Brenda

coding problem

pardeep3dec — Thu, 26 Nov 2009 15:23:22 GMT

hi my problem is that there is no msgbox"Hi this is my first" coding but my programme showing above message box on form loading event. Please help

How to detect installed games on a system ?

Damon88 — Thu, 26 Nov 2009 14:11:44 GMT

I am writing a application where i need to know which games are installed on a system.

I have 3 ways by which i think i can detect the games

1: Scan specific parts of registry and look for key names that match with a List of Publishers. The list is manually maintained.

2: Scan the hard disk for and do same as in step 1

3: run the program in background and check for programs in memory that use a large portion of memory(which games always do) and if they use Direct X ( Which all games do except for some) then its a game.

Now i have been thinking about it and first and second method seems to be in need of a updated database ie list of publishers to make out if a particular program is game.

Is there any other more efficient way to do it. If there is please let me know.

Thankyou.

How to print vb form.

ujjval dave — Thu, 26 Nov 2009 09:36:20 GMT

I am new in vb.net so i don't know how to take a print from a vb form.
thanks for this printing code.