VB.NET Forum RSS Feed

Parameters.count equals 0

Wed, 26 Nov 2008 03:15:05 -0700

I am using VB.NET 2005 to access a MySQL 5 database.
I expected the following code snippet to give me a parameter count of 3 but it gives me 0.
Note:

- The connection to DB is established (tested)

Any ideas?
Please help!

'Create a connection to DB
Dim cn as New ADODB.Connection
cn.Mode = ADODB.ConnectModeEnum.adModeReadWrite
cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
cn.Open("MyDSN_Name_ODBC")

'Run Parameter Query
Dim cmd As New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "INSERT INTO `tblgroups` ( " & _
           " `groupID` , `GroupName` , `Description` " & _
          " ) VALUES ( " & _
          "  ? , ? , ? " & _
          ")"
'Debug
Msgbox(cmd.Parameters.count) ' It gives me 0, WHY????
...

This post has been deleted.

Mon, 24 Nov 2008 03:38:19 -0700

This post has been deleted.

Accessing the SQL Database available in other server with my same LAN

Sun, 23 Nov 2008 23:48:01 -0700

Hi,

Iam very new to VB.Net. Even I can say today only I started the project in VB.NET

My requirement:-

Currently we are having 3-servers. Myself is logged-in to server called - " SERVER-1 " & My User name with server - " Bond ", Password - " 007 "

And the SQL SERVER 2005 is available in another system and that server called "SERVER-2" and his user name is " Raj" , Password - "123"
but all are in same LAN

How to connect with that sql server available in another machine ?

The following details I collected from that sql server..........

Server Name : abcde2
user name : SERVER-1 \ Raj

Codings:
Dim con As New SqlConnection("server=server-2; database=emp_management; uid=Server-1\Raj")

From MAHEY

Problem with SETUP & DEPLOYMENT

Fri, 21 Nov 2008 06:49:34 -0700

I have run / debug my application and it is not giving me any errors. The moment i tried to create a setup and deployment i start getting problems. The setup file is created and when i install it, it does what it is supposed to do. BUT.. when i run it , it says Exeption was thrown in Mymodule.vb.

I have the module here, and it looks fine. Can anybody tell me what is going on.

Is there anybody to whom i can send ALL of my code, to help me, yust with the compiling.. This is a project for College i am working on, and my time is running out. PLEASE HELP...!!!
Here is the mymodule code..

Public Module MyModule
    Dim Rs_AppPath As String = System.IO.Directory.GetCurrentDirectory
    Public testname1, testname2, testname3, testname4, testname5, testname6, testname7, testname8, testname9, testname10 As String
    Public AmountTests As Integer
    Public str As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & Application.StartupPath.Substring(0, Application.StartupPath.LastIndexOf("bin")) & "libra.mdb;Mode=Share Deny None;Extended Properties=;Jet OLEDB:System database=;Jet OLEDB:Registry Path=;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
    Public currentstudent As String
    Public lecturerdays1, lecturerdays2, lecturerdays3, lecturerdays4 As Integer

End Module

properties of single contol in a control array set up in a class

Thu, 20 Nov 2008 06:45:33 -0700

I have set up a control array by making a class and using clickhandlers. What i need to do, is when the user clicks a control, i need that control to change position. I tried setting it up the same way as the message box i set up (below) but it didnt work.

MessageBox.Show("you have picked " & CType(CType(sender, _ System.Windows.Forms.Button).Tag, String) & " dollars.")

UPDATE SQL CE Server via DataAdapter

Wed, 19 Nov 2008 03:17:49 -0700

Hi All,

I have an issue which I have been trying to resolve for a couple of days. I am trying to update the SQL CE Server (which is in my project) with the changes that have been made to my dataset.

Code:

Dim myConn As SqlCeConnection = New SqlCeConnection(My.Settings.db_Database_Applicatio n_ConnectionString)

Dim myDataAdaptor As New SqlCeDataAdapter

Dim mySQLCommandUpdate As SqlCeCommand = New SqlCeCommand("UPDATE tblTutors SET Password = 'pass'", myConn)

Dim mySQLCommand As SqlCeCommand = New SqlCeCommand("SELECT * FROM tblTutors", myConn)

Dim myDataset As DataSet = New DataSet

myConn.Open()

myDataset.Clear()

myDataAdaptor.SelectCommand = mySQLCommand
myDataAdaptor.UpdateCommand = myConn.CreateCommand
myDataAdaptor.UpdateCommand.CommandText = ("UPDATE tblTutors SET Password = 'password'")

mySQLCommandUpdate.ExecuteNonQuery()

myDataAdaptor.Fill(myDataset, "tblTutors")

DataGridView1.DataSource = myDataset
DataGridView1.DataMember = "tbltutors"

myDataAdaptor.Update(myDataset, "tbltutors")

myConn.Close()

The changes seem fine when displaying the data in the DataGridView however the changes have not been made to the SQL CE Server itself.

Can anyone spot where I am going wrong here?

Any help is much appreciated.

Updating SQL Join via DATASET

Tue, 18 Nov 2008 20:41:29 -0700

I need some help, I have been at this for a few days...
I have a datagridview that I am populating with an SQL JOIN with the following stored procedure...

CREATE PROCEDURE sp_company_GRIDVIEW_Iuserid_companyid
@companytypenumber int,
@iuserid int
AS
Select tblcompany.CompanyName as [Company Name],
tblcompanytypes.Companytype as [Group Name],
tblcompany.phoneNumber as [Phone Number],
tblcompany.Altphone as [Alternate Phone],
tblcompany.Address,
tblcompany.city,
tblcompany.EmailAddress as [Email Address]
From tblcompany INNER JOin tblcompanytypes ON
tblcompany.companytypeNumber = tblcompanytypes.companytypenumber
Where tblcompanytypes.IUSERID = @iuserid And tblcompanytypes.companytypenumber = @companytypenumber
GO

The results are successfully returned into the datagridview, and it works great,
However I would like to implement the functionality to update, insert, and delete from the datagrid.

To start with the following code, saves changes to my dataset, with the cellendedit event of the datagrid with following..

Private Sub dgcompanies_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgcompanies.CellEndEdit
If Me.PersDB01DataSet.HasChanges Then
Me.PersDB01DataSet.AcceptChanges()

End If
End Sub

There is a save button, that I want to update persdb01dataset to the datasource.
What is the best way to do this? I am really stuck and in need of some help.
Any help is much appreciated, thank you very much.

Port lookup

Tue, 18 Nov 2008 11:57:02 -0700

Hi everyone,

I'm looking for help in figuring out how to look up ports in my program. What I want to do is search for ports that already have devices connected to the computer, and then assign those within the program.

The way it works right now is that I have to manually assign the ports used in the console. I want the program to look up a string that the device is currently sending to the computer, the code will recognize that string and realize what port it's coming from, then set the device to that port automatically.

Does anyone have any suggestions as to how I should go about writing code to search for ports in use and assigning them?

