1

ユーザーがデータを入力してコースを予約するための簡単なフォームを作成しようとしています。彼らはテキストボックスに入力して送信を押し、情報を記載したメールを私に送信する必要があり（私はこれが機能しています）、データベースに追加する必要もあります（これは私が苦労していることです）。また、将来再び使用できるように、コードを本当に理解する必要があります。

これを機能させるためだけに新しいデータベース/フォームを作成しています。次に、電子メールを送信する作業フォームにも実装します。

現在、ID、名前、コース名、住所を含む1つのテーブルを持つデータベースを作成しました

送信ボタン付きの3つのテキストボックス（txtName、txtCourseName、txtAddress）を含むフォームを作成しましたが、ここからは作成方法がわからないため、テキストボックスに値を入力し、送信ボタンをクリックすると、データベース。どんな助けでも素晴らしいでしょう、ありがとう。

フレッド

4

2 に答える 2

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 に答える
0

プロジェクトにデータセットを追加することに慣れている場合は、

(プロジェクトを右クリック > 追加 > 新しいアイテム > データ > データセット)

テーブル アダプターを追加し、クエリ ビルダーを使用して以下のような 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 に答える