Ir para conteúdo
Fórum Script Brasil
  • 0

ajuda inserir data no BD


FelipeMachado

Pergunta

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.   

Editado por FelipeMachado
Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...