1

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

我正在制作一个新的数据库/表单只是为了让它工作，然后我会将它实现到我的工作表单中，该表单也发送电子邮件。

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

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

弗雷德

4

2 回答 2

0

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

（右键单击项目 > 添加 > 新项目 > 数据 > 数据集）

添加一个表适配器并使用 Query Builder 构建一个类似于下面的 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

于 2013-09-02T15:26:35.923 回答
0

只需在表单上创建 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

如果您仍然收到错误，请向我发送错误信息，我可能会为您提供帮助。

于 2013-09-03T07:06:47.377 回答