Question

我正在尝试创建一个简单的表单供用户输入数据来预订课程。他们填写文本框并按提交，它需要发送一封电子邮件给我信息（我有这个工作），它还需要将它添加到数据库（这是我正在努力的）。我也真的需要了解代码，以便将来再次使用它。

我正在创建一个新的数据库/表单以使其正常工作，然后我将其实现到我的工作表单中以发送电子邮件。

目前我已经创建了一个包含一个表的数据库，其中包含：ID，名称，课程名称和地址

我创建了一个带有3个文本框（txtName，txtCourseName和txtAddress）的表单，并带有提交按钮，但是从这里我不知道如何制作它所以我将值放在文本框中，单击提交按钮，它们是添加到数据库中。任何帮助都会很棒，谢谢。

佛瑞德

Answer 1

如果您愿意将数据集添加到项目中，

（右键单击项目＆gt;添加＆gt;新项目＆gt;数据＆gt;数据集）

添加表适配器并使用查询生成器构建类似于下面的SQL Select语句（它还将创建 INSERT 语句）

Select txtName, txtCourseName , txtAddress From MyTable

然后，您可以从按钮代码中调用Insert语句，沿着......

Dim sta As New YourDataTableAdapter.TableAdapter sta.Insert(txtName, txtCourseName , txtAddress) sta.Dispose()

http://msdn.microsoft.com/en-us/library/6sb6kb28.aspx

Answer 2

只需在表单上创建3个文本框和1个按钮复制所有这些代码，不要忘记相应地命名文本框

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Dim Con As OleDbConnection
    Dim cmd As New OleDbCommand

    Dim conString As String = "This part you have to do it your self you can go to this link to check whick string works for u   http://www.connectionstrings.com/"

    Public Sub CourseSave()

        Try

            Dim con As New OleDbConnection
            con.ConnectionString = conString
            con.Open()

            cmd.Connection = con

            cmd.CommandText = "insert into tablename(Name, [Course Name], Address) values('" & Me.txtName.Text & "', '" & Me.txtCourseName.Text & "', '" & Me.txtAddress.Text & "')"


            cmd.ExecuteNonQuery()

            con.Close()
            MsgBox("New Course Saved")

            con.Close()
            con.Dispose()

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CourseSave()
    End Sub
End Class

如果您仍然收到错误，请向我发送错误，我可以帮助您。

使用Visual Studio 2012将数据输入SQL Server（VisualBasic）

2 个答案: