如何在线插入mysql服务器数据库中的数据 [英] How to insert data in mysql server database online

问题描述

我的代码

my code

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Imports System.IO
Public Class ADD1
    Dim conn As MySqlConnection
    Private imagename As String
    'this code declare variable as Byte

    Private imagge() As Byte
    'this code declare variable as MemoryStream

    Private memor As New MemoryStream
    Dim OpenFile As New OpenFileDialog()
    Private Sub ADD_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        idtxt.Focus()
    End Sub

    Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        img.Image = Nothing
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        Try
            conn.ConnectionString = "server=111.111.xxx.xxx;Port=4xxx; Uid=axxusxxx; pwd=xxx; database=xxxrus"
            conn.Open()

            'this code insert these rows into database
            Dim cmd As New MySqlCommand
            cmd.Connection = conn
            cmd.CommandText = "INSERT INTO UOBexam([ID],[NAME],[MIDDLE],[LAST],[TELL],[FACULTY],[YEAR],[SEMESTER],[COURSE1],[COURSE2],[COURSE3],[COURSE4],[COURSE5],[COURSE6],[COURSE7],[GPA],[NOTE],[REPORT],[IMAGE]) VALUES (@ID,@NAME,@MIDDLE,@LAST,@TELL,@FACULTY,@YEAR,@SEMESTER,@COURSE1,@COURSE2,@COURSE3,@COURSE4,@COURSE5,@COURSE6,@COURSE7,@GPA,@NOTE,@REPORT,@IMAGE)"

            With cmd
                .Parameters.AddWithValue("@ID", idtxt.Text)
                .Parameters.AddWithValue("@NAME", name1.Text)
                .Parameters.AddWithValue("@MIDDLE", middle.Text)
                .Parameters.AddWithValue("@LAST", last.Text)
                .Parameters.AddWithValue("@TELL", tell.Text)
                .Parameters.AddWithValue("@FACULTY", ComboBox1.Text)
                .Parameters.AddWithValue("@YEAR", year.Text)
                .Parameters.AddWithValue("@SEMESTER", semester.Text)
                .Parameters.AddWithValue("@COURSE1", course1.Text)
                .Parameters.AddWithValue("@COURSE2", course2.Text)
                .Parameters.AddWithValue("@COURSE3", course3.Text)
                .Parameters.AddWithValue("@COURSE4", course4)
                .Parameters.AddWithValue("@COURSE5", course5.Text)
                .Parameters.AddWithValue("@COURCE6", course6.Text)
                .Parameters.AddWithValue("@COURSE7", course7.Text)
                .Parameters.AddWithValue("@GPA", GPA.Text)
                .Parameters.AddWithValue("@NOTE", NOTE.Text)
                .Parameters.AddWithValue("@REPORT", REPORT.Text)
            End With
            conn.Close()
    
        Catch ex As Exception
            MsgBox(ex.Message)
            conn.Close()
            'clean
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            With OpenFile
                .InitialDirectory = Application.StartupPath
                .FileName = ""
                .Title = "Photo:"
                .Filter = "Image files: (*.jpg)|*.jpg|(*.jpeg)|*.jpeg|(*.png)|*.png|(*.Gif)|*.Gif|(*.bmp)|*.bmp| All Files (*.*)|*.*"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    img.Image = System.Drawing.Image.FromFile(.FileName)

                Else
                    'Wala lang po..
                End If
            End With
        Catch ex As Exception
            MsgBox(ex.Message(), MsgBoxStyle.Critical, "Error...")
        End Try
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
 
    End Sub
End Class

< br $> b $ b

我尝试了什么：



连接正常但是问题是我无法插入数据

What I have tried:

the connection is OK but the problem is i can't insert data

推荐答案

C# ADO.NET SqlCommand - ExecuteNonQuery

[ ^ ]

这篇关于如何在线插入mysql服务器数据库中的数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！