Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    text
    copied!<p>You need to update it mannually. Try this:</p> <pre><code>Dim cnn3 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Renz\Documents\Visual Studio 2012\FINAL\Database\AuditDB.mdb;") Dim sql2 As String Dim ds1 As New DataSet Dim adptr As OleDbDataAdapter Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Dim Command1 As New OleDbCommand Dim i2 As Integer Dim sql1 As String Dim Status As String Try Dim cnn3 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Renz\Documents\Visual Studio 2012\FINAL\Database\AuditDB.mdb;") cnn3.Open() If ComboBox1.SelectedValue = "Admin" Then Status = "Admin" Else Status = "Student" End If sql1 = "INSERT INTO Users ([ID],[PASSWORD],[LASTNAME],[FIRSTNAME],[LOGINTYPE]) VALUES('" &amp; txtUID.Text &amp; "','" &amp; txtUPassword.Text &amp; "','" &amp; txtULastname.Text &amp; "','" &amp; txtUFirstName.Text &amp; "','" &amp; Status &amp; "')" Command1 = New OleDbCommand(sql1, cnn3) i2 = Command1.ExecuteNonQuery MessageBox.Show("Users Added Successfull") Refresh() Catch ex As Exception End Try End Sub Private Sub btnback_Click(sender As Object, e As EventArgs) Handles btnback.Click Me.Hide() frmFaculty.Show() End Sub Private Sub frmUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load Refresh() End Sub Private Sub Refresh() Dim cnn4 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Renz\Documents\Visual Studio 2012\FINAL\Database\AuditDB.mdb;") sql2 = "Select * from Users" Try cnn4.Open() adptr = New OleDbDataAdapter(sql2, cnn4) adptr.Fill(ds1) DataGridView1.DataSource = ds1.Tables(0) Catch ex As Exception End Try cnn4.Close() End Sub </code></pre>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload