Here is the code in total:
Public Class frmRegister
Dim intRegCnt
Private Sub Check_username()
Dim Con As New OleDb.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 = Stock_database.mdb"
Con.ConnectionString = dbProvider & dbSource
Con.Open()
sql = "SELECT * FROM Login_Form where User_ID = '" & txtUsername.Text & "'"
da = New OleDb.OleDbDataAdapter(sql, Con)
da.Fill(ds, "UserRegister")
Con.Close()
intRegCnt = ds.Tables("UserRegister").Rows.Count
If intRegCnt > 0 Then
MsgBox("The username " & txtUsername.Text & " already exists")
Else
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data source = Stock_database.mdb"
Con.ConnectionString = dbProvider & dbSource
Con.Open()
sql = "SELECT * FROM Login_Form"
da = New OleDb.OleDbDataAdapter(sql, Con)
da.Fill(ds, "UserRegister")
Con.Close()
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow = ds.Tables("UserRegister").NewRow()
dsNewRow.Item("User_ID") = txtUsername.Text
dsNewRow.Item("Password") = txtPassword.Text
ds.Tables("UserRegister").Rows.Add(dsNewRow)
da.Update(ds, "UserRegister")
End If
End Sub
Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click
Check_username()
End Sub
End Class
The exact line that is throwing the error is:
da.Update(ds, "UserRegister")
What is the issue here? I have tried searching for information, but have so far come up blank.

New Topic/Question
Reply



MultiQuote






|