Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Visual Basic 2008 - Help Please!!

killerTwinkiekillerTwinkie Member CommonPosts: 1,694

Currently I am using Visual Basic 2008 to create a password vault. An application to hold all my passwords in one location, that way, I dont need to keep them in a fire-safe vault. I am having a lot of issues with this when trying to add information INTO a database.  Right now, it's bombing out at the "objOleDbCommand.ExecuteNonQuery() statement.

Here is my code from start to finish. It may look choppy, and it is. Right now, I have no idea what I am doing and the teacher is refusing to help. To provide a little more light on the situation. I have asked students who have passed this class to help, and none of them can.


'Date: 4/27/2010

'Purpose: To store and protect passwords.

Option Strict On

Option Explicit On

Imports System.Data.OleDb

Public Class frmCreate

Inherits System.Windows.Forms.Form

Dim sCN As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=information.accdb; Persist Security Info=False;"

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

End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub


Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

'Clear the Textboxes




End Sub

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

Dim strSQL As String

Dim objOleDbConnection As New OleDbConnection(sCN)

Dim objOleDbCommand As New OleDbCommand

'Open Database

objOleDbCommand.Connection = objOleDbConnection


strSQL = "INSERT INTO Users (User_Name, Password, Email) VALUES ('" & txtUserName.Text & "','" & txtPassword.Text & "','" & txtEmail.Text & "')"

objOleDbCommand.CommandText = strSQL



'Execute SQL Statement



'Close connection







End Sub

Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged

txtPassword.PasswordChar = "*"c

txtPassword.MaxLength = 8

End Sub


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

'Close the application


End Sub

End Class

KillerTwinkie - That one guy who used to mod's forums.


  • DekronDekron Member UncommonPosts: 7,358

    .Net or no?

  • sephersepher Member Posts: 3,561

    What do you mean by "bombing out"?

    Does it compile correctly and "bomb out" at runtime when you try to complete the SQL transaction? If so, try two things:

    1. Surround objOleDbCommand.ExecuteNonQuery() in a try catch block and see if it throws an SqlException. I don't really write VB but the syntax should be as simple as:



    Catch ex As SqlException"

    Establish a for loop in the Catch block that iterates through ex.Errors(); it'll have four values, ex.Errors().Message, ex.Errors().LineNumber, ex.Errors().Source, ex.Errors().Procedure; you're probably only interested in the Message and theres probably only one, so you could just go with displaying the string of ex.Errors(0).Message wherever you want.

    2. Assign the integer returned by objOleDbCommand.ExecuteNonQuery() to a variable and read it out somewhere as well for debugging purposes. It returns the number of affected rows by your query.


    All and all I could probably help more if you elaborated more on what you meant by "bomb out". If your problem is happening runtime though and it is a SqlException, capture those error messages. It could be as simple as a syntax error or your database isn't configured right (Access is it? Can't use an MSSQL .mdf?)

  • killerTwinkiekillerTwinkie Member CommonPosts: 1,694

    Yeah, it's VB.Net 2008. Honestly wish we could use 2010, but that would make things easy, and I'm assuming a lot of industry is still using 2005; i'm sure some smaller shops are using an even older version.

    The issue was resolved using the Try Catch, thanks Seph :). You seem to always come around when I need some advice and I appreciate that a lot.  Sorry for the ill-description. I was frustrated to no end when I wrote that.

    When I was "Bombing Out" at compile time (running the app) it would spit out a Syntax Error in the SQL. I found out that SQL was concatinating two lines because I missed a space in its syntax... Two days of horror because of a space...

    In case you're interested this is what I did for the Try Catch.


    'Instantiate an object that opend the datase

    Dim objConnection As New OleDbConnection(sCN)


    'check for auto help also

    'create the SQL statement ' (User_Name, Password, Email)" _

    strSQL = "INSERT INTO Users" _

    & " VALUES ('" & txtUserName.Text & "','" & txtPassword.Text _

    & "','" & txtEmail.Text & "')"

    'open the command

    Dim objCommand As New OleDbCommand(strSQL, objConnection)

    'execute command


    'close connection




    Catch ex As Exception


    End Try

    KillerTwinkie - That one guy who used to mod's forums.

Sign In or Register to comment.