(I'm slightly new to programming, so any help at all is appreciated.)

Navigating a Dataset

Tue, 18 Nov 2008 09:18:05 -0700

What is the best place (event/procedure) to use the newest record when navigating from record to record on a form.

For example, I want to do a calculation on 2 text boxes that are bound to a dataset. This calculation will be done each time a new record is navigated to.

This seams basic but I am new to .net and can't see, to find the best way.
Thanks

Datagridview - Add columns and Rows based on 2 or dates

Mon, 17 Nov 2008 23:42:05 -0700

Greeting coders...
I am working on something and google isn't finding what I need.

I use mysql 4.x , VB 2008 Express
Datagridview = DGV from here on...

I have 10/10/2008 and 10/20/2008 (example dates)
How can I add a # of cloumns (the DATEDIFF of those 2 dates) with the each date as a column header.

I can get the datediff. But I don't know how I can loop around my table row.
This is what I have in my table.

roomRates   |StartDate   | EndDate    |
---------------------------------------
BaseRate    | 10/10/2008 | 10/20/2008 |

and I want the grid to look like.

---------------------------------------------------------
DATE     | 10/10/08  | 10/11/08 | 10/12/08  | 10/13/08  |
BaseRate | x price   | xprice $ | xprice $  |    price  |
---------------------------------------------------------

I don't want to end up having a field for every day in a year.
Thanks for any ideas or pointers.
HP.

control another application from vb.net

Sat, 15 Nov 2008 16:12:04 -0700

I need to control another application from vb.net by simulating keyboard and mouse entries.
The idea is to auomatize tasks of changing prices on an e-commerce solution's control panel because I have no direct access to the database.
Can somebody help me?

strange behavior with property procedures

Thu, 13 Nov 2008 21:36:12 -0700

I have some code that is deliberately programmed in a non-standard way, so I'm not looking for someone to point that out. When it's coded right, I get the proper results. However the results are not what I thought they would be with the non-standard code.

I spent some time walking through the code with the debugger. Everything was working right until just before the end, when the correct value that should have been returned changed to minus 1. Purely as a matter of curiosity, I'd like to know what's going on with the code to produce the strange result. Here it is:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cls As New Class1
cls.Area = 8.34D
cls.Price = 31.22D
MsgBox(Format(cls.TotalCost, "Fixed"))
End Sub
End Class

Public Class Class1
Private pricee As Decimal
Private areea As Decimal
Private totCost As Decimal

Public ReadOnly Property TotalCost() As Decimal
Get
Return totCost = Area * Price
End Get
End Property

Public Property Area() As Decimal
Get
Return areea
End Get
Set(ByVal value As Decimal)
If value < 1000 Then
areea = value
Else
areea = 0
End If
totCost = value * Price
End Set
End Property

Public Property Price() As Decimal
Get
Return pricee
End Get
Set(ByVal value As Decimal)
pricee = value
totCost = value * Area
End Set

End Property

End Class

How NOT to print 'White Spaces'

Thu, 13 Nov 2008 04:13:23 -0700

Here is the code i using to print a report. The report is print fine. BUT , the problem is that the 3rd column is not indent correctly. I assume that it has to do with WHITE SPACES. I tried to TRIM and PAD, but not luck. How can i make sure that my columns are indented corectly?

 private Sub Doc_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        Dim doc As TextDocument = DirectCast(sender, TextDocument)
        Dim lineHeight As Single = Font.GetHeight(e.Graphics)
        Dim x As Single = e.MarginBounds.Left
        Dim y As Single = e.MarginBounds.Top
        doc.PageNumber += 1 
        Dim fnt4 As New Font("Arial", 9, FontStyle.Italic)
        e.Graphics.DrawString(TextBox1.Text & vbTab & vbTab & vbTab & DateTimePicker1.Text, fnt4, Brushes.Black, x, y)
        y += lineHeight
        y += lineHeight
        Dim fnt2 As New Font("Arial", 14, FontStyle.Underline)
        e.Graphics.DrawString("TEST RESULT : " & Trim(PUBMYLECTURER) & vbTab & " CAMPUS: " & PUBMYCOLLEGE, fnt2, Brushes.Black, x, y)
        y += lineHeight
        y += lineHeight
        Dim fnt3 As New Font("Arial", 12, FontStyle.Bold)
        e.Graphics.DrawString(" GROUP :" & PUBCLASSGROUP & "  FOR: " & pagetesttitle, fnt3, Brushes.Black, x, y)
        y += lineHeight
        Using fnt As New Font("Arial", 10)
            While ((y + lineHeight) < e.MarginBounds.Bottom And doc.Offset <= doc.Text.GetUpperBound(0))
                e.Graphics.DrawString("___________________________
__________________________________________________
_________", Font, Brushes.Black, x, y)
                y += lineHeight
                Dim R As New RectangleF(x, y, 80, 80)
                e.Graphics.DrawString(doc.Text(doc.Offset), Font, Brushes.Black, x, y)
                doc.Offset += 1
                y += lineHeight
            End While
            y += lineHeight
            y += lineHeight
            Dim fnt5 As New Font("Arial", 9, FontStyle.Italic)
            e.Graphics.DrawString(TextBox2.Text, fnt5, Brushes.Black, x, y)
            If doc.Offset < doc.Text.GetUpperBound(0) Then
                e.HasMorePages = True ' There is still at least one more page. Signal this event to fire again.
            Else
                doc.Offset = 0 ' Printing is complete.
            End If
        End Using
    End Sub

 Sub PRINTTEST(ByVal CLASSGROUP, ByVal testtype)
        ' Create a document with 100 lines.
        Dim studentarr, studentcode2 As String
        Dim a As Integer = 1
        Dim testamount As Integer
        PUBCLASSGROUP = CLASSGROUP
        'con.Open()
        If testtype = "test1" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test1 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest1
        End If
        If testtype = "test2" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test2 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest2
        End If
        If testtype = "test3" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test3 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest3
        End If
        If testtype = "test4" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test4 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest4
        End If
        If testtype = "test5" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test5 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest5
        End If
        If testtype = "test6" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test6 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest6
        End If
        If testtype = "test7" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test7 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest7
        End If
        If testtype = "test8" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test8 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest8
        End If
        If testtype = "test9" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test9 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest9
        End If
        If testtype = "test10" Then
            adp2 = New OleDbDataAdapter("select studentname, studentcode,test10 from tests where studentclass = '" & CLASSGROUP & "'  order by studentname ", con)
            pagetesttitle = pubmytest10
        End If
        ds2 = New DataSet
        adp2.Fill(ds2, "s")
        Dim dr As DataRow
        Dim amountrows As Integer = ds2.Tables(0).Rows.Count
        Dim printText As String() = New String(amountrows) {}
        '' Find the longest name
        Dim longname As String
        Dim maxname As Integer = 0
        For Each dr In ds2.Tables(0).Rows()
            longname = dr.Item(0)
            If maxname < Len(longname) Then maxname = Len(longname)
        Next

        For Each dr In ds2.Tables(0).Rows()
            printText(a) = a.ToString.PadRight(3, " "c)

            studentarr = dr.Item(0)
            studentcode2 = dr.Item(1)
            testamount = Val(dr.Item(2))
            printText(a) += studentcode2 & vbTab
            printText(a) += (Trim(studentarr) + Space(maxname - Len(studentarr) + 1)).PadRight(2)
            printText(a) += vbTab & vbTab & testamount
            a = a + 1
        Next
        ' The Printing Starts Here
        Dim doc As New TextDocument(printText)
        AddHandler doc.PrintPage, AddressOf Doc_PrintPage
        Dim dlgSettings As New PrintDialog
        dlgSettings.Document = doc
        Dim dlgPreview As New PrintPreviewDialog
        dlgPreview.Document = doc
        If dlgSettings.ShowDialog = Windows.Forms.DialogResult.OK Then
            dlgPreview.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowOnly
            If dlgPreview.ShowDialog = Windows.Forms.DialogResult.OK Then
                doc.Print()
            End If
        End If
    End Sub

using arrays

Fri, 07 Nov 2008 23:36:52 -0700

i want to store the employees quarter sales and at the same time i want them to average with the companies quarter sales any ideas?

 Const intNUMBER_OF_EMPLOYEES As Integer = 10
    Const intMAX_EMPLOYEE As Integer = intNUMBER_OF_EMPLOYEES - 1


    ' class level variables
    Private Names(intMAX_EMPLOYEE) As String
    Private quarter1(9) As Single
    Private quarter2(9) As Single
    Private quarter3(9) As Single
    Private quarter4(9) As Single

    Private Sub txtQuarter1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtQuarter1.Validating, txtQuarter4.Validating, txtQuarter3.Validating, txtQuarter2.Validating
        Dim input As String = CType(sender, TextBox).Text
        If IsNumeric(input) Then
            Dim number As Integer = CInt(input)
        Else
            MessageBox.Show("Please enter an integer.")
            e.Cancel = True
        End If

    End Sub

    

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

        Dim intCount As Integer

        For intCount = 0 To intMAX_EMPLOYEE
            Names(intCount) = TextBox1.Text

How To Select Data from *.DBF files

Wed, 05 Nov 2008 00:49:35 -0700

I am very new to foxpro file extraction programming using vb.net
plz help for following scenario.

I have a foxpro files of file extension

1) FOXUSER.DBF: which contains fields such as Type,Id,Name,Readonly,CkVal,
Data,Updated.

2) FOXUSER.FPT:fields same as above

3) Data_Needed.DBF :Contains fields such as
EmployeeID,EmployeeName,EmpolyeeAddress

I have created a function for selecting data from the foxpro file Data_Needed.DBF

But it gives error

"The Microsoft Jet database engine could not find the object 'Data_Needed'. Make sure the object exists and that you spell its name and the path name correctly."

I have troubleshooted a lot but no use although the files are present there in the location

my function is as below

==========================================
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\DATA Needed\Data_Needed;Extended Properties=dBase III"

Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(connectionString )

dBaseConnection.Open()

Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM Data_Needed", dBaseConnection)

Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.Sequent ialAccess)

While dBaseDataReader.Read

ComboBox1.Items.Add("" & dBaseDataReader("EmployeeName") & "")

End While

dBaseConnection.Close()

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

Please Help me finding a solution

Thanks in Advance for all
Jiendra

From Inputbox to Listbox

Sun, 02 Nov 2008 13:08:53 -0700

Alright folks...I'm new to this visual basic stuff, and to the site. I am working on an assignment for a class...it'll probably look pretty easy to the rest of you, but I just can't figure it out.

What I need to do is take the information from the input box, the 'quiz scores' that are entered and put them in the list box. The way it is set up now, as you'll see is that it takes the last score and enters it all 5 times. It appears that all of my other calculations work. I'm not looking for someone to completely write the code for me, as I really need to and want to learn this...but maybe just a little 'shove' in the right direction?!

