-1

Label.text データを mySql テーブルに挿入する方法。私はtextbox.textに問題はありませんが、Label.textでどのようにそれを理解することはできません私はtextbox.textで同じコードを試します

parameterB_Answer.Value = TextBox1.Text

それはうまくいきますが、私が試してみると

parameterB_Answer.Value = Label1.Text

mySqlReader はそれを読み取れないようです。

アップデート：

1.1.1 は label1.text です。私の考えは、Label1 のテキスト「1.1.1」を主キーとして挿入し、Textbox(textbox1.text) を次のように挿入することです。

私のコードは次のとおりです。

Try
    Dim StrSQL As String = "INSERT INTO boranga" & _
                           "(IdBorangA,Answers)" & _
                           "VALUES (@B_IdA,@B_Answer);"
    Dim myCommand As MySqlCommand = New MySqlCommand(StrSQL, conn.open)
    myCommand.CommandType = CommandType.Text
    Dim parameterB_IdA As MySqlParameter = New MySqlParameter("@B_IdA", MySqlDbType.VarChar, 300)
    parameterB_IdA.Value = Label1.Text
    Dim parameterB_Answer As MySqlParameter = New MySqlParameter("@B_Answer", MySqlDbType.VarChar, 300)
    parameterB_Answer.Value = TextBox1.Text
    With myCommand.Parameters
        .Add(parameterB_IdA)
        .Add(parameterB_Answer)
    End With

    Dim result As MySqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
    MsgBox("Tersimpan", vbYes, "boranga")

Catch SqlEx As MySqlException
    Throw New Exception(SqlEx.Message.ToString())
End Try

しかし、Label1.text (1.1.1) の値を 111 に変更すると、問題なく動作します。おそらく、「1.1.1」は整数ではありませんが、label1.textの列にINTを入力したためです

どうもありがとうございます

PS:評判が悪いので画像を投稿できないようです

4

1 に答える 1

0

まず、このコード形式を使用してみてください。

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim conn As MySqlConnection

'Connect to the database using these credentials
conn = New MySqlConnection
conn.ConnectionString = "server=your server site (generally long url); user id=login id for mysql user; password=self explanatory; database=name of the DB you're trying to reach"

'Try and connect (conn.open)
Try
    conn.Open()

Catch myerror As MySqlException 'If it fails do this... (i.e. no internet connection, etc.)
    MsgBox("Error connecting to database. Check your internet connection.", MsgBoxStyle.Critical)
End Try


'MySQL query (where to call for information)
Dim myAdapter As New MySqlDataAdapter

'Tell where to find the file with the emails/passes stored
Dim sqlquery = "SELECT * FROM the database you selected above WHERE Email = '" & txtEmail.Text & "' AND Password = '" & txtPassword.Text & "'"
Dim myCommand As New MySqlCommand
myCommand.Connection = conn
myCommand.CommandText = sqlquery

'Start query
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader

If myData.HasRows = 0 Then
    MsgBox("Invalid email address or password.", MsgBoxStyle.Critical)

Else
    MsgBox("Logged in as " & txtEmail.Text & ".", MsgBoxStyle.Information)

    Me.Close()

End If

サブ終了

label.text を挿入するには、最初に textbox.text フィールドの 1 つを置き換えてみて、それが受け入れられるかどうかを確認します。もしそうなら、答えはすべてフォーマットにありました。

また、電話することを忘れないでください：

imports mysql.data.mysqlclient

必ず mysql.data 参照を追加してください。

于 2012-06-05T23:03:00.147 に答える