我在写 插入数据到Mysql中时,无法正常插入,报错一直是致命性错误。代码如下Dim m_strConnection As String Dim m_SqlConn As MySqlConnection m_strConnection = "
我在写 插入数据到Mysql中时,无法正常插入,报错一直是致命性错误。代码如下Dim m_strConnection As String Dim m_SqlConn As MySqlConnection m_strConnection = "server= ;uid=root;pwd=;database= ;pooling=false" m_SqlConn = New MySqlConnection(m_strConnection) Dim insertC As String = "insert into compte (Civilite,Nom,Prenom, " & _ "Email, Telephone,Address,Code postale,Date de naissance,Abonnement )values(@ de )" Dim cmd As New MySqlCommand() 'Dim insertC As String = "insert into compte (Civilite)values('M')" cmd.Connection = m_SqlConn cmd.CommandText = insertC cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("@civilite", civilite) cmd.Parameters.AddWithValue("@nom", TextBox1.Text) cmd.Parameters.AddWithValue("@prenom", TextBox2.Text) cmd.Parameters.AddWithValue("@email", TextBox3.Text) cmd.Parameters.AddWithValue("@telephone", TextBox4.Text) cmd.Parameters.AddWithValue("@address", TextBox5.Text) cmd.Parameters.AddWithValue("@code postale", TextBox6.Text) cmd.Parameters.AddWithValue("@date de naissance", DateTimePicker1.Value) cmd.Parameters.AddWithValue("@abonnement", abonnement) ''@date de naissance,Date de naissance, 'MessageBox.Show(nom + prenom + adresse + email + abonnement + telephone + adresse + codePostale + dateNaissance + civilite) Try m_SqlConn.Open() cmd.ExecuteNonQuery() Catch ex As MySqlException MessageBox.Show("Error connecting to the server: " + ex.Message) Finally m_SqlConn.Close() End Try
展开
全部