簡體   English   中英

在數據庫 VB.NET 中插入文本框的問題

[英]Problem insert textbox in database VB.NET

我在將文本框插入數據庫時​​遇到問題。 我只想用文本框創建一個用戶,所以我的問題是如何將文本框中的數據添加到我的數據庫的用戶表中?

我重新編寫了所有代碼並找到了一個更簡單的方法,但出現以下錯誤,顯示“System.Data.SqlClient.SqlException: 'Invalid' User 'object name.' System .Data.SqlClient.SqlException: '無效' 用戶 '對象名稱。 " 在行rs = SqlCommande.ExecuteReader()

Dim CnxAppli As String = "Server=" & My.Settings.nomServeur & "; DataBase= " & My.Settings.nomBDD & "; Uid=" & My.Settings.idUser & "; Pwd=" & My.Settings.mdp & "; Integrated Security=SSPI;"
    Dim sqlConnect As New SqlConnection
    sqlConnect.ConnectionString = CnxAppli
    Dim SqlReq As String = "insert into Utlisateur (nom, prenom, tel, mail, poste, login, mdp) values ('" & tbNom.Text & "', '" & tbPrenom.Text & "', '" & tbTel.Text & "', '" & tbMail.Text & "', '" & tbPoste.Text & "', '" & tbLogin.Text & "', '" & tbMdp.Text & "')"
    Dim SqlCommande = New SqlCommand(SqlReq, sqlConnect)
    'SqlCommande.CommandText = SqlReq
    'SqlCommande.Connection = sqlConnect
    sqlConnect.Open()
    Dim rs As SqlDataReader
    rs = SqlCommande.ExecuteReader()
    rs.Close()
    sqlConnect.Close()
    GestionUtilisateurs.Show()
    Me.Close()

我設法找到了解決方案。 對於那些想要解決方案的人:

Dim CnxAppli As String = "Server=" & My.Settings.nomServeur & "; DataBase= " & My.Settings.nomBDD & "; Uid=" & My.Settings.idUser & "; Pwd=" & My.Settings.mdp & "; Integrated Security=SSPI;"
    Dim sqlConnect As New SqlConnection
    sqlConnect.ConnectionString = CnxAppli
    Dim cmSQL As SqlCommand
    Dim strSQL = "insert into utilisateur(nom, prenom, tel, mail, poste, login, mdp) values('" & tbNom.Text & "','" & tbPrenom.Text & "','" & tbTel.Text & "','" & tbMail.Text & "','" & tbPoste.Text & "','" & tbLogin.Text & "','" & tbMdp.Text & "')"
    cmSQL = New SqlCommand(strSQL, sqlConnect)
    Dim DataAdapter As New SqlDataAdapter(cmSQL)
    Dim cmBuilder As New SqlCommandBuilder(DataAdapter)
    Dim DataSet As New DataSet()
    Dim DataTable As New DataTable

    sqlConnect.Open()
    cmSQL.Connection = sqlConnect

    DataAdapter.Fill(DataSet, "utilisateur")
    DataTable = DataSet.Tables("utilisateur")

    'cmSQL = New SqlCommand(strSQL, cnSQL)
    'cmSQL.ExecuteNonQuery()

    sqlConnect.Close()

    GestionUtilisateurs.Show()
    Me.Close()

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM