使用 Visual Basic 和 SQL 创建新记录按钮

对不起，我对编程世界很陌生！我想知道如何使用 SQL 在视觉基础中创建一个新的记录按钮。

我使用 INSERT 语句是否正确。

我已经尝试了几个小时，但没有运气。

任何帮助都非常感谢。 :)

好的，

我将做出一些假设。我将假设您使用的是 aspx Web 窗体和服务器控件。Visual Basic可以是很多东西Web表单，MVC，Windows表单，Web API... 无论如何，下面是一个使用 ASPX Web 窗体的示例。

所以对于你的ASPX页面，类似

<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="insert.aspx.cs" Inherits="webApiOracle.insert" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <link href="../Content/bootstrap.min.css" rel="stylesheet" />
    <title>Insert</title>
</head>
<body>
    <form id="form1" runat="server">
        <asp:Label ID="Label1" runat="server" Text="" ForeColor="Red"></asp:Label>
    <div class="form-group">
        <label for="TextBoxemail">Email</label>
        <asp:TextBox ID="TextBoxemail" runat="server" CssClass="form-control"></asp:TextBox>
    </div>
    <div class="form-group">
        <label for="inputPassword">First Name</label>
        <asp:TextBox ID="TextBoxFirstName" runat="server" CssClass="form-control"></asp:TextBox>
    </div>
    <div class="form-group">
        <label for="TextBoxLastName">Last Name</label>
        <asp:TextBox ID="TextBoxLastName" runat="server" CssClass="form-control"></asp:TextBox>
    </div>
     <asp:Button ID="Button1" runat="server" Text="Insert" CssClass="btn btn-primary" OnClick="Button1_Click" />
    </form>
</body>
</html>

然后在你的代码中隐藏。

Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Namespace webApiOracle
    Public Partial Class insert
        Inherits System.Web.UI.Page
        Protected Sub Page_Load(sender As Object, e As EventArgs)
        End Sub
        Protected Sub Button1_Click(sender As Object, e As EventArgs)
            Using conn As New SqlConnection("connectionString")
                Using cmd As New SqlCommand()
                    cmd.Connection = conn
                    cmd.CommandType = CommandType.Text
                    cmd.CommandText = "INSERT INTO mytable(email,first_name,last_name) " & vbCr & vbLf & "                            VALUES(@param1,@param2,@param3)"
                    cmd.Parameters.AddWithValue("@param1", TextBoxemail.Text)
                    cmd.Parameters.AddWithValue("@param2", TextBoxFirstName.Text)
                    cmd.Parameters.AddWithValue("@param3", TextBoxLastName.Text)
                    Try
                        conn.Open()
                        cmd.ExecuteNonQuery()
                    Catch [error] As SqlException
                        Label1.Text = [error].Message.ToString()
                    End Try
                End Using
            End Using
        End Sub
    End Class
End Namespace

相关内容

最新更新

热门标签：