Pesquisar na Comunidade
Mostrando resultados para as tags ''datamysql''.
Encontrado 1 registro
-
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.