Boa tarde,
Try
connection()
Try
Catch ex As Exception
End Try
SQL = "INSERT INTO vendedoras (codvend,nome,endereco,rg,cpf,cep,datanasc) VALUES (@cvend,@nome,@endereco,@rg,@cpf,@cep,@data)"
Dim dateValue As DateTime = Date.TryParseExact(Datan.Text, "dd/MM/yyyy", CultureInfo.CurrentCulture, DateTimeStyles.None)
cmd.Parameters.Add("@nome", MySqlDbType.VarChar, 70)
cmd.Parameters.Add("@cvend", MySqlDbType.Int32, 5)
cmd.Parameters.Add("@endereco", MySqlDbType.VarChar, 100)
cmd.Parameters.Add("@rg", MySqlDbType.VarChar, 13)
cmd.Parameters.Add("@cpf", MySqlDbType.VarChar, 13)
cmd.Parameters.Add("@cep", MySqlDbType.Int32, 8)
cmd.Parameters("@data").Value = dateValue
cmd.Parameters("@nome").Value = TBnome.Text
cmd.Parameters("@cvend").Value = Cvend.Text
cmd.Parameters("@rg").Value = TBrg.Text
cmd.Parameters("@cpf").Value = TBcpf.Text
cmd.Parameters("@cep").Value = TBcep.Text
cmd.Parameters("@endereco").Value = TBendereco.Text
cmd.Parameters("@data").Value = dateValue
'"debuguei" o programa e vi que o dateValue está vazio'
'o datan está recebendo o valor normal'
cmd = New MySqlCommand(SQL, conn)
cmd.ExecuteNonQuery()
MsgBox("Cadastrado (a) ")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Cordiais cumprimentos,
Apocsantos
↧