Ajouter un Nouvel Enregistrement à la Base de données Microsoft Access à l'aide de VB.Net?

J'ai un formulaire (Inscription), et une base de données appelée (UsersLogin) avec une table appelée (tbl_user) avec les champs

  • (prenom)
  • (nom)
  • (middle_name)
  • (âge)
  • (adresse)
  • (nom d'utilisateur)
  • (mot de passe).

Je veux pas seulement être en mesure de modifier les enregistrements (je peux déjà le faire), mais je ne peux pas semblent être en mesure d'ajouter ou de créer une nouvelle ligne/d'enregistrement. Ci-dessous est la classe registration je suis à l'aide de la mesure de mise à jour une ligne de base de données, mais je ne peux pas semblent être en mesure d'ajouter un nouvel enregistrement (plutôt que de simplement la mise à jour):

Imports System.Data
Imports System.Data.SqlClient
Public Class Registration
    Private Sub Registration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Me.Tbl_userTableAdapter.Fill(Me.UsersLoginDataSet.tbl_user)
        Catch ex As Exception
            MessageBox.Show("The database file is unavailable", "Database Unavailable", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Me.Close()
        End Try
    End Sub

    Private Sub btnSaveChanges_Click(sender As Object, e As EventArgs) Handles btnSaveChanges.Click
        Try
            Me.Validate()
            Me.TbluserBindingSource.EndEdit()
            Me.Tbl_userTableAdapter.Update(Me.UsersLoginDataSet)
            MessageBox.Show("Updates to the database have been successful.", "Successful Updates", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Updates to the database have failed.", "Unsuccessful Updates", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        LoginScreen.Show()
        Me.Hide()
    End Sub
End Class

Le jeu de données est appelé UsersLoginDataSet.xsd

Ce que quelqu'un sait comment faire pour ajouter un nouvel utilisateur (c'est à dire faire une nouvelle ligne), et donc écrire ceci à un tableau?

J'ai cherché plusieurs solutions à ce problème sur le web, mais n'ont pas été en mesure d'ajouter une nouvelle ligne et donc de "remplir" l'enregistrement dans la base de données.

Quelqu'un pourrait peut-être expliquer comment cette devrait être fait?

  • Il n'est pas très utile de dire "mais je ne peux pas semblent être en mesure de créer une nouvelle ligne". Vous avez besoin de fournir des détails afin que nous puissions vous aider. Pourquoi ne pouvez-vous pas? Êtes-vous d'obtenir une erreur, quelle est l'erreur? Aussi, vous devez fournir le code SQL de la Commands de votreSqlDataAdapter. Et une dernière remarque: Vous avez à la fois MySQL et MS Access balises sur votre question, la base de données utilisez-vous?
  • Désolé à ce sujet. Je suis l'aide de MS access. Mais j'ai essayé en utilisant dim ligne Comme Nouvelles Datarow, Mais rien ne s'est passé réellement.
  • Vous avez besoin de fournir plus de détails comme je l'ai mentionné. Dim row As New Datarow ne signifie pas grand chose. Êtes-vous alors de l'ajouter à la table? Je vais essayer de poster une réponse, mais les détails que vous avez fournis ne sont pas suffisants.
  • Désolé, pas très bon à poser des questions tbh, mais oui, Ce que je veux être en mesure de faire est d'ajouter un nouvel utilisateur au système, et ce sera alors en mesure d'être utilisé dans la connexion du système?
InformationsquelleAutor jbutler483 | 2014-03-29
  1. 3

    Les données que vous avez fournies ne sont pas assez, mais je vais essayer de répondre à votre commentaire. Ci-dessous est un exemple à partir de MSDN sur la façon d'ajouter une nouvelle ligne. Lorsque vous créez une nouvelle ligne, vous devez utiliser NewRow() sur la table, et après la création de l'utiliser Rows.Add() sur votre tableau, ajouter la nouvelle ligne:

    Dim newCustomersRow As DataRow = DataSet1.Tables("Customers").NewRow()

newCustomersRow("CustomerID") = "ALFKI"
newCustomersRow("CompanyName") = "Alfreds Futterkiste"

DataSet1.Tables("Customers").Rows.Add(newCustomersRow)

    Forme plus de détails, lire le Article MSDN.

    InformationsquelleAutor Racil Hilan