Below is all of the code I have so far: I changed the part I need help with to red font so you can find it quicker...Thanks!!!!!

' Project: IT Department Grades
' Purpose: Allows the user to enter 5 scores, they will be displayed in a list box
' and then can be used to calculate the average and a grade letter will
' be displayed.
' Created by: Lisa Bastian on 9/27/08

Option Strict On
Option Explicit On

Public Class GradeForm

Dim strInputQuiz As String
Dim intQuizCounter As Integer = 1
Dim strGrade As String
Dim intQuizPoints As Integer
Dim intPointsAccumulator As Integer
Dim intAverage As Integer
Dim isConverted As Boolean

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

Private Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
lblTotalPoints.Text = ""
lblAveragePoints.Text = ""
lblLetterGrade.Text = ""
lstGrades.Items.Clear()

End Sub

Private Sub btnAcceptGrades_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAcceptGrades.Click

' repeats input box until all 5 grades have been entered
Do While intQuizCounter < 6
' input box for user to enter the numeric grades
strInputQuiz = InputBox("Please enter quiz grades " & intQuizCounter, "Quiz Grades")

' if points entered are correct numbers count the quiz and add the points
' in the points accumulator if not show message box saying re-enter
isConverted = Integer.TryParse(strInputQuiz, intQuizPoints)
If isConverted Then
intQuizCounter = intQuizCounter + 1
intPointsAccumulator = intPointsAccumulator + intQuizPoints

Else
MessageBox.Show("Please re-enter quiz grade.", "Quiz Grades Error", MessageBoxButtons.OK, _
MessageBoxIcon.Information)

End If
Loop
' Converts the Quiz Points entered to string and adds them
' to the list box
lstGrades.Text = Convert.ToString(intQuizPoints)
lstGrades.Items.Add(intQuizPoints)
lstGrades.Items.Add(intQuizPoints)
lstGrades.Items.Add(intQuizPoints)
lstGrades.Items.Add(intQuizPoints)
lstGrades.Items.Add(intQuizPoints)

End Sub

Private Sub btnCalculate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
' uses the numeric grades entered in the list box
' to give the average grade, which will be displayed as a
' letter grade

lblTotalPoints.Text = Convert.ToString(intPointsAccumulator)

lblAveragePoints.Text = Convert.ToString(intPointsAccumulator / 5)

intAverage = CInt(Convert.ToString(intPointsAccumulator / 5))
lblAveragePoints.Text = Convert.ToString(intAverage)

Select Case intAverage
Case Is >= 93
strGrade = "A"
Case Is >= 86
strGrade = "B"
Case Is >= 77
strGrade = "C"
Case Is >= 70
strGrade = "D"
Case Else
strGrade = "F"
End Select

' displays the letter grade in the label
lblLetterGrade.Text = strGrade
End Sub
End Class

Use Mouse Wheel in Datagrid

Thu, 23 Oct 2008 00:22:45 -0700

I want to use my M<ouseWheel to scroll up and down in my Datagridview. I want my heading to stand still while the rest of my data moves up and down.

How?

Error in Published program

Mon, 20 Oct 2008 03:25:35 -0700

