FelipeMachado

alguém possui algum algoritimo, do algoritimo genetico?

olá boa tarde estou com 1 pequeno probleminha se alguém puder me ajudar eu agradeço muito, é o seguinte, preciso extrair o valor da tabela nº1 para a tabela nº2 e ainda pegar um outro valor de outra tabela nº3, até ai consegui fazer, agora não estou conseguindo colocar a data atual junto com o código se alguém puder me ajudar agradeço, # diaretira irá receber a data atual INSERT INTO retirada (codvend, codigobarra , imgp, tipo, valor, diaretira SELECT vendedoras.codvend, produtos.codigobarra, produtos.imgp, produtos.tipo, produtos.valor, DATE(retirada.diaretira) FROM produtos, vendedoras, retirada WHERE produtos.codigobarra = '70000000001' and vendedoras.codvend = 123; Desde já agradeço

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.