Imports MySql.Data.MySqlClient
Imports System.IO
Imports System.Data.SqlClient
Imports System.Globalization
Public Function fazer()
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)"
'O problema está nesta linha'
dateValue = 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
cmd = New MySqlCommand(SQL, conn)
cmd.ExecuteNonQuery()
MsgBox("Cadastrado (a) ")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return True
End Function
Public Function connection()
Try
conn = New MySqlConnection
conn.ConnectionString = "server=***; user id=***; password=*** database=***"
conn.Open()
If conn.State = ConnectionState.Open Then
MsgBox("conexão aberta com sucesso")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return True
End Function
End Class
Boa tarde estou com um problema no código não estou conseguindo colocar data no mysql através do Visual Basic
o erro é no tryparseexact , se alguém puder me ajudar eu agradeço
Error 1 Overload resolution failed because no accessible 'TryParseExact' accepts this number of arguments.