I published my project. When i execute it, the first screen comes up , but then i get the error below.
Question 1: What is causing it?
Question 2: How do i go about creating a setup program, that does not give the same error below?

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

************** Exception Text **************
System.TypeInitializationException: The type initializer for 'Library.Module1' threw an exception. ---> System.ArgumentOutOfRangeException: Length cannot be less than zero.
Parameter name: length
at System.String.InternalSubStringWithChecks(Int32 startIndex, Int32 length, Boolean fAlwaysCopy)
at System.String.Substring(Int32 startIndex, Int32 length)
at Library.Module1..cctor() in L:\vb programs\My Book Library DataBase\Library\Module1.vb:line 5
--- End of inner exception stack trace ---
at Library.LoginForm1.OK_Click(Object sender, EventArgs e) in L:\vb programs\My Book Library DataBase\Library\LoginForm1.vb:line 11
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** Loaded Assemblies **************
mscorlib
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50 727/mscorlib.dll
----------------------------------------
Library
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///D:/temp/Library.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 8.0.0.0
Win32 Version: 8.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.Vis ualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.Visua lBasic.dll
----------------------------------------
System
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0. 0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Window s.Forms/2.0.0.0__b77a5c561934e089/System.Windows.F orms.dll
----------------------------------------
System.Drawing
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawin g/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Config uration/2.0.0.0__b03f5f7f11d50a3a/System.Configura tion.dll
----------------------------------------
System.Xml
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2. 0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 2.0.0.0
Win32 Version: 2.0.50727.1433 (REDBITS.050727-1400)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtim e.Remoting/2.0.0.0__b77a5c561934e089/System.Runtim e.Remoting.dll
----------------------------------------

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

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

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

Accessing controls from threads

Fri, 17 Oct 2008 07:58:00 -0700

Hi,

I hope some one that give me a nice clear answer to this as I'm at my ends whits with it.

Ok I have form1 and a button on that opens form2. Form2 starts a thread that will create report for me. When the threads start it executes some code that accesses controls on form1. Of course you know this wouldn't work because I'm getting errors as its unsafe. The code is very simple

if form1.checkbox.checked then
' Do something
end if

I have many checkboxes on form1 that I need to check so is there a way I can do this from the thread quickly and safely?

I also calls a public function in the thread that is in form1 that adds data to a tree view.

Please HELP!

Jim

Add bd sqlserver 2005 in a Relaese Project

Tue, 14 Oct 2008 07:48:16 -0700

Hi everybody, i just want to know how can we add a database made in sql server 2005 in a release project with visual studio 2005 (.NET)

Outlook Style Datagridview

Thu, 09 Oct 2008 20:31:54 -0700

Hi,

Anyone there who has a sample code on how to create an outlook style datagridview using vb.net?

Thanks
xtian

Load info from a web page to a vb.net application

Tue, 07 Oct 2008 07:05:01 -0700

I just want to know if it is possible to load info's from a web page
with a windows application (vb.net).
If someone can insert code samples it will be nice.
Thanks for any help !!!

Im trying to convert numbers to english , Why wont this work ,,,

Mon, 06 Oct 2008 13:09:13 -0700

' When I run the program it returns a 0 in the label ???? Any suggestions

Private Sub btnConverttoEnglish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConverttoEnglish.Click

Dim oneword As Integer
Dim tensword As Integer
Dim hundredsword As Integer
Dim thousandsword As Integer
Dim EnglishResult As String

Select Case thousandsword
Case 1000
EnglishResult = "one Thousand"
Case 2000
EnglishResult = "two Thousand"
Case 3000
EnglishResult = "three Thousand"
End Select

Select Case hundredsword
Case 100
EnglishResult = "one hundred"
Case 200
EnglishResult = "two hundred"
Case 300
EnglishResult = "three hundred"
Case 400
EnglishResult = "four hundred"
Case 500
EnglishResult = "five hundred"
Case 600
EnglishResult = "six hundred"
Case 700
EnglishResult = "seven hundred"
Case 800
EnglishResult = "eight hundred"
Case 900
EnglishResult = "nine hundred"

End Select

Select Case oneword

