Visual Basic

<br />
    Dim connStr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\me.mdb")<br />
    Dim sqlStr As String = "SELECT * FROM wpLogin"<br />
    Dim dt As New DataTable()<br />
    Dim dataAdapter As OleDbDataAdapter<br />
    Dim ODBconn As OleDbConnection<br />
<br />
<br />
    Public Function CreateDataAdapter(ByVal selectCommand As String, ByVal connection As OleDbConnection) As OleDbDataAdapter<br />
<br />
        <pre>Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(selectCommand, connection)<br />
<br />
        adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey<br />
<br />
        ' Create the commands.<br />
        adapter.InsertCommand = New OleDbCommand( _<br />
            "INSERT INTO wpLogin (user_name, user_pwd) " & _<br />
             "VALUES (?, ?)")<br />
<br />
        adapter.UpdateCommand = New OleDbCommand( _<br />
            "UPDATE wpLogin SET user_name = ?, user_pwd = ? " & _<br />
            "WHERE user_name = ?")<br />
<br />
        adapter.DeleteCommand = New OleDbCommand("DELETE FROM wpLogin WHERE user_name = ?")<br />
<br />
        ' Create the parameters.<br />
        adapter.InsertCommand.Parameters.Add( _<br />
            "@user_name", OleDbType.Char, 50, "user_name")<br />
        adapter.InsertCommand.Parameters.Add( _<br />
            "@user_pwd", OleDbType.Char, 50, "user_pwd")<br />
<br />
        adapter.UpdateCommand.Parameters.Add( _<br />
            "@user_name", OleDbType.Char, 50, "user_name")<br />
        adapter.UpdateCommand.Parameters.Add( _<br />
            "@user_pwd", OleDbType.Char, 50, "user_pwd")<br />
<br />
        adapter.DeleteCommand.Parameters.Add( _<br />
            "@user_name", OleDbType.Char, 50, "user_name").SourceVersion = _<br />
            DataRowVersion.Original<br />
<br />
        Return adapter<br />
    </pre>End Function<br />
<br />
<br />
    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click<br />
        <pre>'Displays the table's data in the data grid<br />
        'Clear the current contents of the table<br />
        dt.Clear()<br />
        'Fill the data table with data from the database<br />
        'Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)<br />
        ODBconn = New OleDbConnection(connStr)<br />
        dataAdapter = CreateDataAdapter(sqlStr, ODBconn)<br />
        dataAdapter.Fill(dt)<br />
        'dataAdapter.Dispose()<br />
        'Display the table in the data grid<br />
        dgDisplay.DataSource = dt</pre><br />
    End Sub<br />
<br />
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click<br />
        'Save the tables's changes back to the database<br />
        <pre>Dim changes As Integer<br />
<br />
<br />
        'Update the database with changes from the data table<br />
        changes = dataAdapter.Update(dt)<br />
        'dataAdapter.Dispose()<br />
        'Display the number of changes made<br />
        If changes > 0 Then<br />
            MsgBox(CStr(changes) & " changed rows were stored in the database.")<br />
        Else<br />
            MsgBox("No changes made.")<br />
        End If</pre>    <br />
End Sub<br />
<br />
    Private Sub UserManager_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing<br />
        <pre>dataAdapter.Dispose()</pre><br />
    End Sub<br />
End Class<br />

<br />
Private Sub ListView1_Click()<br />
gstrSomething = ListView1.SelectedItem.SubItems(4)<br />
gstrSomethingElse = ListView1.SelectedItem.Text<br />
Frame1.Visible = True<br />
<br />
End Sub<br />
<br />
<br />
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)<br />
    <br />
    Dim lvwItem As ListItem<br />
    If Button = vbRightButton Then<br />
        Set lvwItem = ListView1.HitTest(x, y)<br />
        If Not lvwItem Is Nothing Then<br />
      <br />
            Frame1.Visible = True<br />
  <br />
            lvwItem.Selected = True<br />
             PopupMenu mnuEdit<br />
        Else<br />
            Frame1.Visible = False<br />
        End If<br />
    End If<br />
    <br />
<br />
End Sub<br />
<br />