0

Im using Microsoft Visual Studio 2010
Microsoft Acess 2010

This is for practice
Lets See First off i was able to get to insert records(Code Below)
Now im trying to get the program to prompt a message when the id or field exists on the key down event and not enter it if it exists and if it doesnt exist im guessing i could use my already existing code to insert it
Any Examples?

Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Button3.Enabled = True
        End If

        If e.KeyCode = Keys.Enter Then
            e.SuppressKeyPress = True
            CecilSpeak.Text = "Hello," + TextBox2.Text + ""

            If MessageBox.Show("Are you sure this is your name?", "Save", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                CecilSpeak.Text = "Hello," + TextBox2.Text + ""
                TextBox2.Enabled = False
                Dim con As New OleDbConnection
                Dim dbProvider As String
                Dim dbSource As String
                Dim ds As New DataSet
                Dim da As OleDb.OleDbDataAdapter
                Dim sql As String
                

                dbProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
                dbSource = "Data Source = Resources\Database4.mdb"

                con.ConnectionString = dbProvider & dbSource

                con.Open()
                MsgBox("Database is now open")

                sql = "Select * FROM Namess"
                da = New OleDb.OleDbDataAdapter(sql, con)
                da.Fill(ds, "Namess")
                If inc <> -1 Then

                    Dim cb As New OleDb.OleDbCommandBuilder(da)
                    Dim dsNewRow As DataRow
                    da.Fill(ds, "Namess")

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

                    dsNewRow.Item("Field1") = TextBox2.Text

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

                    da.Update(ds, "Namess")

                    MsgBox("New Record added to the Database")

                    con.Close()
                    MsgBox("Database is now Closed")
                End If
            Else
                Button3.Enabled = False
                CecilSpeak.Text = "Not Your Name?"
            End If

        End If

    End Sub
2
Contributors
2
Replies
5
Views
5 Years
Discussion Span
Last Post by XEN0
0

Oh its in the declarations section

Public Class Form1
    Private inc As Integer
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.