Case 1
EnglishResult = "One "
Case 2
EnglishResult = "Two "
Case 3
EnglishResult = "Three "
Case 4
EnglishResult = "Four "
Case 5
EnglishResult = "Five "
Case 6
EnglishResult = "Six "
Case 7
EnglishResult = "Seven "
Case 8
EnglishResult = "Eight "
Case 9
EnglishResult = "Nine "
Case 10
EnglishResult = "Ten "
Case 11
EnglishResult = "Eleven "
Case 12
EnglishResult = "Twelve "
Case 13
EnglishResult = "Thirteen "
Case 14
EnglishResult = "Fourteen "
Case 15
EnglishResult = "Fifteen "
Case 16
EnglishResult = "Sixteen "
Case 17
EnglishResult = "Seventeen "
Case 18
EnglishResult = "Eighteen "
Case 19
EnglishResult = "Nineteen "
End Select

Select Case tensword

Case 90 To 99
EnglishResult = "Ninety "
Case 80 To 89
EnglishResult = "Eighty "
Case 70 To 79
EnglishResult = "Seventy "
Case 60 To 69
EnglishResult = "Sixty "
Case 50 To 59
EnglishResult = "Fifty "
Case 40 To 49
EnglishResult = "Forty "
Case 30 To 39
EnglishResult = "Thirty "
Case 20 To 29
EnglishResult = "Twenty "

End Select

EnglishResult = CStr(thousandsword + hundredsword + tensword + oneword)
txtEnterNumber.Text = CStr(EnglishResult)
LblResult.Text = txtEnterNumber.Text

End Sub

Save changes to a database

Sat, 04 Oct 2008 10:16:35 -0700

Hi ,
This is my codes , what I want to do is to save changes to database.

Dim connstr As String = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data source = cdbank.mdb"

Dim dt As New DataTable
Dim sqlstr As String = "SELECT * FROM info"

Private Sub SaveToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem1.Click
Dim changes As Integer

Dim dataadapter As New OleDb.OleDbDataAdapter(sqlstr, connstr)
Dim commandbuilder As New OleDb.OleDbCommandBuilder(dataadapter)
dataadapter.Update(dt)
dataadapter.Dispose()
If changes > 0 Then
MsgBox(changes & "changed rows were stored in the database ")
Else
MsgBox("No changes made.")

End If
End Sub

But when i run the program and i load data from database and want to save the changes i have made i get this error:

Syntax error (missing operator) in query expression '((code = ?) AND ((? = 1 AND name IS NULL) OR (name = ?)) AND ((? = 1 AND serial IS NULL) OR (serial = ?)) AND ((? = 1 AND software inside IS NULL) OR (software inside = ?)))'.

I have no idea what this is about !

Anyone here can help
I mostly appreciate

sap2020

Problem with Screen.AllScreens(0).DeviceName

Thu, 02 Oct 2008 17:51:03 -0700

I am having some problem with some code that worked OK when I programmed it on Vista 64 bit edition, but is having problems on a machine with Windows XP SP2. I have created some simple code that simulates the problem, rather than post my original code which is more complicated.

'Obtain Monitor Name
Dim MonitorName As String = Screen.AllScreens(0).DeviceName

'Gets rid of the "\\.\" at the start of the name
Do While MonitorName Like "*\*"
    MonitorName = Microsoft.VisualBasic.Right(MonitorName, Len(MonitorName) - 1)
Loop
'Display message if Monitor Name is "DISPLAY1"
If (MonitorName = "DISPLAY1") Then
    MsgBox("Monitor Found", MsgBoxStyle.OkOnly, "Monitor Search")
End If

The problem is that the message box in the last line never displays, Even though the Monitorname is "DISPLAY1" As expected..

The problem seems to be coming from the call to "Screens.AllScreens(0).DeviceName in the first line. If I obtain the value of "DeviceName" by putting my cursor over this bit of code it says

DeviceName = "DISPLAY1

Notice how there is a quotation mark at the start and none at the end. This problem carries over to the MonitorName variable, and MonitorName would also be missing the final quotation mark when the If Statement is run.

I am programming with VB.Net Express 2008 edition. On a machine with Windows XP SP 2, and the program is using .Net Framework 2.0. I have tried switching to .Net Framework 3.0 without any success.

I suspect this is a bug with something on my machine, rather than with my program. Is there another way of obtaining the name of all monitors attached to the computer?

Thank you